diff --git a/README.md b/README.md
index 56cb8831..718ab9c7 100644
--- a/README.md
+++ b/README.md
@@ -13,8 +13,9 @@ https://github.com/purescript-lua/purescript-lua/discussions/categories/ideas
 - [x] FFI with Lua.
 - [x] Dead Code Elimination (DCE).
 - [x] Code inlining, tunable with graduated `@inline` directives
-      (`always`/`never`/`arity=N`, per-field accessors, and a project-wide
-      `--directives` file).
+      (`always`/`never`/`arity=N`, per-field accessors, a project-wide
+      `--directives` file, and a shipped default pack for the prelude/core
+      forks).
 - [x] [Package Set](https://github.com/purescript-lua/purescript-lua-package-sets) for PureScript/Lua libs.
 - [x] All core libs added to the package set.
 - [x] First-class [Spago](https://github.com/purescript/spago) backend: `spago build`, `spago run`, and `spago test` target Lua via `pslua`.
@@ -191,7 +192,7 @@ field of a record the binding is (or returns), and a mode:
 - `default` explicitly resets the target to the built-in heuristics, masking
   any weaker directive.
 
-Directives come from three sources, most specific first:
+Directives come from four sources, most specific first:
 
 1. **Module-header pragmas** — comment lines above `module` in the defining
    module, naming its own bindings: `-- @inline myBinding arity=2`.
@@ -202,12 +203,21 @@ Directives come from three sources, most specific first:
    cover optional dependencies.
 3. **Exported pragmas** — `-- @inline export myBinding always` in the
    defining module travels with the library as its author's recommendation.
-
-A local pragma beats the file, and the file beats an exported pragma, per
-target. Foreign bindings accept only whole-binding `always`/`never`/`default`
-(their implementation is opaque to the optimizer). Note that `spago run`
-re-invokes the backend without build-phase flags, so `--directives` (like all
-build flags) applies to `spago build` output, not to the `--run` re-link.
+4. **The default directive pack** — the compiler ships directives for the
+   prelude/core forks' ubiquitous tiny combinators (class member accessors
+   like `map` and `bind` at `arity=1`, `bindFlipped`, the function-instance
+   dictionary methods like `semigroupFn.append`, `otherwise`, the generics
+   glue, the ST/Ref `modify` wrappers), so common dictionary-parameterized
+   code specializes away with no annotations in user code.
+
+A local pragma beats the file, the file beats an exported pragma, and every
+explicit source beats the default pack, per target. To opt a pack entry out,
+name it in the directives file with mode `default` (restoring the built-in
+heuristics) or any stronger mode. Foreign bindings accept only whole-binding
+`always`/`never`/`default` (their implementation is opaque to the optimizer).
+Note that `spago run` re-invokes the backend without build-phase flags, so
+`--directives` (like all build flags) applies to `spago build` output, not to
+the `--run` re-link.
 
 Specializations of an `arity=N` target need no directives of their own: a
 top-level binding that applies the target to `k` arguments — a hand-written
diff --git a/bench/goldens/fnew_Bench.BindChain.txt b/bench/goldens/fnew_Bench.BindChain.txt
index 95eaf5b1..792f8e6a 100644
--- a/bench/goldens/fnew_Bench.BindChain.txt
+++ b/bench/goldens/fnew_Bench.BindChain.txt
@@ -1,9 +1,7 @@
 chunk: Bench.BindChain.lua
 runtime: LuaJIT 2.1.1741730670
-main-chunk FNEW: 2
-function-body FNEW: 2
-total FNEW: 4
-prototypes: 5
+main-chunk FNEW: 1
+function-body FNEW: 0
+total FNEW: 1
+prototypes: 2
 function-body FNEW sites:
-  Bench.BindChain.lua:18
-  Bench.BindChain.lua:17
diff --git a/bench/goldens/tnew_Bench.BindChain.txt b/bench/goldens/tnew_Bench.BindChain.txt
index 8b3a886d..4338d49d 100644
--- a/bench/goldens/tnew_Bench.BindChain.txt
+++ b/bench/goldens/tnew_Bench.BindChain.txt
@@ -1,11 +1,7 @@
 chunk: Bench.BindChain.lua
 runtime: LuaJIT 2.1.1741730670
 main-chunk TNEW+TDUP: 1
-function-body TNEW+TDUP: 4
-total TNEW+TDUP: 5
-prototypes: 5
+function-body TNEW+TDUP: 0
+total TNEW+TDUP: 1
+prototypes: 2
 function-body TNEW+TDUP sites:
-  Bench.BindChain.lua:5 TDUP
-  Bench.BindChain.lua:10 TDUP
-  Bench.BindChain.lua:14 TDUP
-  Bench.BindChain.lua:17 TDUP
diff --git a/bench/goldens/trace_bind_chain.txt b/bench/goldens/trace_bind_chain.txt
index a32d975b..c0dc73b3 100644
--- a/bench/goldens/trace_bind_chain.txt
+++ b/bench/goldens/trace_bind_chain.txt
@@ -2,12 +2,5 @@ spec: bind_chain
 runtime: LuaJIT 2.1.1741730670
 workload: n=1000000 reps=4 result=3000000
 aborts (distinct site -- reason):
-  Bench.BindChain.lua:17 -- NYI: bytecode FNEW
-  Bench.BindChain.lua:18 -- NYI: bytecode FNEW
-  Bench.BindChain.lua:22 -- NYI: bytecode UCLO
 bytecode end state (J*=compiled, I*=blacklisted):
-  Bench.BindChain.lua:1 JFUNCF
-  Bench.BindChain.lua:13 IFUNCF
-  Bench.BindChain.lua:17 JFUNCF
-  Bench.BindChain.lua:9 IFUNCF
-counts: aborts=3 compiled=2 blacklisted=2
+counts: aborts=0 compiled=0 blacklisted=0
diff --git a/changelog.d/20260728_120000_unisay_default_directive_pack.md b/changelog.d/20260728_120000_unisay_default_directive_pack.md
new file mode 100644
index 00000000..428e4788
--- /dev/null
+++ b/changelog.d/20260728_120000_unisay_default_directive_pack.md
@@ -0,0 +1,23 @@
+### Added
+
+- The compiler now ships a default `@inline` directive pack for the
+  prelude/core forks (`Inliner.defaultDirectives`): class member accessors
+  (`map`, `bind`, `append`, ...) at `arity=1`, the tiny dictionary-
+  parameterized combinators (`bindFlipped`, `applySecond`, `composeKleisli`,
+  ...), the function-instance dictionary methods
+  (`semigroupFn.append arity=2`, `categoryFn.identity always`), the generics
+  glue (`genericShow`/`genericEq`/`genericCompare`), and the ST/Ref `modify`
+  wrappers. The pack is the lowest-precedence directive source: a consumer's
+  `--directives` file or a library author's module-header pragma overrides
+  any entry, and an explicit `default` mode masks one back to the built-in
+  heuristics (#242).
+
+### Changed
+
+- Directive targets may now contain `_` and `'`, matching PureScript
+  identifier syntax (previously `Effect.Ref.modify_` or a primed name could
+  not be named by any pragma or directives file).
+- The optimizer fixpoint iteration backstop is raised from 100 to 1000
+  rounds: directive-driven inlining folds a constant chain one layer per
+  round, so legitimate iteration counts scale with the deepest such chain
+  in the module (the ~300-deep golden stress chains need several hundred).
diff --git a/exe/Cli.hs b/exe/Cli.hs
index ddf27434..5a95a88c 100644
--- a/exe/Cli.hs
+++ b/exe/Cli.hs
@@ -113,7 +113,9 @@ options = do
               , green $ indent 2 "Example: Data.Lens.over arity=2"
               , "A local module-header pragma overrides the file;"
                   <> softbreak
-                  <> "the file overrides @inline export pragmas."
+                  <> "the file overrides @inline export pragmas,"
+                  <> softbreak
+                  <> "which override the shipped default directive pack."
               ]
         ]
 
diff --git a/lib/Language/PureScript/Backend/IR.hs b/lib/Language/PureScript/Backend/IR.hs
index 031f9cc9..64c6783a 100644
--- a/lib/Language/PureScript/Backend/IR.hs
+++ b/lib/Language/PureScript/Backend/IR.hs
@@ -107,9 +107,15 @@ mkModule directives cfnModule contextDataTypes = do
   (localModes, exportModes) ← parseAnnotations cfnModule
   let fileModes =
         Map.findWithDefault mempty (Cfn.moduleName cfnModule) directives
+      packModes =
+        Map.findWithDefault
+          mempty
+          (Cfn.moduleName cfnModule)
+          Inliner.defaultDirectives
   runRepM
     Context
-      { annotations = Inliner.resolveModes localModes fileModes exportModes
+      { annotations =
+          Inliner.resolveModes localModes fileModes exportModes packModes
       , headerTargets = Map.keysSet localModes <> Map.keysSet exportModes
       , contextModule = cfnModule
       , contextDataTypes
diff --git a/lib/Language/PureScript/Backend/IR/Inliner.hs b/lib/Language/PureScript/Backend/IR/Inliner.hs
index fa50fe0b..9df7d5e6 100644
--- a/lib/Language/PureScript/Backend/IR/Inliner.hs
+++ b/lib/Language/PureScript/Backend/IR/Inliner.hs
@@ -29,22 +29,26 @@ An inlining directive names a target and a mode:
 The bare target names a whole binding. @.label@ names one field of a
 dictionary-record binding, @...label@ one field of the record a binding
 returns when applied (@f(x).label@) — a policy for one method instead of
-the whole record. Directives come from three explicit sources, layered by
+the whole record. Directives come from four explicit sources, layered by
 specificity (most specific wins, per target):
 
   1. a local module-header pragma (no @export@) in the defining module;
   2. the project-wide @--directives@ file;
   3. an @\@inline export@ module-header pragma — a default the library
-     author ships with the module, overridable by the consumer's file.
+     author ships with the module, overridable by the consumer's file;
+  4. the default directive pack the compiler ships for the prelude/core
+     forks ('defaultDirectives') — generic defaults that any explicit
+     source, including a library author's @export@ pragma, overrides.
 
 'resolveModes' performs exactly this layering; a winning @default@ still
 masks the lower tiers and resolves to no annotation — the built-in
 heuristics. Module-header pragmas name own-module bindings only and are
-validated strictly (a target matching nothing is an error); file entries
-are fully qualified and best-effort (a shared file may cover modules
-absent from the build). In a whole-program optimizer @export@ needs no
-transitivity machinery: the resolved annotation rides the binding into
-the uber-module, so it is simply the weakest explicit tier.
+validated strictly (a target matching nothing is an error); file and
+pack entries are fully qualified and best-effort (a shared file may
+cover modules absent from the build). In a whole-program optimizer
+@export@ needs no transitivity machinery: the resolved annotation rides
+the binding into the uber-module, so it is simply the weakest
+author-written tier.
 
 The resolved winner travels to the optimizer's decision through several
 stages:
@@ -157,11 +161,12 @@ data Pragma = Pragma
 -- | The parsed contents of a @--directives@ file, grouped by module.
 type Directives = Map ModuleName (Map Target Mode)
 
-{- | Resolve the three explicit directive sources for a module's targets into
+{- | Resolve the four explicit directive sources for a module's targets into
 the annotations to attach, layered by precedence: a local module-header
 directive beats the project directives file, which beats an @export@-scoped
-header directive. A winning 'ModeDefault' still occupies its key — masking
-the lower tiers — and attaches 'Nothing' (the built-in heuristics).
+header directive, which beats the shipped default pack. A winning
+'ModeDefault' still occupies its key — masking the lower tiers — and
+attaches 'Nothing' (the built-in heuristics).
 -}
 resolveModes
   ∷ Map Target Mode
@@ -169,10 +174,12 @@ resolveModes
   → Map Target Mode
   -- ^ the @--directives@ file slice for this module
   → Map Target Mode
-  -- ^ module-header pragmas, export scope (lowest explicit tier)
+  -- ^ module-header pragmas, export scope (lowest author-written tier)
+  → Map Target Mode
+  -- ^ the default pack slice for this module (lowest explicit tier)
   → Map Target (Maybe Annotation)
-resolveModes localModes fileModes exportModes =
-  Map.unions [localModes, fileModes, exportModes] <&> \case
+resolveModes localModes fileModes exportModes packModes =
+  Map.unions [localModes, fileModes, exportModes, packModes] <&> \case
     ModeDefault → Nothing
     ModeAnnotation ann → Just ann
 
@@ -285,3 +292,87 @@ symbol = void . ML.symbol sc
 
 sc ∷ Parser ()
 sc = ML.space (MC.hspace1 @_ @Text) empty empty
+
+--------------------------------------------------------------------------------
+-- Default directive pack ------------------------------------------------------
+
+{- | The directive pack the compiler ships for the prelude/core forks: the
+tiny, ubiquitous dictionary-parameterized combinators whose inlining starts
+the specialization cascade but which the built-in size heuristics leave
+shared. The lowest explicit tier ('resolveModes'): a consumer's
+@--directives@ file or a library author's module-header pragma overrides
+any entry, and an explicit @default@ mode masks one back to the built-in
+heuristics. Entries are best-effort like file entries — modules absent
+from the build are simply never consulted.
+
+A syntax error in the pack is a compiler bug, hence the unsafe parse
+(the test suite forces the parse).
+-}
+defaultDirectives ∷ Directives
+defaultDirectives =
+  case Megaparsec.parse
+    (directivesFileParser <* Megaparsec.eof)
+    "<default directive pack>"
+    defaultDirectivesSource of
+    Left errorBundle →
+      error . toText $ Megaparsec.errorBundlePretty errorBundle
+    Right directives → directives
+
+defaultDirectivesSource ∷ Text
+defaultDirectivesSource =
+  unlines
+    [ "-- Class member accessors: applying one to a dictionary resolves"
+    , "-- to the instance method and starts the inlining cascade."
+    , "Control.Applicative.pure arity=1"
+    , "Control.Apply.apply arity=1"
+    , "Control.Bind.bind arity=1"
+    , "Control.Category.identity arity=1"
+    , "Control.Semigroupoid.compose arity=1"
+    , "Control.Semigroupoid.composeFlipped arity=1"
+    , "Data.Functor.map arity=1"
+    , "Data.Generic.Rep.from arity=1"
+    , "Data.Generic.Rep.to arity=1"
+    , "Data.Monoid.mempty arity=1"
+    , "Data.Semigroup.append arity=1"
+    , ""
+    , "-- Dictionary-parameterized combinators too small to earn a"
+    , "-- shared binding once their dictionary is known."
+    , "Control.Applicative.liftA1 arity=1"
+    , "Control.Applicative.unless arity=1"
+    , "Control.Applicative.when arity=1"
+    , "Control.Apply.applyFirst arity=1"
+    , "Control.Apply.applySecond arity=1"
+    , "Control.Bind.bindFlipped arity=1"
+    , "Control.Bind.composeKleisli arity=1"
+    , "Control.Bind.composeKleisliFlipped arity=1"
+    , "Control.Bind.join arity=1"
+    , "Data.Functor.flap arity=1"
+    , "Data.Functor.mapFlipped arity=1"
+    , "Data.Functor.void arity=1"
+    , "Data.Functor.voidLeft arity=1"
+    , "Data.Functor.voidRight arity=1"
+    , ""
+    , "-- Generic-representation glue: dissolving it lets the derived"
+    , "-- Show/Eq/Ord instances collapse through the Rep constructors."
+    , "Data.Eq.Generic.genericEq arity=2"
+    , "Data.Ord.Generic.genericCompare arity=2"
+    , "Data.Show.Generic.genericShow arity=2"
+    , ""
+    , "-- Identities and plain tiny functions."
+    , "Data.Boolean.otherwise always"
+    , "Data.Function.apply arity=2"
+    , "Data.Function.applyFlipped arity=2"
+    , "Data.Function.const arity=1"
+    , "Data.Function.flip arity=1"
+    , ""
+    , "-- Function-instance dictionary methods."
+    , "Control.Category.categoryFn.identity always"
+    , "Control.Semigroupoid.semigroupoidFn.compose arity=2"
+    , "Data.Functor.functorFn.map arity=2"
+    , "Data.Semigroup.semigroupFn.append arity=2"
+    , ""
+    , "-- ST/Ref glue around the foreign modify implementation."
+    , "Control.Monad.ST.Internal.modify arity=1"
+    , "Effect.Ref.modify arity=1"
+    , "Effect.Ref.modify_ arity=1"
+    ]
diff --git a/lib/Language/PureScript/Backend/IR/Names.hs b/lib/Language/PureScript/Backend/IR/Names.hs
index bc93dc65..b8102d13 100644
--- a/lib/Language/PureScript/Backend/IR/Names.hs
+++ b/lib/Language/PureScript/Backend/IR/Names.hs
@@ -28,8 +28,11 @@ newtype Name = Name {nameToText ∷ Text}
   deriving stock (Generic)
   deriving (Show) via (Quiet Name)
 
+-- | A PureScript identifier may also contain @_@ and @'@.
 nameParser ∷ Megaparsec.Parsec Void Text Name
-nameParser = Name <$> Megaparsec.takeWhile1P (Just "name char") isAlphaNum
+nameParser = Name <$> Megaparsec.takeWhile1P (Just "name char") isNameChar
+ where
+  isNameChar c = isAlphaNum c || c == '_' || c == '\''
 
 {- | The binder for the (unused) result of a discarded action, minted by
 the magic-do transform: @_@ is the conventional Lua throwaway, exempt
diff --git a/lib/Language/PureScript/Backend/IR/Optimizer.hs b/lib/Language/PureScript/Backend/IR/Optimizer.hs
index 6ce88565..dae27a67 100644
--- a/lib/Language/PureScript/Backend/IR/Optimizer.hs
+++ b/lib/Language/PureScript/Backend/IR/Optimizer.hs
@@ -581,10 +581,15 @@ policy composes over application. Let @f@ carry @arity=N@ and let
     arithmetic.
 
 Pasting a partial application re-evaluates its argument expressions per
-site, exactly as pasting the target at a qualifying non-lambda site
-does ('inlineSaturatedCall'): the explicit directive on the target is
-what licenses the duplication, so no cheapness guard applies to the
-arguments.
+site. At a user-marked call site ('inlineSaturatedCall') the explicit
+directive on the target licenses that duplication, but a derived
+directive is compiler-initiated: the derivation fires only when every
+applied argument is a value, work-free to repeat — a reference, a
+literal (a settled dictionary literal is the winning shape: its
+per-site copy meets the constructor folds and vanishes), or a lambda.
+A computed argument — say a dictionary built by applying a
+transformer's instance function — keeps the specialization a shared
+binding instead of re-running the computation per site.
 
 The derivation reads the module settled by the post-merge optimize+dce
 fixpoint ('settlePhase'), not the pristine input: a specialization
@@ -623,6 +628,7 @@ derivedInlinePolicy explicit UberModule {uberModuleBindings} =
     Standalone (qname, expr)
       | not (hasRootDirective qname)
       , (Ref _ headName, args@(_ : _)) ← unwindApp expr
+      , all workFreeToRepeat args
       , Just target ← refQName headName
       , Just arity ←
           Map.lookup target (policyArity explicit)
@@ -635,6 +641,25 @@ derivedInlinePolicy explicit UberModule {uberModuleBindings} =
                   mempty {policyArity = Map.singleton qname (arity - applied)}
     _ → derived
 
+  -- Pasting re-evaluates the applied arguments per site; see
+  -- Note [Derived inline directives] for why the derivation requires
+  -- them work-free while a user-marked site does not. Values qualify
+  -- (references, literals, lambdas — a settled dictionary literal
+  -- argument is the winning shape, its per-site copy folds away);
+  -- anything that computes (an application, a case, a let) does not.
+  workFreeToRepeat ∷ Exp → Bool
+  workFreeToRepeat = \case
+    Ref {} → True
+    LiteralInt {} → True
+    LiteralFloat {} → True
+    LiteralString {} → True
+    LiteralChar {} → True
+    LiteralBool {} → True
+    LiteralArray _ elems → all workFreeToRepeat elems
+    LiteralObject _ props → all (workFreeToRepeat . snd) props
+    AbsN {} → True
+    _ → False
+
   hasRootDirective ∷ QName → Bool
   hasRootDirective qname =
     qname `Set.member` policyAlways explicit
diff --git a/lib/Language/PureScript/Backend/IR/Pass.hs b/lib/Language/PureScript/Backend/IR/Pass.hs
index 3277609c..3aba03a2 100644
--- a/lib/Language/PureScript/Backend/IR/Pass.hs
+++ b/lib/Language/PureScript/Backend/IR/Pass.hs
@@ -163,13 +163,16 @@ renderPassCheckFailure = \case
         <> (show <$> toList violations)
 
 {- | Iteration backstop for 'RunFixpoint'. Convergence normally takes a
-handful of rounds, so this is far above anything legitimate: hitting it
-means a pass over-reports changes or genuinely loops — a bug, which the
-checked runner turns into a 'FixpointDivergence' while the production
-runner accepts the (correct, possibly under-optimized) module reached.
+handful of rounds, but directive-driven inlining folds a constant chain
+one layer per round, so legitimate rounds scale with the deepest such
+chain in the module (the ~300-deep golden stress chains need several
+hundred). Hitting the backstop anyway means a pass over-reports changes
+or genuinely loops — a bug, which the checked runner turns into a
+'FixpointDivergence' while the production runner accepts the (correct,
+possibly under-optimized) module reached.
 -}
 maxFixpointIterations ∷ Natural
-maxFixpointIterations = 100
+maxFixpointIterations = 1000
 
 --------------------------------------------------------------------------------
 -- Runners ---------------------------------------------------------------------
diff --git a/test/Language/PureScript/Backend/IR/Inliner/Spec.hs b/test/Language/PureScript/Backend/IR/Inliner/Spec.hs
index 006be1b1..556d4521 100644
--- a/test/Language/PureScript/Backend/IR/Inliner/Spec.hs
+++ b/test/Language/PureScript/Backend/IR/Inliner/Spec.hs
@@ -2,6 +2,7 @@ module Language.PureScript.Backend.IR.Inliner.Spec where
 
 import Data.Map qualified as Map
 import Hedgehog (MonadTest, failure, footnote, (===))
+import Hedgehog qualified
 import Language.PureScript.Backend.IR.Inliner
   ( Accessor (AppliedField, Field)
   , Annotation (Always, Arity, Never)
@@ -36,6 +37,16 @@ spec = describe "IR Inliner" do
       pragma ← parsePragma "@inline foo arity=2"
       pragma
         === Pragma LocalScope (Name "foo", Nothing) (ModeAnnotation (Arity 2))
+    test "@inline modify_ arity=1 (underscore in a name)" do
+      pragma ← parsePragma "@inline modify_ arity=1"
+      pragma
+        === Pragma
+          LocalScope
+          (Name "modify_", Nothing)
+          (ModeAnnotation (Arity 1))
+    test "@inline go' never (prime in a name)" do
+      pragma ← parsePragma "@inline go' never"
+      pragma === Pragma LocalScope (Name "go'", Nothing) (ModeAnnotation Never)
     test "rejects arity=0" do
       rejectPragma "@inline foo arity=0"
     test "@inline export foo arity=1" do
@@ -120,24 +131,49 @@ spec = describe "IR Inliner" do
         (one (target, ModeAnnotation Never))
         (one (target, ModeAnnotation Always))
         mempty
+        mempty
         === one (target, Just Never)
     test "the directives file beats an exported directive" do
       Inliner.resolveModes
         mempty
         (one (target, ModeAnnotation Never))
         (one (target, ModeAnnotation Always))
+        mempty
         === one (target, Just Never)
     test "an exported directive beats the built-in heuristics" do
       Inliner.resolveModes
         mempty
         mempty
         (one (target, ModeAnnotation (Arity 3)))
+        mempty
         === one (target, Just (Arity 3))
+    test "an exported directive beats the default pack" do
+      Inliner.resolveModes
+        mempty
+        mempty
+        (one (target, ModeAnnotation Never))
+        (one (target, ModeAnnotation Always))
+        === one (target, Just Never)
+    test "the default pack beats the built-in heuristics" do
+      Inliner.resolveModes
+        mempty
+        mempty
+        mempty
+        (one (target, ModeAnnotation (Arity 2)))
+        === one (target, Just (Arity 2))
     test "an explicit default masks lower tiers" do
       Inliner.resolveModes
         (one (target, ModeDefault))
         (one (target, ModeAnnotation Never))
         mempty
+        mempty
+        === one (target, Nothing)
+    test "an explicit default in the file masks the pack" do
+      Inliner.resolveModes
+        mempty
+        (one (target, ModeDefault))
+        mempty
+        (one (target, ModeAnnotation Always))
         === one (target, Nothing)
     test "disjoint targets union across sources" do
       let other = (Name "bar", Nothing) ∷ Inliner.Target
@@ -145,8 +181,20 @@ spec = describe "IR Inliner" do
         (one (target, ModeAnnotation Always))
         mempty
         (one (other, ModeAnnotation Never))
+        mempty
         === Map.fromList [(target, Just Always), (other, Just Never)]
 
+  describe "default directive pack" do
+    test "parses and is non-empty" do
+      Hedgehog.assert (not (Map.null Inliner.defaultDirectives))
+    test "covers the flipped-bind cascade" do
+      let entryFor modname name =
+            Map.lookup (moduleNameFromString modname) Inliner.defaultDirectives
+              >>= Map.lookup (Name name, Nothing)
+      entryFor "Control.Bind" "bindFlipped" === Just (ModeAnnotation (Arity 1))
+      entryFor "Data.Function" "flip" === Just (ModeAnnotation (Arity 1))
+      entryFor "Control.Bind" "bind" === Just (ModeAnnotation (Arity 1))
+
 --------------------------------------------------------------------------------
 -- Helpers ---------------------------------------------------------------------
 
diff --git a/test/Language/PureScript/Backend/IR/Optimizer/Spec.hs b/test/Language/PureScript/Backend/IR/Optimizer/Spec.hs
index e05a0652..fa049486 100644
--- a/test/Language/PureScript/Backend/IR/Optimizer/Spec.hs
+++ b/test/Language/PureScript/Backend/IR/Optimizer/Spec.hs
@@ -3214,6 +3214,37 @@ spec = describe "IR Optimizer" do
                      )
                    ]
 
+    it "skips a specialization whose argument re-computes at the paste" do
+      -- spec = combine (g 1) 2 — the applied argument is itself an
+      -- application: pasting spec's right-hand side would re-evaluate
+      -- g 1 at every use site, duplicating work the directive on
+      -- combine never licensed. No directive is derived and the
+      -- shared binding survives.
+      let specName = QName mainModule (Name "spec")
+          specRef = refImported mainModule (Name "spec")
+          specDef =
+            application
+              (application combineRef (application g (literalInt 1)))
+              (literalInt 2)
+      optimized ←
+        checked
+          Linker.UberModule
+            { uberModuleForeigns = []
+            , uberModuleBindings =
+                [ Standalone (combineName, setAnn (Just (Arity 2)) combineDef)
+                , Standalone (specName, specDef)
+                ]
+            , uberModuleExports =
+                [ (Name "main1", application specRef (literalInt 7))
+                , (Name "main2", application specRef (literalInt 8))
+                ]
+            }
+      namesOf optimized `shouldBe` ["spec"]
+      Linker.uberModuleExports optimized
+        `shouldBe` [ (Name "main1", application specRef (literalInt 7))
+                   , (Name "main2", application specRef (literalInt 8))
+                   ]
+
     it "gives an under-applied specialization the decremented arity" do
       -- partial = combine 1 — one argument short of the directed
       -- arity: a site applying one more argument reconstructs a
diff --git a/test/ps/output/Golden.ArrayOfUnits.Test/golden.ir b/test/ps/output/Golden.ArrayOfUnits.Test/golden.ir
index c58517c5..e1a8c49b 100644
--- a/test/ps/output/Golden.ArrayOfUnits.Test/golden.ir
+++ b/test/ps/output/Golden.ArrayOfUnits.Test/golden.ir
@@ -58,7 +58,7 @@ UberModule
             ( PropName "foldMap", AbsN Nothing
               ( ParamNamed Nothing ( Name "dictMonoid" ) :| [] )
               ( AbsN Nothing
-                ( ParamNamed Nothing ( Name "f$919" ) :| [] )
+                ( ParamNamed Nothing ( Name "f$914" ) :| [] )
                 ( AppN Nothing
                   ( AppN Nothing
                     ( ObjectProp Nothing
@@ -68,9 +68,9 @@ UberModule
                       ( PropName "foldr" )
                     )
                     ( AbsN Nothing
-                      ( ParamNamed Nothing ( Name "x$920" ) :| [] )
+                      ( ParamNamed Nothing ( Name "x$915" ) :| [] )
                       ( AbsN Nothing
-                        ( ParamNamed Nothing ( Name "acc$921" ) :| [] )
+                        ( ParamNamed Nothing ( Name "acc$916" ) :| [] )
                         ( AppN Nothing
                           ( AppN Nothing
                             ( ObjectProp Nothing
@@ -86,11 +86,11 @@ UberModule
                               ( PropName "append" )
                             )
                             ( AppN Nothing
-                              ( Ref Nothing ( Local ( Name "f$919" ) ) )
-                              ( Ref Nothing ( Local ( Name "x$920" ) ) :| [] ) :| []
+                              ( Ref Nothing ( Local ( Name "f$914" ) ) )
+                              ( Ref Nothing ( Local ( Name "x$915" ) ) :| [] ) :| []
                             )
                           )
-                          ( Ref Nothing ( Local ( Name "acc$921" ) ) :| [] )
+                          ( Ref Nothing ( Local ( Name "acc$916" ) ) :| [] )
                         )
                       ) :| []
                     )
@@ -166,9 +166,9 @@ UberModule
               ( LiteralObject Nothing
                 [
                   ( PropName "map", AbsN Nothing
-                    ( ParamNamed Nothing ( Name "f$706" ) :| [] )
+                    ( ParamNamed Nothing ( Name "f$929" ) :| [] )
                     ( AbsN Nothing
-                      ( ParamNamed Nothing ( Name "a$707" ) :| [] )
+                      ( ParamNamed Nothing ( Name "a$930" ) :| [] )
                       ( AppN Nothing
                         ( AppN Nothing
                           ( ObjectProp Nothing
@@ -186,11 +186,16 @@ UberModule
                             ( PropName "apply" )
                           )
                           ( AppN Nothing
-                            ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "pureE" ) ) )
-                            ( Ref Nothing ( Local ( Name "f$706" ) ) :| [] ) :| []
+                            ( ObjectProp Nothing
+                              ( Ref Nothing
+                                ( Imported ( ModuleName "Effect" ) ( Name "applicativeEffect" ) )
+                              )
+                              ( PropName "pure" )
+                            )
+                            ( Ref Nothing ( Local ( Name "f$929" ) ) :| [] ) :| []
                           )
                         )
-                        ( Ref Nothing ( Local ( Name "a$707" ) ) :| [] )
+                        ( Ref Nothing ( Local ( Name "a$930" ) ) :| [] )
                       )
                     )
                   )
@@ -337,11 +342,11 @@ UberModule
                         ( PropName "foldr" )
                       )
                       ( AbsN Nothing
-                        ( ParamNamed Nothing ( Name "x$943" ) :| [] )
+                        ( ParamNamed Nothing ( Name "x$954" ) :| [] )
                         ( AppN Nothing
                           ( Let Nothing
                             ( Standalone
-                              ( Nothing, Name "dictApply$928", AppN Nothing
+                              ( Nothing, Name "dictApply$945", AppN Nothing
                                 ( ObjectProp Nothing
                                   ( Ref Nothing
                                     ( Imported
@@ -357,13 +362,13 @@ UberModule
                               ) :| []
                             )
                             ( AbsN Nothing
-                              ( ParamNamed Nothing ( Name "a$929" ) :| [] )
+                              ( ParamNamed Nothing ( Name "a$946" ) :| [] )
                               ( AbsN Nothing
-                                ( ParamNamed Nothing ( Name "b$930" ) :| [] )
+                                ( ParamNamed Nothing ( Name "b$947" ) :| [] )
                                 ( AppN Nothing
                                   ( AppN Nothing
                                     ( ObjectProp Nothing
-                                      ( Ref Nothing ( Local ( Name "dictApply$928" ) ) )
+                                      ( Ref Nothing ( Local ( Name "dictApply$945" ) ) )
                                       ( PropName "apply" )
                                     )
                                     ( AppN Nothing
@@ -371,7 +376,7 @@ UberModule
                                         ( ObjectProp Nothing
                                           ( AppN Nothing
                                             ( ObjectProp Nothing
-                                              ( Ref Nothing ( Local ( Name "dictApply$928" ) ) )
+                                              ( Ref Nothing ( Local ( Name "dictApply$945" ) ) )
                                               ( PropName "Functor0" )
                                             )
                                             ( Ref Nothing
@@ -386,15 +391,15 @@ UberModule
                                         ( AbsN Nothing
                                           ( ParamUnused Nothing :| [] )
                                           ( AbsN Nothing
-                                            ( ParamNamed Nothing ( Name "x$937" ) :| [] )
-                                            ( Ref Nothing ( Local ( Name "x$937" ) ) )
+                                            ( ParamNamed Nothing ( Name "x$948" ) :| [] )
+                                            ( Ref Nothing ( Local ( Name "x$948" ) ) )
                                           ) :| []
                                         )
                                       )
-                                      ( Ref Nothing ( Local ( Name "a$929" ) ) :| [] ) :| []
+                                      ( Ref Nothing ( Local ( Name "a$946" ) ) :| [] ) :| []
                                     )
                                   )
-                                  ( Ref Nothing ( Local ( Name "b$930" ) ) :| [] )
+                                  ( Ref Nothing ( Local ( Name "b$947" ) ) :| [] )
                                 )
                               )
                             )
@@ -410,7 +415,7 @@ UberModule
                                   ( LiteralString Nothing "unit" )
                                 )
                               ] :|
-                              [ Ref Nothing ( Local ( Name "x$943" ) ) ]
+                              [ Ref Nothing ( Local ( Name "x$954" ) ) ]
                             ) :| []
                           )
                         ) :| []
@@ -448,12 +453,12 @@ UberModule
                           ( PropName "foldl" )
                         )
                         ( AbsN Nothing
-                          ( ParamNamed Nothing ( Name "c$916" ) :| [] )
+                          ( ParamNamed Nothing ( Name "c$911" ) :| [] )
                           ( AbsN Nothing
                             ( ParamUnused Nothing :| [] )
                             ( PrimBinOp Nothing PrimAdd
                               ( LiteralInt Nothing 1 )
-                              ( Ref Nothing ( Local ( Name "c$916" ) ) )
+                              ( Ref Nothing ( Local ( Name "c$911" ) ) )
                             )
                           ) :| []
                         )
diff --git a/test/ps/output/Golden.ArrayOfUnits.Test/golden.lua b/test/ps/output/Golden.ArrayOfUnits.Test/golden.lua
index 4a915453..6eafbac6 100644
--- a/test/ps/output/Golden.ArrayOfUnits.Test/golden.lua
+++ b/test/ps/output/Golden.ArrayOfUnits.Test/golden.lua
@@ -84,7 +84,7 @@ local Effect_Lazy_functorEffect = PSLUA_runtime_lazy("functorEffect")(function()
   return {
     map = function(f_S_1)
       return function(a_S_0)
-        return (Effect_applicativeEffect.Apply0()).apply(Effect_pureE(f_S_1))(a_S_0)
+        return (Effect_applicativeEffect.Apply0()).apply(Effect_applicativeEffect.pure(f_S_1))(a_S_0)
       end
     end
   }
diff --git a/test/ps/output/Golden.BugListGenericEq.Test/golden.ir b/test/ps/output/Golden.BugListGenericEq.Test/golden.ir
index 313826a0..c30a7e30 100644
--- a/test/ps/output/Golden.BugListGenericEq.Test/golden.ir
+++ b/test/ps/output/Golden.BugListGenericEq.Test/golden.ir
@@ -66,28 +66,28 @@ UberModule
               )
             ),
             ( PropName "conj", AbsN Nothing
-              ( ParamNamed Nothing ( Name "b1$231" ) :| [] )
+              ( ParamNamed Nothing ( Name "b1$218" ) :| [] )
               ( AbsN Nothing
-                ( ParamNamed Nothing ( Name "b2$232" ) :| [] )
+                ( ParamNamed Nothing ( Name "b2$219" ) :| [] )
                 ( PrimBinOp Nothing PrimAnd
-                  ( Ref Nothing ( Local ( Name "b1$231" ) ) )
-                  ( Ref Nothing ( Local ( Name "b2$232" ) ) )
+                  ( Ref Nothing ( Local ( Name "b1$218" ) ) )
+                  ( Ref Nothing ( Local ( Name "b2$219" ) ) )
                 )
               )
             ),
             ( PropName "disj", AbsN Nothing
-              ( ParamNamed Nothing ( Name "b1$229" ) :| [] )
+              ( ParamNamed Nothing ( Name "b1$216" ) :| [] )
               ( AbsN Nothing
-                ( ParamNamed Nothing ( Name "b2$230" ) :| [] )
+                ( ParamNamed Nothing ( Name "b2$217" ) :| [] )
                 ( PrimBinOp Nothing PrimOr
-                  ( Ref Nothing ( Local ( Name "b1$229" ) ) )
-                  ( Ref Nothing ( Local ( Name "b2$230" ) ) )
+                  ( Ref Nothing ( Local ( Name "b1$216" ) ) )
+                  ( Ref Nothing ( Local ( Name "b2$217" ) ) )
                 )
               )
             ),
             ( PropName "not", AbsN Nothing
-              ( ParamNamed Nothing ( Name "b$228" ) :| [] )
-              ( PrimNot Nothing ( Ref Nothing ( Local ( Name "b$228" ) ) ) )
+              ( ParamNamed Nothing ( Name "b$215" ) :| [] )
+              ( PrimNot Nothing ( Ref Nothing ( Local ( Name "b$215" ) ) ) )
             )
           ]
         ) :| []
@@ -264,7 +264,7 @@ UberModule
                   ( ParamNamed Nothing ( Name "y" ) :| [] )
                   ( Let Nothing
                     ( Standalone
-                      ( Nothing, Name "$cse268", Ctor Nothing SumType
+                      ( Nothing, Name "$cse264", Ctor Nothing SumType
                         ( ModuleName "Data.Generic.Rep" )
                         ( TyName "Sum" )
                         ( CtorName "Inl" )
@@ -278,12 +278,12 @@ UberModule
                     ( AppN Nothing
                       ( Let Nothing
                         ( Standalone
-                          ( Nothing, Name "v$13", IfThenElse Nothing
+                          ( Nothing, Name "v$7", IfThenElse Nothing
                             ( Eq Nothing
                               ( LiteralString Nothing "Golden.BugListGenericEq.Test∷List.Nil" )
                               ( ReflectCtor Nothing ( Ref Nothing ( Local ( Name "x" ) ) ) )
                             )
-                            ( Ref Nothing ( Local ( Name "$cse268" ) ) )
+                            ( Ref Nothing ( Local ( Name "$cse264" ) ) )
                             ( Ctor Nothing SumType
                               ( ModuleName "Data.Generic.Rep" )
                               ( TyName "Sum" )
@@ -295,37 +295,37 @@ UberModule
                           ) :| []
                         )
                         ( AbsN Nothing
-                          ( ParamNamed Nothing ( Name "v1$14" ) :| [] )
+                          ( ParamNamed Nothing ( Name "v1$8" ) :| [] )
                           ( Let Nothing
                             ( Standalone
-                              ( Nothing, Name "$cse270", ReflectCtor Nothing
-                                ( Ref Nothing ( Local ( Name "v1$14" ) ) )
+                              ( Nothing, Name "$cse266", ReflectCtor Nothing
+                                ( Ref Nothing ( Local ( Name "v1$8" ) ) )
                               ) :| []
                             )
                             ( Let Nothing
                               ( Standalone
-                                ( Nothing, Name "$cse269", ReflectCtor Nothing
-                                  ( Ref Nothing ( Local ( Name "v$13" ) ) )
+                                ( Nothing, Name "$cse265", ReflectCtor Nothing
+                                  ( Ref Nothing ( Local ( Name "v$7" ) ) )
                                 ) :| []
                               )
                               ( IfThenElse Nothing
                                 ( Eq Nothing
                                   ( LiteralString Nothing "Data.Generic.Rep∷Sum.Inl" )
-                                  ( Ref Nothing ( Local ( Name "$cse269" ) ) )
+                                  ( Ref Nothing ( Local ( Name "$cse265" ) ) )
                                 )
                                 ( Eq Nothing
                                   ( LiteralString Nothing "Data.Generic.Rep∷Sum.Inl" )
-                                  ( Ref Nothing ( Local ( Name "$cse270" ) ) )
+                                  ( Ref Nothing ( Local ( Name "$cse266" ) ) )
                                 )
                                 ( PrimBinOp Nothing PrimAnd
                                   ( Eq Nothing
                                     ( LiteralString Nothing "Data.Generic.Rep∷Sum.Inr" )
-                                    ( Ref Nothing ( Local ( Name "$cse269" ) ) )
+                                    ( Ref Nothing ( Local ( Name "$cse265" ) ) )
                                   )
                                   ( PrimBinOp Nothing PrimAnd
                                     ( Eq Nothing
                                       ( LiteralString Nothing "Data.Generic.Rep∷Sum.Inr" )
-                                      ( Ref Nothing ( Local ( Name "$cse270" ) ) )
+                                      ( Ref Nothing ( Local ( Name "$cse266" ) ) )
                                     )
                                     ( AppN Nothing
                                       ( AppN Nothing
@@ -404,11 +404,11 @@ UberModule
                                           )
                                         )
                                         ( DataArgumentByIndex Nothing SumType 0
-                                          ( Ref Nothing ( Local ( Name "v$13" ) ) ) :| []
+                                          ( Ref Nothing ( Local ( Name "v$7" ) ) ) :| []
                                         )
                                       )
                                       ( DataArgumentByIndex Nothing SumType 0
-                                        ( Ref Nothing ( Local ( Name "v1$14" ) ) ) :| []
+                                        ( Ref Nothing ( Local ( Name "v1$8" ) ) ) :| []
                                       )
                                     )
                                   )
@@ -423,7 +423,7 @@ UberModule
                           ( LiteralString Nothing "Golden.BugListGenericEq.Test∷List.Nil" )
                           ( ReflectCtor Nothing ( Ref Nothing ( Local ( Name "y" ) ) ) )
                         )
-                        ( Ref Nothing ( Local ( Name "$cse268" ) ) )
+                        ( Ref Nothing ( Local ( Name "$cse264" ) ) )
                         ( Ctor Nothing SumType
                           ( ModuleName "Data.Generic.Rep" )
                           ( TyName "Sum" )
@@ -451,12 +451,12 @@ UberModule
           ( LiteralObject Nothing
             [
               ( PropName "eq", AbsN Nothing
-                ( ParamNamed Nothing ( Name "r1$235" ) :| [] )
+                ( ParamNamed Nothing ( Name "r1$222" ) :| [] )
                 ( AbsN Nothing
-                  ( ParamNamed Nothing ( Name "r2$236" ) :| [] )
+                  ( ParamNamed Nothing ( Name "r2$223" ) :| [] )
                   ( Eq Nothing
-                    ( Ref Nothing ( Local ( Name "r1$235" ) ) )
-                    ( Ref Nothing ( Local ( Name "r2$236" ) ) )
+                    ( Ref Nothing ( Local ( Name "r1$222" ) ) )
+                    ( Ref Nothing ( Local ( Name "r2$223" ) ) )
                   )
                 )
               )
@@ -490,16 +490,16 @@ UberModule
         ( Imported ( ModuleName "Golden.BugListGenericEq.Test" ) ( Name "Cons" ) )
       ),
       ( Name "cons", AbsN Nothing
-        ( ParamNamed Nothing ( Name "cons$p1$242" ) :| [] )
+        ( ParamNamed Nothing ( Name "cons$p1$229" ) :| [] )
         ( AbsN Nothing
-          ( ParamNamed Nothing ( Name "cons$p2$243" ) :| [] )
+          ( ParamNamed Nothing ( Name "cons$p2$230" ) :| [] )
           ( AppN Nothing
             ( Ref Nothing
               ( Imported ( ModuleName "Golden.BugListGenericEq.Test" ) ( Name "cons$w" ) )
             )
             ( Ref Nothing
-              ( Local ( Name "cons$p1$242" ) ) :|
-              [ Ref Nothing ( Local ( Name "cons$p2$243" ) ) ]
+              ( Local ( Name "cons$p1$229" ) ) :|
+              [ Ref Nothing ( Local ( Name "cons$p2$230" ) ) ]
             )
           )
         )
diff --git a/test/ps/output/Golden.CSE.Test/golden.ir b/test/ps/output/Golden.CSE.Test/golden.ir
index f634d9c1..60c5f75e 100644
--- a/test/ps/output/Golden.CSE.Test/golden.ir
+++ b/test/ps/output/Golden.CSE.Test/golden.ir
@@ -7,12 +7,6 @@ UberModule
         ( ModuleName "Data.Semigroup" ) ".spago/p/prelude/5718c84fdde6247749cb053e816df696c30fe691/src/Data/Semigroup.purs"
         [ ( Nothing, Name "concatArray" ) ]
       ), Standalone
-      ( QName
-        { qnameModuleName = ModuleName "Data.Semigroup", qnameName = Name "concatArray"
-        }, ObjectProp Nothing
-        ( Ref Nothing ( Imported ( ModuleName "Data.Semigroup" ) ( Name "foreign" ) ) )
-        ( PropName "concatArray" )
-      ), Standalone
       ( QName
         { qnameModuleName = ModuleName "Data.Show", qnameName = Name "foreign"
         }, ForeignImport Nothing
@@ -31,12 +25,6 @@ UberModule
         ( ModuleName "Data.Functor" ) ".spago/p/prelude/5718c84fdde6247749cb053e816df696c30fe691/src/Data/Functor.purs"
         [ ( Nothing, Name "arrayMap" ) ]
       ), Standalone
-      ( QName
-        { qnameModuleName = ModuleName "Data.Functor", qnameName = Name "arrayMap"
-        }, ObjectProp Nothing
-        ( Ref Nothing ( Imported ( ModuleName "Data.Functor" ) ( Name "foreign" ) ) )
-        ( PropName "arrayMap" )
-      ), Standalone
       ( QName
         { qnameModuleName = ModuleName "Effect.Console", qnameName = Name "foreign"
         }, ForeignImport Nothing
@@ -49,10 +37,22 @@ UberModule
         ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) )
         ( PropName "log" )
       ), Standalone
+      ( QName
+        { qnameModuleName = ModuleName "Golden.CSE.Test", qnameName = Name "append"
+        }, ObjectProp Nothing
+        ( Ref Nothing ( Imported ( ModuleName "Data.Semigroup" ) ( Name "foreign" ) ) )
+        ( PropName "concatArray" )
+      ), Standalone
+      ( QName
+        { qnameModuleName = ModuleName "Golden.CSE.Test", qnameName = Name "map"
+        }, ObjectProp Nothing
+        ( Ref Nothing ( Imported ( ModuleName "Data.Functor" ) ( Name "foreign" ) ) )
+        ( PropName "arrayMap" )
+      ), Standalone
       ( QName
         { qnameModuleName = ModuleName "Golden.CSE.Test", qnameName = Name "logShow"
         }, AbsN Nothing
-        ( ParamNamed Nothing ( Name "a$230" ) :| [] )
+        ( ParamNamed Nothing ( Name "a$222" ) :| [] )
         ( AppN Nothing
           ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) )
           ( AppN Nothing
@@ -63,19 +63,19 @@ UberModule
               )
               ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "showIntImpl" ) ) :| [] )
             )
-            ( Ref Nothing ( Local ( Name "a$230" ) ) :| [] ) :| []
+            ( Ref Nothing ( Local ( Name "a$222" ) ) :| [] ) :| []
           )
         )
       ), Standalone
       ( QName
         { qnameModuleName = ModuleName "Golden.CSE.Test", qnameName = Name "logShow1"
         }, AbsN Nothing
-        ( ParamNamed Nothing ( Name "a$226" ) :| [] )
+        ( ParamNamed Nothing ( Name "a$218" ) :| [] )
         ( AppN Nothing
           ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) )
           ( AppN Nothing
             ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "showIntImpl" ) ) )
-            ( Ref Nothing ( Local ( Name "a$226" ) ) :| [] ) :| []
+            ( Ref Nothing ( Local ( Name "a$218" ) ) :| [] ) :| []
           )
         )
       ), Standalone
@@ -124,15 +124,15 @@ UberModule
           ( ParamNamed Nothing ( Name "x" ) :| [] )
           ( Let Nothing
             ( Standalone
-              ( Nothing, Name "$cse265", ObjectProp Nothing
+              ( Nothing, Name "$cse260", ObjectProp Nothing
                 ( Ref Nothing ( Local ( Name "r" ) ) )
                 ( PropName "run" )
               ) :| []
             )
             ( AppN Nothing
-              ( Ref Nothing ( Local ( Name "$cse265" ) ) )
+              ( Ref Nothing ( Local ( Name "$cse260" ) ) )
               ( AppN Nothing
-                ( Ref Nothing ( Local ( Name "$cse265" ) ) )
+                ( Ref Nothing ( Local ( Name "$cse260" ) ) )
                 ( Ref Nothing ( Local ( Name "x" ) ) :| [] ) :| []
               )
             )
@@ -145,7 +145,7 @@ UberModule
         ( ParamNamed Nothing ( Name "e" ) :| [] )
         ( Let Nothing
           ( Standalone
-            ( Nothing, Name "$cse266", DataArgumentByIndex Nothing SumType 0
+            ( Nothing, Name "$cse261", DataArgumentByIndex Nothing SumType 0
               ( Ref Nothing ( Local ( Name "e" ) ) )
             ) :| []
           )
@@ -157,14 +157,14 @@ UberModule
             ( IfThenElse Nothing
               ( Eq Nothing
                 ( LiteralString Nothing "Golden.CSE.Test∷E.Num" )
-                ( ReflectCtor Nothing ( Ref Nothing ( Local ( Name "$cse266" ) ) ) )
+                ( ReflectCtor Nothing ( Ref Nothing ( Local ( Name "$cse261" ) ) ) )
               )
               ( IfThenElse Nothing
                 ( Eq Nothing
                   ( LiteralString Nothing "Golden.CSE.Test∷N.Zero" )
                   ( ReflectCtor Nothing
                     ( DataArgumentByIndex Nothing SumType 0
-                      ( Ref Nothing ( Local ( Name "$cse266" ) ) )
+                      ( Ref Nothing ( Local ( Name "$cse261" ) ) )
                     )
                   )
                 )
@@ -174,7 +174,7 @@ UberModule
                     ( LiteralString Nothing "Golden.CSE.Test∷N.Succ" )
                     ( ReflectCtor Nothing
                       ( DataArgumentByIndex Nothing SumType 0
-                        ( Ref Nothing ( Local ( Name "$cse266" ) ) )
+                        ( Ref Nothing ( Local ( Name "$cse261" ) ) )
                       )
                     )
                   )
@@ -185,7 +185,7 @@ UberModule
               ( IfThenElse Nothing
                 ( Eq Nothing
                   ( LiteralString Nothing "Golden.CSE.Test∷E.Not" )
-                  ( ReflectCtor Nothing ( Ref Nothing ( Local ( Name "$cse266" ) ) ) )
+                  ( ReflectCtor Nothing ( Ref Nothing ( Local ( Name "$cse261" ) ) ) )
                 )
                 ( LiteralInt Nothing 2 )
                 ( Exception Nothing "No patterns matched" )
@@ -194,13 +194,13 @@ UberModule
             ( IfThenElse Nothing
               ( Eq Nothing
                 ( LiteralString Nothing "Golden.CSE.Test∷N.Zero" )
-                ( ReflectCtor Nothing ( Ref Nothing ( Local ( Name "$cse266" ) ) ) )
+                ( ReflectCtor Nothing ( Ref Nothing ( Local ( Name "$cse261" ) ) ) )
               )
               ( LiteralInt Nothing 3 )
               ( IfThenElse Nothing
                 ( Eq Nothing
                   ( LiteralString Nothing "Golden.CSE.Test∷N.Succ" )
-                  ( ReflectCtor Nothing ( Ref Nothing ( Local ( Name "$cse266" ) ) ) )
+                  ( ReflectCtor Nothing ( Ref Nothing ( Local ( Name "$cse261" ) ) ) )
                 )
                 ( LiteralInt Nothing 4 )
                 ( Exception Nothing "No patterns matched" )
@@ -215,21 +215,21 @@ UberModule
         ( ParamNamed Nothing ( Name "f" ) :| [] )
         ( Let Nothing
           ( Standalone
-            ( Nothing, Name "$cse267", LiteralArray Nothing
+            ( Nothing, Name "$cse262", LiteralArray Nothing
               [ LiteralInt Nothing 1, LiteralInt Nothing 2, LiteralInt Nothing 3 ]
             ) :| []
           )
           ( AppN Nothing
             ( AppN Nothing
-              ( Ref Nothing ( Imported ( ModuleName "Data.Semigroup" ) ( Name "concatArray" ) ) )
+              ( Ref Nothing ( Imported ( ModuleName "Golden.CSE.Test" ) ( Name "append" ) ) )
               ( AppN Nothing
                 ( Ref Nothing ( Local ( Name "f" ) ) )
-                ( Ref Nothing ( Local ( Name "$cse267" ) ) :| [] ) :| []
+                ( Ref Nothing ( Local ( Name "$cse262" ) ) :| [] ) :| []
               )
             )
             ( AppN Nothing
               ( Ref Nothing ( Local ( Name "f" ) ) )
-              ( Ref Nothing ( Local ( Name "$cse267" ) ) :| [] ) :| []
+              ( Ref Nothing ( Local ( Name "$cse262" ) ) :| [] ) :| []
             )
           )
         )
@@ -242,7 +242,7 @@ UberModule
           ( ParamNamed Nothing ( Name "xs" ) :| [] )
           ( Let Nothing
             ( Standalone
-              ( Nothing, Name "$cse268", AbsN Nothing
+              ( Nothing, Name "$cse263", AbsN Nothing
                 ( ParamNamed Nothing ( Name "i" ) :| [] )
                 ( PrimBinOp Nothing PrimAdd
                   ( Ref Nothing ( Local ( Name "i" ) ) )
@@ -252,19 +252,19 @@ UberModule
             )
             ( AppN Nothing
               ( AppN Nothing
-                ( Ref Nothing ( Imported ( ModuleName "Data.Semigroup" ) ( Name "concatArray" ) ) )
+                ( Ref Nothing ( Imported ( ModuleName "Golden.CSE.Test" ) ( Name "append" ) ) )
                 ( AppN Nothing
                   ( AppN Nothing
-                    ( Ref Nothing ( Imported ( ModuleName "Data.Functor" ) ( Name "arrayMap" ) ) )
-                    ( Ref Nothing ( Local ( Name "$cse268" ) ) :| [] )
+                    ( Ref Nothing ( Imported ( ModuleName "Golden.CSE.Test" ) ( Name "map" ) ) )
+                    ( Ref Nothing ( Local ( Name "$cse263" ) ) :| [] )
                   )
                   ( Ref Nothing ( Local ( Name "xs" ) ) :| [] ) :| []
                 )
               )
               ( AppN Nothing
                 ( AppN Nothing
-                  ( Ref Nothing ( Imported ( ModuleName "Data.Functor" ) ( Name "arrayMap" ) ) )
-                  ( Ref Nothing ( Local ( Name "$cse268" ) ) :| [] )
+                  ( Ref Nothing ( Imported ( ModuleName "Golden.CSE.Test" ) ( Name "map" ) ) )
+                  ( Ref Nothing ( Local ( Name "$cse263" ) ) :| [] )
                 )
                 ( Ref Nothing ( Local ( Name "xs" ) ) :| [] ) :| []
               )
@@ -294,7 +294,7 @@ UberModule
         ( ParamUnused Nothing :| [] )
         ( Let Nothing
           ( Standalone
-            ( Nothing, Name "$cse270", Ctor Nothing SumType
+            ( Nothing, Name "$cse265", Ctor Nothing SumType
               ( ModuleName "Golden.CSE.Test" )
               ( TyName "E" )
               ( CtorName "Num" )
@@ -303,11 +303,11 @@ UberModule
           )
           ( Let Nothing
             ( Standalone
-              ( Nothing, Name "$cse269", Ctor Nothing SumType
+              ( Nothing, Name "$cse264", Ctor Nothing SumType
                 ( ModuleName "Golden.CSE.Test" )
                 ( TyName "E" )
                 ( CtorName "Not" )
-                [ Ref Nothing ( Local ( Name "$cse270" ) ) ]
+                [ Ref Nothing ( Local ( Name "$cse265" ) ) ]
               ) :| []
             )
             ( Let Nothing
@@ -414,7 +414,7 @@ UberModule
                         )
                         ( AppN Nothing
                           ( Ref Nothing
-                            ( Imported ( ModuleName "Data.Functor" ) ( Name "arrayMap" ) )
+                            ( Imported ( ModuleName "Golden.CSE.Test" ) ( Name "map" ) )
                           )
                           ( AbsN Nothing
                             ( ParamNamed Nothing ( Name "v$2" ) :| [] )
@@ -438,8 +438,8 @@ UberModule
                           ( Imported ( ModuleName "Golden.CSE.Test" ) ( Name "catBoth" ) )
                         )
                         ( AbsN Nothing
-                          ( ParamNamed Nothing ( Name "x$216" ) :| [] )
-                          ( Ref Nothing ( Local ( Name "x$216" ) ) ) :| []
+                          ( ParamNamed Nothing ( Name "x$209" ) :| [] )
+                          ( Ref Nothing ( Local ( Name "x$209" ) ) ) :| []
                         ) :| []
                       )
                     )
@@ -454,7 +454,7 @@ UberModule
                         ( Ref Nothing
                           ( Imported ( ModuleName "Golden.CSE.Test" ) ( Name "classify" ) )
                         )
-                        ( Ref Nothing ( Local ( Name "$cse270" ) ) :| [] ) :| []
+                        ( Ref Nothing ( Local ( Name "$cse265" ) ) :| [] ) :| []
                       )
                     )
                     ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] )
@@ -494,7 +494,7 @@ UberModule
                         ( Ref Nothing
                           ( Imported ( ModuleName "Golden.CSE.Test" ) ( Name "classify" ) )
                         )
-                        ( Ref Nothing ( Local ( Name "$cse269" ) ) :| [] ) :| []
+                        ( Ref Nothing ( Local ( Name "$cse264" ) ) :| [] ) :| []
                       )
                     )
                     ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] )
@@ -512,7 +512,7 @@ UberModule
                       ( ModuleName "Golden.CSE.Test" )
                       ( TyName "E" )
                       ( CtorName "Not" )
-                      [ Ref Nothing ( Local ( Name "$cse269" ) ) ] :| []
+                      [ Ref Nothing ( Local ( Name "$cse264" ) ) ] :| []
                     ) :| []
                   )
                 )
diff --git a/test/ps/output/Golden.CSE.Test/golden.lua b/test/ps/output/Golden.CSE.Test/golden.lua
index 3303c1bf..f8eefdd0 100644
--- a/test/ps/output/Golden.CSE.Test/golden.lua
+++ b/test/ps/output/Golden.CSE.Test/golden.lua
@@ -12,7 +12,6 @@ local Data_Semigroup_foreign = {
     end
   end
 }
-local Data_Semigroup_concatArray = Data_Semigroup_foreign.concatArray
 local Data_Show_foreign = {
   showIntImpl = function(n) return tostring(n) end,
   showArrayImpl = function(f)
@@ -35,11 +34,12 @@ local Data_Functor_foreign = {
     end
   end
 }
-local Data_Functor_arrayMap = Data_Functor_foreign.arrayMap
 local Effect_Console_foreign = {
   log = function(s) return function() print(s) end end
 }
 local Effect_Console_log = Effect_Console_foreign.log
+local Golden_CSE_Test_append = Data_Semigroup_foreign.concatArray
+local Golden_CSE_Test_map = Data_Functor_foreign.arrayMap
 local Golden_CSE_Test_logShow = function(a_S_0)
   return Effect_Console_log(Data_Show_foreign.showArrayImpl(Data_Show_showIntImpl)(a_S_0))
 end
@@ -85,12 +85,12 @@ local Golden_CSE_Test_classify = function(e)
 end
 local Golden_CSE_Test_catBoth = function(f)
   local _S_cse2 = { [1] = 1, [2] = 2, [3] = 3 }
-  return Data_Semigroup_concatArray(f(_S_cse2))(f(_S_cse2))
+  return Golden_CSE_Test_append(f(_S_cse2))(f(_S_cse2))
 end
 local Golden_CSE_Test_addToAll = function(n)
   return function(xs)
     local _S_cse3 = function(i) return i + n end
-    return Data_Semigroup_concatArray(Data_Functor_arrayMap(_S_cse3)(xs))(Data_Functor_arrayMap(_S_cse3)(xs))
+    return Golden_CSE_Test_append(Golden_CSE_Test_map(_S_cse3)(xs))(Golden_CSE_Test_map(_S_cse3)(xs))
   end
 end
 return (function()
@@ -107,7 +107,7 @@ return (function()
   local _ = Golden_CSE_Test_logShow1(Golden_CSE_Test_runTwice({
     run = function(i0_S_0) return i0_S_0 - 1 end
   })(10))()
-  local _ = Golden_CSE_Test_logShow(Golden_CSE_Test_catBoth(Data_Functor_arrayMap(function( v_S_0 )
+  local _ = Golden_CSE_Test_logShow(Golden_CSE_Test_catBoth(Golden_CSE_Test_map(function( v_S_0 )
     return v_S_0 * 3
   end)))()
   local _ = Golden_CSE_Test_logShow(Golden_CSE_Test_catBoth(function(x_S_0)
diff --git a/test/ps/output/Golden.CasePruning.Test/golden.ir b/test/ps/output/Golden.CasePruning.Test/golden.ir
index 95a1808b..8db79ba9 100644
--- a/test/ps/output/Golden.CasePruning.Test/golden.ir
+++ b/test/ps/output/Golden.CasePruning.Test/golden.ir
@@ -106,31 +106,31 @@ UberModule
           ( ParamNamed Nothing ( Name "v1" ) :| [] )
           ( Let Nothing
             ( Standalone
-              ( Nothing, Name "$cse249", ReflectCtor Nothing
+              ( Nothing, Name "$cse244", ReflectCtor Nothing
                 ( Ref Nothing ( Local ( Name "v1" ) ) )
               ) :| []
             )
             ( Let Nothing
               ( Standalone
-                ( Nothing, Name "$cse248", ReflectCtor Nothing
+                ( Nothing, Name "$cse243", ReflectCtor Nothing
                   ( Ref Nothing ( Local ( Name "v" ) ) )
                 ) :| []
               )
               ( IfThenElse Nothing
                 ( Eq Nothing
                   ( LiteralString Nothing "Golden.CasePruning.Test∷T.A" )
-                  ( Ref Nothing ( Local ( Name "$cse248" ) ) )
+                  ( Ref Nothing ( Local ( Name "$cse243" ) ) )
                 )
                 ( IfThenElse Nothing
                   ( Eq Nothing
                     ( LiteralString Nothing "Golden.CasePruning.Test∷T.A" )
-                    ( Ref Nothing ( Local ( Name "$cse249" ) ) )
+                    ( Ref Nothing ( Local ( Name "$cse244" ) ) )
                   )
                   ( LiteralInt Nothing 1 )
                   ( IfThenElse Nothing
                     ( Eq Nothing
                       ( LiteralString Nothing "Golden.CasePruning.Test∷T.B" )
-                      ( Ref Nothing ( Local ( Name "$cse249" ) ) )
+                      ( Ref Nothing ( Local ( Name "$cse244" ) ) )
                     )
                     ( LiteralInt Nothing 3 )
                     ( LiteralInt Nothing 4 )
@@ -139,12 +139,12 @@ UberModule
                 ( IfThenElse Nothing
                   ( Eq Nothing
                     ( LiteralString Nothing "Golden.CasePruning.Test∷T.B" )
-                    ( Ref Nothing ( Local ( Name "$cse249" ) ) )
+                    ( Ref Nothing ( Local ( Name "$cse244" ) ) )
                   )
                   ( IfThenElse Nothing
                     ( Eq Nothing
                       ( LiteralString Nothing "Golden.CasePruning.Test∷T.B" )
-                      ( Ref Nothing ( Local ( Name "$cse248" ) ) )
+                      ( Ref Nothing ( Local ( Name "$cse243" ) ) )
                     )
                     ( LiteralInt Nothing 2 )
                     ( LiteralInt Nothing 4 )
diff --git a/test/ps/output/Golden.CprResult.Test/golden.ir b/test/ps/output/Golden.CprResult.Test/golden.ir
index db00beed..6e93bc16 100644
--- a/test/ps/output/Golden.CprResult.Test/golden.ir
+++ b/test/ps/output/Golden.CprResult.Test/golden.ir
@@ -38,28 +38,28 @@ UberModule
       ( QName
         { qnameModuleName = ModuleName "Golden.CprResult.Test", qnameName = Name "sub$w"
         }, AbsN Nothing
-        ( ParamNamed Nothing ( Name "x$525" ) :| [ ParamNamed Nothing ( Name "y$526" ) ] )
+        ( ParamNamed Nothing ( Name "x$523" ) :| [ ParamNamed Nothing ( Name "y$524" ) ] )
         ( PrimBinOp Nothing PrimSub
-          ( Ref Nothing ( Local ( Name "x$525" ) ) )
-          ( Ref Nothing ( Local ( Name "y$526" ) ) )
+          ( Ref Nothing ( Local ( Name "x$523" ) ) )
+          ( Ref Nothing ( Local ( Name "y$524" ) ) )
         )
       ), Standalone
       ( QName
         { qnameModuleName = ModuleName "Golden.CprResult.Test", qnameName = Name "logShow"
         }, AbsN Nothing
-        ( ParamNamed Nothing ( Name "a$522" ) :| [] )
+        ( ParamNamed Nothing ( Name "a$520" ) :| [] )
         ( AppN Nothing
           ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) )
           ( AppN Nothing
             ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "showIntImpl" ) ) )
-            ( Ref Nothing ( Local ( Name "a$522" ) ) :| [] ) :| []
+            ( Ref Nothing ( Local ( Name "a$520" ) ) :| [] ) :| []
           )
         )
       ), Standalone
       ( QName
         { qnameModuleName = ModuleName "Golden.CprResult.Test", qnameName = Name "logShow1"
         }, AbsN Nothing
-        ( ParamNamed Nothing ( Name "a$519" ) :| [] )
+        ( ParamNamed Nothing ( Name "a$517" ) :| [] )
         ( AppN Nothing
           ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) )
           ( PrimBinOp Nothing PrimConcat
@@ -68,7 +68,7 @@ UberModule
               ( AppN Nothing
                 ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "showIntImpl" ) ) )
                 ( DataArgumentByIndex Nothing ProductType 0
-                  ( Ref Nothing ( Local ( Name "a$519" ) ) ) :| []
+                  ( Ref Nothing ( Local ( Name "a$517" ) ) ) :| []
                 )
               )
               ( PrimBinOp Nothing PrimConcat
@@ -77,7 +77,7 @@ UberModule
                   ( AppN Nothing
                     ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "showIntImpl" ) ) )
                     ( DataArgumentByIndex Nothing ProductType 1
-                      ( Ref Nothing ( Local ( Name "a$519" ) ) ) :| []
+                      ( Ref Nothing ( Local ( Name "a$517" ) ) ) :| []
                     )
                   )
                   ( LiteralString Nothing ")" )
@@ -295,7 +295,7 @@ UberModule
         }, AbsN Nothing
         ( ParamNamed Nothing ( Name "n" ) :| [] )
         ( LetValues Nothing
-          ( ParamNamed Nothing ( Name "$v596" ) :| [ ParamNamed Nothing ( Name "$v597" ) ] )
+          ( ParamNamed Nothing ( Name "$v594" ) :| [ ParamNamed Nothing ( Name "$v595" ) ] )
           ( AppN Nothing
             ( Ref Nothing
               ( Imported ( ModuleName "Golden.CprResult.Test" ) ( Name "branchy$r" ) )
@@ -303,8 +303,8 @@ UberModule
             ( Ref Nothing ( Local ( Name "n" ) ) :| [] )
           )
           ( PrimBinOp Nothing PrimSub
-            ( Ref Nothing ( Local ( Name "$v596" ) ) )
-            ( Ref Nothing ( Local ( Name "$v597" ) ) )
+            ( Ref Nothing ( Local ( Name "$v594" ) ) )
+            ( Ref Nothing ( Local ( Name "$v595" ) ) )
           )
         )
       ), Standalone
@@ -451,14 +451,14 @@ UberModule
         }, AbsN Nothing
         ( ParamNamed Nothing ( Name "n" ) :| [] )
         ( LetValues Nothing
-          ( ParamNamed Nothing ( Name "$v598" ) :| [ ParamNamed Nothing ( Name "$v599" ) ] )
+          ( ParamNamed Nothing ( Name "$v596" ) :| [ ParamNamed Nothing ( Name "$v597" ) ] )
           ( AppN Nothing
             ( Ref Nothing ( Imported ( ModuleName "Golden.CprResult.Test" ) ( Name "big$r" ) ) )
             ( Ref Nothing ( Local ( Name "n" ) ) :| [] )
           )
           ( PrimBinOp Nothing PrimAdd
-            ( Ref Nothing ( Local ( Name "$v598" ) ) )
-            ( Ref Nothing ( Local ( Name "$v599" ) ) )
+            ( Ref Nothing ( Local ( Name "$v596" ) ) )
+            ( Ref Nothing ( Local ( Name "$v597" ) ) )
           )
         )
       )
@@ -520,8 +520,8 @@ UberModule
                   )
                   ( LetValues Nothing
                     ( ParamNamed Nothing
-                      ( Name "$v600" ) :|
-                      [ ParamNamed Nothing ( Name "$v601" ) ]
+                      ( Name "$v598" ) :|
+                      [ ParamNamed Nothing ( Name "$v599" ) ]
                     )
                     ( AppN Nothing
                       ( Ref Nothing
@@ -534,8 +534,8 @@ UberModule
                         ( Imported ( ModuleName "Golden.CprResult.Test" ) ( Name "sub$w" ) )
                       )
                       ( Ref Nothing
-                        ( Local ( Name "$v600" ) ) :|
-                        [ Ref Nothing ( Local ( Name "$v601" ) ) ]
+                        ( Local ( Name "$v598" ) ) :|
+                        [ Ref Nothing ( Local ( Name "$v599" ) ) ]
                       )
                     ) :| []
                   )
@@ -549,8 +549,8 @@ UberModule
                   )
                   ( LetValues Nothing
                     ( ParamNamed Nothing
-                      ( Name "$v602" ) :|
-                      [ ParamNamed Nothing ( Name "$v603" ) ]
+                      ( Name "$v600" ) :|
+                      [ ParamNamed Nothing ( Name "$v601" ) ]
                     )
                     ( AppN Nothing
                       ( Ref Nothing
@@ -563,8 +563,8 @@ UberModule
                         ( Imported ( ModuleName "Golden.CprResult.Test" ) ( Name "sub$w" ) )
                       )
                       ( Ref Nothing
-                        ( Local ( Name "$v602" ) ) :|
-                        [ Ref Nothing ( Local ( Name "$v603" ) ) ]
+                        ( Local ( Name "$v600" ) ) :|
+                        [ Ref Nothing ( Local ( Name "$v601" ) ) ]
                       )
                     ) :| []
                   )
@@ -590,7 +590,7 @@ UberModule
                 ( Imported ( ModuleName "Golden.CprResult.Test" ) ( Name "logShow" ) )
               )
               ( LetValues Nothing
-                ( ParamNamed Nothing ( Name "$v604" ) :| [ ParamNamed Nothing ( Name "$v605" ) ] )
+                ( ParamNamed Nothing ( Name "$v602" ) :| [ ParamNamed Nothing ( Name "$v603" ) ] )
                 ( AppN Nothing
                   ( Ref Nothing
                     ( Imported ( ModuleName "Golden.CprResult.Test" ) ( Name "big$r" ) )
@@ -598,8 +598,8 @@ UberModule
                   ( LiteralInt Nothing 3 :| [] )
                 )
                 ( PrimBinOp Nothing PrimAdd
-                  ( Ref Nothing ( Local ( Name "$v604" ) ) )
-                  ( Ref Nothing ( Local ( Name "$v605" ) ) )
+                  ( Ref Nothing ( Local ( Name "$v602" ) ) )
+                  ( Ref Nothing ( Local ( Name "$v603" ) ) )
                 ) :| []
               )
             )
diff --git a/test/ps/output/Golden.CprState.Test/golden.ir b/test/ps/output/Golden.CprState.Test/golden.ir
index fbe99850..10efe3ff 100644
--- a/test/ps/output/Golden.CprState.Test/golden.ir
+++ b/test/ps/output/Golden.CprState.Test/golden.ir
@@ -54,12 +54,12 @@ UberModule
             ( LiteralObject Nothing
               [
                 ( PropName "map", AbsN Nothing
-                  ( ParamNamed Nothing ( Name "f$523" ) :| [] )
+                  ( ParamNamed Nothing ( Name "f$511" ) :| [] )
                   ( AbsN Nothing
-                    ( ParamNamed Nothing ( Name "m$524" ) :| [] )
+                    ( ParamNamed Nothing ( Name "m$512" ) :| [] )
                     ( AppN Nothing
-                      ( Ref Nothing ( Local ( Name "f$523" ) ) )
-                      ( Ref Nothing ( Local ( Name "m$524" ) ) :| [] )
+                      ( Ref Nothing ( Local ( Name "f$511" ) ) )
+                      ( Ref Nothing ( Local ( Name "m$512" ) ) :| [] )
                     )
                   )
                 )
@@ -77,8 +77,8 @@ UberModule
             ( LiteralObject Nothing
               [
                 ( PropName "pure", AbsN Nothing
-                  ( ParamNamed Nothing ( Name "x$525" ) :| [] )
-                  ( Ref Nothing ( Local ( Name "x$525" ) ) )
+                  ( ParamNamed Nothing ( Name "x$513" ) :| [] )
+                  ( Ref Nothing ( Local ( Name "x$513" ) ) )
                 ),
                 ( PropName "Apply0", AbsN Nothing
                   ( ParamUnused Nothing :| [] )
@@ -94,12 +94,12 @@ UberModule
             ( LiteralObject Nothing
               [
                 ( PropName "bind", AbsN Nothing
-                  ( ParamNamed Nothing ( Name "v$78" ) :| [] )
+                  ( ParamNamed Nothing ( Name "v$75" ) :| [] )
                   ( AbsN Nothing
-                    ( ParamNamed Nothing ( Name "f$79" ) :| [] )
+                    ( ParamNamed Nothing ( Name "f$76" ) :| [] )
                     ( AppN Nothing
-                      ( Ref Nothing ( Local ( Name "f$79" ) ) )
-                      ( Ref Nothing ( Local ( Name "v$78" ) ) :| [] )
+                      ( Ref Nothing ( Local ( Name "f$76" ) ) )
+                      ( Ref Nothing ( Local ( Name "v$75" ) ) :| [] )
                     )
                   )
                 ),
@@ -215,7 +215,7 @@ UberModule
               [
                 ( PropName "apply", Let Nothing
                   ( Standalone
-                    ( Nothing, Name "dictMonad$526", AppN Nothing
+                    ( Nothing, Name "dictMonad$514", AppN Nothing
                       ( Ref Nothing
                         ( Imported
                           ( ModuleName "Control.Monad.State.Trans" )
@@ -227,10 +227,10 @@ UberModule
                   )
                   ( Let Nothing
                     ( Standalone
-                      ( Nothing, Name "bind$527", ObjectProp Nothing
+                      ( Nothing, Name "bind$515", ObjectProp Nothing
                         ( AppN Nothing
                           ( ObjectProp Nothing
-                            ( Ref Nothing ( Local ( Name "dictMonad$526" ) ) )
+                            ( Ref Nothing ( Local ( Name "dictMonad$514" ) ) )
                             ( PropName "Bind1" )
                           )
                           ( Ref Nothing
@@ -241,28 +241,28 @@ UberModule
                       ) :| []
                     )
                     ( AbsN Nothing
-                      ( ParamNamed Nothing ( Name "f$528" ) :| [] )
+                      ( ParamNamed Nothing ( Name "f$516" ) :| [] )
                       ( AbsN Nothing
-                        ( ParamNamed Nothing ( Name "a$529" ) :| [] )
+                        ( ParamNamed Nothing ( Name "a$517" ) :| [] )
                         ( AppN Nothing
                           ( AppN Nothing
-                            ( Ref Nothing ( Local ( Name "bind$527" ) ) )
-                            ( Ref Nothing ( Local ( Name "f$528" ) ) :| [] )
+                            ( Ref Nothing ( Local ( Name "bind$515" ) ) )
+                            ( Ref Nothing ( Local ( Name "f$516" ) ) :| [] )
                           )
                           ( AbsN Nothing
-                            ( ParamNamed Nothing ( Name "f'$530" ) :| [] )
+                            ( ParamNamed Nothing ( Name "f'$518" ) :| [] )
                             ( AppN Nothing
                               ( AppN Nothing
-                                ( Ref Nothing ( Local ( Name "bind$527" ) ) )
-                                ( Ref Nothing ( Local ( Name "a$529" ) ) :| [] )
+                                ( Ref Nothing ( Local ( Name "bind$515" ) ) )
+                                ( Ref Nothing ( Local ( Name "a$517" ) ) :| [] )
                               )
                               ( AbsN Nothing
-                                ( ParamNamed Nothing ( Name "a'$531" ) :| [] )
+                                ( ParamNamed Nothing ( Name "a'$519" ) :| [] )
                                 ( AppN Nothing
                                   ( ObjectProp Nothing
                                     ( AppN Nothing
                                       ( ObjectProp Nothing
-                                        ( Ref Nothing ( Local ( Name "dictMonad$526" ) ) )
+                                        ( Ref Nothing ( Local ( Name "dictMonad$514" ) ) )
                                         ( PropName "Applicative0" )
                                       )
                                       ( Ref Nothing
@@ -275,8 +275,8 @@ UberModule
                                     ( PropName "pure" )
                                   )
                                   ( AppN Nothing
-                                    ( Ref Nothing ( Local ( Name "f'$530" ) ) )
-                                    ( Ref Nothing ( Local ( Name "a'$531" ) ) :| [] ) :| []
+                                    ( Ref Nothing ( Local ( Name "f'$518" ) ) )
+                                    ( Ref Nothing ( Local ( Name "a'$519" ) ) :| [] ) :| []
                                   )
                                 ) :| []
                               )
@@ -292,11 +292,11 @@ UberModule
                   ( LiteralObject Nothing
                     [
                       ( PropName "map", AbsN Nothing
-                        ( ParamNamed Nothing ( Name "f$519" ) :| [] )
+                        ( ParamNamed Nothing ( Name "f$507" ) :| [] )
                         ( AbsN Nothing
-                          ( ParamNamed Nothing ( Name "v$520" ) :| [] )
+                          ( ParamNamed Nothing ( Name "v$508" ) :| [] )
                           ( AbsN Nothing
-                            ( ParamNamed Nothing ( Name "s$521" ) :| [] )
+                            ( ParamNamed Nothing ( Name "s$509" ) :| [] )
                             ( AppN Nothing
                               ( AppN Nothing
                                 ( ObjectProp Nothing
@@ -334,26 +334,26 @@ UberModule
                                   ( PropName "map" )
                                 )
                                 ( AbsN Nothing
-                                  ( ParamNamed Nothing ( Name "v1$522" ) :| [] )
+                                  ( ParamNamed Nothing ( Name "v1$510" ) :| [] )
                                   ( AppN Nothing
                                     ( Ref Nothing
                                       ( Imported ( ModuleName "Data.Tuple" ) ( Name "Tuple$w" ) )
                                     )
                                     ( AppN Nothing
-                                      ( Ref Nothing ( Local ( Name "f$519" ) ) )
+                                      ( Ref Nothing ( Local ( Name "f$507" ) ) )
                                       ( DataArgumentByIndex Nothing ProductType 0
-                                        ( Ref Nothing ( Local ( Name "v1$522" ) ) ) :| []
+                                        ( Ref Nothing ( Local ( Name "v1$510" ) ) ) :| []
                                       ) :|
                                       [ DataArgumentByIndex Nothing ProductType 1
-                                        ( Ref Nothing ( Local ( Name "v1$522" ) ) )
+                                        ( Ref Nothing ( Local ( Name "v1$510" ) ) )
                                       ]
                                     )
                                   ) :| []
                                 )
                               )
                               ( AppN Nothing
-                                ( Ref Nothing ( Local ( Name "v$520" ) ) )
-                                ( Ref Nothing ( Local ( Name "s$521" ) ) :| [] ) :| []
+                                ( Ref Nothing ( Local ( Name "v$508" ) ) )
+                                ( Ref Nothing ( Local ( Name "s$509" ) ) :| [] ) :| []
                               )
                             )
                           )
@@ -420,39 +420,37 @@ UberModule
         )
         ( Ref Nothing ( Imported ( ModuleName "Data.Identity" ) ( Name "monadIdentity" ) ) :| [] )
       ), Standalone
-      ( QName
-        { qnameModuleName = ModuleName "Golden.CprState.Test", qnameName = Name "bind"
-        }, ObjectProp Nothing
-        ( Ref Nothing ( Imported ( ModuleName "Golden.CprState.Test" ) ( Name "bindStateT" ) ) )
-        ( PropName "bind" )
-      ), Standalone
       ( QName
         { qnameModuleName = ModuleName "Golden.CprState.Test", qnameName = Name "get"
         }, AbsN Nothing
-        ( ParamNamed Nothing ( Name "x$638" ) :| [] )
+        ( ParamNamed Nothing ( Name "x$679" ) :| [] )
         ( AppN Nothing
           ( Ref Nothing ( Imported ( ModuleName "Data.Tuple" ) ( Name "Tuple$w" ) ) )
-          ( Ref Nothing ( Local ( Name "x$638" ) ) :| [ Ref Nothing ( Local ( Name "x$638" ) ) ] )
+          ( Ref Nothing ( Local ( Name "x$679" ) ) :| [ Ref Nothing ( Local ( Name "x$679" ) ) ] )
         )
       ), Standalone
-      ( QName
-        { qnameModuleName = ModuleName "Golden.CprState.Test", qnameName = Name "discard"
-        }, ObjectProp Nothing
-        ( Ref Nothing ( Imported ( ModuleName "Golden.CprState.Test" ) ( Name "bindStateT" ) ) )
-        ( PropName "bind" )
-      ), Standalone
       ( QName
         { qnameModuleName = ModuleName "Golden.CprState.Test", qnameName = Name "go"
         }, AppN Nothing
         ( AppN Nothing
-          ( Ref Nothing ( Imported ( ModuleName "Golden.CprState.Test" ) ( Name "bind" ) ) )
+          ( ObjectProp Nothing
+            ( Ref Nothing
+              ( Imported ( ModuleName "Golden.CprState.Test" ) ( Name "bindStateT" ) )
+            )
+            ( PropName "bind" )
+          )
           ( Ref Nothing ( Imported ( ModuleName "Golden.CprState.Test" ) ( Name "get" ) ) :| [] )
         )
         ( AbsN Nothing
           ( ParamNamed Nothing ( Name "x1" ) :| [] )
           ( AppN Nothing
             ( AppN Nothing
-              ( Ref Nothing ( Imported ( ModuleName "Golden.CprState.Test" ) ( Name "discard" ) ) )
+              ( ObjectProp Nothing
+                ( Ref Nothing
+                  ( Imported ( ModuleName "Golden.CprState.Test" ) ( Name "bindStateT" ) )
+                )
+                ( PropName "bind" )
+              )
               ( AbsN Nothing
                 ( ParamUnused Nothing :| [] )
                 ( AppN Nothing
@@ -471,8 +469,11 @@ UberModule
               ( ParamUnused Nothing :| [] )
               ( AppN Nothing
                 ( AppN Nothing
-                  ( Ref Nothing
-                    ( Imported ( ModuleName "Golden.CprState.Test" ) ( Name "bind" ) )
+                  ( ObjectProp Nothing
+                    ( Ref Nothing
+                      ( Imported ( ModuleName "Golden.CprState.Test" ) ( Name "bindStateT" ) )
+                    )
+                    ( PropName "bind" )
                   )
                   ( Ref Nothing
                     ( Imported ( ModuleName "Golden.CprState.Test" ) ( Name "get" ) ) :| []
@@ -482,8 +483,11 @@ UberModule
                   ( ParamNamed Nothing ( Name "x2" ) :| [] )
                   ( AppN Nothing
                     ( AppN Nothing
-                      ( Ref Nothing
-                        ( Imported ( ModuleName "Golden.CprState.Test" ) ( Name "discard" ) )
+                      ( ObjectProp Nothing
+                        ( Ref Nothing
+                          ( Imported ( ModuleName "Golden.CprState.Test" ) ( Name "bindStateT" ) )
+                        )
+                        ( PropName "bind" )
                       )
                       ( AbsN Nothing
                         ( ParamUnused Nothing :| [] )
@@ -505,8 +509,14 @@ UberModule
                       ( ParamUnused Nothing :| [] )
                       ( AppN Nothing
                         ( AppN Nothing
-                          ( Ref Nothing
-                            ( Imported ( ModuleName "Golden.CprState.Test" ) ( Name "bind" ) )
+                          ( ObjectProp Nothing
+                            ( Ref Nothing
+                              ( Imported
+                                ( ModuleName "Golden.CprState.Test" )
+                                ( Name "bindStateT" )
+                              )
+                            )
+                            ( PropName "bind" )
                           )
                           ( Ref Nothing
                             ( Imported ( ModuleName "Golden.CprState.Test" ) ( Name "get" ) ) :| []
@@ -516,11 +526,14 @@ UberModule
                           ( ParamNamed Nothing ( Name "x3" ) :| [] )
                           ( AppN Nothing
                             ( AppN Nothing
-                              ( Ref Nothing
-                                ( Imported
-                                  ( ModuleName "Golden.CprState.Test" )
-                                  ( Name "discard" )
+                              ( ObjectProp Nothing
+                                ( Ref Nothing
+                                  ( Imported
+                                    ( ModuleName "Golden.CprState.Test" )
+                                    ( Name "bindStateT" )
+                                  )
                                 )
+                                ( PropName "bind" )
                               )
                               ( AbsN Nothing
                                 ( ParamUnused Nothing :| [] )
@@ -542,11 +555,14 @@ UberModule
                               ( ParamUnused Nothing :| [] )
                               ( AppN Nothing
                                 ( AppN Nothing
-                                  ( Ref Nothing
-                                    ( Imported
-                                      ( ModuleName "Golden.CprState.Test" )
-                                      ( Name "bind" )
+                                  ( ObjectProp Nothing
+                                    ( Ref Nothing
+                                      ( Imported
+                                        ( ModuleName "Golden.CprState.Test" )
+                                        ( Name "bindStateT" )
+                                      )
                                     )
+                                    ( PropName "bind" )
                                   )
                                   ( Ref Nothing
                                     ( Imported
@@ -559,11 +575,14 @@ UberModule
                                   ( ParamNamed Nothing ( Name "x4" ) :| [] )
                                   ( AppN Nothing
                                     ( AppN Nothing
-                                      ( Ref Nothing
-                                        ( Imported
-                                          ( ModuleName "Golden.CprState.Test" )
-                                          ( Name "discard" )
+                                      ( ObjectProp Nothing
+                                        ( Ref Nothing
+                                          ( Imported
+                                            ( ModuleName "Golden.CprState.Test" )
+                                            ( Name "bindStateT" )
+                                          )
                                         )
+                                        ( PropName "bind" )
                                       )
                                       ( AbsN Nothing
                                         ( ParamUnused Nothing :| [] )
@@ -591,11 +610,14 @@ UberModule
                                       ( ParamUnused Nothing :| [] )
                                       ( AppN Nothing
                                         ( AppN Nothing
-                                          ( Ref Nothing
-                                            ( Imported
-                                              ( ModuleName "Golden.CprState.Test" )
-                                              ( Name "bind" )
+                                          ( ObjectProp Nothing
+                                            ( Ref Nothing
+                                              ( Imported
+                                                ( ModuleName "Golden.CprState.Test" )
+                                                ( Name "bindStateT" )
+                                              )
                                             )
+                                            ( PropName "bind" )
                                           )
                                           ( Ref Nothing
                                             ( Imported
@@ -608,11 +630,14 @@ UberModule
                                           ( ParamNamed Nothing ( Name "x5" ) :| [] )
                                           ( AppN Nothing
                                             ( AppN Nothing
-                                              ( Ref Nothing
-                                                ( Imported
-                                                  ( ModuleName "Golden.CprState.Test" )
-                                                  ( Name "discard" )
+                                              ( ObjectProp Nothing
+                                                ( Ref Nothing
+                                                  ( Imported
+                                                    ( ModuleName "Golden.CprState.Test" )
+                                                    ( Name "bindStateT" )
+                                                  )
                                                 )
+                                                ( PropName "bind" )
                                               )
                                               ( AbsN Nothing
                                                 ( ParamUnused Nothing :| [] )
@@ -640,11 +665,14 @@ UberModule
                                               ( ParamUnused Nothing :| [] )
                                               ( AppN Nothing
                                                 ( AppN Nothing
-                                                  ( Ref Nothing
-                                                    ( Imported
-                                                      ( ModuleName "Golden.CprState.Test" )
-                                                      ( Name "bind" )
+                                                  ( ObjectProp Nothing
+                                                    ( Ref Nothing
+                                                      ( Imported
+                                                        ( ModuleName "Golden.CprState.Test" )
+                                                        ( Name "bindStateT" )
+                                                      )
                                                     )
+                                                    ( PropName "bind" )
                                                   )
                                                   ( Ref Nothing
                                                     ( Imported
@@ -657,11 +685,14 @@ UberModule
                                                   ( ParamNamed Nothing ( Name "x6" ) :| [] )
                                                   ( AppN Nothing
                                                     ( AppN Nothing
-                                                      ( Ref Nothing
-                                                        ( Imported
-                                                          ( ModuleName "Golden.CprState.Test" )
-                                                          ( Name "discard" )
+                                                      ( ObjectProp Nothing
+                                                        ( Ref Nothing
+                                                          ( Imported
+                                                            ( ModuleName "Golden.CprState.Test" )
+                                                            ( Name "bindStateT" )
+                                                          )
                                                         )
+                                                        ( PropName "bind" )
                                                       )
                                                       ( AbsN Nothing
                                                         ( ParamUnused Nothing :| [] )
@@ -691,11 +722,14 @@ UberModule
                                                       ( ParamUnused Nothing :| [] )
                                                       ( AppN Nothing
                                                         ( AppN Nothing
-                                                          ( Ref Nothing
-                                                            ( Imported
-                                                              ( ModuleName "Golden.CprState.Test" )
-                                                              ( Name "bind" )
+                                                          ( ObjectProp Nothing
+                                                            ( Ref Nothing
+                                                              ( Imported
+                                                                ( ModuleName "Golden.CprState.Test" )
+                                                                ( Name "bindStateT" )
+                                                              )
                                                             )
+                                                            ( PropName "bind" )
                                                           )
                                                           ( Ref Nothing
                                                             ( Imported
@@ -710,11 +744,14 @@ UberModule
                                                           )
                                                           ( AppN Nothing
                                                             ( AppN Nothing
-                                                              ( Ref Nothing
-                                                                ( Imported
-                                                                  ( ModuleName "Golden.CprState.Test" )
-                                                                  ( Name "discard" )
+                                                              ( ObjectProp Nothing
+                                                                ( Ref Nothing
+                                                                  ( Imported
+                                                                    ( ModuleName "Golden.CprState.Test" )
+                                                                    ( Name "bindStateT" )
+                                                                  )
                                                                 )
+                                                                ( PropName "bind" )
                                                               )
                                                               ( AbsN Nothing
                                                                 ( ParamUnused Nothing :| [] )
@@ -744,11 +781,14 @@ UberModule
                                                               ( ParamUnused Nothing :| [] )
                                                               ( AppN Nothing
                                                                 ( AppN Nothing
-                                                                  ( Ref Nothing
-                                                                    ( Imported
-                                                                      ( ModuleName "Golden.CprState.Test" )
-                                                                      ( Name "bind" )
+                                                                  ( ObjectProp Nothing
+                                                                    ( Ref Nothing
+                                                                      ( Imported
+                                                                        ( ModuleName "Golden.CprState.Test" )
+                                                                        ( Name "bindStateT" )
+                                                                      )
                                                                     )
+                                                                    ( PropName "bind" )
                                                                   )
                                                                   ( Ref Nothing
                                                                     ( Imported
@@ -763,11 +803,14 @@ UberModule
                                                                   )
                                                                   ( AppN Nothing
                                                                     ( AppN Nothing
-                                                                      ( Ref Nothing
-                                                                        ( Imported
-                                                                          ( ModuleName "Golden.CprState.Test" )
-                                                                          ( Name "discard" )
+                                                                      ( ObjectProp Nothing
+                                                                        ( Ref Nothing
+                                                                          ( Imported
+                                                                            ( ModuleName "Golden.CprState.Test" )
+                                                                            ( Name "bindStateT" )
+                                                                          )
                                                                         )
+                                                                        ( PropName "bind" )
                                                                       )
                                                                       ( AbsN Nothing
                                                                         ( ParamUnused Nothing :| [] )
@@ -799,11 +842,14 @@ UberModule
                                                                       ( ParamUnused Nothing :| [] )
                                                                       ( AppN Nothing
                                                                         ( AppN Nothing
-                                                                          ( Ref Nothing
-                                                                            ( Imported
-                                                                              ( ModuleName "Golden.CprState.Test" )
-                                                                              ( Name "bind" )
+                                                                          ( ObjectProp Nothing
+                                                                            ( Ref Nothing
+                                                                              ( Imported
+                                                                                ( ModuleName "Golden.CprState.Test" )
+                                                                                ( Name "bindStateT" )
+                                                                              )
                                                                             )
+                                                                            ( PropName "bind" )
                                                                           )
                                                                           ( Ref Nothing
                                                                             ( Imported
@@ -818,11 +864,14 @@ UberModule
                                                                           )
                                                                           ( AppN Nothing
                                                                             ( AppN Nothing
-                                                                              ( Ref Nothing
-                                                                                ( Imported
-                                                                                  ( ModuleName "Golden.CprState.Test" )
-                                                                                  ( Name "discard" )
+                                                                              ( ObjectProp Nothing
+                                                                                ( Ref Nothing
+                                                                                  ( Imported
+                                                                                    ( ModuleName "Golden.CprState.Test" )
+                                                                                    ( Name "bindStateT" )
+                                                                                  )
                                                                                 )
+                                                                                ( PropName "bind" )
                                                                               )
                                                                               ( AbsN Nothing
                                                                                 ( ParamUnused Nothing :| [] )
@@ -854,11 +903,14 @@ UberModule
                                                                               ( ParamUnused Nothing :| [] )
                                                                               ( AppN Nothing
                                                                                 ( AppN Nothing
-                                                                                  ( Ref Nothing
-                                                                                    ( Imported
-                                                                                      ( ModuleName "Golden.CprState.Test" )
-                                                                                      ( Name "bind" )
+                                                                                  ( ObjectProp Nothing
+                                                                                    ( Ref Nothing
+                                                                                      ( Imported
+                                                                                        ( ModuleName "Golden.CprState.Test" )
+                                                                                        ( Name "bindStateT" )
+                                                                                      )
                                                                                     )
+                                                                                    ( PropName "bind" )
                                                                                   )
                                                                                   ( Ref Nothing
                                                                                     ( Imported
@@ -873,11 +925,14 @@ UberModule
                                                                                   )
                                                                                   ( AppN Nothing
                                                                                     ( AppN Nothing
-                                                                                      ( Ref Nothing
-                                                                                        ( Imported
-                                                                                          ( ModuleName "Golden.CprState.Test" )
-                                                                                          ( Name "discard" )
+                                                                                      ( ObjectProp Nothing
+                                                                                        ( Ref Nothing
+                                                                                          ( Imported
+                                                                                            ( ModuleName "Golden.CprState.Test" )
+                                                                                            ( Name "bindStateT" )
+                                                                                          )
                                                                                         )
+                                                                                        ( PropName "bind" )
                                                                                       )
                                                                                       ( AbsN Nothing
                                                                                         ( ParamUnused Nothing :| [] )
@@ -909,11 +964,14 @@ UberModule
                                                                                       ( ParamUnused Nothing :| [] )
                                                                                       ( AppN Nothing
                                                                                         ( AppN Nothing
-                                                                                          ( Ref Nothing
-                                                                                            ( Imported
-                                                                                              ( ModuleName "Golden.CprState.Test" )
-                                                                                              ( Name "bind" )
+                                                                                          ( ObjectProp Nothing
+                                                                                            ( Ref Nothing
+                                                                                              ( Imported
+                                                                                                ( ModuleName "Golden.CprState.Test" )
+                                                                                                ( Name "bindStateT" )
+                                                                                              )
                                                                                             )
+                                                                                            ( PropName "bind" )
                                                                                           )
                                                                                           ( Ref Nothing
                                                                                             ( Imported
diff --git a/test/ps/output/Golden.CprState.Test/golden.lua b/test/ps/output/Golden.CprState.Test/golden.lua
index 7f2f7e48..54f016de 100644
--- a/test/ps/output/Golden.CprState.Test/golden.lua
+++ b/test/ps/output/Golden.CprState.Test/golden.lua
@@ -101,52 +101,50 @@ Control_Monad_State_Trans_applicativeStateT = function(dictMonad)
   }
 end
 local Golden_CprState_Test_bindStateT = Control_Monad_State_Trans_bindStateT(Data_Identity_monadIdentity)
-local Golden_CprState_Test_bind = Golden_CprState_Test_bindStateT.bind
 local Golden_CprState_Test_get = function(x_S_1)
   return Data_Tuple_Tuple_S_w(x_S_1, x_S_1)
 end
-local Golden_CprState_Test_discard = Golden_CprState_Test_bindStateT.bind
-local Golden_CprState_Test_go = Golden_CprState_Test_bind(Golden_CprState_Test_get)(function( x1 )
-  return Golden_CprState_Test_discard(function()
+local Golden_CprState_Test_go = Golden_CprState_Test_bindStateT.bind(Golden_CprState_Test_get)(function( x1 )
+  return Golden_CprState_Test_bindStateT.bind(function()
     return Data_Tuple_Tuple_S_w(Data_Unit_unit, x1 + 1)
   end)(function()
-    return Golden_CprState_Test_bind(Golden_CprState_Test_get)(function(x2)
-      return Golden_CprState_Test_discard(function()
+    return Golden_CprState_Test_bindStateT.bind(Golden_CprState_Test_get)(function( x2 )
+      return Golden_CprState_Test_bindStateT.bind(function()
         return Data_Tuple_Tuple_S_w(Data_Unit_unit, x2 + 1)
       end)(function()
-        return Golden_CprState_Test_bind(Golden_CprState_Test_get)(function(x3)
-          return Golden_CprState_Test_discard(function()
+        return Golden_CprState_Test_bindStateT.bind(Golden_CprState_Test_get)(function( x3 )
+          return Golden_CprState_Test_bindStateT.bind(function()
             return Data_Tuple_Tuple_S_w(Data_Unit_unit, x3 + 1)
           end)(function()
-            return Golden_CprState_Test_bind(Golden_CprState_Test_get)(function( x4 )
-              return Golden_CprState_Test_discard(function()
+            return Golden_CprState_Test_bindStateT.bind(Golden_CprState_Test_get)(function( x4 )
+              return Golden_CprState_Test_bindStateT.bind(function()
                 return Data_Tuple_Tuple_S_w(Data_Unit_unit, x4 + 1)
               end)(function()
-                return Golden_CprState_Test_bind(Golden_CprState_Test_get)(function( x5 )
-                  return Golden_CprState_Test_discard(function()
+                return Golden_CprState_Test_bindStateT.bind(Golden_CprState_Test_get)(function( x5 )
+                  return Golden_CprState_Test_bindStateT.bind(function()
                     return Data_Tuple_Tuple_S_w(Data_Unit_unit, x5 + 1)
                   end)(function()
-                    return Golden_CprState_Test_bind(Golden_CprState_Test_get)(function( x6 )
-                      return Golden_CprState_Test_discard(function()
+                    return Golden_CprState_Test_bindStateT.bind(Golden_CprState_Test_get)(function( x6 )
+                      return Golden_CprState_Test_bindStateT.bind(function()
                         return Data_Tuple_Tuple_S_w(Data_Unit_unit, x6 + 1)
                       end)(function()
-                        return Golden_CprState_Test_bind(Golden_CprState_Test_get)(function( x7 )
-                          return Golden_CprState_Test_discard(function()
+                        return Golden_CprState_Test_bindStateT.bind(Golden_CprState_Test_get)(function( x7 )
+                          return Golden_CprState_Test_bindStateT.bind(function()
                             return Data_Tuple_Tuple_S_w(Data_Unit_unit, x7 + 1)
                           end)(function()
-                            return Golden_CprState_Test_bind(Golden_CprState_Test_get)(function( x8 )
-                              return Golden_CprState_Test_discard(function()
+                            return Golden_CprState_Test_bindStateT.bind(Golden_CprState_Test_get)(function( x8 )
+                              return Golden_CprState_Test_bindStateT.bind(function(  )
                                 return Data_Tuple_Tuple_S_w(Data_Unit_unit, x8 + 1)
                               end)(function()
-                                return Golden_CprState_Test_bind(Golden_CprState_Test_get)(function( x9 )
-                                  return Golden_CprState_Test_discard(function()
+                                return Golden_CprState_Test_bindStateT.bind(Golden_CprState_Test_get)(function( x9 )
+                                  return Golden_CprState_Test_bindStateT.bind(function(  )
                                     return Data_Tuple_Tuple_S_w(Data_Unit_unit, x9 + 1)
                                   end)(function()
-                                    return Golden_CprState_Test_bind(Golden_CprState_Test_get)(function( x10 )
-                                      return Golden_CprState_Test_discard(function(  )
+                                    return Golden_CprState_Test_bindStateT.bind(Golden_CprState_Test_get)(function( x10 )
+                                      return Golden_CprState_Test_bindStateT.bind(function(  )
                                         return Data_Tuple_Tuple_S_w(Data_Unit_unit, x10 + 1)
                                       end)(function()
-                                        return Golden_CprState_Test_bind(Golden_CprState_Test_get)(function( final )
+                                        return Golden_CprState_Test_bindStateT.bind(Golden_CprState_Test_get)(function( final )
                                           return (Control_Monad_State_Trans_applicativeStateT(Data_Identity_monadIdentity)).pure(x1 + x5 + final)
                                         end)
                                       end)
diff --git a/test/ps/output/Golden.DerivedFunctor.Test/golden.ir b/test/ps/output/Golden.DerivedFunctor.Test/golden.ir
index 869f90ae..1b6cfc72 100644
--- a/test/ps/output/Golden.DerivedFunctor.Test/golden.ir
+++ b/test/ps/output/Golden.DerivedFunctor.Test/golden.ir
@@ -118,7 +118,7 @@ UberModule
                 ( ParamNamed Nothing ( Name "m" ) :| [] )
                 ( Let Nothing
                   ( Standalone
-                    ( Nothing, Name "$cse250", ObjectProp Nothing
+                    ( Nothing, Name "$cse246", ObjectProp Nothing
                       ( Ref Nothing
                         ( Imported
                           ( ModuleName "Golden.DerivedFunctor.Test" )
@@ -142,7 +142,7 @@ UberModule
                       )
                       ( AppN Nothing
                         ( AppN Nothing
-                          ( Ref Nothing ( Local ( Name "$cse250" ) ) )
+                          ( Ref Nothing ( Local ( Name "$cse246" ) ) )
                           ( Ref Nothing ( Local ( Name "f" ) ) :| [] )
                         )
                         ( DataArgumentByIndex Nothing SumType 0
@@ -154,7 +154,7 @@ UberModule
                             ( Ref Nothing ( Local ( Name "m" ) ) ) :| []
                           ), AppN Nothing
                           ( AppN Nothing
-                            ( Ref Nothing ( Local ( Name "$cse250" ) ) )
+                            ( Ref Nothing ( Local ( Name "$cse246" ) ) )
                             ( Ref Nothing ( Local ( Name "f" ) ) :| [] )
                           )
                           ( DataArgumentByIndex Nothing SumType 2
@@ -180,7 +180,7 @@ UberModule
               ( ParamNamed Nothing ( Name "m" ) :| [] )
               ( Let Nothing
                 ( Standalone
-                  ( Nothing, Name "$cse251", DataArgumentByIndex Nothing SumType 0
+                  ( Nothing, Name "$cse247", DataArgumentByIndex Nothing SumType 0
                     ( Ref Nothing ( Local ( Name "m" ) ) )
                   ) :| []
                 )
@@ -193,7 +193,7 @@ UberModule
                     ( ModuleName "Golden.DerivedFunctor.Test" )
                     ( TyName "Either" )
                     ( CtorName "Left" )
-                    [ Ref Nothing ( Local ( Name "$cse251" ) ) ]
+                    [ Ref Nothing ( Local ( Name "$cse247" ) ) ]
                   )
                   ( Ctor Nothing SumType
                     ( ModuleName "Golden.DerivedFunctor.Test" )
@@ -201,7 +201,7 @@ UberModule
                     ( CtorName "Right" )
                     [ AppN Nothing
                       ( Ref Nothing ( Local ( Name "f" ) ) )
-                      ( Ref Nothing ( Local ( Name "$cse251" ) ) :| [] )
+                      ( Ref Nothing ( Local ( Name "$cse247" ) ) :| [] )
                     ]
                   )
                 )
@@ -235,20 +235,20 @@ UberModule
         ( Imported ( ModuleName "Golden.DerivedFunctor.Test" ) ( Name "Leaf" ) )
       ),
       ( Name "Node", AbsN Nothing
-        ( ParamNamed Nothing ( Name "Node$p1$216" ) :| [] )
+        ( ParamNamed Nothing ( Name "Node$p1$211" ) :| [] )
         ( AbsN Nothing
-          ( ParamNamed Nothing ( Name "Node$p2$217" ) :| [] )
+          ( ParamNamed Nothing ( Name "Node$p2$212" ) :| [] )
           ( AbsN Nothing
-            ( ParamNamed Nothing ( Name "Node$p3$218" ) :| [] )
+            ( ParamNamed Nothing ( Name "Node$p3$213" ) :| [] )
             ( AppN Nothing
               ( Ref Nothing
                 ( Imported ( ModuleName "Golden.DerivedFunctor.Test" ) ( Name "Node$w" ) )
               )
               ( Ref Nothing
-                ( Local ( Name "Node$p1$216" ) ) :|
+                ( Local ( Name "Node$p1$211" ) ) :|
                 [ Ref Nothing
-                  ( Local ( Name "Node$p2$217" ) ), Ref Nothing
-                  ( Local ( Name "Node$p3$218" ) )
+                  ( Local ( Name "Node$p2$212" ) ), Ref Nothing
+                  ( Local ( Name "Node$p3$213" ) )
                 ]
               )
             )
@@ -256,16 +256,16 @@ UberModule
         )
       ),
       ( Name "fromRight", AbsN Nothing
-        ( ParamNamed Nothing ( Name "fromRight$p1$214" ) :| [] )
+        ( ParamNamed Nothing ( Name "fromRight$p1$209" ) :| [] )
         ( AbsN Nothing
-          ( ParamNamed Nothing ( Name "fromRight$p2$215" ) :| [] )
+          ( ParamNamed Nothing ( Name "fromRight$p2$210" ) :| [] )
           ( AppN Nothing
             ( Ref Nothing
               ( Imported ( ModuleName "Golden.DerivedFunctor.Test" ) ( Name "fromRight$w" ) )
             )
             ( Ref Nothing
-              ( Local ( Name "fromRight$p1$214" ) ) :|
-              [ Ref Nothing ( Local ( Name "fromRight$p2$215" ) ) ]
+              ( Local ( Name "fromRight$p1$209" ) ) :|
+              [ Ref Nothing ( Local ( Name "fromRight$p2$210" ) ) ]
             )
           )
         )
diff --git a/test/ps/output/Golden.DirectiveAccessor.Test/golden.ir b/test/ps/output/Golden.DirectiveAccessor.Test/golden.ir
index 87550ad2..31c8998a 100644
--- a/test/ps/output/Golden.DirectiveAccessor.Test/golden.ir
+++ b/test/ps/output/Golden.DirectiveAccessor.Test/golden.ir
@@ -196,7 +196,7 @@ UberModule
         ( ParamUnused Nothing :| [] )
         ( Let Nothing
           ( Standalone
-            ( Nothing, Name "$cse352", ObjectProp Nothing
+            ( Nothing, Name "$cse347", ObjectProp Nothing
               ( Ref Nothing
                 ( Imported ( ModuleName "Golden.DirectiveAccessor.Test" ) ( Name "ops" ) )
               )
@@ -212,7 +212,7 @@ UberModule
                     ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "showIntImpl" ) ) )
                     ( AppN Nothing
                       ( AppN Nothing
-                        ( Ref Nothing ( Local ( Name "$cse352" ) ) )
+                        ( Ref Nothing ( Local ( Name "$cse347" ) ) )
                         ( LiteralInt Nothing 6 :| [] )
                       )
                       ( LiteralInt Nothing 7 :| [] ) :| []
@@ -231,7 +231,7 @@ UberModule
                       )
                       ( AppN Nothing
                         ( AppN Nothing
-                          ( Ref Nothing ( Local ( Name "$cse352" ) ) )
+                          ( Ref Nothing ( Local ( Name "$cse347" ) ) )
                           ( LiteralInt Nothing 2 :| [] )
                         )
                         ( LiteralInt Nothing 3 :| [] ) :| []
diff --git a/test/ps/output/Golden.DirectiveDerived.Test/golden.ir b/test/ps/output/Golden.DirectiveDerived.Test/golden.ir
index 6f89ca1d..7d386f9e 100644
--- a/test/ps/output/Golden.DirectiveDerived.Test/golden.ir
+++ b/test/ps/output/Golden.DirectiveDerived.Test/golden.ir
@@ -209,7 +209,7 @@ UberModule
         ( Imported ( ModuleName "Golden.DirectiveDerived.Test" ) ( Name "combine" ) )
       ),
       ( Name "onePlusTwo", AbsN Nothing
-        ( ParamNamed Nothing ( Name "c$378" ) :| [] )
+        ( ParamNamed Nothing ( Name "c$373" ) :| [] )
         ( PrimBinOp Nothing PrimSub
           ( PrimBinOp Nothing PrimSub
             ( PrimBinOp Nothing PrimSub
@@ -252,7 +252,7 @@ UberModule
                                                                                       ( PrimBinOp Nothing PrimSub
                                                                                         ( Ref Nothing
                                                                                           ( Local
-                                                                                            ( Name "c$378" )
+                                                                                            ( Name "c$373" )
                                                                                           )
                                                                                         )
                                                                                         ( LiteralInt Nothing 1 )
diff --git a/test/ps/output/Golden.DirectivePack.Test/corefn.json b/test/ps/output/Golden.DirectivePack.Test/corefn.json
new file mode 100644
index 00000000..2970434c
--- /dev/null
+++ b/test/ps/output/Golden.DirectivePack.Test/corefn.json
@@ -0,0 +1 @@
+{"builtWith":"0.15.16","comments":[],"decls":[{"annotation":{"meta":null,"sourceSpan":{"end":[0,0],"start":[0,0]}},"bindType":"NonRec","expression":{"abstraction":{"annotation":{"meta":{"metaType":"IsForeign"},"sourceSpan":{"end":[40,24],"start":[40,21]}},"type":"Var","value":{"identifier":"compose","moduleName":["Control","Semigroupoid"]}},"annotation":{"meta":{"metaType":"IsSyntheticApp"},"sourceSpan":{"end":[40,45],"start":[40,12]}},"argument":{"annotation":{"meta":null,"sourceSpan":{"end":[0,0],"start":[0,0]}},"type":"Var","value":{"identifier":"semigroupoidFn","moduleName":["Control","Semigroupoid"]}},"type":"App"},"identifier":"compose"},{"annotation":{"meta":null,"sourceSpan":{"end":[0,0],"start":[0,0]}},"bindType":"NonRec","expression":{"abstraction":{"annotation":{"meta":{"metaType":"IsForeign"},"sourceSpan":{"end":[40,20],"start":[40,12]}},"type":"Var","value":{"identifier":"identity","moduleName":["Control","Category"]}},"annotation":{"meta":{"metaType":"IsSyntheticApp"},"sourceSpan":{"end":[40,20],"start":[40,12]}},"argument":{"annotation":{"meta":null,"sourceSpan":{"end":[0,0],"start":[0,0]}},"type":"Var","value":{"identifier":"categoryFn","moduleName":["Control","Category"]}},"type":"App"},"identifier":"identity"},{"annotation":{"meta":null,"sourceSpan":{"end":[0,0],"start":[0,0]}},"bindType":"NonRec","expression":{"abstraction":{"annotation":{"meta":{"metaType":"IsForeign"},"sourceSpan":{"end":[40,29],"start":[40,28]}},"type":"Var","value":{"identifier":"add","moduleName":["Data","Semiring"]}},"annotation":{"meta":{"metaType":"IsSyntheticApp"},"sourceSpan":{"end":[40,32],"start":[40,25]}},"argument":{"annotation":{"meta":null,"sourceSpan":{"end":[0,0],"start":[0,0]}},"type":"Var","value":{"identifier":"semiringInt","moduleName":["Data","Semiring"]}},"type":"App"},"identifier":"add"},{"annotation":{"meta":null,"sourceSpan":{"end":[0,0],"start":[0,0]}},"bindType":"NonRec","expression":{"abstraction":{"annotation":{"meta":{"metaType":"IsForeign"},"sourceSpan":{"end":[25,25],"start":[25,23]}},"type":"Var","value":{"identifier":"eq","moduleName":["Data","Eq"]}},"annotation":{"meta":{"metaType":"IsSyntheticApp"},"sourceSpan":{"end":[25,27],"start":[25,13]}},"argument":{"annotation":{"meta":null,"sourceSpan":{"end":[0,0],"start":[0,0]}},"type":"Var","value":{"identifier":"eqInt","moduleName":["Data","Eq"]}},"type":"App"},"identifier":"eq"},{"annotation":{"meta":null,"sourceSpan":{"end":[0,0],"start":[0,0]}},"bindType":"NonRec","expression":{"abstraction":{"annotation":{"meta":{"metaType":"IsForeign"},"sourceSpan":{"end":[25,19],"start":[25,16]}},"type":"Var","value":{"identifier":"mod","moduleName":["Data","EuclideanRing"]}},"annotation":{"meta":{"metaType":"IsSyntheticApp"},"sourceSpan":{"end":[25,22],"start":[25,13]}},"argument":{"annotation":{"meta":null,"sourceSpan":{"end":[0,0],"start":[0,0]}},"type":"Var","value":{"identifier":"euclideanRingInt","moduleName":["Data","EuclideanRing"]}},"type":"App"},"identifier":"mod"},{"annotation":{"meta":null,"sourceSpan":{"end":[0,0],"start":[0,0]}},"bindType":"NonRec","expression":{"abstraction":{"annotation":{"meta":{"metaType":"IsForeign"},"sourceSpan":{"end":[25,42],"start":[25,41]}},"type":"Var","value":{"identifier":"div","moduleName":["Data","EuclideanRing"]}},"annotation":{"meta":{"metaType":"IsSyntheticApp"},"sourceSpan":{"end":[25,44],"start":[25,39]}},"argument":{"annotation":{"meta":null,"sourceSpan":{"end":[0,0],"start":[0,0]}},"type":"Var","value":{"identifier":"euclideanRingInt","moduleName":["Data","EuclideanRing"]}},"type":"App"},"identifier":"div"},{"annotation":{"meta":null,"sourceSpan":{"end":[0,0],"start":[0,0]}},"bindType":"NonRec","expression":{"abstraction":{"annotation":{"meta":{"metaType":"IsForeign"},"sourceSpan":{"end":[44,8],"start":[44,7]}},"type":"Var","value":{"identifier":"lessThan","moduleName":["Data","Ord"]}},"annotation":{"meta":{"metaType":"IsSyntheticApp"},"sourceSpan":{"end":[44,10],"start":[44,5]}},"argument":{"annotation":{"meta":null,"sourceSpan":{"end":[0,0],"start":[0,0]}},"type":"Var","value":{"identifier":"ordInt","moduleName":["Data","Ord"]}},"type":"App"},"identifier":"lessThan"},{"annotation":{"meta":null,"sourceSpan":{"end":[0,0],"start":[0,0]}},"bindType":"NonRec","expression":{"abstraction":{"annotation":{"meta":{"metaType":"IsForeign"},"sourceSpan":{"end":[30,17],"start":[30,14]}},"type":"Var","value":{"identifier":"bindFlipped","moduleName":["Control","Bind"]}},"annotation":{"meta":{"metaType":"IsSyntheticApp"},"sourceSpan":{"end":[30,43],"start":[30,9]}},"argument":{"annotation":{"meta":null,"sourceSpan":{"end":[0,0],"start":[0,0]}},"type":"Var","value":{"identifier":"bindMaybe","moduleName":["Data","Maybe"]}},"type":"App"},"identifier":"bindFlipped"},{"annotation":{"meta":null,"sourceSpan":{"end":[0,0],"start":[0,0]}},"bindType":"NonRec","expression":{"abstraction":{"abstraction":{"annotation":{"meta":{"metaType":"IsForeign"},"sourceSpan":{"end":[50,19],"start":[50,3]}},"type":"Var","value":{"identifier":"discard","moduleName":["Control","Bind"]}},"annotation":{"meta":{"metaType":"IsSyntheticApp"},"sourceSpan":{"end":[50,19],"start":[50,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":[50,19],"start":[50,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":[52,12],"start":[52,8]}},"type":"Var","value":{"identifier":"show","moduleName":["Data","Show"]}},"annotation":{"meta":{"metaType":"IsSyntheticApp"},"sourceSpan":{"end":[52,26],"start":[52,8]}},"argument":{"annotation":{"meta":null,"sourceSpan":{"end":[0,0],"start":[0,0]}},"type":"Var","value":{"identifier":"showInt","moduleName":["Data","Show"]}},"type":"App"},"identifier":"show"},{"annotation":{"meta":null,"sourceSpan":{"end":[0,0],"start":[0,0]}},"bindType":"NonRec","expression":{"abstraction":{"annotation":{"meta":{"metaType":"IsForeign"},"sourceSpan":{"end":[54,18],"start":[54,3]}},"type":"Var","value":{"identifier":"bind","moduleName":["Control","Bind"]}},"annotation":{"meta":{"metaType":"IsSyntheticApp"},"sourceSpan":{"end":[54,18],"start":[54,3]}},"argument":{"annotation":{"meta":null,"sourceSpan":{"end":[0,0],"start":[0,0]}},"type":"Var","value":{"identifier":"bindEffect","moduleName":["Effect"]}},"type":"App"},"identifier":"bind"},{"annotation":{"meta":null,"sourceSpan":{"end":[0,0],"start":[0,0]}},"bindType":"NonRec","expression":{"abstraction":{"annotation":{"meta":{"metaType":"IsForeign"},"sourceSpan":{"end":[55,19],"start":[55,18]}},"type":"Var","value":{"identifier":"mul","moduleName":["Data","Semiring"]}},"annotation":{"meta":{"metaType":"IsSyntheticApp"},"sourceSpan":{"end":[55,22],"start":[55,15]}},"argument":{"annotation":{"meta":null,"sourceSpan":{"end":[0,0],"start":[0,0]}},"type":"Var","value":{"identifier":"semiringInt","moduleName":["Data","Semiring"]}},"type":"App"},"identifier":"mul"},{"annotation":{"meta":null,"sourceSpan":{"end":[17,32],"start":[17,1]}},"bindType":"NonRec","expression":{"annotation":{"meta":null,"sourceSpan":{"end":[17,32],"start":[17,1]}},"constructorName":"Apple","fieldNames":[],"type":"Constructor","typeName":"Fruit"},"identifier":"Apple"},{"annotation":{"meta":null,"sourceSpan":{"end":[17,32],"start":[17,1]}},"bindType":"NonRec","expression":{"annotation":{"meta":null,"sourceSpan":{"end":[17,32],"start":[17,1]}},"constructorName":"Banana","fieldNames":["value0"],"type":"Constructor","typeName":"Fruit"},"identifier":"Banana"},{"annotation":{"meta":null,"sourceSpan":{"end":[19,32],"start":[19,1]}},"bindType":"NonRec","expression":{"abstraction":{"annotation":{"meta":{"metaType":"IsNewtype"},"sourceSpan":{"end":[19,32],"start":[19,1]}},"type":"Var","value":{"identifier":"Generic$Dict","moduleName":["Data","Generic","Rep"]}},"annotation":{"meta":null,"sourceSpan":{"end":[19,32],"start":[19,1]}},"argument":{"annotation":{"meta":null,"sourceSpan":{"end":[19,32],"start":[19,1]}},"type":"Literal","value":{"literalType":"ObjectLiteral","value":[["to",{"annotation":{"meta":null,"sourceSpan":{"end":[19,32],"start":[19,1]}},"argument":"x","body":{"annotation":{"meta":null,"sourceSpan":{"end":[19,32],"start":[19,1]}},"caseAlternatives":[{"binders":[{"annotation":{"meta":{"constructorType":"SumType","identifiers":["value0"],"metaType":"IsConstructor"},"sourceSpan":{"end":[19,32],"start":[19,1]}},"binderType":"ConstructorBinder","binders":[{"annotation":{"meta":{"metaType":"IsNewtype"},"sourceSpan":{"end":[19,32],"start":[19,1]}},"binderType":"ConstructorBinder","binders":[{"annotation":{"meta":null,"sourceSpan":{"end":[19,32],"start":[19,1]}},"binderType":"NullBinder"}],"constructorName":{"identifier":"Constructor","moduleName":["Data","Generic","Rep"]},"typeName":{"identifier":"Constructor","moduleName":["Data","Generic","Rep"]}}],"constructorName":{"identifier":"Inl","moduleName":["Data","Generic","Rep"]},"typeName":{"identifier":"Sum","moduleName":["Data","Generic","Rep"]}}],"expression":{"annotation":{"meta":{"constructorType":"SumType","identifiers":[],"metaType":"IsConstructor"},"sourceSpan":{"end":[19,32],"start":[19,1]}},"type":"Var","value":{"identifier":"Apple","moduleName":["Golden","DirectivePack","Test"]}},"isGuarded":false},{"binders":[{"annotation":{"meta":{"constructorType":"SumType","identifiers":["value0"],"metaType":"IsConstructor"},"sourceSpan":{"end":[19,32],"start":[19,1]}},"binderType":"ConstructorBinder","binders":[{"annotation":{"meta":{"metaType":"IsNewtype"},"sourceSpan":{"end":[19,32],"start":[19,1]}},"binderType":"ConstructorBinder","binders":[{"annotation":{"meta":{"metaType":"IsNewtype"},"sourceSpan":{"end":[19,32],"start":[19,1]}},"binderType":"ConstructorBinder","binders":[{"annotation":{"meta":null,"sourceSpan":{"end":[19,32],"start":[19,1]}},"binderType":"VarBinder","identifier":"arg"}],"constructorName":{"identifier":"Argument","moduleName":["Data","Generic","Rep"]},"typeName":{"identifier":"Argument","moduleName":["Data","Generic","Rep"]}}],"constructorName":{"identifier":"Constructor","moduleName":["Data","Generic","Rep"]},"typeName":{"identifier":"Constructor","moduleName":["Data","Generic","Rep"]}}],"constructorName":{"identifier":"Inr","moduleName":["Data","Generic","Rep"]},"typeName":{"identifier":"Sum","moduleName":["Data","Generic","Rep"]}}],"expression":{"abstraction":{"annotation":{"meta":{"constructorType":"SumType","identifiers":["value0"],"metaType":"IsConstructor"},"sourceSpan":{"end":[19,32],"start":[19,1]}},"type":"Var","value":{"identifier":"Banana","moduleName":["Golden","DirectivePack","Test"]}},"annotation":{"meta":null,"sourceSpan":{"end":[19,32],"start":[19,1]}},"argument":{"annotation":{"meta":null,"sourceSpan":{"end":[19,32],"start":[19,1]}},"type":"Var","value":{"identifier":"arg","sourcePos":[19,1]}},"type":"App"},"isGuarded":false}],"caseExpressions":[{"annotation":{"meta":null,"sourceSpan":{"end":[0,0],"start":[0,0]}},"type":"Var","value":{"identifier":"x","sourcePos":[0,0]}}],"type":"Case"},"type":"Abs"}],["from",{"annotation":{"meta":null,"sourceSpan":{"end":[19,32],"start":[19,1]}},"argument":"x","body":{"annotation":{"meta":null,"sourceSpan":{"end":[19,32],"start":[19,1]}},"caseAlternatives":[{"binders":[{"annotation":{"meta":{"constructorType":"SumType","identifiers":[],"metaType":"IsConstructor"},"sourceSpan":{"end":[19,32],"start":[19,1]}},"binderType":"ConstructorBinder","binders":[],"constructorName":{"identifier":"Apple","moduleName":["Golden","DirectivePack","Test"]},"typeName":{"identifier":"Fruit","moduleName":["Golden","DirectivePack","Test"]}}],"expression":{"abstraction":{"annotation":{"meta":{"constructorType":"SumType","identifiers":["value0"],"metaType":"IsConstructor"},"sourceSpan":{"end":[19,32],"start":[19,1]}},"type":"Var","value":{"identifier":"Inl","moduleName":["Data","Generic","Rep"]}},"annotation":{"meta":null,"sourceSpan":{"end":[19,32],"start":[19,1]}},"argument":{"abstraction":{"annotation":{"meta":{"metaType":"IsNewtype"},"sourceSpan":{"end":[19,32],"start":[19,1]}},"type":"Var","value":{"identifier":"Constructor","moduleName":["Data","Generic","Rep"]}},"annotation":{"meta":null,"sourceSpan":{"end":[19,32],"start":[19,1]}},"argument":{"annotation":{"meta":{"constructorType":"ProductType","identifiers":[],"metaType":"IsConstructor"},"sourceSpan":{"end":[19,32],"start":[19,1]}},"type":"Var","value":{"identifier":"NoArguments","moduleName":["Data","Generic","Rep"]}},"type":"App"},"type":"App"},"isGuarded":false},{"binders":[{"annotation":{"meta":{"constructorType":"SumType","identifiers":["value0"],"metaType":"IsConstructor"},"sourceSpan":{"end":[19,32],"start":[19,1]}},"binderType":"ConstructorBinder","binders":[{"annotation":{"meta":null,"sourceSpan":{"end":[19,32],"start":[19,1]}},"binderType":"VarBinder","identifier":"arg"}],"constructorName":{"identifier":"Banana","moduleName":["Golden","DirectivePack","Test"]},"typeName":{"identifier":"Fruit","moduleName":["Golden","DirectivePack","Test"]}}],"expression":{"abstraction":{"annotation":{"meta":{"constructorType":"SumType","identifiers":["value0"],"metaType":"IsConstructor"},"sourceSpan":{"end":[19,32],"start":[19,1]}},"type":"Var","value":{"identifier":"Inr","moduleName":["Data","Generic","Rep"]}},"annotation":{"meta":null,"sourceSpan":{"end":[19,32],"start":[19,1]}},"argument":{"abstraction":{"annotation":{"meta":{"metaType":"IsNewtype"},"sourceSpan":{"end":[19,32],"start":[19,1]}},"type":"Var","value":{"identifier":"Constructor","moduleName":["Data","Generic","Rep"]}},"annotation":{"meta":null,"sourceSpan":{"end":[19,32],"start":[19,1]}},"argument":{"abstraction":{"annotation":{"meta":{"metaType":"IsNewtype"},"sourceSpan":{"end":[19,32],"start":[19,1]}},"type":"Var","value":{"identifier":"Argument","moduleName":["Data","Generic","Rep"]}},"annotation":{"meta":null,"sourceSpan":{"end":[19,32],"start":[19,1]}},"argument":{"annotation":{"meta":null,"sourceSpan":{"end":[19,32],"start":[19,1]}},"type":"Var","value":{"identifier":"arg","sourcePos":[19,1]}},"type":"App"},"type":"App"},"type":"App"},"isGuarded":false}],"caseExpressions":[{"annotation":{"meta":null,"sourceSpan":{"end":[0,0],"start":[0,0]}},"type":"Var","value":{"identifier":"x","sourcePos":[0,0]}}],"type":"Case"},"type":"Abs"}]]}},"type":"App"},"identifier":"genericFruit_"},{"annotation":{"meta":null,"sourceSpan":{"end":[22,21],"start":[21,1]}},"bindType":"NonRec","expression":{"abstraction":{"annotation":{"meta":{"metaType":"IsNewtype"},"sourceSpan":{"end":[22,21],"start":[21,1]}},"type":"Var","value":{"identifier":"Show$Dict","moduleName":["Data","Show"]}},"annotation":{"meta":null,"sourceSpan":{"end":[22,21],"start":[21,1]}},"argument":{"annotation":{"meta":null,"sourceSpan":{"end":[22,21],"start":[21,1]}},"type":"Literal","value":{"literalType":"ObjectLiteral","value":[["show",{"abstraction":{"abstraction":{"annotation":{"meta":{"metaType":"IsForeign"},"sourceSpan":{"end":[22,21],"start":[22,10]}},"type":"Var","value":{"identifier":"genericShow","moduleName":["Data","Show","Generic"]}},"annotation":{"meta":{"metaType":"IsSyntheticApp"},"sourceSpan":{"end":[22,21],"start":[22,10]}},"argument":{"annotation":{"meta":null,"sourceSpan":{"end":[0,0],"start":[0,0]}},"type":"Var","value":{"identifier":"genericFruit_","moduleName":["Golden","DirectivePack","Test"]}},"type":"App"},"annotation":{"meta":{"metaType":"IsSyntheticApp"},"sourceSpan":{"end":[22,21],"start":[22,10]}},"argument":{"abstraction":{"abstraction":{"annotation":{"meta":null,"sourceSpan":{"end":[0,0],"start":[0,0]}},"type":"Var","value":{"identifier":"genericShowSum","moduleName":["Data","Show","Generic"]}},"annotation":{"meta":{"metaType":"IsSyntheticApp"},"sourceSpan":{"end":[22,21],"start":[22,10]}},"argument":{"abstraction":{"abstraction":{"annotation":{"meta":null,"sourceSpan":{"end":[0,0],"start":[0,0]}},"type":"Var","value":{"identifier":"genericShowConstructor","moduleName":["Data","Show","Generic"]}},"annotation":{"meta":{"metaType":"IsSyntheticApp"},"sourceSpan":{"end":[22,21],"start":[22,10]}},"argument":{"annotation":{"meta":null,"sourceSpan":{"end":[0,0],"start":[0,0]}},"type":"Var","value":{"identifier":"genericShowArgsNoArguments","moduleName":["Data","Show","Generic"]}},"type":"App"},"annotation":{"meta":{"metaType":"IsSyntheticApp"},"sourceSpan":{"end":[22,21],"start":[22,10]}},"argument":{"abstraction":{"annotation":{"meta":{"metaType":"IsNewtype"},"sourceSpan":{"end":[0,0],"start":[0,0]}},"type":"Var","value":{"identifier":"IsSymbol$Dict","moduleName":["Data","Symbol"]}},"annotation":{"meta":{"metaType":"IsSyntheticApp"},"sourceSpan":{"end":[22,21],"start":[22,10]}},"argument":{"annotation":{"meta":null,"sourceSpan":{"end":[0,0],"start":[0,0]}},"type":"Literal","value":{"literalType":"ObjectLiteral","value":[["reflectSymbol",{"annotation":{"meta":null,"sourceSpan":{"end":[0,0],"start":[0,0]}},"argument":"$__unused","body":{"annotation":{"meta":null,"sourceSpan":{"end":[0,0],"start":[0,0]}},"type":"Literal","value":{"literalType":"StringLiteral","value":"Apple"}},"type":"Abs"}]]}},"type":"App"},"type":"App"},"type":"App"},"annotation":{"meta":{"metaType":"IsSyntheticApp"},"sourceSpan":{"end":[22,21],"start":[22,10]}},"argument":{"abstraction":{"abstraction":{"annotation":{"meta":null,"sourceSpan":{"end":[0,0],"start":[0,0]}},"type":"Var","value":{"identifier":"genericShowConstructor","moduleName":["Data","Show","Generic"]}},"annotation":{"meta":{"metaType":"IsSyntheticApp"},"sourceSpan":{"end":[22,21],"start":[22,10]}},"argument":{"abstraction":{"annotation":{"meta":null,"sourceSpan":{"end":[0,0],"start":[0,0]}},"type":"Var","value":{"identifier":"genericShowArgsArgument","moduleName":["Data","Show","Generic"]}},"annotation":{"meta":{"metaType":"IsSyntheticApp"},"sourceSpan":{"end":[22,21],"start":[22,10]}},"argument":{"annotation":{"meta":null,"sourceSpan":{"end":[0,0],"start":[0,0]}},"type":"Var","value":{"identifier":"showInt","moduleName":["Data","Show"]}},"type":"App"},"type":"App"},"annotation":{"meta":{"metaType":"IsSyntheticApp"},"sourceSpan":{"end":[22,21],"start":[22,10]}},"argument":{"abstraction":{"annotation":{"meta":{"metaType":"IsNewtype"},"sourceSpan":{"end":[0,0],"start":[0,0]}},"type":"Var","value":{"identifier":"IsSymbol$Dict","moduleName":["Data","Symbol"]}},"annotation":{"meta":{"metaType":"IsSyntheticApp"},"sourceSpan":{"end":[22,21],"start":[22,10]}},"argument":{"annotation":{"meta":null,"sourceSpan":{"end":[0,0],"start":[0,0]}},"type":"Literal","value":{"literalType":"ObjectLiteral","value":[["reflectSymbol",{"annotation":{"meta":null,"sourceSpan":{"end":[0,0],"start":[0,0]}},"argument":"$__unused","body":{"annotation":{"meta":null,"sourceSpan":{"end":[0,0],"start":[0,0]}},"type":"Literal","value":{"literalType":"StringLiteral","value":"Banana"}},"type":"Abs"}]]}},"type":"App"},"type":"App"},"type":"App"},"type":"App"}]]}},"type":"App"},"identifier":"showFruit"},{"annotation":{"meta":null,"sourceSpan":{"end":[39,23],"start":[39,1]}},"bindType":"NonRec","expression":{"abstraction":{"abstraction":{"annotation":{"meta":null,"sourceSpan":{"end":[0,0],"start":[0,0]}},"type":"Var","value":{"identifier":"compose","moduleName":["Golden","DirectivePack","Test"]}},"annotation":{"meta":null,"sourceSpan":{"end":[40,45],"start":[40,12]}},"argument":{"annotation":{"meta":null,"sourceSpan":{"end":[0,0],"start":[0,0]}},"type":"Var","value":{"identifier":"identity","moduleName":["Golden","DirectivePack","Test"]}},"type":"App"},"annotation":{"meta":null,"sourceSpan":{"end":[40,45],"start":[40,12]}},"argument":{"abstraction":{"abstraction":{"annotation":{"meta":null,"sourceSpan":{"end":[0,0],"start":[0,0]}},"type":"Var","value":{"identifier":"compose","moduleName":["Golden","DirectivePack","Test"]}},"annotation":{"meta":null,"sourceSpan":{"end":[40,45],"start":[40,12]}},"argument":{"annotation":{"meta":null,"sourceSpan":{"end":[40,32],"start":[40,25]}},"argument":"v","body":{"abstraction":{"abstraction":{"annotation":{"meta":null,"sourceSpan":{"end":[0,0],"start":[0,0]}},"type":"Var","value":{"identifier":"add","moduleName":["Golden","DirectivePack","Test"]}},"annotation":{"meta":null,"sourceSpan":{"end":[40,32],"start":[40,25]}},"argument":{"annotation":{"meta":null,"sourceSpan":{"end":[0,0],"start":[0,0]}},"type":"Var","value":{"identifier":"v","sourcePos":[0,0]}},"type":"App"},"annotation":{"meta":null,"sourceSpan":{"end":[40,32],"start":[40,25]}},"argument":{"annotation":{"meta":null,"sourceSpan":{"end":[40,31],"start":[40,30]}},"type":"Literal","value":{"literalType":"IntLiteral","value":1}},"type":"App"},"type":"Abs"},"type":"App"},"annotation":{"meta":null,"sourceSpan":{"end":[40,45],"start":[40,12]}},"argument":{"annotation":{"meta":null,"sourceSpan":{"end":[0,0],"start":[0,0]}},"type":"Var","value":{"identifier":"identity","moduleName":["Golden","DirectivePack","Test"]}},"type":"App"},"type":"App"},"identifier":"pipeline"},{"annotation":{"meta":null,"sourceSpan":{"end":[24,25],"start":[24,1]}},"bindType":"NonRec","expression":{"annotation":{"meta":null,"sourceSpan":{"end":[24,25],"start":[24,1]}},"argument":"n","body":{"annotation":{"meta":null,"sourceSpan":{"end":[25,58],"start":[25,10]}},"caseAlternatives":[{"binders":[{"annotation":{"meta":null,"sourceSpan":{"end":[25,58],"start":[25,10]}},"binderType":"LiteralBinder","literal":{"literalType":"BooleanLiteral","value":true}}],"expression":{"abstraction":{"annotation":{"meta":{"constructorType":"SumType","identifiers":["value0"],"metaType":"IsConstructor"},"sourceSpan":{"end":[25,37],"start":[25,33]}},"type":"Var","value":{"identifier":"Just","moduleName":["Data","Maybe"]}},"annotation":{"meta":null,"sourceSpan":{"end":[25,45],"start":[25,33]}},"argument":{"abstraction":{"abstraction":{"annotation":{"meta":null,"sourceSpan":{"end":[0,0],"start":[0,0]}},"type":"Var","value":{"identifier":"div","moduleName":["Golden","DirectivePack","Test"]}},"annotation":{"meta":null,"sourceSpan":{"end":[25,44],"start":[25,39]}},"argument":{"annotation":{"meta":null,"sourceSpan":{"end":[25,40],"start":[25,39]}},"type":"Var","value":{"identifier":"n","sourcePos":[25,1]}},"type":"App"},"annotation":{"meta":null,"sourceSpan":{"end":[25,44],"start":[25,39]}},"argument":{"annotation":{"meta":null,"sourceSpan":{"end":[25,44],"start":[25,43]}},"type":"Literal","value":{"literalType":"IntLiteral","value":2}},"type":"App"},"type":"App"},"isGuarded":false},{"binders":[{"annotation":{"meta":null,"sourceSpan":{"end":[25,58],"start":[25,10]}},"binderType":"NullBinder"}],"expression":{"annotation":{"meta":{"constructorType":"SumType","identifiers":[],"metaType":"IsConstructor"},"sourceSpan":{"end":[25,58],"start":[25,51]}},"type":"Var","value":{"identifier":"Nothing","moduleName":["Data","Maybe"]}},"isGuarded":false}],"caseExpressions":[{"abstraction":{"abstraction":{"annotation":{"meta":null,"sourceSpan":{"end":[0,0],"start":[0,0]}},"type":"Var","value":{"identifier":"eq","moduleName":["Golden","DirectivePack","Test"]}},"annotation":{"meta":null,"sourceSpan":{"end":[25,27],"start":[25,13]}},"argument":{"abstraction":{"abstraction":{"annotation":{"meta":null,"sourceSpan":{"end":[0,0],"start":[0,0]}},"type":"Var","value":{"identifier":"mod","moduleName":["Golden","DirectivePack","Test"]}},"annotation":{"meta":null,"sourceSpan":{"end":[25,22],"start":[25,13]}},"argument":{"annotation":{"meta":null,"sourceSpan":{"end":[25,14],"start":[25,13]}},"type":"Var","value":{"identifier":"n","sourcePos":[25,1]}},"type":"App"},"annotation":{"meta":null,"sourceSpan":{"end":[25,22],"start":[25,13]}},"argument":{"annotation":{"meta":null,"sourceSpan":{"end":[25,22],"start":[25,21]}},"type":"Literal","value":{"literalType":"IntLiteral","value":2}},"type":"App"},"type":"App"},"annotation":{"meta":null,"sourceSpan":{"end":[25,27],"start":[25,13]}},"argument":{"annotation":{"meta":null,"sourceSpan":{"end":[25,27],"start":[25,26]}},"type":"Literal","value":{"literalType":"IntLiteral","value":0}},"type":"App"}],"type":"Case"},"type":"Abs"},"identifier":"half"},{"annotation":{"meta":null,"sourceSpan":{"end":[34,33],"start":[34,1]}},"bindType":"NonRec","expression":{"abstraction":{"abstraction":{"abstraction":{"annotation":{"meta":{"metaType":"IsForeign"},"sourceSpan":{"end":[35,35],"start":[35,33]}},"type":"Var","value":{"identifier":"append","moduleName":["Data","Semigroup"]}},"annotation":{"meta":{"metaType":"IsSyntheticApp"},"sourceSpan":{"end":[35,40],"start":[35,17]}},"argument":{"abstraction":{"annotation":{"meta":null,"sourceSpan":{"end":[0,0],"start":[0,0]}},"type":"Var","value":{"identifier":"semigroupFn","moduleName":["Data","Semigroup"]}},"annotation":{"meta":{"metaType":"IsSyntheticApp"},"sourceSpan":{"end":[35,40],"start":[35,17]}},"argument":{"annotation":{"meta":null,"sourceSpan":{"end":[0,0],"start":[0,0]}},"type":"Var","value":{"identifier":"semigroupString","moduleName":["Data","Semigroup"]}},"type":"App"},"type":"App"},"annotation":{"meta":null,"sourceSpan":{"end":[35,40],"start":[35,17]}},"argument":{"abstraction":{"annotation":{"meta":{"metaType":"IsForeign"},"sourceSpan":{"end":[35,22],"start":[35,17]}},"type":"Var","value":{"identifier":"const","moduleName":["Data","Function"]}},"annotation":{"meta":null,"sourceSpan":{"end":[35,32],"start":[35,17]}},"argument":{"annotation":{"meta":null,"sourceSpan":{"end":[35,32],"start":[35,23]}},"type":"Literal","value":{"literalType":"StringLiteral","value":"fruit: "}},"type":"App"},"type":"App"},"annotation":{"meta":null,"sourceSpan":{"end":[35,40],"start":[35,17]}},"argument":{"abstraction":{"annotation":{"meta":{"metaType":"IsForeign"},"sourceSpan":{"end":[35,40],"start":[35,36]}},"type":"Var","value":{"identifier":"show","moduleName":["Data","Show"]}},"annotation":{"meta":{"metaType":"IsSyntheticApp"},"sourceSpan":{"end":[35,40],"start":[35,36]}},"argument":{"annotation":{"meta":null,"sourceSpan":{"end":[0,0],"start":[0,0]}},"type":"Var","value":{"identifier":"showFruit","moduleName":["Golden","DirectivePack","Test"]}},"type":"App"},"type":"App"},"identifier":"describeFruit"},{"annotation":{"meta":null,"sourceSpan":{"end":[42,26],"start":[42,1]}},"bindType":"NonRec","expression":{"annotation":{"meta":null,"sourceSpan":{"end":[42,26],"start":[42,1]}},"argument":"n","body":{"annotation":{"meta":null,"sourceSpan":{"end":[42,26],"start":[42,1]}},"caseAlternatives":[{"binders":[{"annotation":{"meta":null,"sourceSpan":{"end":[43,11],"start":[43,10]}},"binderType":"VarBinder","identifier":"n1"}],"expressions":[{"expression":{"annotation":{"meta":null,"sourceSpan":{"end":[44,23],"start":[44,13]}},"type":"Literal","value":{"literalType":"StringLiteral","value":"negative"}},"guard":{"abstraction":{"abstraction":{"annotation":{"meta":null,"sourceSpan":{"end":[0,0],"start":[0,0]}},"type":"Var","value":{"identifier":"lessThan","moduleName":["Golden","DirectivePack","Test"]}},"annotation":{"meta":null,"sourceSpan":{"end":[44,10],"start":[44,5]}},"argument":{"annotation":{"meta":null,"sourceSpan":{"end":[44,6],"start":[44,5]}},"type":"Var","value":{"identifier":"n1","sourcePos":[43,10]}},"type":"App"},"annotation":{"meta":null,"sourceSpan":{"end":[44,10],"start":[44,5]}},"argument":{"annotation":{"meta":null,"sourceSpan":{"end":[44,10],"start":[44,9]}},"type":"Literal","value":{"literalType":"IntLiteral","value":0}},"type":"App"}},{"expression":{"annotation":{"meta":null,"sourceSpan":{"end":[45,20],"start":[45,14]}},"type":"Literal","value":{"literalType":"StringLiteral","value":"zero"}},"guard":{"abstraction":{"abstraction":{"annotation":{"meta":null,"sourceSpan":{"end":[0,0],"start":[0,0]}},"type":"Var","value":{"identifier":"eq","moduleName":["Golden","DirectivePack","Test"]}},"annotation":{"meta":null,"sourceSpan":{"end":[45,11],"start":[45,5]}},"argument":{"annotation":{"meta":null,"sourceSpan":{"end":[45,6],"start":[45,5]}},"type":"Var","value":{"identifier":"n1","sourcePos":[43,10]}},"type":"App"},"annotation":{"meta":null,"sourceSpan":{"end":[45,11],"start":[45,5]}},"argument":{"annotation":{"meta":null,"sourceSpan":{"end":[45,11],"start":[45,10]}},"type":"Literal","value":{"literalType":"IntLiteral","value":0}},"type":"App"}},{"expression":{"annotation":{"meta":null,"sourceSpan":{"end":[46,27],"start":[46,17]}},"type":"Literal","value":{"literalType":"StringLiteral","value":"positive"}},"guard":{"annotation":{"meta":{"metaType":"IsForeign"},"sourceSpan":{"end":[46,14],"start":[46,5]}},"type":"Var","value":{"identifier":"otherwise","moduleName":["Data","Boolean"]}}}],"isGuarded":true}],"caseExpressions":[{"annotation":{"meta":null,"sourceSpan":{"end":[46,27],"start":[43,1]}},"type":"Var","value":{"identifier":"n","sourcePos":[43,10]}}],"type":"Case"},"type":"Abs"},"identifier":"classify"},{"annotation":{"meta":null,"sourceSpan":{"end":[29,19],"start":[29,1]}},"bindType":"NonRec","expression":{"abstraction":{"abstraction":{"annotation":{"meta":null,"sourceSpan":{"end":[0,0],"start":[0,0]}},"type":"Var","value":{"identifier":"bindFlipped","moduleName":["Golden","DirectivePack","Test"]}},"annotation":{"meta":null,"sourceSpan":{"end":[30,43],"start":[30,9]}},"argument":{"annotation":{"meta":null,"sourceSpan":{"end":[30,13],"start":[30,9]}},"type":"Var","value":{"identifier":"half","moduleName":["Golden","DirectivePack","Test"]}},"type":"App"},"annotation":{"meta":null,"sourceSpan":{"end":[30,43],"start":[30,9]}},"argument":{"abstraction":{"abstraction":{"annotation":{"meta":null,"sourceSpan":{"end":[0,0],"start":[0,0]}},"type":"Var","value":{"identifier":"bindFlipped","moduleName":["Golden","DirectivePack","Test"]}},"annotation":{"meta":null,"sourceSpan":{"end":[30,43],"start":[30,9]}},"argument":{"annotation":{"meta":null,"sourceSpan":{"end":[30,22],"start":[30,18]}},"type":"Var","value":{"identifier":"half","moduleName":["Golden","DirectivePack","Test"]}},"type":"App"},"annotation":{"meta":null,"sourceSpan":{"end":[30,43],"start":[30,9]}},"argument":{"abstraction":{"abstraction":{"annotation":{"meta":null,"sourceSpan":{"end":[0,0],"start":[0,0]}},"type":"Var","value":{"identifier":"bindFlipped","moduleName":["Golden","DirectivePack","Test"]}},"annotation":{"meta":null,"sourceSpan":{"end":[30,43],"start":[30,9]}},"argument":{"annotation":{"meta":null,"sourceSpan":{"end":[30,31],"start":[30,27]}},"type":"Var","value":{"identifier":"half","moduleName":["Golden","DirectivePack","Test"]}},"type":"App"},"annotation":{"meta":null,"sourceSpan":{"end":[30,43],"start":[30,9]}},"argument":{"abstraction":{"annotation":{"meta":{"constructorType":"SumType","identifiers":["value0"],"metaType":"IsConstructor"},"sourceSpan":{"end":[30,40],"start":[30,36]}},"type":"Var","value":{"identifier":"Just","moduleName":["Data","Maybe"]}},"annotation":{"meta":null,"sourceSpan":{"end":[30,43],"start":[30,36]}},"argument":{"annotation":{"meta":null,"sourceSpan":{"end":[30,43],"start":[30,41]}},"type":"Literal","value":{"literalType":"IntLiteral","value":40}},"type":"App"},"type":"App"},"type":"App"},"type":"App"},"identifier":"chain"},{"annotation":{"meta":null,"sourceSpan":{"end":[48,20],"start":[48,1]}},"bindType":"NonRec","expression":{"abstraction":{"abstraction":{"annotation":{"meta":null,"sourceSpan":{"end":[0,0],"start":[0,0]}},"type":"Var","value":{"identifier":"discard","moduleName":["Golden","DirectivePack","Test"]}},"annotation":{"meta":null,"sourceSpan":{"end":[50,19],"start":[50,3]}},"argument":{"abstraction":{"annotation":{"meta":{"metaType":"IsForeign"},"sourceSpan":{"end":[50,6],"start":[50,3]}},"type":"Var","value":{"identifier":"log","moduleName":["Effect","Console"]}},"annotation":{"meta":null,"sourceSpan":{"end":[50,19],"start":[50,3]}},"argument":{"abstraction":{"abstraction":{"annotation":{"meta":{"metaType":"IsForeign"},"sourceSpan":{"end":[50,12],"start":[50,8]}},"type":"Var","value":{"identifier":"show","moduleName":["Data","Show"]}},"annotation":{"meta":{"metaType":"IsSyntheticApp"},"sourceSpan":{"end":[50,18],"start":[50,8]}},"argument":{"abstraction":{"annotation":{"meta":null,"sourceSpan":{"end":[0,0],"start":[0,0]}},"type":"Var","value":{"identifier":"showMaybe","moduleName":["Data","Maybe"]}},"annotation":{"meta":{"metaType":"IsSyntheticApp"},"sourceSpan":{"end":[50,18],"start":[50,8]}},"argument":{"annotation":{"meta":null,"sourceSpan":{"end":[0,0],"start":[0,0]}},"type":"Var","value":{"identifier":"showInt","moduleName":["Data","Show"]}},"type":"App"},"type":"App"},"annotation":{"meta":null,"sourceSpan":{"end":[50,18],"start":[50,8]}},"argument":{"annotation":{"meta":null,"sourceSpan":{"end":[50,18],"start":[50,13]}},"type":"Var","value":{"identifier":"chain","moduleName":["Golden","DirectivePack","Test"]}},"type":"App"},"type":"App"},"type":"App"},"annotation":{"meta":null,"sourceSpan":{"end":[50,19],"start":[50,3]}},"argument":{"annotation":{"meta":null,"sourceSpan":{"end":[50,19],"start":[50,3]}},"argument":"$__unused","body":{"abstraction":{"abstraction":{"annotation":{"meta":null,"sourceSpan":{"end":[0,0],"start":[0,0]}},"type":"Var","value":{"identifier":"discard","moduleName":["Golden","DirectivePack","Test"]}},"annotation":{"meta":null,"sourceSpan":{"end":[51,33],"start":[51,3]}},"argument":{"abstraction":{"annotation":{"meta":{"metaType":"IsForeign"},"sourceSpan":{"end":[51,6],"start":[51,3]}},"type":"Var","value":{"identifier":"log","moduleName":["Effect","Console"]}},"annotation":{"meta":null,"sourceSpan":{"end":[51,33],"start":[51,3]}},"argument":{"abstraction":{"annotation":{"meta":null,"sourceSpan":{"end":[51,21],"start":[51,8]}},"type":"Var","value":{"identifier":"describeFruit","moduleName":["Golden","DirectivePack","Test"]}},"annotation":{"meta":null,"sourceSpan":{"end":[51,32],"start":[51,8]}},"argument":{"abstraction":{"annotation":{"meta":{"constructorType":"SumType","identifiers":["value0"],"metaType":"IsConstructor"},"sourceSpan":{"end":[51,29],"start":[51,23]}},"type":"Var","value":{"identifier":"Banana","moduleName":["Golden","DirectivePack","Test"]}},"annotation":{"meta":null,"sourceSpan":{"end":[51,31],"start":[51,23]}},"argument":{"annotation":{"meta":null,"sourceSpan":{"end":[51,31],"start":[51,30]}},"type":"Literal","value":{"literalType":"IntLiteral","value":3}},"type":"App"},"type":"App"},"type":"App"},"type":"App"},"annotation":{"meta":null,"sourceSpan":{"end":[51,33],"start":[51,3]}},"argument":{"annotation":{"meta":null,"sourceSpan":{"end":[51,33],"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","DirectivePack","Test"]}},"annotation":{"meta":null,"sourceSpan":{"end":[52,27],"start":[52,3]}},"argument":{"abstraction":{"annotation":{"meta":{"metaType":"IsForeign"},"sourceSpan":{"end":[52,6],"start":[52,3]}},"type":"Var","value":{"identifier":"log","moduleName":["Effect","Console"]}},"annotation":{"meta":null,"sourceSpan":{"end":[52,27],"start":[52,3]}},"argument":{"abstraction":{"annotation":{"meta":null,"sourceSpan":{"end":[0,0],"start":[0,0]}},"type":"Var","value":{"identifier":"show","moduleName":["Golden","DirectivePack","Test"]}},"annotation":{"meta":null,"sourceSpan":{"end":[52,26],"start":[52,8]}},"argument":{"abstraction":{"annotation":{"meta":null,"sourceSpan":{"end":[52,22],"start":[52,14]}},"type":"Var","value":{"identifier":"pipeline","moduleName":["Golden","DirectivePack","Test"]}},"annotation":{"meta":null,"sourceSpan":{"end":[52,25],"start":[52,14]}},"argument":{"annotation":{"meta":null,"sourceSpan":{"end":[52,25],"start":[52,23]}},"type":"Literal","value":{"literalType":"IntLiteral","value":41}},"type":"App"},"type":"App"},"type":"App"},"type":"App"},"annotation":{"meta":null,"sourceSpan":{"end":[52,27],"start":[52,3]}},"argument":{"annotation":{"meta":null,"sourceSpan":{"end":[52,27],"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","DirectivePack","Test"]}},"annotation":{"meta":null,"sourceSpan":{"end":[53,19],"start":[53,3]}},"argument":{"abstraction":{"annotation":{"meta":{"metaType":"IsForeign"},"sourceSpan":{"end":[53,6],"start":[53,3]}},"type":"Var","value":{"identifier":"log","moduleName":["Effect","Console"]}},"annotation":{"meta":null,"sourceSpan":{"end":[53,19],"start":[53,3]}},"argument":{"abstraction":{"annotation":{"meta":null,"sourceSpan":{"end":[53,16],"start":[53,8]}},"type":"Var","value":{"identifier":"classify","moduleName":["Golden","DirectivePack","Test"]}},"annotation":{"meta":null,"sourceSpan":{"end":[53,18],"start":[53,8]}},"argument":{"annotation":{"meta":null,"sourceSpan":{"end":[53,18],"start":[53,17]}},"type":"Literal","value":{"literalType":"IntLiteral","value":7}},"type":"App"},"type":"App"},"type":"App"},"annotation":{"meta":null,"sourceSpan":{"end":[53,19],"start":[53,3]}},"argument":{"annotation":{"meta":null,"sourceSpan":{"end":[53,19],"start":[53,3]}},"argument":"$__unused","body":{"abstraction":{"abstraction":{"annotation":{"meta":null,"sourceSpan":{"end":[0,0],"start":[0,0]}},"type":"Var","value":{"identifier":"bind","moduleName":["Golden","DirectivePack","Test"]}},"annotation":{"meta":null,"sourceSpan":{"end":[54,18],"start":[54,3]}},"argument":{"abstraction":{"annotation":{"meta":{"metaType":"IsForeign"},"sourceSpan":{"end":[54,15],"start":[54,8]}},"type":"Var","value":{"identifier":"new","moduleName":["Effect","Ref"]}},"annotation":{"meta":null,"sourceSpan":{"end":[54,18],"start":[54,8]}},"argument":{"annotation":{"meta":null,"sourceSpan":{"end":[54,18],"start":[54,16]}},"type":"Literal","value":{"literalType":"IntLiteral","value":10}},"type":"App"},"type":"App"},"annotation":{"meta":null,"sourceSpan":{"end":[54,18],"start":[54,3]}},"argument":{"annotation":{"meta":null,"sourceSpan":{"end":[54,18],"start":[54,3]}},"argument":"r","body":{"abstraction":{"abstraction":{"annotation":{"meta":null,"sourceSpan":{"end":[0,0],"start":[0,0]}},"type":"Var","value":{"identifier":"discard","moduleName":["Golden","DirectivePack","Test"]}},"annotation":{"meta":null,"sourceSpan":{"end":[55,24],"start":[55,3]}},"argument":{"abstraction":{"abstraction":{"annotation":{"meta":{"metaType":"IsForeign"},"sourceSpan":{"end":[55,14],"start":[55,3]}},"type":"Var","value":{"identifier":"modify_","moduleName":["Effect","Ref"]}},"annotation":{"meta":null,"sourceSpan":{"end":[55,22],"start":[55,3]}},"argument":{"annotation":{"meta":null,"sourceSpan":{"end":[55,22],"start":[55,15]}},"argument":"v","body":{"abstraction":{"abstraction":{"annotation":{"meta":null,"sourceSpan":{"end":[0,0],"start":[0,0]}},"type":"Var","value":{"identifier":"mul","moduleName":["Golden","DirectivePack","Test"]}},"annotation":{"meta":null,"sourceSpan":{"end":[55,22],"start":[55,15]}},"argument":{"annotation":{"meta":null,"sourceSpan":{"end":[0,0],"start":[0,0]}},"type":"Var","value":{"identifier":"v","sourcePos":[0,0]}},"type":"App"},"annotation":{"meta":null,"sourceSpan":{"end":[55,22],"start":[55,15]}},"argument":{"annotation":{"meta":null,"sourceSpan":{"end":[55,21],"start":[55,20]}},"type":"Literal","value":{"literalType":"IntLiteral","value":3}},"type":"App"},"type":"Abs"},"type":"App"},"annotation":{"meta":null,"sourceSpan":{"end":[55,24],"start":[55,3]}},"argument":{"annotation":{"meta":null,"sourceSpan":{"end":[55,24],"start":[55,23]}},"type":"Var","value":{"identifier":"r","sourcePos":[54,3]}},"type":"App"},"type":"App"},"annotation":{"meta":null,"sourceSpan":{"end":[55,24],"start":[55,3]}},"argument":{"annotation":{"meta":null,"sourceSpan":{"end":[55,24],"start":[55,3]}},"argument":"$__unused","body":{"abstraction":{"abstraction":{"annotation":{"meta":null,"sourceSpan":{"end":[0,0],"start":[0,0]}},"type":"Var","value":{"identifier":"bind","moduleName":["Golden","DirectivePack","Test"]}},"annotation":{"meta":null,"sourceSpan":{"end":[56,18],"start":[56,3]}},"argument":{"abstraction":{"annotation":{"meta":{"metaType":"IsForeign"},"sourceSpan":{"end":[56,16],"start":[56,8]}},"type":"Var","value":{"identifier":"read","moduleName":["Effect","Ref"]}},"annotation":{"meta":null,"sourceSpan":{"end":[56,18],"start":[56,8]}},"argument":{"annotation":{"meta":null,"sourceSpan":{"end":[56,18],"start":[56,17]}},"type":"Var","value":{"identifier":"r","sourcePos":[54,3]}},"type":"App"},"type":"App"},"annotation":{"meta":null,"sourceSpan":{"end":[56,18],"start":[56,3]}},"argument":{"annotation":{"meta":null,"sourceSpan":{"end":[56,18],"start":[56,3]}},"argument":"v","body":{"abstraction":{"annotation":{"meta":{"metaType":"IsForeign"},"sourceSpan":{"end":[57,6],"start":[57,3]}},"type":"Var","value":{"identifier":"log","moduleName":["Effect","Console"]}},"annotation":{"meta":null,"sourceSpan":{"end":[57,15],"start":[57,3]}},"argument":{"abstraction":{"annotation":{"meta":null,"sourceSpan":{"end":[0,0],"start":[0,0]}},"type":"Var","value":{"identifier":"show","moduleName":["Golden","DirectivePack","Test"]}},"annotation":{"meta":null,"sourceSpan":{"end":[57,14],"start":[57,8]}},"argument":{"annotation":{"meta":null,"sourceSpan":{"end":[57,14],"start":[57,13]}},"type":"Var","value":{"identifier":"v","sourcePos":[56,3]}},"type":"App"},"type":"App"},"type":"Abs"},"type":"App"},"type":"Abs"},"type":"App"},"type":"Abs"},"type":"App"},"type":"Abs"},"type":"App"},"type":"Abs"},"type":"App"},"type":"Abs"},"type":"App"},"type":"Abs"},"type":"App"},"identifier":"main"}],"exports":["Apple","Banana","half","chain","describeFruit","pipeline","classify","main","genericFruit_","showFruit"],"foreign":[],"imports":[{"annotation":{"meta":null,"sourceSpan":{"end":[57,15],"start":[1,1]}},"moduleName":["Control","Bind"]},{"annotation":{"meta":null,"sourceSpan":{"end":[57,15],"start":[1,1]}},"moduleName":["Control","Category"]},{"annotation":{"meta":null,"sourceSpan":{"end":[57,15],"start":[1,1]}},"moduleName":["Control","Semigroupoid"]},{"annotation":{"meta":null,"sourceSpan":{"end":[57,15],"start":[1,1]}},"moduleName":["Data","Boolean"]},{"annotation":{"meta":null,"sourceSpan":{"end":[57,15],"start":[1,1]}},"moduleName":["Data","Eq"]},{"annotation":{"meta":null,"sourceSpan":{"end":[57,15],"start":[1,1]}},"moduleName":["Data","EuclideanRing"]},{"annotation":{"meta":null,"sourceSpan":{"end":[57,15],"start":[1,1]}},"moduleName":["Data","Function"]},{"annotation":{"meta":null,"sourceSpan":{"end":[57,15],"start":[1,1]}},"moduleName":["Data","Generic","Rep"]},{"annotation":{"meta":null,"sourceSpan":{"end":[57,15],"start":[1,1]}},"moduleName":["Data","Maybe"]},{"annotation":{"meta":null,"sourceSpan":{"end":[57,15],"start":[1,1]}},"moduleName":["Data","Ord"]},{"annotation":{"meta":null,"sourceSpan":{"end":[57,15],"start":[1,1]}},"moduleName":["Data","Semigroup"]},{"annotation":{"meta":null,"sourceSpan":{"end":[57,15],"start":[1,1]}},"moduleName":["Data","Semiring"]},{"annotation":{"meta":null,"sourceSpan":{"end":[57,15],"start":[1,1]}},"moduleName":["Data","Show"]},{"annotation":{"meta":null,"sourceSpan":{"end":[57,15],"start":[1,1]}},"moduleName":["Data","Show","Generic"]},{"annotation":{"meta":null,"sourceSpan":{"end":[57,15],"start":[1,1]}},"moduleName":["Data","Symbol"]},{"annotation":{"meta":null,"sourceSpan":{"end":[57,15],"start":[1,1]}},"moduleName":["Effect"]},{"annotation":{"meta":null,"sourceSpan":{"end":[57,15],"start":[1,1]}},"moduleName":["Effect","Console"]},{"annotation":{"meta":null,"sourceSpan":{"end":[57,15],"start":[1,1]}},"moduleName":["Effect","Ref"]},{"annotation":{"meta":null,"sourceSpan":{"end":[57,15],"start":[1,1]}},"moduleName":["Golden","DirectivePack","Test"]},{"annotation":{"meta":null,"sourceSpan":{"end":[3,15],"start":[3,1]}},"moduleName":["Prelude"]},{"annotation":{"meta":null,"sourceSpan":{"end":[57,15],"start":[1,1]}},"moduleName":["Prim"]}],"moduleName":["Golden","DirectivePack","Test"],"modulePath":"src/Golden/DirectivePack/Test.purs","reExports":{},"sourceSpan":{"end":[57,15],"start":[1,1]}}
\ No newline at end of file
diff --git a/test/ps/output/Golden.DirectivePack.Test/eval/.gitignore b/test/ps/output/Golden.DirectivePack.Test/eval/.gitignore
new file mode 100644
index 00000000..d2dc29bb
--- /dev/null
+++ b/test/ps/output/Golden.DirectivePack.Test/eval/.gitignore
@@ -0,0 +1 @@
+actual.txt
diff --git a/test/ps/output/Golden.DirectivePack.Test/eval/golden.txt b/test/ps/output/Golden.DirectivePack.Test/eval/golden.txt
new file mode 100644
index 00000000..2041f136
--- /dev/null
+++ b/test/ps/output/Golden.DirectivePack.Test/eval/golden.txt
@@ -0,0 +1,5 @@
+(Just 5)
+fruit: (Banana 3)
+42
+positive
+30
diff --git a/test/ps/output/Golden.DirectivePack.Test/golden.ir b/test/ps/output/Golden.DirectivePack.Test/golden.ir
new file mode 100644
index 00000000..93ed9d47
--- /dev/null
+++ b/test/ps/output/Golden.DirectivePack.Test/golden.ir
@@ -0,0 +1,984 @@
+UberModule
+  { uberModuleBindings =
+    [ Standalone
+      ( QName
+        { qnameModuleName = ModuleName "Data.Unit", qnameName = Name "foreign"
+        }, ForeignImport Nothing
+        ( ModuleName "Data.Unit" ) ".spago/p/prelude/5718c84fdde6247749cb053e816df696c30fe691/src/Data/Unit.purs"
+        [ ( Just Never, Name "unit" ) ]
+      ), Standalone
+      ( QName
+        { qnameModuleName = ModuleName "Data.Unit", qnameName = Name "unit"
+        }, ObjectProp ( Just Never )
+        ( Ref Nothing ( Imported ( ModuleName "Data.Unit" ) ( Name "foreign" ) ) )
+        ( PropName "unit" )
+      ), Standalone
+      ( QName
+        { qnameModuleName = ModuleName "Data.Semigroup", qnameName = Name "foreign"
+        }, ForeignImport Nothing
+        ( ModuleName "Data.Semigroup" ) ".spago/p/prelude/5718c84fdde6247749cb053e816df696c30fe691/src/Data/Semigroup.purs"
+        [ ( Nothing, Name "concatArray" ) ]
+      ), 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 "Data.EuclideanRing", qnameName = Name "foreign"
+        }, ForeignImport Nothing
+        ( ModuleName "Data.EuclideanRing" ) ".spago/p/prelude/5718c84fdde6247749cb053e816df696c30fe691/src/Data/EuclideanRing.purs"
+        [ ( Nothing, Name "intDegree" ), ( Nothing, Name "intDiv" ), ( Nothing, Name "intMod" ) ]
+      ), Standalone
+      ( QName
+        { qnameModuleName = ModuleName "Data.EuclideanRing", qnameName = Name "intDiv"
+        }, ObjectProp Nothing
+        ( Ref Nothing ( Imported ( ModuleName "Data.EuclideanRing" ) ( Name "foreign" ) ) )
+        ( PropName "intDiv" )
+      ), Standalone
+      ( QName
+        { qnameModuleName = ModuleName "Data.EuclideanRing", qnameName = Name "intMod"
+        }, ObjectProp Nothing
+        ( Ref Nothing ( Imported ( ModuleName "Data.EuclideanRing" ) ( Name "foreign" ) ) )
+        ( PropName "intMod" )
+      ), Standalone
+      ( QName
+        { qnameModuleName = ModuleName "Data.Show.Generic", qnameName = Name "foreign"
+        }, ForeignImport Nothing
+        ( ModuleName "Data.Show.Generic" ) ".spago/p/prelude/5718c84fdde6247749cb053e816df696c30fe691/src/Data/Show/Generic.purs"
+        [ ( Nothing, Name "intercalate" ) ]
+      ), Standalone
+      ( QName
+        { qnameModuleName = ModuleName "Effect", qnameName = Name "foreign"
+        }, ForeignImport Nothing
+        ( ModuleName "Effect" ) ".spago/p/effect/82bac3dff904fa34534c4f5b9deeb5da359471c8/src/Effect.purs"
+        [ ( Nothing, Name "pureE" ), ( Nothing, Name "bindE" ) ]
+      ), Standalone
+      ( QName
+        { qnameModuleName = ModuleName "Effect.Console", qnameName = Name "foreign"
+        }, ForeignImport Nothing
+        ( ModuleName "Effect.Console" ) ".spago/p/console/f82835a0b873aafe6bd7b14dd30cc150553d4ab9/src/Effect/Console.purs"
+        [ ( Nothing, Name "log" ) ]
+      ), Standalone
+      ( QName
+        { qnameModuleName = ModuleName "Effect.Console", qnameName = Name "log"
+        }, ObjectProp Nothing
+        ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) )
+        ( PropName "log" )
+      ), Standalone
+      ( QName
+        { qnameModuleName = ModuleName "Effect.Ref", qnameName = Name "foreign"
+        }, ForeignImport Nothing
+        ( ModuleName "Effect.Ref" ) ".spago/p/refs/ee6e959ec21b752622e105a14816e7983b21b9a5/src/Effect/Ref.purs"
+        [ ( Nothing, Name "_new" ), ( Nothing, Name "read" ), ( Nothing, Name "modifyImpl" ) ]
+      ), Standalone
+      ( QName
+        { qnameModuleName = ModuleName "Data.Semigroup", qnameName = Name "semigroupString"
+        }, LiteralObject Nothing
+        [
+          ( PropName "append", AbsN Nothing
+            ( ParamNamed Nothing ( Name "s1$299" ) :| [] )
+            ( AbsN Nothing
+              ( ParamNamed Nothing ( Name "s2$300" ) :| [] )
+              ( PrimBinOp Nothing PrimConcat
+                ( Ref Nothing ( Local ( Name "s1$299" ) ) )
+                ( Ref Nothing ( Local ( Name "s2$300" ) ) )
+              )
+            )
+          )
+        ]
+      ), Standalone
+      ( QName
+        { qnameModuleName = ModuleName "Data.Show", qnameName = Name "show" }, AbsN Nothing
+        ( ParamNamed Nothing ( Name "dict" ) :| [] )
+        ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "dict" ) ) ) ( PropName "show" ) )
+      ), Standalone
+      ( QName
+        { qnameModuleName = ModuleName "Data.Maybe", qnameName = Name "Nothing"
+        }, Ctor Nothing SumType
+        ( ModuleName "Data.Maybe" )
+        ( TyName "Maybe" )
+        ( CtorName "Nothing" ) []
+      ), Standalone
+      ( QName
+        { qnameModuleName = ModuleName "Data.Show.Generic", qnameName = Name "genericShowConstructor$w"
+        }, AbsN Nothing
+        ( ParamNamed Nothing
+          ( Name "dictGenericShowArgs" ) :|
+          [ ParamNamed Nothing ( Name "dictIsSymbol" ) ]
+        )
+        ( LiteralObject Nothing
+          [
+            ( PropName "genericShow'", AbsN Nothing
+              ( ParamNamed Nothing ( Name "v" ) :| [] )
+              ( Let Nothing
+                ( Standalone
+                  ( Nothing, Name "ctor", AppN Nothing
+                    ( ObjectProp Nothing
+                      ( Ref Nothing ( Local ( Name "dictIsSymbol" ) ) )
+                      ( PropName "reflectSymbol" )
+                    )
+                    ( Ctor Nothing ProductType
+                      ( ModuleName "Type.Proxy" )
+                      ( TyName "Proxy" )
+                      ( CtorName "Proxy" ) [] :| []
+                    )
+                  ) :| []
+                )
+                ( Let Nothing
+                  ( Standalone
+                    ( Nothing, Name "v1", AppN Nothing
+                      ( ObjectProp Nothing
+                        ( Ref Nothing ( Local ( Name "dictGenericShowArgs" ) ) )
+                        ( PropName "genericShowArgs" )
+                      )
+                      ( Ref Nothing ( Local ( Name "v" ) ) :| [] )
+                    ) :| []
+                  )
+                  ( IfThenElse Nothing
+                    ( Eq Nothing
+                      ( LiteralInt Nothing 0 )
+                      ( ArrayLength Nothing ( Ref Nothing ( Local ( Name "v1" ) ) ) )
+                    )
+                    ( Ref Nothing ( Local ( Name "ctor" ) ) )
+                    ( PrimBinOp Nothing PrimConcat
+                      ( LiteralString Nothing "(" )
+                      ( PrimBinOp Nothing PrimConcat
+                        ( AppN Nothing
+                          ( AppN Nothing
+                            ( ObjectProp Nothing
+                              ( Ref Nothing
+                                ( Imported ( ModuleName "Data.Show.Generic" ) ( Name "foreign" ) )
+                              )
+                              ( PropName "intercalate" )
+                            )
+                            ( LiteralString Nothing " " :| [] )
+                          )
+                          ( AppN Nothing
+                            ( AppN Nothing
+                              ( ObjectProp Nothing
+                                ( Ref Nothing
+                                  ( Imported ( ModuleName "Data.Semigroup" ) ( Name "foreign" ) )
+                                )
+                                ( PropName "concatArray" )
+                              )
+                              ( LiteralArray Nothing
+                                [ Ref Nothing ( Local ( Name "ctor" ) ) ] :| []
+                              )
+                            )
+                            ( Ref Nothing ( Local ( Name "v1" ) ) :| [] ) :| []
+                          )
+                        )
+                        ( LiteralString Nothing ")" )
+                      )
+                    )
+                  )
+                )
+              )
+            )
+          ]
+        )
+      ), RecursiveGroup
+      (
+        ( QName
+          { qnameModuleName = ModuleName "Effect", qnameName = Name "monadEffect"
+          }, LiteralObject Nothing
+          [
+            ( PropName "Applicative0", AbsN Nothing
+              ( ParamUnused Nothing :| [] )
+              ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "applicativeEffect" ) ) )
+            ),
+            ( PropName "Bind1", AbsN Nothing
+              ( ParamUnused Nothing :| [] )
+              ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "bindEffect" ) ) )
+            )
+          ]
+        ) :|
+        [
+          ( QName
+            { qnameModuleName = ModuleName "Effect", qnameName = Name "bindEffect"
+            }, LiteralObject Nothing
+            [
+              ( PropName "bind", ObjectProp Nothing
+                ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "foreign" ) ) )
+                ( PropName "bindE" )
+              ),
+              ( PropName "Apply0", AbsN Nothing
+                ( ParamUnused Nothing :| [] )
+                ( AppN Nothing
+                  ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "Lazy_applyEffect" ) ) )
+                  ( LiteralInt Nothing 0 :| [] )
+                )
+              )
+            ]
+          ),
+          ( QName
+            { qnameModuleName = ModuleName "Effect", qnameName = Name "applicativeEffect"
+            }, LiteralObject Nothing
+            [
+              ( PropName "pure", ObjectProp Nothing
+                ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "foreign" ) ) )
+                ( PropName "pureE" )
+              ),
+              ( PropName "Apply0", AbsN Nothing
+                ( ParamUnused Nothing :| [] )
+                ( AppN Nothing
+                  ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "Lazy_applyEffect" ) ) )
+                  ( LiteralInt Nothing 0 :| [] )
+                )
+              )
+            ]
+          ),
+          ( QName
+            { qnameModuleName = ModuleName "Effect", qnameName = Name "Lazy_functorEffect"
+            }, AppN Nothing
+            ( AppN Nothing
+              ( Ref Nothing ( Local ( Name "PSLUA_runtime_lazy" ) ) )
+              ( LiteralString Nothing "functorEffect" :| [] )
+            )
+            ( AbsN Nothing
+              ( ParamUnused Nothing :| [] )
+              ( LiteralObject Nothing
+                [
+                  ( PropName "map", AbsN Nothing
+                    ( ParamNamed Nothing ( Name "f$448" ) :| [] )
+                    ( AbsN Nothing
+                      ( ParamNamed Nothing ( Name "a$449" ) :| [] )
+                      ( AppN Nothing
+                        ( AppN Nothing
+                          ( ObjectProp Nothing
+                            ( AppN Nothing
+                              ( ObjectProp Nothing
+                                ( Ref Nothing
+                                  ( Imported ( ModuleName "Effect" ) ( Name "applicativeEffect" ) )
+                                )
+                                ( PropName "Apply0" )
+                              )
+                              ( Ref Nothing
+                                ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| []
+                              )
+                            )
+                            ( PropName "apply" )
+                          )
+                          ( AppN Nothing
+                            ( ObjectProp Nothing
+                              ( Ref Nothing
+                                ( Imported ( ModuleName "Effect" ) ( Name "applicativeEffect" ) )
+                              )
+                              ( PropName "pure" )
+                            )
+                            ( Ref Nothing ( Local ( Name "f$448" ) ) :| [] ) :| []
+                          )
+                        )
+                        ( Ref Nothing ( Local ( Name "a$449" ) ) :| [] )
+                      )
+                    )
+                  )
+                ]
+              ) :| []
+            )
+          ),
+          ( QName
+            { qnameModuleName = ModuleName "Effect", qnameName = Name "Lazy_applyEffect"
+            }, AppN Nothing
+            ( AppN Nothing
+              ( Ref Nothing ( Local ( Name "PSLUA_runtime_lazy" ) ) )
+              ( LiteralString Nothing "applyEffect" :| [] )
+            )
+            ( AbsN Nothing
+              ( ParamUnused Nothing :| [] )
+              ( LiteralObject Nothing
+                [
+                  ( PropName "apply", Let Nothing
+                    ( Standalone
+                      ( Nothing, Name "bind$111", ObjectProp Nothing
+                        ( AppN Nothing
+                          ( ObjectProp Nothing
+                            ( Ref Nothing
+                              ( Imported ( ModuleName "Effect" ) ( Name "monadEffect" ) )
+                            )
+                            ( PropName "Bind1" )
+                          )
+                          ( Ref Nothing
+                            ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| []
+                          )
+                        )
+                        ( PropName "bind" )
+                      ) :| []
+                    )
+                    ( AbsN Nothing
+                      ( ParamNamed Nothing ( Name "f$113" ) :| [] )
+                      ( AbsN Nothing
+                        ( ParamNamed Nothing ( Name "a$114" ) :| [] )
+                        ( AppN Nothing
+                          ( AppN Nothing
+                            ( Ref Nothing ( Local ( Name "bind$111" ) ) )
+                            ( Ref Nothing ( Local ( Name "f$113" ) ) :| [] )
+                          )
+                          ( AbsN Nothing
+                            ( ParamNamed Nothing ( Name "f'$115" ) :| [] )
+                            ( AppN Nothing
+                              ( AppN Nothing
+                                ( Ref Nothing ( Local ( Name "bind$111" ) ) )
+                                ( Ref Nothing ( Local ( Name "a$114" ) ) :| [] )
+                              )
+                              ( AbsN Nothing
+                                ( ParamNamed Nothing ( Name "a'$116" ) :| [] )
+                                ( AppN Nothing
+                                  ( ObjectProp Nothing
+                                    ( AppN Nothing
+                                      ( ObjectProp Nothing
+                                        ( Ref Nothing
+                                          ( Imported
+                                            ( ModuleName "Effect" )
+                                            ( Name "monadEffect" )
+                                          )
+                                        )
+                                        ( PropName "Applicative0" )
+                                      )
+                                      ( Ref Nothing
+                                        ( Imported
+                                          ( ModuleName "Prim" )
+                                          ( Name "undefined" )
+                                        ) :| []
+                                      )
+                                    )
+                                    ( PropName "pure" )
+                                  )
+                                  ( AppN Nothing
+                                    ( Ref Nothing ( Local ( Name "f'$115" ) ) )
+                                    ( Ref Nothing ( Local ( Name "a'$116" ) ) :| [] ) :| []
+                                  )
+                                ) :| []
+                              )
+                            ) :| []
+                          )
+                        )
+                      )
+                    )
+                  ),
+                  ( PropName "Functor0", AbsN Nothing
+                    ( ParamUnused Nothing :| [] )
+                    ( AppN Nothing
+                      ( Ref Nothing
+                        ( Imported ( ModuleName "Effect" ) ( Name "Lazy_functorEffect" ) )
+                      )
+                      ( LiteralInt Nothing 0 :| [] )
+                    )
+                  )
+                ]
+              ) :| []
+            )
+          ),
+          ( QName
+            { qnameModuleName = ModuleName "Effect", qnameName = Name "functorEffect"
+            }, AppN Nothing
+            ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "Lazy_functorEffect" ) ) )
+            ( LiteralInt Nothing 0 :| [] )
+          )
+        ]
+      ), Standalone
+      ( QName
+        { qnameModuleName = ModuleName "Golden.DirectivePack.Test", qnameName = Name "show"
+        }, Ref Nothing
+        ( Imported ( ModuleName "Data.Show" ) ( Name "showIntImpl" ) )
+      ), Standalone
+      ( QName
+        { qnameModuleName = ModuleName "Golden.DirectivePack.Test", qnameName = Name "Apple"
+        }, Ctor Nothing SumType
+        ( ModuleName "Golden.DirectivePack.Test" )
+        ( TyName "Fruit" )
+        ( CtorName "Apple" ) []
+      ), Standalone
+      ( QName
+        { qnameModuleName = ModuleName "Golden.DirectivePack.Test", qnameName = Name "Banana"
+        }, AbsN Nothing
+        ( ParamNamed Nothing ( Name "value0" ) :| [] )
+        ( Ctor Nothing SumType
+          ( ModuleName "Golden.DirectivePack.Test" )
+          ( TyName "Fruit" )
+          ( CtorName "Banana" )
+          [ Ref Nothing ( Local ( Name "value0" ) ) ]
+        )
+      ), Standalone
+      ( QName
+        { qnameModuleName = ModuleName "Golden.DirectivePack.Test", qnameName = Name "genericFruit_"
+        }, LiteralObject Nothing
+        [
+          ( PropName "to", AbsN Nothing
+            ( ParamNamed Nothing ( Name "x" ) :| [] )
+            ( IfThenElse Nothing
+              ( Eq Nothing
+                ( LiteralString Nothing "Data.Generic.Rep∷Sum.Inl" )
+                ( ReflectCtor Nothing ( Ref Nothing ( Local ( Name "x" ) ) ) )
+              )
+              ( Ref Nothing
+                ( Imported ( ModuleName "Golden.DirectivePack.Test" ) ( Name "Apple" ) )
+              )
+              ( Ctor Nothing SumType
+                ( ModuleName "Golden.DirectivePack.Test" )
+                ( TyName "Fruit" )
+                ( CtorName "Banana" )
+                [ DataArgumentByIndex Nothing SumType 0 ( Ref Nothing ( Local ( Name "x" ) ) ) ]
+              )
+            )
+          ),
+          ( PropName "from", AbsN Nothing
+            ( ParamNamed Nothing ( Name "x0" ) :| [] )
+            ( IfThenElse Nothing
+              ( Eq Nothing
+                ( LiteralString Nothing "Golden.DirectivePack.Test∷Fruit.Apple" )
+                ( ReflectCtor Nothing ( Ref Nothing ( Local ( Name "x0" ) ) ) )
+              )
+              ( Ctor Nothing SumType
+                ( ModuleName "Data.Generic.Rep" )
+                ( TyName "Sum" )
+                ( CtorName "Inl" )
+                [ Ctor Nothing ProductType
+                  ( ModuleName "Data.Generic.Rep" )
+                  ( TyName "NoArguments" )
+                  ( CtorName "NoArguments" ) []
+                ]
+              )
+              ( Ctor Nothing SumType
+                ( ModuleName "Data.Generic.Rep" )
+                ( TyName "Sum" )
+                ( CtorName "Inr" )
+                [ DataArgumentByIndex Nothing SumType 0 ( Ref Nothing ( Local ( Name "x0" ) ) ) ]
+              )
+            )
+          )
+        ]
+      ), Standalone
+      ( QName
+        { qnameModuleName = ModuleName "Golden.DirectivePack.Test", qnameName = Name "showFruit"
+        }, LiteralObject Nothing
+        [
+          ( PropName "show", AbsN Nothing
+            ( ParamNamed Nothing ( Name "x$437" ) :| [] )
+            ( Let Nothing
+              ( Standalone
+                ( Nothing, Name "v$7", IfThenElse Nothing
+                  ( Eq Nothing
+                    ( LiteralString Nothing "Golden.DirectivePack.Test∷Fruit.Apple" )
+                    ( ReflectCtor Nothing ( Ref Nothing ( Local ( Name "x$437" ) ) ) )
+                  )
+                  ( Ctor Nothing SumType
+                    ( ModuleName "Data.Generic.Rep" )
+                    ( TyName "Sum" )
+                    ( CtorName "Inl" )
+                    [ Ctor Nothing ProductType
+                      ( ModuleName "Data.Generic.Rep" )
+                      ( TyName "NoArguments" )
+                      ( CtorName "NoArguments" ) []
+                    ]
+                  )
+                  ( Ctor Nothing SumType
+                    ( ModuleName "Data.Generic.Rep" )
+                    ( TyName "Sum" )
+                    ( CtorName "Inr" )
+                    [ DataArgumentByIndex Nothing SumType 0
+                      ( Ref Nothing ( Local ( Name "x$437" ) ) )
+                    ]
+                  )
+                ) :| []
+              )
+              ( IfThenElse Nothing
+                ( Eq Nothing
+                  ( LiteralString Nothing "Data.Generic.Rep∷Sum.Inl" )
+                  ( ReflectCtor Nothing ( Ref Nothing ( Local ( Name "v$7" ) ) ) )
+                )
+                ( AppN Nothing
+                  ( ObjectProp Nothing
+                    ( AppN Nothing
+                      ( Ref Nothing
+                        ( Imported
+                          ( ModuleName "Data.Show.Generic" )
+                          ( Name "genericShowConstructor$w" )
+                        )
+                      )
+                      ( LiteralObject Nothing
+                        [
+                          ( PropName "genericShowArgs", AbsN Nothing
+                            ( ParamUnused Nothing :| [] )
+                            ( LiteralArray Nothing [] )
+                          )
+                        ] :|
+                        [ LiteralObject Nothing
+                          [
+                            ( PropName "reflectSymbol", AbsN Nothing
+                              ( ParamUnused Nothing :| [] )
+                              ( LiteralString Nothing "Apple" )
+                            )
+                          ]
+                        ]
+                      )
+                    )
+                    ( PropName "genericShow'" )
+                  )
+                  ( DataArgumentByIndex Nothing SumType 0
+                    ( Ref Nothing ( Local ( Name "v$7" ) ) ) :| []
+                  )
+                )
+                ( AppN Nothing
+                  ( ObjectProp Nothing
+                    ( AppN Nothing
+                      ( Ref Nothing
+                        ( Imported
+                          ( ModuleName "Data.Show.Generic" )
+                          ( Name "genericShowConstructor$w" )
+                        )
+                      )
+                      ( LiteralObject Nothing
+                        [
+                          ( PropName "genericShowArgs", AbsN Nothing
+                            ( ParamNamed Nothing ( Name "v$12" ) :| [] )
+                            ( LiteralArray Nothing
+                              [ AppN Nothing
+                                ( Ref Nothing
+                                  ( Imported ( ModuleName "Data.Show" ) ( Name "showIntImpl" ) )
+                                )
+                                ( Ref Nothing ( Local ( Name "v$12" ) ) :| [] )
+                              ]
+                            )
+                          )
+                        ] :|
+                        [ LiteralObject Nothing
+                          [
+                            ( PropName "reflectSymbol", AbsN Nothing
+                              ( ParamUnused Nothing :| [] )
+                              ( LiteralString Nothing "Banana" )
+                            )
+                          ]
+                        ]
+                      )
+                    )
+                    ( PropName "genericShow'" )
+                  )
+                  ( DataArgumentByIndex Nothing SumType 0
+                    ( Ref Nothing ( Local ( Name "v$7" ) ) ) :| []
+                  )
+                )
+              )
+            )
+          )
+        ]
+      ), Standalone
+      ( QName
+        { qnameModuleName = ModuleName "Golden.DirectivePack.Test", qnameName = Name "pipeline"
+        }, AbsN Nothing
+        ( ParamNamed Nothing ( Name "x$431" ) :| [] )
+        ( PrimBinOp Nothing PrimAdd
+          ( Ref Nothing ( Local ( Name "x$431" ) ) )
+          ( LiteralInt Nothing 1 )
+        )
+      ), Standalone
+      ( QName
+        { qnameModuleName = ModuleName "Golden.DirectivePack.Test", qnameName = Name "half"
+        }, AbsN Nothing
+        ( ParamNamed Nothing ( Name "n" ) :| [] )
+        ( IfThenElse Nothing
+          ( Eq Nothing
+            ( AppN Nothing
+              ( AppN Nothing
+                ( Ref Nothing ( Imported ( ModuleName "Data.EuclideanRing" ) ( Name "intMod" ) ) )
+                ( Ref Nothing ( Local ( Name "n" ) ) :| [] )
+              )
+              ( LiteralInt Nothing 2 :| [] )
+            )
+            ( LiteralInt Nothing 0 )
+          )
+          ( Ctor Nothing SumType
+            ( ModuleName "Data.Maybe" )
+            ( TyName "Maybe" )
+            ( CtorName "Just" )
+            [ AppN Nothing
+              ( AppN Nothing
+                ( Ref Nothing ( Imported ( ModuleName "Data.EuclideanRing" ) ( Name "intDiv" ) ) )
+                ( Ref Nothing ( Local ( Name "n" ) ) :| [] )
+              )
+              ( LiteralInt Nothing 2 :| [] )
+            ]
+          )
+          ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Nothing" ) ) )
+        )
+      ), Standalone
+      ( QName
+        { qnameModuleName = ModuleName "Golden.DirectivePack.Test", qnameName = Name "describeFruit"
+        }, AbsN Nothing
+        ( ParamNamed Nothing ( Name "x$338" ) :| [] )
+        ( AppN Nothing
+          ( AppN Nothing
+            ( ObjectProp Nothing
+              ( Ref Nothing
+                ( Imported ( ModuleName "Data.Semigroup" ) ( Name "semigroupString" ) )
+              )
+              ( PropName "append" )
+            )
+            ( LiteralString Nothing "fruit: " :| [] )
+          )
+          ( AppN Nothing
+            ( AppN Nothing
+              ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "show" ) ) )
+              ( Ref Nothing
+                ( Imported ( ModuleName "Golden.DirectivePack.Test" ) ( Name "showFruit" ) ) :| []
+              )
+            )
+            ( Ref Nothing ( Local ( Name "x$338" ) ) :| [] ) :| []
+          )
+        )
+      ), Standalone
+      ( QName
+        { qnameModuleName = ModuleName "Golden.DirectivePack.Test", qnameName = Name "classify"
+        }, AbsN Nothing
+        ( ParamNamed Nothing ( Name "n" ) :| [] )
+        ( IfThenElse Nothing
+          ( PrimBinOp Nothing PrimLt
+            ( Ref Nothing ( Local ( Name "n" ) ) )
+            ( LiteralInt Nothing 0 )
+          )
+          ( LiteralString Nothing "negative" )
+          ( IfThenElse Nothing
+            ( Eq Nothing ( Ref Nothing ( Local ( Name "n" ) ) ) ( LiteralInt Nothing 0 ) )
+            ( LiteralString Nothing "zero" )
+            ( LiteralString Nothing "positive" )
+          )
+        )
+      ), Standalone
+      ( QName
+        { qnameModuleName = ModuleName "Golden.DirectivePack.Test", qnameName = Name "chain"
+        }, Let Nothing
+        ( Standalone
+          ( Nothing, Name "a$365", Let Nothing
+            ( Standalone
+              ( Nothing, Name "a$377", IfThenElse Nothing
+                ( Eq Nothing
+                  ( AppN Nothing
+                    ( AppN Nothing
+                      ( Ref Nothing
+                        ( Imported ( ModuleName "Data.EuclideanRing" ) ( Name "intMod" ) )
+                      )
+                      ( LiteralInt Nothing 40 :| [] )
+                    )
+                    ( LiteralInt Nothing 2 :| [] )
+                  )
+                  ( LiteralInt Nothing 0 )
+                )
+                ( Ctor Nothing SumType
+                  ( ModuleName "Data.Maybe" )
+                  ( TyName "Maybe" )
+                  ( CtorName "Just" )
+                  [ AppN Nothing
+                    ( AppN Nothing
+                      ( Ref Nothing
+                        ( Imported ( ModuleName "Data.EuclideanRing" ) ( Name "intDiv" ) )
+                      )
+                      ( LiteralInt Nothing 40 :| [] )
+                    )
+                    ( LiteralInt Nothing 2 :| [] )
+                  ]
+                )
+                ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Nothing" ) ) )
+              ) :| []
+            )
+            ( IfThenElse Nothing
+              ( Eq Nothing
+                ( LiteralString Nothing "Data.Maybe∷Maybe.Just" )
+                ( ReflectCtor Nothing ( Ref Nothing ( Local ( Name "a$377" ) ) ) )
+              )
+              ( IfThenElse Nothing
+                ( Eq Nothing
+                  ( AppN Nothing
+                    ( AppN Nothing
+                      ( Ref Nothing
+                        ( Imported ( ModuleName "Data.EuclideanRing" ) ( Name "intMod" ) )
+                      )
+                      ( DataArgumentByIndex Nothing SumType 0
+                        ( Ref Nothing ( Local ( Name "a$377" ) ) ) :| []
+                      )
+                    )
+                    ( LiteralInt Nothing 2 :| [] )
+                  )
+                  ( LiteralInt Nothing 0 )
+                )
+                ( Ctor Nothing SumType
+                  ( ModuleName "Data.Maybe" )
+                  ( TyName "Maybe" )
+                  ( CtorName "Just" )
+                  [ AppN Nothing
+                    ( AppN Nothing
+                      ( Ref Nothing
+                        ( Imported ( ModuleName "Data.EuclideanRing" ) ( Name "intDiv" ) )
+                      )
+                      ( DataArgumentByIndex Nothing SumType 0
+                        ( Ref Nothing ( Local ( Name "a$377" ) ) ) :| []
+                      )
+                    )
+                    ( LiteralInt Nothing 2 :| [] )
+                  ]
+                )
+                ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Nothing" ) ) )
+              )
+              ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Nothing" ) ) )
+            )
+          ) :| []
+        )
+        ( IfThenElse Nothing
+          ( Eq Nothing
+            ( LiteralString Nothing "Data.Maybe∷Maybe.Just" )
+            ( ReflectCtor Nothing ( Ref Nothing ( Local ( Name "a$365" ) ) ) )
+          )
+          ( IfThenElse Nothing
+            ( Eq Nothing
+              ( AppN Nothing
+                ( AppN Nothing
+                  ( Ref Nothing
+                    ( Imported ( ModuleName "Data.EuclideanRing" ) ( Name "intMod" ) )
+                  )
+                  ( DataArgumentByIndex Nothing SumType 0
+                    ( Ref Nothing ( Local ( Name "a$365" ) ) ) :| []
+                  )
+                )
+                ( LiteralInt Nothing 2 :| [] )
+              )
+              ( LiteralInt Nothing 0 )
+            )
+            ( Ctor Nothing SumType
+              ( ModuleName "Data.Maybe" )
+              ( TyName "Maybe" )
+              ( CtorName "Just" )
+              [ AppN Nothing
+                ( AppN Nothing
+                  ( Ref Nothing
+                    ( Imported ( ModuleName "Data.EuclideanRing" ) ( Name "intDiv" ) )
+                  )
+                  ( DataArgumentByIndex Nothing SumType 0
+                    ( Ref Nothing ( Local ( Name "a$365" ) ) ) :| []
+                  )
+                )
+                ( LiteralInt Nothing 2 :| [] )
+              ]
+            )
+            ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Nothing" ) ) )
+          )
+          ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Nothing" ) ) )
+        )
+      )
+    ], uberModuleForeigns = [], uberModuleExports =
+    [
+      ( Name "Apple", Ref Nothing
+        ( Imported ( ModuleName "Golden.DirectivePack.Test" ) ( Name "Apple" ) )
+      ),
+      ( Name "Banana", Ref Nothing
+        ( Imported ( ModuleName "Golden.DirectivePack.Test" ) ( Name "Banana" ) )
+      ),
+      ( Name "half", Ref Nothing
+        ( Imported ( ModuleName "Golden.DirectivePack.Test" ) ( Name "half" ) )
+      ),
+      ( Name "chain", Ref Nothing
+        ( Imported ( ModuleName "Golden.DirectivePack.Test" ) ( Name "chain" ) )
+      ),
+      ( Name "describeFruit", Ref Nothing
+        ( Imported ( ModuleName "Golden.DirectivePack.Test" ) ( Name "describeFruit" ) )
+      ),
+      ( Name "pipeline", Ref Nothing
+        ( Imported ( ModuleName "Golden.DirectivePack.Test" ) ( Name "pipeline" ) )
+      ),
+      ( Name "classify", Ref Nothing
+        ( Imported ( ModuleName "Golden.DirectivePack.Test" ) ( Name "classify" ) )
+      ),
+      ( Name "main", AbsN Nothing
+        ( ParamUnused Nothing :| [] )
+        ( Let Nothing
+          ( Standalone
+            ( Nothing, Name "_", AppN Nothing
+              ( AppN Nothing
+                ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) )
+                ( IfThenElse Nothing
+                  ( Eq Nothing
+                    ( LiteralString Nothing "Data.Maybe∷Maybe.Just" )
+                    ( ReflectCtor Nothing
+                      ( Ref Nothing
+                        ( Imported ( ModuleName "Golden.DirectivePack.Test" ) ( Name "chain" ) )
+                      )
+                    )
+                  )
+                  ( PrimBinOp Nothing PrimConcat
+                    ( LiteralString Nothing "(Just " )
+                    ( PrimBinOp Nothing PrimConcat
+                      ( AppN Nothing
+                        ( Ref Nothing
+                          ( Imported ( ModuleName "Data.Show" ) ( Name "showIntImpl" ) )
+                        )
+                        ( DataArgumentByIndex Nothing SumType 0
+                          ( Ref Nothing
+                            ( Imported ( ModuleName "Golden.DirectivePack.Test" ) ( Name "chain" ) )
+                          ) :| []
+                        )
+                      )
+                      ( LiteralString Nothing ")" )
+                    )
+                  )
+                  ( LiteralString Nothing "Nothing" ) :| []
+                )
+              )
+              ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] )
+            ) :|
+            [ Standalone
+              ( Nothing, Name "_", AppN Nothing
+                ( AppN Nothing
+                  ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) )
+                  ( PrimBinOp Nothing PrimConcat
+                    ( LiteralString Nothing "fruit: " )
+                    ( AppN Nothing
+                      ( ObjectProp Nothing
+                        ( AppN Nothing
+                          ( Ref Nothing
+                            ( Imported
+                              ( ModuleName "Data.Show.Generic" )
+                              ( Name "genericShowConstructor$w" )
+                            )
+                          )
+                          ( LiteralObject Nothing
+                            [
+                              ( PropName "genericShowArgs", AbsN Nothing
+                                ( ParamNamed Nothing ( Name "v$519" ) :| [] )
+                                ( LiteralArray Nothing
+                                  [ AppN Nothing
+                                    ( Ref Nothing
+                                      ( Imported ( ModuleName "Data.Show" ) ( Name "showIntImpl" ) )
+                                    )
+                                    ( Ref Nothing ( Local ( Name "v$519" ) ) :| [] )
+                                  ]
+                                )
+                              )
+                            ] :|
+                            [ LiteralObject Nothing
+                              [
+                                ( PropName "reflectSymbol", AbsN Nothing
+                                  ( ParamUnused Nothing :| [] )
+                                  ( LiteralString Nothing "Banana" )
+                                )
+                              ]
+                            ]
+                          )
+                        )
+                        ( PropName "genericShow'" )
+                      )
+                      ( LiteralInt Nothing 3 :| [] )
+                    ) :| []
+                  )
+                )
+                ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] )
+              ), Standalone
+              ( Nothing, Name "_", AppN Nothing
+                ( AppN Nothing
+                  ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) )
+                  ( AppN Nothing
+                    ( Ref Nothing
+                      ( Imported ( ModuleName "Golden.DirectivePack.Test" ) ( Name "show" ) )
+                    )
+                    ( LiteralInt Nothing 42 :| [] ) :| []
+                  )
+                )
+                ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] )
+              ), Standalone
+              ( Nothing, Name "_", AppN Nothing
+                ( AppN Nothing
+                  ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) )
+                  ( LiteralString Nothing "positive" :| [] )
+                )
+                ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] )
+              ), Standalone
+              ( Nothing, Name "r$0", AppN Nothing
+                ( AppN Nothing
+                  ( ObjectProp Nothing
+                    ( Ref Nothing ( Imported ( ModuleName "Effect.Ref" ) ( Name "foreign" ) ) )
+                    ( PropName "_new" )
+                  )
+                  ( LiteralInt Nothing 10 :| [] )
+                )
+                ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] )
+              ), Standalone
+              ( Nothing, Name "_", AppN Nothing
+                ( AppN Nothing
+                  ( AppN Nothing
+                    ( ObjectProp Nothing
+                      ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "functorEffect" ) ) )
+                      ( PropName "map" )
+                    )
+                    ( AbsN Nothing
+                      ( ParamUnused Nothing :| [] )
+                      ( Ref Nothing ( Imported ( ModuleName "Data.Unit" ) ( Name "unit" ) ) ) :| []
+                    )
+                  )
+                  ( AppN Nothing
+                    ( AppN Nothing
+                      ( ObjectProp Nothing
+                        ( Ref Nothing ( Imported ( ModuleName "Effect.Ref" ) ( Name "foreign" ) ) )
+                        ( PropName "modifyImpl" )
+                      )
+                      ( AbsN Nothing
+                        ( ParamNamed Nothing ( Name "s$499" ) :| [] )
+                        ( Let Nothing
+                          ( Standalone
+                            ( Nothing, Name "s'$500", PrimBinOp Nothing PrimMul
+                              ( Ref Nothing ( Local ( Name "s$499" ) ) )
+                              ( LiteralInt Nothing 3 )
+                            ) :| []
+                          )
+                          ( LiteralObject Nothing
+                            [
+                              ( PropName "state", Ref Nothing ( Local ( Name "s'$500" ) ) ),
+                              ( PropName "value", Ref Nothing ( Local ( Name "s'$500" ) ) )
+                            ]
+                          )
+                        ) :| []
+                      )
+                    )
+                    ( Ref Nothing ( Local ( Name "r$0" ) ) :| [] ) :| []
+                  )
+                )
+                ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] )
+              ), Standalone
+              ( Nothing, Name "v0$2", AppN Nothing
+                ( AppN Nothing
+                  ( ObjectProp Nothing
+                    ( Ref Nothing ( Imported ( ModuleName "Effect.Ref" ) ( Name "foreign" ) ) )
+                    ( PropName "read" )
+                  )
+                  ( Ref Nothing ( Local ( Name "r$0" ) ) :| [] )
+                )
+                ( 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 "Golden.DirectivePack.Test" ) ( Name "show" ) )
+                )
+                ( Ref Nothing ( Local ( Name "v0$2" ) ) :| [] ) :| []
+              )
+            )
+            ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] )
+          )
+        )
+      ),
+      ( Name "genericFruit_", Ref Nothing
+        ( Imported ( ModuleName "Golden.DirectivePack.Test" ) ( Name "genericFruit_" ) )
+      ),
+      ( Name "showFruit", Ref Nothing
+        ( Imported ( ModuleName "Golden.DirectivePack.Test" ) ( Name "showFruit" ) )
+      )
+    ]
+  }
\ No newline at end of file
diff --git a/test/ps/output/Golden.DirectivePack.Test/golden.lua b/test/ps/output/Golden.DirectivePack.Test/golden.lua
new file mode 100644
index 00000000..2c78d619
--- /dev/null
+++ b/test/ps/output/Golden.DirectivePack.Test/golden.lua
@@ -0,0 +1,278 @@
+local function PSLUA_runtime_lazy(name)
+  return function(init)
+    local state = 0
+    local val = nil
+    return function()
+      if state == 2 then
+        return val
+      elseif state == 1 then
+        return error(name .. " was needed before it finished initializing")
+      else
+        state = 1
+        val = init()
+        state = 2
+        return val
+      end
+    end
+  end
+end
+local M = {}
+local Data_Unit_foreign = { unit = {} }
+local Data_Unit_unit = Data_Unit_foreign.unit
+local Data_Semigroup_foreign = {
+  concatArray = function(xs)
+    return function(ys)
+      if #(xs) == 0 then return ys end
+      if #(ys) == 0 then return xs end
+      local result = {}
+      for index, value in ipairs(xs) do result[index] = value end
+      local offset = #(result)
+      for index, value in ipairs(ys) do result[index + offset] = value end
+      return result
+    end
+  end
+}
+local Data_Show_foreign = { showIntImpl = function(n) return tostring(n) end }
+local Data_Show_showIntImpl = Data_Show_foreign.showIntImpl
+local Data_EuclideanRing_foreign = {
+  -- math.maxinteger is Lua 5.3+; PureScript Int is 32-bit, hence the
+  -- literal bound in intDegree.
+  intDegree = function(x) return math.min(math.abs(x), 2147483647) end,
+  intDiv = function(x)
+    return function(y)
+      if y == 0 then return 0 end
+      return y > 0 and math.floor(x / y) or -(math.floor(x / -(y)))
+    end
+  end,
+  intMod = function(x)
+    return function(y)
+      if y == 0 then return 0 end
+      local yy = math.abs(y)
+      return (x % yy + yy) % yy
+    end
+  end
+}
+local Data_EuclideanRing_intDiv = Data_EuclideanRing_foreign.intDiv
+local Data_EuclideanRing_intMod = Data_EuclideanRing_foreign.intMod
+local Data_Show_Generic_foreign = {
+  intercalate = function(sep)
+    return function(xs) return table.concat(xs, sep) end
+  end
+}
+local Effect_foreign = {
+  pureE = function(a) return function() return a end end,
+  bindE = function(a)
+    return function(f) return function() return f(a())() end end
+  end
+}
+local Effect_Console_foreign = {
+  log = function(s) return function() print(s) end end
+}
+local Effect_Console_log = Effect_Console_foreign.log
+local Effect_Ref_foreign = {
+  _new = function(val) return function() return { value = val } end end,
+  read = function(ref) return function() return ref.value end end,
+  modifyImpl = function(f)
+    return function(ref)
+      return function()
+        local t = f(ref.value)
+        ref.value = t.state
+        return t.value
+      end
+    end
+  end
+}
+local Data_Semigroup_semigroupString = {
+  append = function(s1_S_0)
+    return function(s2_S_0) return s1_S_0 .. s2_S_0 end
+  end
+}
+local Data_Show_show = function(dict) return dict.show end
+local Data_Maybe_Nothing = { "Data.Maybe∷Maybe.Nothing" }
+local Data_Show_Generic_genericShowConstructor_S_w = function( dictGenericShowArgs
+, dictIsSymbol )
+  return {
+    genericShowPrime = function(v)
+      local ctor = dictIsSymbol.reflectSymbol({})
+      local v1 = dictGenericShowArgs.genericShowArgs(v)
+      if 0 == #(v1) then
+        return ctor
+      else
+        return "(" .. Data_Show_Generic_foreign.intercalate(" ")(Data_Semigroup_foreign.concatArray({
+          [1] = ctor
+        })(v1)) .. ")"
+      end
+    end
+  }
+end
+local Effect_bindEffect
+local Effect_applicativeEffect
+local Effect_monadEffect = {
+  Applicative0 = function() return Effect_applicativeEffect end,
+  Bind1 = function() return Effect_bindEffect end
+}
+local Effect_Lazy_applyEffect
+Effect_bindEffect = {
+  bind = Effect_foreign.bindE,
+  Apply0 = function() return Effect_Lazy_applyEffect(0) end
+}
+Effect_applicativeEffect = {
+  pure = Effect_foreign.pureE,
+  Apply0 = function() return Effect_Lazy_applyEffect(0) end
+}
+local Effect_Lazy_functorEffect = PSLUA_runtime_lazy("functorEffect")(function()
+  return {
+    map = function(f_S_0)
+      return function(a_S_0)
+        return (Effect_applicativeEffect.Apply0()).apply(Effect_applicativeEffect.pure(f_S_0))(a_S_0)
+      end
+    end
+  }
+end)
+Effect_Lazy_applyEffect = PSLUA_runtime_lazy("applyEffect")(function()
+  return {
+    apply = (function()
+      local bind_S_0 = (Effect_monadEffect.Bind1()).bind
+      return function(f_S_1)
+        return function(a_S_1)
+          return bind_S_0(f_S_1)(function(fPrime_S_0)
+            return bind_S_0(a_S_1)(function(aPrime_S_0)
+              return (Effect_monadEffect.Applicative0()).pure(fPrime_S_0(aPrime_S_0))
+            end)
+          end)
+        end
+      end
+    end)(),
+    Functor0 = function() return Effect_Lazy_functorEffect(0) end
+  }
+end)
+local Effect_functorEffect = Effect_Lazy_functorEffect(0)
+local Golden_DirectivePack_Test_show = Data_Show_showIntImpl
+local Golden_DirectivePack_Test_Apple = {
+  "Golden.DirectivePack.Test∷Fruit.Apple"
+}
+M.Golden_DirectivePack_Test_Banana = function(value0)
+  return { "Golden.DirectivePack.Test∷Fruit.Banana", value0 }
+end
+M.Golden_DirectivePack_Test_genericFruit_ = {
+  to = function(x)
+    if "Data.Generic.Rep∷Sum.Inl" == x[1] then
+      return Golden_DirectivePack_Test_Apple
+    else
+      return { "Golden.DirectivePack.Test∷Fruit.Banana", x[2] }
+    end
+  end,
+  from = function(x0)
+    if "Golden.DirectivePack.Test∷Fruit.Apple" == x0[1] then
+      return { "Data.Generic.Rep∷Sum.Inl", {} }
+    else
+      return { "Data.Generic.Rep∷Sum.Inr", x0[2] }
+    end
+  end
+}
+local Golden_DirectivePack_Test_showFruit = {
+  show = function(x_S_0)
+    local v_S_0 = (function()
+      if "Golden.DirectivePack.Test∷Fruit.Apple" == x_S_0[1] then
+        return { "Data.Generic.Rep∷Sum.Inl", {} }
+      else
+        return { "Data.Generic.Rep∷Sum.Inr", x_S_0[2] }
+      end
+    end)()
+    if "Data.Generic.Rep∷Sum.Inl" == v_S_0[1] then
+      return (Data_Show_Generic_genericShowConstructor_S_w({
+        genericShowArgs = function() return {} end
+      }, {
+        reflectSymbol = function() return "Apple" end
+      })).genericShowPrime(v_S_0[2])
+    else
+      return (Data_Show_Generic_genericShowConstructor_S_w({
+        genericShowArgs = function(v_S_1)
+          return { [1] = Data_Show_showIntImpl(v_S_1) }
+        end
+      }, {
+        reflectSymbol = function() return "Banana" end
+      })).genericShowPrime(v_S_0[2])
+    end
+  end
+}
+M.Golden_DirectivePack_Test_pipeline = function(x_S_1) return x_S_1 + 1 end
+M.Golden_DirectivePack_Test_half = function(n)
+  if Data_EuclideanRing_intMod(n)(2) == 0 then
+    return { "Data.Maybe∷Maybe.Just", (Data_EuclideanRing_intDiv(n)(2)) }
+  else
+    return Data_Maybe_Nothing
+  end
+end
+M.Golden_DirectivePack_Test_describeFruit = function(x_S_2)
+  return Data_Semigroup_semigroupString.append("fruit: ")(Data_Show_show(Golden_DirectivePack_Test_showFruit)(x_S_2))
+end
+M.Golden_DirectivePack_Test_classify = function(n)
+  if n < 0 then
+    return "negative"
+  elseif n == 0 then
+    return "zero"
+  else
+    return "positive"
+  end
+end
+local Golden_DirectivePack_Test_chain = (function()
+  local a_S_3 = (function()
+    local a_S_2 = (function()
+      if Data_EuclideanRing_intMod(40)(2) == 0 then
+        return { "Data.Maybe∷Maybe.Just", (Data_EuclideanRing_intDiv(40)(2)) }
+      else
+        return Data_Maybe_Nothing
+      end
+    end)()
+    if "Data.Maybe∷Maybe.Just" == a_S_2[1] then
+      if Data_EuclideanRing_intMod(a_S_2[2])(2) == 0 then
+        return {
+          "Data.Maybe∷Maybe.Just",
+          (Data_EuclideanRing_intDiv(a_S_2[2])(2))
+        }
+      else
+        return Data_Maybe_Nothing
+      end
+    else
+      return Data_Maybe_Nothing
+    end
+  end)()
+  if "Data.Maybe∷Maybe.Just" == a_S_3[1] then
+    if Data_EuclideanRing_intMod(a_S_3[2])(2) == 0 then
+      return {
+        "Data.Maybe∷Maybe.Just",
+        (Data_EuclideanRing_intDiv(a_S_3[2])(2))
+      }
+    else
+      return Data_Maybe_Nothing
+    end
+  else
+    return Data_Maybe_Nothing
+  end
+end)()
+return (function()
+  local _ = Effect_Console_log((function()
+    if "Data.Maybe∷Maybe.Just" == Golden_DirectivePack_Test_chain[1] then
+      return "(Just " .. Data_Show_showIntImpl(Golden_DirectivePack_Test_chain[2]) .. ")"
+    else
+      return "Nothing"
+    end
+  end)())()
+  local _ = Effect_Console_log("fruit: " .. (Data_Show_Generic_genericShowConstructor_S_w({
+    genericShowArgs = function(v_S_2)
+      return { [1] = Data_Show_showIntImpl(v_S_2) }
+    end
+  }, { reflectSymbol = function() return "Banana" end })).genericShowPrime(3))()
+  local _ = Effect_Console_log(Golden_DirectivePack_Test_show(42))()
+  local _ = Effect_Console_log("positive")()
+  local r_S_0 = Effect_Ref_foreign._new(10)()
+  local _ = Effect_functorEffect.map(function()
+    return Data_Unit_unit
+  end)(Effect_Ref_foreign.modifyImpl(function(s_S_0)
+    local sPrime_S_0 = s_S_0 * 3
+    return { state = sPrime_S_0, value = sPrime_S_0 }
+  end)(r_S_0))()
+  local v0_S_0 = Effect_Ref_foreign.read(r_S_0)()
+  return Effect_Console_log(Golden_DirectivePack_Test_show(v0_S_0))()
+end)()
diff --git a/test/ps/output/Golden.FloatIn.Test/golden.ir b/test/ps/output/Golden.FloatIn.Test/golden.ir
index f42b0191..62c20647 100644
--- a/test/ps/output/Golden.FloatIn.Test/golden.ir
+++ b/test/ps/output/Golden.FloatIn.Test/golden.ir
@@ -132,29 +132,29 @@ UberModule
         ( Imported ( ModuleName "Golden.FloatIn.Test" ) ( Name "expensive" ) )
       ),
       ( Name "pick", AbsN Nothing
-        ( ParamNamed Nothing ( Name "pick$p1$211" ) :| [] )
+        ( ParamNamed Nothing ( Name "pick$p1$206" ) :| [] )
         ( AbsN Nothing
-          ( ParamNamed Nothing ( Name "pick$p2$212" ) :| [] )
+          ( ParamNamed Nothing ( Name "pick$p2$207" ) :| [] )
           ( AppN Nothing
             ( Ref Nothing ( Imported ( ModuleName "Golden.FloatIn.Test" ) ( Name "pick$w" ) ) )
             ( Ref Nothing
-              ( Local ( Name "pick$p1$211" ) ) :|
-              [ Ref Nothing ( Local ( Name "pick$p2$212" ) ) ]
+              ( Local ( Name "pick$p1$206" ) ) :|
+              [ Ref Nothing ( Local ( Name "pick$p2$207" ) ) ]
             )
           )
         )
       ),
       ( Name "pickShared", AbsN Nothing
-        ( ParamNamed Nothing ( Name "pickShared$p1$213" ) :| [] )
+        ( ParamNamed Nothing ( Name "pickShared$p1$208" ) :| [] )
         ( AbsN Nothing
-          ( ParamNamed Nothing ( Name "pickShared$p2$214" ) :| [] )
+          ( ParamNamed Nothing ( Name "pickShared$p2$209" ) :| [] )
           ( AppN Nothing
             ( Ref Nothing
               ( Imported ( ModuleName "Golden.FloatIn.Test" ) ( Name "pickShared$w" ) )
             )
             ( Ref Nothing
-              ( Local ( Name "pickShared$p1$213" ) ) :|
-              [ Ref Nothing ( Local ( Name "pickShared$p2$214" ) ) ]
+              ( Local ( Name "pickShared$p1$208" ) ) :|
+              [ Ref Nothing ( Local ( Name "pickShared$p2$209" ) ) ]
             )
           )
         )
diff --git a/test/ps/output/Golden.GenericEqTwoTypes.Test/golden.ir b/test/ps/output/Golden.GenericEqTwoTypes.Test/golden.ir
index fece3d7a..6dbf9b74 100644
--- a/test/ps/output/Golden.GenericEqTwoTypes.Test/golden.ir
+++ b/test/ps/output/Golden.GenericEqTwoTypes.Test/golden.ir
@@ -66,28 +66,28 @@ UberModule
               )
             ),
             ( PropName "conj", AbsN Nothing
-              ( ParamNamed Nothing ( Name "b1$217" ) :| [] )
+              ( ParamNamed Nothing ( Name "b1$210" ) :| [] )
               ( AbsN Nothing
-                ( ParamNamed Nothing ( Name "b2$218" ) :| [] )
+                ( ParamNamed Nothing ( Name "b2$211" ) :| [] )
                 ( PrimBinOp Nothing PrimAnd
-                  ( Ref Nothing ( Local ( Name "b1$217" ) ) )
-                  ( Ref Nothing ( Local ( Name "b2$218" ) ) )
+                  ( Ref Nothing ( Local ( Name "b1$210" ) ) )
+                  ( Ref Nothing ( Local ( Name "b2$211" ) ) )
                 )
               )
             ),
             ( PropName "disj", AbsN Nothing
-              ( ParamNamed Nothing ( Name "b1$215" ) :| [] )
+              ( ParamNamed Nothing ( Name "b1$208" ) :| [] )
               ( AbsN Nothing
-                ( ParamNamed Nothing ( Name "b2$216" ) :| [] )
+                ( ParamNamed Nothing ( Name "b2$209" ) :| [] )
                 ( PrimBinOp Nothing PrimOr
-                  ( Ref Nothing ( Local ( Name "b1$215" ) ) )
-                  ( Ref Nothing ( Local ( Name "b2$216" ) ) )
+                  ( Ref Nothing ( Local ( Name "b1$208" ) ) )
+                  ( Ref Nothing ( Local ( Name "b2$209" ) ) )
                 )
               )
             ),
             ( PropName "not", AbsN Nothing
-              ( ParamNamed Nothing ( Name "b$214" ) :| [] )
-              ( PrimNot Nothing ( Ref Nothing ( Local ( Name "b$214" ) ) ) )
+              ( ParamNamed Nothing ( Name "b$207" ) :| [] )
+              ( PrimNot Nothing ( Ref Nothing ( Local ( Name "b$207" ) ) ) )
             )
           ]
         ) :| []
@@ -96,12 +96,12 @@ UberModule
         { qnameModuleName = ModuleName "Data.Eq", qnameName = Name "eqInt" }, LiteralObject Nothing
         [
           ( PropName "eq", AbsN Nothing
-            ( ParamNamed Nothing ( Name "r1$210" ) :| [] )
+            ( ParamNamed Nothing ( Name "r1$203" ) :| [] )
             ( AbsN Nothing
-              ( ParamNamed Nothing ( Name "r2$211" ) :| [] )
+              ( ParamNamed Nothing ( Name "r2$204" ) :| [] )
               ( Eq Nothing
-                ( Ref Nothing ( Local ( Name "r1$210" ) ) )
-                ( Ref Nothing ( Local ( Name "r2$211" ) ) )
+                ( Ref Nothing ( Local ( Name "r1$203" ) ) )
+                ( Ref Nothing ( Local ( Name "r2$204" ) ) )
               )
             )
           )
@@ -231,6 +231,12 @@ UberModule
           ]
         )
       ), Standalone
+      ( QName
+        { qnameModuleName = ModuleName "Data.Eq.Generic", qnameName = Name "genericEq'"
+        }, AbsN Nothing
+        ( ParamNamed Nothing ( Name "dict" ) :| [] )
+        ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "dict" ) ) ) ( PropName "genericEq'" ) )
+      ), Standalone
       ( QName
         { qnameModuleName = ModuleName "Data.Eq.Generic", qnameName = Name "genericEqConstructor"
         }, AbsN Nothing
@@ -256,42 +262,6 @@ UberModule
           ]
         )
       ), Standalone
-      ( QName
-        { qnameModuleName = ModuleName "Data.Eq.Generic", qnameName = Name "genericEq$w"
-        }, AbsN Nothing
-        ( ParamNamed Nothing
-          ( Name "dictGeneric" ) :|
-          [ ParamNamed Nothing
-            ( Name "dictGenericEq" ), ParamNamed Nothing
-            ( Name "x" ), ParamNamed Nothing
-            ( Name "y" )
-          ]
-        )
-        ( Let Nothing
-          ( Standalone
-            ( Nothing, Name "$cse441", ObjectProp Nothing
-              ( Ref Nothing ( Local ( Name "dictGeneric" ) ) )
-              ( PropName "from" )
-            ) :| []
-          )
-          ( AppN Nothing
-            ( AppN Nothing
-              ( ObjectProp Nothing
-                ( Ref Nothing ( Local ( Name "dictGenericEq" ) ) )
-                ( PropName "genericEq'" )
-              )
-              ( AppN Nothing
-                ( Ref Nothing ( Local ( Name "$cse441" ) ) )
-                ( Ref Nothing ( Local ( Name "x" ) ) :| [] ) :| []
-              )
-            )
-            ( AppN Nothing
-              ( Ref Nothing ( Local ( Name "$cse441" ) ) )
-              ( Ref Nothing ( Local ( Name "y" ) ) :| [] ) :| []
-            )
-          )
-        )
-      ), Standalone
       ( QName
         { qnameModuleName = ModuleName "Golden.GenericEqTwoTypes.Test", qnameName = Name "genericEqSum"
         }, AbsN Nothing
@@ -304,34 +274,34 @@ UberModule
                 ( ParamNamed Nothing ( Name "v1$8" ) :| [] )
                 ( Let Nothing
                   ( Standalone
-                    ( Nothing, Name "$cse443", ReflectCtor Nothing
+                    ( Nothing, Name "$cse584", ReflectCtor Nothing
                       ( Ref Nothing ( Local ( Name "v1$8" ) ) )
                     ) :| []
                   )
                   ( Let Nothing
                     ( Standalone
-                      ( Nothing, Name "$cse442", ReflectCtor Nothing
+                      ( Nothing, Name "$cse583", ReflectCtor Nothing
                         ( Ref Nothing ( Local ( Name "v$7" ) ) )
                       ) :| []
                     )
                     ( IfThenElse Nothing
                       ( Eq Nothing
                         ( LiteralString Nothing "Data.Generic.Rep∷Sum.Inl" )
-                        ( Ref Nothing ( Local ( Name "$cse442" ) ) )
+                        ( Ref Nothing ( Local ( Name "$cse583" ) ) )
                       )
                       ( Eq Nothing
                         ( LiteralString Nothing "Data.Generic.Rep∷Sum.Inl" )
-                        ( Ref Nothing ( Local ( Name "$cse443" ) ) )
+                        ( Ref Nothing ( Local ( Name "$cse584" ) ) )
                       )
                       ( PrimBinOp Nothing PrimAnd
                         ( Eq Nothing
                           ( LiteralString Nothing "Data.Generic.Rep∷Sum.Inr" )
-                          ( Ref Nothing ( Local ( Name "$cse442" ) ) )
+                          ( Ref Nothing ( Local ( Name "$cse583" ) ) )
                         )
                         ( PrimBinOp Nothing PrimAnd
                           ( Eq Nothing
                             ( LiteralString Nothing "Data.Generic.Rep∷Sum.Inr" )
-                            ( Ref Nothing ( Local ( Name "$cse443" ) ) )
+                            ( Ref Nothing ( Local ( Name "$cse584" ) ) )
                           )
                           ( AppN Nothing
                             ( AppN Nothing
@@ -360,12 +330,12 @@ UberModule
       ( QName
         { qnameModuleName = ModuleName "Golden.GenericEqTwoTypes.Test", qnameName = Name "eqRec"
         }, AbsN Nothing
-        ( ParamNamed Nothing ( Name "dictEqRecord$221" ) :| [] )
+        ( ParamNamed Nothing ( Name "dictEqRecord$214" ) :| [] )
         ( LiteralObject Nothing
           [
             ( PropName "eq", AppN Nothing
               ( ObjectProp Nothing
-                ( Ref Nothing ( Local ( Name "dictEqRecord$221" ) ) )
+                ( Ref Nothing ( Local ( Name "dictEqRecord$214" ) ) )
                 ( PropName "eqRecord" )
               )
               ( Ref Nothing ( Imported ( ModuleName "Type.Proxy" ) ( Name "Proxy" ) ) :| [] )
@@ -377,8 +347,8 @@ UberModule
         { qnameModuleName = ModuleName "Golden.GenericEqTwoTypes.Test", qnameName = Name "eqRowCons$w"
         }, AbsN Nothing
         ( ParamNamed Nothing
-          ( Name "eqRowCons$p3$233" ) :|
-          [ ParamNamed Nothing ( Name "eqRowCons$p4$234" ) ]
+          ( Name "eqRowCons$p3$226" ) :|
+          [ ParamNamed Nothing ( Name "eqRowCons$p4$227" ) ]
         )
         ( AppN Nothing
           ( Ref Nothing ( Imported ( ModuleName "Data.Eq" ) ( Name "eqRowCons$w" ) ) )
@@ -394,8 +364,8 @@ UberModule
             ] :|
             [ Ref Nothing
               ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ), Ref Nothing
-              ( Local ( Name "eqRowCons$p3$233" ) ), Ref Nothing
-              ( Local ( Name "eqRowCons$p4$234" ) )
+              ( Local ( Name "eqRowCons$p3$226" ) ), Ref Nothing
+              ( Local ( Name "eqRowCons$p4$227" ) )
             ]
           )
         )
@@ -561,114 +531,131 @@ UberModule
                 ( ParamNamed Nothing ( Name "x" ) :| [] )
                 ( AbsN Nothing
                   ( ParamNamed Nothing ( Name "y" ) :| [] )
-                  ( AppN Nothing
-                    ( Ref Nothing
-                      ( Imported ( ModuleName "Data.Eq.Generic" ) ( Name "genericEq$w" ) )
-                    )
-                    ( Ref Nothing
-                      ( Imported
-                        ( ModuleName "Golden.GenericEqTwoTypes.Test" )
-                        ( Name "genericTree" )
-                      ) :|
-                      [ AppN Nothing
+                  ( Let Nothing
+                    ( Standalone
+                      ( Nothing, Name "$cse585", ObjectProp Nothing
                         ( Ref Nothing
                           ( Imported
                             ( ModuleName "Golden.GenericEqTwoTypes.Test" )
-                            ( Name "genericEqSum" )
+                            ( Name "genericTree" )
                           )
                         )
+                        ( PropName "from" )
+                      ) :| []
+                    )
+                    ( AppN Nothing
+                      ( AppN Nothing
                         ( AppN Nothing
                           ( Ref Nothing
-                            ( Imported
-                              ( ModuleName "Data.Eq.Generic" )
-                              ( Name "genericEqConstructor" )
-                            )
+                            ( Imported ( ModuleName "Data.Eq.Generic" ) ( Name "genericEq'" ) )
                           )
                           ( AppN Nothing
                             ( Ref Nothing
                               ( Imported
-                                ( ModuleName "Data.Eq.Generic" )
-                                ( Name "genericEqArgument" )
+                                ( ModuleName "Golden.GenericEqTwoTypes.Test" )
+                                ( Name "genericEqSum" )
                               )
                             )
                             ( AppN Nothing
                               ( Ref Nothing
                                 ( Imported
-                                  ( ModuleName "Golden.GenericEqTwoTypes.Test" )
-                                  ( Name "eqRec" )
+                                  ( ModuleName "Data.Eq.Generic" )
+                                  ( Name "genericEqConstructor" )
                                 )
                               )
                               ( AppN Nothing
                                 ( Ref Nothing
-                                  ( Imported ( ModuleName "Data.Eq" ) ( Name "eqRowCons$w" ) )
+                                  ( Imported
+                                    ( ModuleName "Data.Eq.Generic" )
+                                    ( Name "genericEqArgument" )
+                                  )
                                 )
                                 ( AppN Nothing
                                   ( Ref Nothing
-                                    ( Imported ( ModuleName "Data.Eq" ) ( Name "eqRowCons$w" ) )
+                                    ( Imported
+                                      ( ModuleName "Golden.GenericEqTwoTypes.Test" )
+                                      ( Name "eqRec" )
+                                    )
                                   )
                                   ( AppN Nothing
                                     ( Ref Nothing
-                                      ( Imported
-                                        ( ModuleName "Golden.GenericEqTwoTypes.Test" )
-                                        ( Name "eqRowCons$w" )
-                                      )
+                                      ( Imported ( ModuleName "Data.Eq" ) ( Name "eqRowCons$w" ) )
                                     )
-                                    ( LiteralObject Nothing
-                                      [
-                                        ( PropName "reflectSymbol", AbsN Nothing
-                                          ( ParamUnused Nothing :| [] )
-                                          ( LiteralString Nothing "value" )
-                                        )
-                                      ] :|
-                                      [ Ref Nothing ( Local ( Name "dictEq" ) ) ]
-                                    ) :|
-                                    [ Ref Nothing
-                                      ( Imported
-                                        ( ModuleName "Prim" )
-                                        ( Name "undefined" )
-                                      ), LiteralObject Nothing
-                                      [
-                                        ( PropName "reflectSymbol", AbsN Nothing
-                                          ( ParamUnused Nothing :| [] )
-                                          ( LiteralString Nothing "right" )
-                                        )
-                                      ], AppN Nothing
+                                    ( AppN Nothing
                                       ( Ref Nothing
+                                        ( Imported ( ModuleName "Data.Eq" ) ( Name "eqRowCons$w" ) )
+                                      )
+                                      ( AppN Nothing
+                                        ( Ref Nothing
+                                          ( Imported
+                                            ( ModuleName "Golden.GenericEqTwoTypes.Test" )
+                                            ( Name "eqRowCons$w" )
+                                          )
+                                        )
+                                        ( LiteralObject Nothing
+                                          [
+                                            ( PropName "reflectSymbol", AbsN Nothing
+                                              ( ParamUnused Nothing :| [] )
+                                              ( LiteralString Nothing "value" )
+                                            )
+                                          ] :|
+                                          [ Ref Nothing ( Local ( Name "dictEq" ) ) ]
+                                        ) :|
+                                        [ Ref Nothing
+                                          ( Imported
+                                            ( ModuleName "Prim" )
+                                            ( Name "undefined" )
+                                          ), LiteralObject Nothing
+                                          [
+                                            ( PropName "reflectSymbol", AbsN Nothing
+                                              ( ParamUnused Nothing :| [] )
+                                              ( LiteralString Nothing "right" )
+                                            )
+                                          ], AppN Nothing
+                                          ( Ref Nothing
+                                            ( Imported
+                                              ( ModuleName "Golden.GenericEqTwoTypes.Test" )
+                                              ( Name "eqTree" )
+                                            )
+                                          )
+                                          ( Ref Nothing ( Local ( Name "dictEq" ) ) :| [] )
+                                        ]
+                                      ) :|
+                                      [ Ref Nothing
                                         ( Imported
-                                          ( ModuleName "Golden.GenericEqTwoTypes.Test" )
-                                          ( Name "eqTree" )
+                                          ( ModuleName "Prim" )
+                                          ( Name "undefined" )
+                                        ), LiteralObject Nothing
+                                        [
+                                          ( PropName "reflectSymbol", AbsN Nothing
+                                            ( ParamUnused Nothing :| [] )
+                                            ( LiteralString Nothing "left" )
+                                          )
+                                        ], AppN Nothing
+                                        ( Ref Nothing
+                                          ( Imported
+                                            ( ModuleName "Golden.GenericEqTwoTypes.Test" )
+                                            ( Name "eqTree" )
+                                          )
                                         )
-                                      )
-                                      ( Ref Nothing ( Local ( Name "dictEq" ) ) :| [] )
-                                    ]
-                                  ) :|
-                                  [ Ref Nothing
-                                    ( Imported
-                                      ( ModuleName "Prim" )
-                                      ( Name "undefined" )
-                                    ), LiteralObject Nothing
-                                    [
-                                      ( PropName "reflectSymbol", AbsN Nothing
-                                        ( ParamUnused Nothing :| [] )
-                                        ( LiteralString Nothing "left" )
-                                      )
-                                    ], AppN Nothing
-                                    ( Ref Nothing
-                                      ( Imported
-                                        ( ModuleName "Golden.GenericEqTwoTypes.Test" )
-                                        ( Name "eqTree" )
-                                      )
-                                    )
-                                    ( Ref Nothing ( Local ( Name "dictEq" ) ) :| [] )
-                                  ]
+                                        ( Ref Nothing ( Local ( Name "dictEq" ) ) :| [] )
+                                      ]
+                                    ) :| []
+                                  ) :| []
                                 ) :| []
                               ) :| []
                             ) :| []
-                          ) :| []
-                        ), Ref Nothing
-                        ( Local ( Name "x" ) ), Ref Nothing
-                        ( Local ( Name "y" ) )
-                      ]
+                          )
+                        )
+                        ( AppN Nothing
+                          ( Ref Nothing ( Local ( Name "$cse585" ) ) )
+                          ( Ref Nothing ( Local ( Name "x" ) ) :| [] ) :| []
+                        )
+                      )
+                      ( AppN Nothing
+                        ( Ref Nothing ( Local ( Name "$cse585" ) ) )
+                        ( Ref Nothing ( Local ( Name "y" ) ) :| [] ) :| []
+                      )
                     )
                   )
                 )
@@ -699,92 +686,109 @@ UberModule
                 ( ParamNamed Nothing ( Name "x" ) :| [] )
                 ( AbsN Nothing
                   ( ParamNamed Nothing ( Name "y" ) :| [] )
-                  ( AppN Nothing
-                    ( Ref Nothing
-                      ( Imported ( ModuleName "Data.Eq.Generic" ) ( Name "genericEq$w" ) )
-                    )
-                    ( Ref Nothing
-                      ( Imported
-                        ( ModuleName "Golden.GenericEqTwoTypes.Test" )
-                        ( Name "genericList" )
-                      ) :|
-                      [ AppN Nothing
+                  ( Let Nothing
+                    ( Standalone
+                      ( Nothing, Name "$cse586", ObjectProp Nothing
                         ( Ref Nothing
                           ( Imported
                             ( ModuleName "Golden.GenericEqTwoTypes.Test" )
-                            ( Name "genericEqSum" )
+                            ( Name "genericList" )
                           )
                         )
+                        ( PropName "from" )
+                      ) :| []
+                    )
+                    ( AppN Nothing
+                      ( AppN Nothing
                         ( AppN Nothing
                           ( Ref Nothing
-                            ( Imported
-                              ( ModuleName "Data.Eq.Generic" )
-                              ( Name "genericEqConstructor" )
-                            )
+                            ( Imported ( ModuleName "Data.Eq.Generic" ) ( Name "genericEq'" ) )
                           )
                           ( AppN Nothing
                             ( Ref Nothing
                               ( Imported
-                                ( ModuleName "Data.Eq.Generic" )
-                                ( Name "genericEqArgument" )
+                                ( ModuleName "Golden.GenericEqTwoTypes.Test" )
+                                ( Name "genericEqSum" )
                               )
                             )
                             ( AppN Nothing
                               ( Ref Nothing
                                 ( Imported
-                                  ( ModuleName "Golden.GenericEqTwoTypes.Test" )
-                                  ( Name "eqRec" )
+                                  ( ModuleName "Data.Eq.Generic" )
+                                  ( Name "genericEqConstructor" )
                                 )
                               )
                               ( AppN Nothing
                                 ( Ref Nothing
-                                  ( Imported ( ModuleName "Data.Eq" ) ( Name "eqRowCons$w" ) )
+                                  ( Imported
+                                    ( ModuleName "Data.Eq.Generic" )
+                                    ( Name "genericEqArgument" )
+                                  )
                                 )
                                 ( AppN Nothing
                                   ( Ref Nothing
                                     ( Imported
                                       ( ModuleName "Golden.GenericEqTwoTypes.Test" )
-                                      ( Name "eqRowCons$w" )
+                                      ( Name "eqRec" )
                                     )
                                   )
-                                  ( LiteralObject Nothing
-                                    [
-                                      ( PropName "reflectSymbol", AbsN Nothing
-                                        ( ParamUnused Nothing :| [] )
-                                        ( LiteralString Nothing "tail" )
-                                      )
-                                    ] :|
-                                    [ AppN Nothing
+                                  ( AppN Nothing
+                                    ( Ref Nothing
+                                      ( Imported ( ModuleName "Data.Eq" ) ( Name "eqRowCons$w" ) )
+                                    )
+                                    ( AppN Nothing
                                       ( Ref Nothing
                                         ( Imported
                                           ( ModuleName "Golden.GenericEqTwoTypes.Test" )
-                                          ( Name "eqList" )
+                                          ( Name "eqRowCons$w" )
                                         )
                                       )
-                                      ( Ref Nothing ( Local ( Name "dictEq" ) ) :| [] )
-                                    ]
-                                  ) :|
-                                  [ Ref Nothing
-                                    ( Imported
-                                      ( ModuleName "Prim" )
-                                      ( Name "undefined" )
-                                    ), LiteralObject Nothing
-                                    [
-                                      ( PropName "reflectSymbol", AbsN Nothing
-                                        ( ParamUnused Nothing :| [] )
-                                        ( LiteralString Nothing "head" )
-                                      )
-                                    ], Ref Nothing
-                                    ( Local ( Name "dictEq" ) )
-                                  ]
+                                      ( LiteralObject Nothing
+                                        [
+                                          ( PropName "reflectSymbol", AbsN Nothing
+                                            ( ParamUnused Nothing :| [] )
+                                            ( LiteralString Nothing "tail" )
+                                          )
+                                        ] :|
+                                        [ AppN Nothing
+                                          ( Ref Nothing
+                                            ( Imported
+                                              ( ModuleName "Golden.GenericEqTwoTypes.Test" )
+                                              ( Name "eqList" )
+                                            )
+                                          )
+                                          ( Ref Nothing ( Local ( Name "dictEq" ) ) :| [] )
+                                        ]
+                                      ) :|
+                                      [ Ref Nothing
+                                        ( Imported
+                                          ( ModuleName "Prim" )
+                                          ( Name "undefined" )
+                                        ), LiteralObject Nothing
+                                        [
+                                          ( PropName "reflectSymbol", AbsN Nothing
+                                            ( ParamUnused Nothing :| [] )
+                                            ( LiteralString Nothing "head" )
+                                          )
+                                        ], Ref Nothing
+                                        ( Local ( Name "dictEq" ) )
+                                      ]
+                                    ) :| []
+                                  ) :| []
                                 ) :| []
                               ) :| []
                             ) :| []
-                          ) :| []
-                        ), Ref Nothing
-                        ( Local ( Name "x" ) ), Ref Nothing
-                        ( Local ( Name "y" ) )
-                      ]
+                          )
+                        )
+                        ( AppN Nothing
+                          ( Ref Nothing ( Local ( Name "$cse586" ) ) )
+                          ( Ref Nothing ( Local ( Name "x" ) ) :| [] ) :| []
+                        )
+                      )
+                      ( AppN Nothing
+                        ( Ref Nothing ( Local ( Name "$cse586" ) ) )
+                        ( Ref Nothing ( Local ( Name "y" ) ) :| [] ) :| []
+                      )
                     )
                   )
                 )
@@ -829,16 +833,16 @@ UberModule
         ( Imported ( ModuleName "Golden.GenericEqTwoTypes.Test" ) ( Name "Cons" ) )
       ),
       ( Name "cons", AbsN Nothing
-        ( ParamNamed Nothing ( Name "cons$p1$226" ) :| [] )
+        ( ParamNamed Nothing ( Name "cons$p1$219" ) :| [] )
         ( AbsN Nothing
-          ( ParamNamed Nothing ( Name "cons$p2$227" ) :| [] )
+          ( ParamNamed Nothing ( Name "cons$p2$220" ) :| [] )
           ( AppN Nothing
             ( Ref Nothing
               ( Imported ( ModuleName "Golden.GenericEqTwoTypes.Test" ) ( Name "cons$w" ) )
             )
             ( Ref Nothing
-              ( Local ( Name "cons$p1$226" ) ) :|
-              [ Ref Nothing ( Local ( Name "cons$p2$227" ) ) ]
+              ( Local ( Name "cons$p1$219" ) ) :|
+              [ Ref Nothing ( Local ( Name "cons$p2$220" ) ) ]
             )
           )
         )
@@ -850,20 +854,20 @@ UberModule
         ( Imported ( ModuleName "Golden.GenericEqTwoTypes.Test" ) ( Name "Node" ) )
       ),
       ( Name "node", AbsN Nothing
-        ( ParamNamed Nothing ( Name "node$p1$228" ) :| [] )
+        ( ParamNamed Nothing ( Name "node$p1$221" ) :| [] )
         ( AbsN Nothing
-          ( ParamNamed Nothing ( Name "node$p2$229" ) :| [] )
+          ( ParamNamed Nothing ( Name "node$p2$222" ) :| [] )
           ( AbsN Nothing
-            ( ParamNamed Nothing ( Name "node$p3$230" ) :| [] )
+            ( ParamNamed Nothing ( Name "node$p3$223" ) :| [] )
             ( AppN Nothing
               ( Ref Nothing
                 ( Imported ( ModuleName "Golden.GenericEqTwoTypes.Test" ) ( Name "node$w" ) )
               )
               ( Ref Nothing
-                ( Local ( Name "node$p1$228" ) ) :|
+                ( Local ( Name "node$p1$221" ) ) :|
                 [ Ref Nothing
-                  ( Local ( Name "node$p2$229" ) ), Ref Nothing
-                  ( Local ( Name "node$p3$230" ) )
+                  ( Local ( Name "node$p2$222" ) ), Ref Nothing
+                  ( Local ( Name "node$p3$223" ) )
                 ]
               )
             )
diff --git a/test/ps/output/Golden.GenericEqTwoTypes.Test/golden.lua b/test/ps/output/Golden.GenericEqTwoTypes.Test/golden.lua
index 68ad799e..6fe2b406 100644
--- a/test/ps/output/Golden.GenericEqTwoTypes.Test/golden.lua
+++ b/test/ps/output/Golden.GenericEqTwoTypes.Test/golden.lua
@@ -51,6 +51,9 @@ local Data_Eq_Generic_genericEqArgument = function(dictEq)
     end
   }
 end
+local Data_Eq_Generic_genericEqPrime = function(dict)
+  return dict.genericEqPrime
+end
 local Data_Eq_Generic_genericEqConstructor = function(dictGenericEq)
   return {
     genericEqPrime = function(v)
@@ -58,20 +61,16 @@ local Data_Eq_Generic_genericEqConstructor = function(dictGenericEq)
     end
   }
 end
-local Data_Eq_Generic_genericEq_S_w = function(dictGeneric, dictGenericEq, x, y)
-  local _S_cse0 = dictGeneric.from
-  return dictGenericEq.genericEqPrime(_S_cse0(x))(_S_cse0(y))
-end
 local Golden_GenericEqTwoTypes_Test_genericEqSum = function(dictGenericEq1_S_0)
   return {
     genericEqPrime = function(v_S_0)
       return function(v1_S_0)
-        local _S_cse1 = v1_S_0[1]
-        local _S_cse2 = v_S_0[1]
-        if "Data.Generic.Rep∷Sum.Inl" == _S_cse2 then
-          return "Data.Generic.Rep∷Sum.Inl" == _S_cse1
+        local _S_cse0 = v1_S_0[1]
+        local _S_cse1 = v_S_0[1]
+        if "Data.Generic.Rep∷Sum.Inl" == _S_cse1 then
+          return "Data.Generic.Rep∷Sum.Inl" == _S_cse0
         else
-          return "Data.Generic.Rep∷Sum.Inr" == _S_cse2 and ("Data.Generic.Rep∷Sum.Inr" == _S_cse1 and dictGenericEq1_S_0.genericEqPrime(v_S_0[2])(v1_S_0[2]))
+          return "Data.Generic.Rep∷Sum.Inr" == _S_cse1 and ("Data.Generic.Rep∷Sum.Inr" == _S_cse0 and dictGenericEq1_S_0.genericEqPrime(v_S_0[2])(v1_S_0[2]))
         end
       end
     end
@@ -143,13 +142,14 @@ Golden_GenericEqTwoTypes_Test_eqTree = function(dictEq)
   return {
     eq = function(x)
       return function(y)
-        return Data_Eq_Generic_genericEq_S_w(Golden_GenericEqTwoTypes_Test_genericTree, Golden_GenericEqTwoTypes_Test_genericEqSum(Data_Eq_Generic_genericEqConstructor(Data_Eq_Generic_genericEqArgument(Golden_GenericEqTwoTypes_Test_eqRec(Data_Eq_eqRowCons_S_w(Data_Eq_eqRowCons_S_w(Golden_GenericEqTwoTypes_Test_eqRowCons_S_w({
+        local _S_cse2 = Golden_GenericEqTwoTypes_Test_genericTree.from
+        return Data_Eq_Generic_genericEqPrime(Golden_GenericEqTwoTypes_Test_genericEqSum(Data_Eq_Generic_genericEqConstructor(Data_Eq_Generic_genericEqArgument(Golden_GenericEqTwoTypes_Test_eqRec(Data_Eq_eqRowCons_S_w(Data_Eq_eqRowCons_S_w(Golden_GenericEqTwoTypes_Test_eqRowCons_S_w({
           reflectSymbol = function() return "value" end
         }, dictEq), nil, {
           reflectSymbol = function() return "right" end
         }, Golden_GenericEqTwoTypes_Test_eqTree(dictEq)), nil, {
           reflectSymbol = function() return "left" end
-        }, Golden_GenericEqTwoTypes_Test_eqTree(dictEq)))))), x, y)
+        }, Golden_GenericEqTwoTypes_Test_eqTree(dictEq)))))))(_S_cse2(x))(_S_cse2(y))
       end
     end
   }
@@ -160,11 +160,12 @@ Golden_GenericEqTwoTypes_Test_eqList = function(dictEq)
   return {
     eq = function(x)
       return function(y)
-        return Data_Eq_Generic_genericEq_S_w(Golden_GenericEqTwoTypes_Test_genericList, Golden_GenericEqTwoTypes_Test_genericEqSum(Data_Eq_Generic_genericEqConstructor(Data_Eq_Generic_genericEqArgument(Golden_GenericEqTwoTypes_Test_eqRec(Data_Eq_eqRowCons_S_w(Golden_GenericEqTwoTypes_Test_eqRowCons_S_w({
+        local _S_cse3 = Golden_GenericEqTwoTypes_Test_genericList.from
+        return Data_Eq_Generic_genericEqPrime(Golden_GenericEqTwoTypes_Test_genericEqSum(Data_Eq_Generic_genericEqConstructor(Data_Eq_Generic_genericEqArgument(Golden_GenericEqTwoTypes_Test_eqRec(Data_Eq_eqRowCons_S_w(Golden_GenericEqTwoTypes_Test_eqRowCons_S_w({
           reflectSymbol = function() return "tail" end
         }, Golden_GenericEqTwoTypes_Test_eqList(dictEq)), nil, {
           reflectSymbol = function() return "head" end
-        }, dictEq))))), x, y)
+        }, dictEq))))))(_S_cse3(x))(_S_cse3(y))
       end
     end
   }
diff --git a/test/ps/output/Golden.Issue37.Test/golden.ir b/test/ps/output/Golden.Issue37.Test/golden.ir
index 7daf1bf9..5f3c5d2e 100644
--- a/test/ps/output/Golden.Issue37.Test/golden.ir
+++ b/test/ps/output/Golden.Issue37.Test/golden.ir
@@ -85,9 +85,9 @@ UberModule
               ( LiteralObject Nothing
                 [
                   ( PropName "map", AbsN Nothing
-                    ( ParamNamed Nothing ( Name "f$32" ) :| [] )
+                    ( ParamNamed Nothing ( Name "f$218" ) :| [] )
                     ( AbsN Nothing
-                      ( ParamNamed Nothing ( Name "a$33" ) :| [] )
+                      ( ParamNamed Nothing ( Name "a$219" ) :| [] )
                       ( AppN Nothing
                         ( AppN Nothing
                           ( ObjectProp Nothing
@@ -105,11 +105,16 @@ UberModule
                             ( PropName "apply" )
                           )
                           ( AppN Nothing
-                            ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "pureE" ) ) )
-                            ( Ref Nothing ( Local ( Name "f$32" ) ) :| [] ) :| []
+                            ( ObjectProp Nothing
+                              ( Ref Nothing
+                                ( Imported ( ModuleName "Effect" ) ( Name "applicativeEffect" ) )
+                              )
+                              ( PropName "pure" )
+                            )
+                            ( Ref Nothing ( Local ( Name "f$218" ) ) :| [] ) :| []
                           )
                         )
-                        ( Ref Nothing ( Local ( Name "a$33" ) ) :| [] )
+                        ( Ref Nothing ( Local ( Name "a$219" ) ) :| [] )
                       )
                     )
                   )
@@ -260,7 +265,7 @@ UberModule
                         [ AppN Nothing
                           ( Let Nothing
                             ( Standalone
-                              ( Nothing, Name "Bind1$216", AppN Nothing
+                              ( Nothing, Name "Bind1$211", AppN Nothing
                                 ( ObjectProp Nothing
                                   ( Ref Nothing
                                     ( Imported ( ModuleName "Effect" ) ( Name "monadEffect" ) )
@@ -273,38 +278,38 @@ UberModule
                               ) :| []
                             )
                             ( AbsN Nothing
-                              ( ParamNamed Nothing ( Name "fn1$218" ) :| [] )
+                              ( ParamNamed Nothing ( Name "fn1$213" ) :| [] )
                               ( AppN Nothing
                                 ( AppN Nothing
                                   ( ObjectProp Nothing
-                                    ( Ref Nothing ( Local ( Name "Bind1$216" ) ) )
+                                    ( Ref Nothing ( Local ( Name "Bind1$211" ) ) )
                                     ( PropName "bind" )
                                   )
-                                  ( Ref Nothing ( Local ( Name "fn1$218" ) ) :| [] )
+                                  ( Ref Nothing ( Local ( Name "fn1$213" ) ) :| [] )
                                 )
                                 ( AbsN Nothing
                                   ( ParamUnused Nothing :| [] )
                                   ( AppN Nothing
                                     ( AppN Nothing
                                       ( ObjectProp Nothing
-                                        ( Ref Nothing ( Local ( Name "Bind1$216" ) ) )
+                                        ( Ref Nothing ( Local ( Name "Bind1$211" ) ) )
                                         ( PropName "bind" )
                                       )
-                                      ( Ref Nothing ( Local ( Name "fn1$218" ) ) :| [] )
+                                      ( Ref Nothing ( Local ( Name "fn1$213" ) ) :| [] )
                                     )
                                     ( AbsN Nothing
                                       ( ParamUnused Nothing :| [] )
                                       ( AppN Nothing
                                         ( AppN Nothing
                                           ( ObjectProp Nothing
-                                            ( Ref Nothing ( Local ( Name "Bind1$216" ) ) )
+                                            ( Ref Nothing ( Local ( Name "Bind1$211" ) ) )
                                             ( PropName "bind" )
                                           )
-                                          ( Ref Nothing ( Local ( Name "fn1$218" ) ) :| [] )
+                                          ( Ref Nothing ( Local ( Name "fn1$213" ) ) :| [] )
                                         )
                                         ( AbsN Nothing
                                           ( ParamUnused Nothing :| [] )
-                                          ( Ref Nothing ( Local ( Name "fn1$218" ) ) ) :| []
+                                          ( Ref Nothing ( Local ( Name "fn1$213" ) ) ) :| []
                                         )
                                       ) :| []
                                     )
diff --git a/test/ps/output/Golden.Issue37.Test/golden.lua b/test/ps/output/Golden.Issue37.Test/golden.lua
index de3be478..5db3e684 100644
--- a/test/ps/output/Golden.Issue37.Test/golden.lua
+++ b/test/ps/output/Golden.Issue37.Test/golden.lua
@@ -44,7 +44,7 @@ local Effect_Lazy_functorEffect = PSLUA_runtime_lazy("functorEffect")(function()
   return {
     map = function(f_S_0)
       return function(a_S_0)
-        return (Effect_applicativeEffect.Apply0()).apply(Effect_pureE(f_S_0))(a_S_0)
+        return (Effect_applicativeEffect.Apply0()).apply(Effect_applicativeEffect.pure(f_S_0))(a_S_0)
       end
     end
   }
diff --git a/test/ps/output/Golden.JoinPoints.Test/golden.ir b/test/ps/output/Golden.JoinPoints.Test/golden.ir
index b900c7d8..105ac16e 100644
--- a/test/ps/output/Golden.JoinPoints.Test/golden.ir
+++ b/test/ps/output/Golden.JoinPoints.Test/golden.ir
@@ -40,10 +40,10 @@ UberModule
       ( QName
         { qnameModuleName = ModuleName "Golden.JoinPoints.Test", qnameName = Name "negate"
         }, AbsN Nothing
-        ( ParamNamed Nothing ( Name "a$88" ) :| [] )
+        ( ParamNamed Nothing ( Name "a$83" ) :| [] )
         ( PrimBinOp Nothing PrimSub
           ( LiteralInt Nothing 0 )
-          ( Ref Nothing ( Local ( Name "a$88" ) ) )
+          ( Ref Nothing ( Local ( Name "a$83" ) ) )
         )
       ), Standalone
       ( QName
diff --git a/test/ps/output/Golden.LongApplyChain.Test/golden.ir b/test/ps/output/Golden.LongApplyChain.Test/golden.ir
index 3d059fe7..bd11ddec 100644
--- a/test/ps/output/Golden.LongApplyChain.Test/golden.ir
+++ b/test/ps/output/Golden.LongApplyChain.Test/golden.ir
@@ -14,4245 +14,12 @@ UberModule
         [ ( Nothing, Name "log" ) ]
       ), Standalone
       ( QName
-        { qnameModuleName = ModuleName "Data.Maybe", qnameName = Name "Nothing"
+        { qnameModuleName = ModuleName "Golden.LongApplyChain.Test", qnameName = Name "compute"
         }, Ctor Nothing SumType
         ( ModuleName "Data.Maybe" )
         ( TyName "Maybe" )
-        ( CtorName "Nothing" ) []
-      ), Standalone
-      ( QName
-        { qnameModuleName = ModuleName "Golden.LongApplyChain.Test", qnameName = Name "applySecond$w"
-        }, AbsN Nothing
-        ( ParamNamed Nothing ( Name "a$133" ) :| [ ParamNamed Nothing ( Name "b$134" ) ] )
-        ( AppN Nothing
-          ( Let Nothing
-            ( Standalone
-              ( Nothing, Name "v$626", IfThenElse Nothing
-                ( Eq Nothing
-                  ( LiteralString Nothing "Data.Maybe∷Maybe.Just" )
-                  ( ReflectCtor Nothing ( Ref Nothing ( Local ( Name "a$133" ) ) ) )
-                )
-                ( Ctor Nothing SumType
-                  ( ModuleName "Data.Maybe" )
-                  ( TyName "Maybe" )
-                  ( CtorName "Just" )
-                  [ AbsN Nothing
-                    ( ParamNamed Nothing ( Name "x$319" ) :| [] )
-                    ( Ref Nothing ( Local ( Name "x$319" ) ) )
-                  ]
-                )
-                ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Nothing" ) ) )
-              ) :| []
-            )
-            ( AbsN Nothing
-              ( ParamNamed Nothing ( Name "v1$627" ) :| [] )
-              ( IfThenElse Nothing
-                ( Eq Nothing
-                  ( LiteralString Nothing "Data.Maybe∷Maybe.Just" )
-                  ( ReflectCtor Nothing ( Ref Nothing ( Local ( Name "v$626" ) ) ) )
-                )
-                ( IfThenElse Nothing
-                  ( Eq Nothing
-                    ( LiteralString Nothing "Data.Maybe∷Maybe.Just" )
-                    ( ReflectCtor Nothing ( Ref Nothing ( Local ( Name "v1$627" ) ) ) )
-                  )
-                  ( Ctor Nothing SumType
-                    ( ModuleName "Data.Maybe" )
-                    ( TyName "Maybe" )
-                    ( CtorName "Just" )
-                    [ AppN Nothing
-                      ( DataArgumentByIndex Nothing SumType 0
-                        ( Ref Nothing ( Local ( Name "v$626" ) ) )
-                      )
-                      ( DataArgumentByIndex Nothing SumType 0
-                        ( Ref Nothing ( Local ( Name "v1$627" ) ) ) :| []
-                      )
-                    ]
-                  )
-                  ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Nothing" ) ) )
-                )
-                ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Nothing" ) ) )
-              )
-            )
-          )
-          ( Ref Nothing ( Local ( Name "b$134" ) ) :| [] )
-        )
-      ), Standalone
-      ( QName
-        { qnameModuleName = ModuleName "Golden.LongApplyChain.Test", qnameName = Name "compute"
-        }, Let Nothing
-        ( Standalone
-          ( Nothing, Name "$tmp647", AppN Nothing
-            ( Ref Nothing
-              ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond$w" ) )
-            )
-            ( AppN Nothing
-              ( Ref Nothing
-                ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond$w" ) )
-              )
-              ( AppN Nothing
-                ( Ref Nothing
-                  ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond$w" ) )
-                )
-                ( AppN Nothing
-                  ( Ref Nothing
-                    ( Imported
-                      ( ModuleName "Golden.LongApplyChain.Test" )
-                      ( Name "applySecond$w" )
-                    )
-                  )
-                  ( AppN Nothing
-                    ( Ref Nothing
-                      ( Imported
-                        ( ModuleName "Golden.LongApplyChain.Test" )
-                        ( Name "applySecond$w" )
-                      )
-                    )
-                    ( AppN Nothing
-                      ( Ref Nothing
-                        ( Imported
-                          ( ModuleName "Golden.LongApplyChain.Test" )
-                          ( Name "applySecond$w" )
-                        )
-                      )
-                      ( AppN Nothing
-                        ( Ref Nothing
-                          ( Imported
-                            ( ModuleName "Golden.LongApplyChain.Test" )
-                            ( Name "applySecond$w" )
-                          )
-                        )
-                        ( AppN Nothing
-                          ( Ref Nothing
-                            ( Imported
-                              ( ModuleName "Golden.LongApplyChain.Test" )
-                              ( Name "applySecond$w" )
-                            )
-                          )
-                          ( AppN Nothing
-                            ( Ref Nothing
-                              ( Imported
-                                ( ModuleName "Golden.LongApplyChain.Test" )
-                                ( Name "applySecond$w" )
-                              )
-                            )
-                            ( AppN Nothing
-                              ( Ref Nothing
-                                ( Imported
-                                  ( ModuleName "Golden.LongApplyChain.Test" )
-                                  ( Name "applySecond$w" )
-                                )
-                              )
-                              ( AppN Nothing
-                                ( Ref Nothing
-                                  ( Imported
-                                    ( ModuleName "Golden.LongApplyChain.Test" )
-                                    ( Name "applySecond$w" )
-                                  )
-                                )
-                                ( AppN Nothing
-                                  ( Ref Nothing
-                                    ( Imported
-                                      ( ModuleName "Golden.LongApplyChain.Test" )
-                                      ( Name "applySecond$w" )
-                                    )
-                                  )
-                                  ( AppN Nothing
-                                    ( Ref Nothing
-                                      ( Imported
-                                        ( ModuleName "Golden.LongApplyChain.Test" )
-                                        ( Name "applySecond$w" )
-                                      )
-                                    )
-                                    ( AppN Nothing
-                                      ( Ref Nothing
-                                        ( Imported
-                                          ( ModuleName "Golden.LongApplyChain.Test" )
-                                          ( Name "applySecond$w" )
-                                        )
-                                      )
-                                      ( AppN Nothing
-                                        ( Ref Nothing
-                                          ( Imported
-                                            ( ModuleName "Golden.LongApplyChain.Test" )
-                                            ( Name "applySecond$w" )
-                                          )
-                                        )
-                                        ( AppN Nothing
-                                          ( Ref Nothing
-                                            ( Imported
-                                              ( ModuleName "Golden.LongApplyChain.Test" )
-                                              ( Name "applySecond$w" )
-                                            )
-                                          )
-                                          ( AppN Nothing
-                                            ( Ref Nothing
-                                              ( Imported
-                                                ( ModuleName "Golden.LongApplyChain.Test" )
-                                                ( Name "applySecond$w" )
-                                              )
-                                            )
-                                            ( AppN Nothing
-                                              ( Ref Nothing
-                                                ( Imported
-                                                  ( ModuleName "Golden.LongApplyChain.Test" )
-                                                  ( Name "applySecond$w" )
-                                                )
-                                              )
-                                              ( AppN Nothing
-                                                ( Ref Nothing
-                                                  ( Imported
-                                                    ( ModuleName "Golden.LongApplyChain.Test" )
-                                                    ( Name "applySecond$w" )
-                                                  )
-                                                )
-                                                ( AppN Nothing
-                                                  ( Ref Nothing
-                                                    ( Imported
-                                                      ( ModuleName "Golden.LongApplyChain.Test" )
-                                                      ( Name "applySecond$w" )
-                                                    )
-                                                  )
-                                                  ( AppN Nothing
-                                                    ( Ref Nothing
-                                                      ( Imported
-                                                        ( ModuleName "Golden.LongApplyChain.Test" )
-                                                        ( Name "applySecond$w" )
-                                                      )
-                                                    )
-                                                    ( AppN Nothing
-                                                      ( Ref Nothing
-                                                        ( Imported
-                                                          ( ModuleName "Golden.LongApplyChain.Test" )
-                                                          ( Name "applySecond$w" )
-                                                        )
-                                                      )
-                                                      ( AppN Nothing
-                                                        ( Ref Nothing
-                                                          ( Imported
-                                                            ( ModuleName "Golden.LongApplyChain.Test" )
-                                                            ( Name "applySecond$w" )
-                                                          )
-                                                        )
-                                                        ( AppN Nothing
-                                                          ( Ref Nothing
-                                                            ( Imported
-                                                              ( ModuleName "Golden.LongApplyChain.Test" )
-                                                              ( Name "applySecond$w" )
-                                                            )
-                                                          )
-                                                          ( AppN Nothing
-                                                            ( Ref Nothing
-                                                              ( Imported
-                                                                ( ModuleName "Golden.LongApplyChain.Test" )
-                                                                ( Name "applySecond$w" )
-                                                              )
-                                                            )
-                                                            ( AppN Nothing
-                                                              ( Ref Nothing
-                                                                ( Imported
-                                                                  ( ModuleName "Golden.LongApplyChain.Test" )
-                                                                  ( Name "applySecond$w" )
-                                                                )
-                                                              )
-                                                              ( AppN Nothing
-                                                                ( Ref Nothing
-                                                                  ( Imported
-                                                                    ( ModuleName "Golden.LongApplyChain.Test" )
-                                                                    ( Name "applySecond$w" )
-                                                                  )
-                                                                )
-                                                                ( AppN Nothing
-                                                                  ( Ref Nothing
-                                                                    ( Imported
-                                                                      ( ModuleName "Golden.LongApplyChain.Test" )
-                                                                      ( Name "applySecond$w" )
-                                                                    )
-                                                                  )
-                                                                  ( AppN Nothing
-                                                                    ( Ref Nothing
-                                                                      ( Imported
-                                                                        ( ModuleName "Golden.LongApplyChain.Test" )
-                                                                        ( Name "applySecond$w" )
-                                                                      )
-                                                                    )
-                                                                    ( AppN Nothing
-                                                                      ( Ref Nothing
-                                                                        ( Imported
-                                                                          ( ModuleName "Golden.LongApplyChain.Test" )
-                                                                          ( Name "applySecond$w" )
-                                                                        )
-                                                                      )
-                                                                      ( AppN Nothing
-                                                                        ( Ref Nothing
-                                                                          ( Imported
-                                                                            ( ModuleName "Golden.LongApplyChain.Test" )
-                                                                            ( Name "applySecond$w" )
-                                                                          )
-                                                                        )
-                                                                        ( AppN Nothing
-                                                                          ( Ref Nothing
-                                                                            ( Imported
-                                                                              ( ModuleName "Golden.LongApplyChain.Test" )
-                                                                              ( Name "applySecond$w" )
-                                                                            )
-                                                                          )
-                                                                          ( AppN Nothing
-                                                                            ( Ref Nothing
-                                                                              ( Imported
-                                                                                ( ModuleName "Golden.LongApplyChain.Test" )
-                                                                                ( Name "applySecond$w" )
-                                                                              )
-                                                                            )
-                                                                            ( AppN Nothing
-                                                                              ( Ref Nothing
-                                                                                ( Imported
-                                                                                  ( ModuleName "Golden.LongApplyChain.Test" )
-                                                                                  ( Name "applySecond$w" )
-                                                                                )
-                                                                              )
-                                                                              ( AppN Nothing
-                                                                                ( Ref Nothing
-                                                                                  ( Imported
-                                                                                    ( ModuleName "Golden.LongApplyChain.Test" )
-                                                                                    ( Name "applySecond$w" )
-                                                                                  )
-                                                                                )
-                                                                                ( AppN Nothing
-                                                                                  ( Ref Nothing
-                                                                                    ( Imported
-                                                                                      ( ModuleName "Golden.LongApplyChain.Test" )
-                                                                                      ( Name "applySecond$w" )
-                                                                                    )
-                                                                                  )
-                                                                                  ( AppN Nothing
-                                                                                    ( Ref Nothing
-                                                                                      ( Imported
-                                                                                        ( ModuleName "Golden.LongApplyChain.Test" )
-                                                                                        ( Name "applySecond$w" )
-                                                                                      )
-                                                                                    )
-                                                                                    ( AppN Nothing
-                                                                                      ( Ref Nothing
-                                                                                        ( Imported
-                                                                                          ( ModuleName "Golden.LongApplyChain.Test" )
-                                                                                          ( Name "applySecond$w" )
-                                                                                        )
-                                                                                      )
-                                                                                      ( AppN Nothing
-                                                                                        ( Ref Nothing
-                                                                                          ( Imported
-                                                                                            ( ModuleName "Golden.LongApplyChain.Test" )
-                                                                                            ( Name "applySecond$w" )
-                                                                                          )
-                                                                                        )
-                                                                                        ( AppN Nothing
-                                                                                          ( Ref Nothing
-                                                                                            ( Imported
-                                                                                              ( ModuleName "Golden.LongApplyChain.Test" )
-                                                                                              ( Name "applySecond$w" )
-                                                                                            )
-                                                                                          )
-                                                                                          ( Ctor Nothing SumType
-                                                                                            ( ModuleName "Data.Maybe" )
-                                                                                            ( TyName "Maybe" )
-                                                                                            ( CtorName "Just" )
-                                                                                            [ LiteralInt Nothing 1 ] :|
-                                                                                            [ Ctor Nothing SumType
-                                                                                              ( ModuleName "Data.Maybe" )
-                                                                                              ( TyName "Maybe" )
-                                                                                              ( CtorName "Just" )
-                                                                                              [ LiteralInt Nothing 2 ]
-                                                                                            ]
-                                                                                          ) :|
-                                                                                          [ Ctor Nothing SumType
-                                                                                            ( ModuleName "Data.Maybe" )
-                                                                                            ( TyName "Maybe" )
-                                                                                            ( CtorName "Just" )
-                                                                                            [ LiteralInt Nothing 3 ]
-                                                                                          ]
-                                                                                        ) :|
-                                                                                        [ Ctor Nothing SumType
-                                                                                          ( ModuleName "Data.Maybe" )
-                                                                                          ( TyName "Maybe" )
-                                                                                          ( CtorName "Just" )
-                                                                                          [ LiteralInt Nothing 4 ]
-                                                                                        ]
-                                                                                      ) :|
-                                                                                      [ Ctor Nothing SumType
-                                                                                        ( ModuleName "Data.Maybe" )
-                                                                                        ( TyName "Maybe" )
-                                                                                        ( CtorName "Just" )
-                                                                                        [ LiteralInt Nothing 5 ]
-                                                                                      ]
-                                                                                    ) :|
-                                                                                    [ Ctor Nothing SumType
-                                                                                      ( ModuleName "Data.Maybe" )
-                                                                                      ( TyName "Maybe" )
-                                                                                      ( CtorName "Just" )
-                                                                                      [ LiteralInt Nothing 6 ]
-                                                                                    ]
-                                                                                  ) :|
-                                                                                  [ Ctor Nothing SumType
-                                                                                    ( ModuleName "Data.Maybe" )
-                                                                                    ( TyName "Maybe" )
-                                                                                    ( CtorName "Just" )
-                                                                                    [ LiteralInt Nothing 7 ]
-                                                                                  ]
-                                                                                ) :|
-                                                                                [ Ctor Nothing SumType
-                                                                                  ( ModuleName "Data.Maybe" )
-                                                                                  ( TyName "Maybe" )
-                                                                                  ( CtorName "Just" )
-                                                                                  [ LiteralInt Nothing 8 ]
-                                                                                ]
-                                                                              ) :|
-                                                                              [ Ctor Nothing SumType
-                                                                                ( ModuleName "Data.Maybe" )
-                                                                                ( TyName "Maybe" )
-                                                                                ( CtorName "Just" )
-                                                                                [ LiteralInt Nothing 9 ]
-                                                                              ]
-                                                                            ) :|
-                                                                            [ Ctor Nothing SumType
-                                                                              ( ModuleName "Data.Maybe" )
-                                                                              ( TyName "Maybe" )
-                                                                              ( CtorName "Just" )
-                                                                              [ LiteralInt Nothing 10 ]
-                                                                            ]
-                                                                          ) :|
-                                                                          [ Ctor Nothing SumType
-                                                                            ( ModuleName "Data.Maybe" )
-                                                                            ( TyName "Maybe" )
-                                                                            ( CtorName "Just" )
-                                                                            [ LiteralInt Nothing 11 ]
-                                                                          ]
-                                                                        ) :|
-                                                                        [ Ctor Nothing SumType
-                                                                          ( ModuleName "Data.Maybe" )
-                                                                          ( TyName "Maybe" )
-                                                                          ( CtorName "Just" )
-                                                                          [ LiteralInt Nothing 12 ]
-                                                                        ]
-                                                                      ) :|
-                                                                      [ Ctor Nothing SumType
-                                                                        ( ModuleName "Data.Maybe" )
-                                                                        ( TyName "Maybe" )
-                                                                        ( CtorName "Just" )
-                                                                        [ LiteralInt Nothing 13 ]
-                                                                      ]
-                                                                    ) :|
-                                                                    [ Ctor Nothing SumType
-                                                                      ( ModuleName "Data.Maybe" )
-                                                                      ( TyName "Maybe" )
-                                                                      ( CtorName "Just" )
-                                                                      [ LiteralInt Nothing 14 ]
-                                                                    ]
-                                                                  ) :|
-                                                                  [ Ctor Nothing SumType
-                                                                    ( ModuleName "Data.Maybe" )
-                                                                    ( TyName "Maybe" )
-                                                                    ( CtorName "Just" )
-                                                                    [ LiteralInt Nothing 15 ]
-                                                                  ]
-                                                                ) :|
-                                                                [ Ctor Nothing SumType
-                                                                  ( ModuleName "Data.Maybe" )
-                                                                  ( TyName "Maybe" )
-                                                                  ( CtorName "Just" )
-                                                                  [ LiteralInt Nothing 16 ]
-                                                                ]
-                                                              ) :|
-                                                              [ Ctor Nothing SumType
-                                                                ( ModuleName "Data.Maybe" )
-                                                                ( TyName "Maybe" )
-                                                                ( CtorName "Just" )
-                                                                [ LiteralInt Nothing 17 ]
-                                                              ]
-                                                            ) :|
-                                                            [ Ctor Nothing SumType
-                                                              ( ModuleName "Data.Maybe" )
-                                                              ( TyName "Maybe" )
-                                                              ( CtorName "Just" )
-                                                              [ LiteralInt Nothing 18 ]
-                                                            ]
-                                                          ) :|
-                                                          [ Ctor Nothing SumType
-                                                            ( ModuleName "Data.Maybe" )
-                                                            ( TyName "Maybe" )
-                                                            ( CtorName "Just" )
-                                                            [ LiteralInt Nothing 19 ]
-                                                          ]
-                                                        ) :|
-                                                        [ Ctor Nothing SumType
-                                                          ( ModuleName "Data.Maybe" )
-                                                          ( TyName "Maybe" )
-                                                          ( CtorName "Just" )
-                                                          [ LiteralInt Nothing 20 ]
-                                                        ]
-                                                      ) :|
-                                                      [ Ctor Nothing SumType
-                                                        ( ModuleName "Data.Maybe" )
-                                                        ( TyName "Maybe" )
-                                                        ( CtorName "Just" )
-                                                        [ LiteralInt Nothing 21 ]
-                                                      ]
-                                                    ) :|
-                                                    [ Ctor Nothing SumType
-                                                      ( ModuleName "Data.Maybe" )
-                                                      ( TyName "Maybe" )
-                                                      ( CtorName "Just" )
-                                                      [ LiteralInt Nothing 22 ]
-                                                    ]
-                                                  ) :|
-                                                  [ Ctor Nothing SumType
-                                                    ( ModuleName "Data.Maybe" )
-                                                    ( TyName "Maybe" )
-                                                    ( CtorName "Just" )
-                                                    [ LiteralInt Nothing 23 ]
-                                                  ]
-                                                ) :|
-                                                [ Ctor Nothing SumType
-                                                  ( ModuleName "Data.Maybe" )
-                                                  ( TyName "Maybe" )
-                                                  ( CtorName "Just" )
-                                                  [ LiteralInt Nothing 24 ]
-                                                ]
-                                              ) :|
-                                              [ Ctor Nothing SumType
-                                                ( ModuleName "Data.Maybe" )
-                                                ( TyName "Maybe" )
-                                                ( CtorName "Just" )
-                                                [ LiteralInt Nothing 25 ]
-                                              ]
-                                            ) :|
-                                            [ Ctor Nothing SumType
-                                              ( ModuleName "Data.Maybe" )
-                                              ( TyName "Maybe" )
-                                              ( CtorName "Just" )
-                                              [ LiteralInt Nothing 26 ]
-                                            ]
-                                          ) :|
-                                          [ Ctor Nothing SumType
-                                            ( ModuleName "Data.Maybe" )
-                                            ( TyName "Maybe" )
-                                            ( CtorName "Just" )
-                                            [ LiteralInt Nothing 27 ]
-                                          ]
-                                        ) :|
-                                        [ Ctor Nothing SumType
-                                          ( ModuleName "Data.Maybe" )
-                                          ( TyName "Maybe" )
-                                          ( CtorName "Just" )
-                                          [ LiteralInt Nothing 28 ]
-                                        ]
-                                      ) :|
-                                      [ Ctor Nothing SumType
-                                        ( ModuleName "Data.Maybe" )
-                                        ( TyName "Maybe" )
-                                        ( CtorName "Just" )
-                                        [ LiteralInt Nothing 29 ]
-                                      ]
-                                    ) :|
-                                    [ Ctor Nothing SumType
-                                      ( ModuleName "Data.Maybe" )
-                                      ( TyName "Maybe" )
-                                      ( CtorName "Just" )
-                                      [ LiteralInt Nothing 30 ]
-                                    ]
-                                  ) :|
-                                  [ Ctor Nothing SumType
-                                    ( ModuleName "Data.Maybe" )
-                                    ( TyName "Maybe" )
-                                    ( CtorName "Just" )
-                                    [ LiteralInt Nothing 31 ]
-                                  ]
-                                ) :|
-                                [ Ctor Nothing SumType
-                                  ( ModuleName "Data.Maybe" )
-                                  ( TyName "Maybe" )
-                                  ( CtorName "Just" )
-                                  [ LiteralInt Nothing 32 ]
-                                ]
-                              ) :|
-                              [ Ctor Nothing SumType
-                                ( ModuleName "Data.Maybe" )
-                                ( TyName "Maybe" )
-                                ( CtorName "Just" )
-                                [ LiteralInt Nothing 33 ]
-                              ]
-                            ) :|
-                            [ Ctor Nothing SumType
-                              ( ModuleName "Data.Maybe" )
-                              ( TyName "Maybe" )
-                              ( CtorName "Just" )
-                              [ LiteralInt Nothing 34 ]
-                            ]
-                          ) :|
-                          [ Ctor Nothing SumType
-                            ( ModuleName "Data.Maybe" )
-                            ( TyName "Maybe" )
-                            ( CtorName "Just" )
-                            [ LiteralInt Nothing 35 ]
-                          ]
-                        ) :|
-                        [ Ctor Nothing SumType
-                          ( ModuleName "Data.Maybe" )
-                          ( TyName "Maybe" )
-                          ( CtorName "Just" )
-                          [ LiteralInt Nothing 36 ]
-                        ]
-                      ) :|
-                      [ Ctor Nothing SumType
-                        ( ModuleName "Data.Maybe" )
-                        ( TyName "Maybe" )
-                        ( CtorName "Just" )
-                        [ LiteralInt Nothing 37 ]
-                      ]
-                    ) :|
-                    [ Ctor Nothing SumType
-                      ( ModuleName "Data.Maybe" )
-                      ( TyName "Maybe" )
-                      ( CtorName "Just" )
-                      [ LiteralInt Nothing 38 ]
-                    ]
-                  ) :|
-                  [ Ctor Nothing SumType
-                    ( ModuleName "Data.Maybe" )
-                    ( TyName "Maybe" )
-                    ( CtorName "Just" )
-                    [ LiteralInt Nothing 39 ]
-                  ]
-                ) :|
-                [ Ctor Nothing SumType
-                  ( ModuleName "Data.Maybe" )
-                  ( TyName "Maybe" )
-                  ( CtorName "Just" )
-                  [ LiteralInt Nothing 40 ]
-                ]
-              ) :|
-              [ Ctor Nothing SumType
-                ( ModuleName "Data.Maybe" )
-                ( TyName "Maybe" )
-                ( CtorName "Just" )
-                [ LiteralInt Nothing 41 ]
-              ]
-            )
-          ) :|
-          [ Standalone
-            ( Nothing, Name "$tmp648", AppN Nothing
-              ( Ref Nothing
-                ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond$w" ) )
-              )
-              ( AppN Nothing
-                ( Ref Nothing
-                  ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond$w" ) )
-                )
-                ( AppN Nothing
-                  ( Ref Nothing
-                    ( Imported
-                      ( ModuleName "Golden.LongApplyChain.Test" )
-                      ( Name "applySecond$w" )
-                    )
-                  )
-                  ( AppN Nothing
-                    ( Ref Nothing
-                      ( Imported
-                        ( ModuleName "Golden.LongApplyChain.Test" )
-                        ( Name "applySecond$w" )
-                      )
-                    )
-                    ( AppN Nothing
-                      ( Ref Nothing
-                        ( Imported
-                          ( ModuleName "Golden.LongApplyChain.Test" )
-                          ( Name "applySecond$w" )
-                        )
-                      )
-                      ( AppN Nothing
-                        ( Ref Nothing
-                          ( Imported
-                            ( ModuleName "Golden.LongApplyChain.Test" )
-                            ( Name "applySecond$w" )
-                          )
-                        )
-                        ( AppN Nothing
-                          ( Ref Nothing
-                            ( Imported
-                              ( ModuleName "Golden.LongApplyChain.Test" )
-                              ( Name "applySecond$w" )
-                            )
-                          )
-                          ( AppN Nothing
-                            ( Ref Nothing
-                              ( Imported
-                                ( ModuleName "Golden.LongApplyChain.Test" )
-                                ( Name "applySecond$w" )
-                              )
-                            )
-                            ( AppN Nothing
-                              ( Ref Nothing
-                                ( Imported
-                                  ( ModuleName "Golden.LongApplyChain.Test" )
-                                  ( Name "applySecond$w" )
-                                )
-                              )
-                              ( AppN Nothing
-                                ( Ref Nothing
-                                  ( Imported
-                                    ( ModuleName "Golden.LongApplyChain.Test" )
-                                    ( Name "applySecond$w" )
-                                  )
-                                )
-                                ( AppN Nothing
-                                  ( Ref Nothing
-                                    ( Imported
-                                      ( ModuleName "Golden.LongApplyChain.Test" )
-                                      ( Name "applySecond$w" )
-                                    )
-                                  )
-                                  ( AppN Nothing
-                                    ( Ref Nothing
-                                      ( Imported
-                                        ( ModuleName "Golden.LongApplyChain.Test" )
-                                        ( Name "applySecond$w" )
-                                      )
-                                    )
-                                    ( AppN Nothing
-                                      ( Ref Nothing
-                                        ( Imported
-                                          ( ModuleName "Golden.LongApplyChain.Test" )
-                                          ( Name "applySecond$w" )
-                                        )
-                                      )
-                                      ( AppN Nothing
-                                        ( Ref Nothing
-                                          ( Imported
-                                            ( ModuleName "Golden.LongApplyChain.Test" )
-                                            ( Name "applySecond$w" )
-                                          )
-                                        )
-                                        ( AppN Nothing
-                                          ( Ref Nothing
-                                            ( Imported
-                                              ( ModuleName "Golden.LongApplyChain.Test" )
-                                              ( Name "applySecond$w" )
-                                            )
-                                          )
-                                          ( AppN Nothing
-                                            ( Ref Nothing
-                                              ( Imported
-                                                ( ModuleName "Golden.LongApplyChain.Test" )
-                                                ( Name "applySecond$w" )
-                                              )
-                                            )
-                                            ( AppN Nothing
-                                              ( Ref Nothing
-                                                ( Imported
-                                                  ( ModuleName "Golden.LongApplyChain.Test" )
-                                                  ( Name "applySecond$w" )
-                                                )
-                                              )
-                                              ( AppN Nothing
-                                                ( Ref Nothing
-                                                  ( Imported
-                                                    ( ModuleName "Golden.LongApplyChain.Test" )
-                                                    ( Name "applySecond$w" )
-                                                  )
-                                                )
-                                                ( AppN Nothing
-                                                  ( Ref Nothing
-                                                    ( Imported
-                                                      ( ModuleName "Golden.LongApplyChain.Test" )
-                                                      ( Name "applySecond$w" )
-                                                    )
-                                                  )
-                                                  ( AppN Nothing
-                                                    ( Ref Nothing
-                                                      ( Imported
-                                                        ( ModuleName "Golden.LongApplyChain.Test" )
-                                                        ( Name "applySecond$w" )
-                                                      )
-                                                    )
-                                                    ( AppN Nothing
-                                                      ( Ref Nothing
-                                                        ( Imported
-                                                          ( ModuleName "Golden.LongApplyChain.Test" )
-                                                          ( Name "applySecond$w" )
-                                                        )
-                                                      )
-                                                      ( AppN Nothing
-                                                        ( Ref Nothing
-                                                          ( Imported
-                                                            ( ModuleName "Golden.LongApplyChain.Test" )
-                                                            ( Name "applySecond$w" )
-                                                          )
-                                                        )
-                                                        ( AppN Nothing
-                                                          ( Ref Nothing
-                                                            ( Imported
-                                                              ( ModuleName "Golden.LongApplyChain.Test" )
-                                                              ( Name "applySecond$w" )
-                                                            )
-                                                          )
-                                                          ( AppN Nothing
-                                                            ( Ref Nothing
-                                                              ( Imported
-                                                                ( ModuleName "Golden.LongApplyChain.Test" )
-                                                                ( Name "applySecond$w" )
-                                                              )
-                                                            )
-                                                            ( AppN Nothing
-                                                              ( Ref Nothing
-                                                                ( Imported
-                                                                  ( ModuleName "Golden.LongApplyChain.Test" )
-                                                                  ( Name "applySecond$w" )
-                                                                )
-                                                              )
-                                                              ( AppN Nothing
-                                                                ( Ref Nothing
-                                                                  ( Imported
-                                                                    ( ModuleName "Golden.LongApplyChain.Test" )
-                                                                    ( Name "applySecond$w" )
-                                                                  )
-                                                                )
-                                                                ( AppN Nothing
-                                                                  ( Ref Nothing
-                                                                    ( Imported
-                                                                      ( ModuleName "Golden.LongApplyChain.Test" )
-                                                                      ( Name "applySecond$w" )
-                                                                    )
-                                                                  )
-                                                                  ( AppN Nothing
-                                                                    ( Ref Nothing
-                                                                      ( Imported
-                                                                        ( ModuleName "Golden.LongApplyChain.Test" )
-                                                                        ( Name "applySecond$w" )
-                                                                      )
-                                                                    )
-                                                                    ( AppN Nothing
-                                                                      ( Ref Nothing
-                                                                        ( Imported
-                                                                          ( ModuleName "Golden.LongApplyChain.Test" )
-                                                                          ( Name "applySecond$w" )
-                                                                        )
-                                                                      )
-                                                                      ( AppN Nothing
-                                                                        ( Ref Nothing
-                                                                          ( Imported
-                                                                            ( ModuleName "Golden.LongApplyChain.Test" )
-                                                                            ( Name "applySecond$w" )
-                                                                          )
-                                                                        )
-                                                                        ( AppN Nothing
-                                                                          ( Ref Nothing
-                                                                            ( Imported
-                                                                              ( ModuleName "Golden.LongApplyChain.Test" )
-                                                                              ( Name "applySecond$w" )
-                                                                            )
-                                                                          )
-                                                                          ( AppN Nothing
-                                                                            ( Ref Nothing
-                                                                              ( Imported
-                                                                                ( ModuleName "Golden.LongApplyChain.Test" )
-                                                                                ( Name "applySecond$w" )
-                                                                              )
-                                                                            )
-                                                                            ( AppN Nothing
-                                                                              ( Ref Nothing
-                                                                                ( Imported
-                                                                                  ( ModuleName "Golden.LongApplyChain.Test" )
-                                                                                  ( Name "applySecond$w" )
-                                                                                )
-                                                                              )
-                                                                              ( AppN Nothing
-                                                                                ( Ref Nothing
-                                                                                  ( Imported
-                                                                                    ( ModuleName "Golden.LongApplyChain.Test" )
-                                                                                    ( Name "applySecond$w" )
-                                                                                  )
-                                                                                )
-                                                                                ( AppN Nothing
-                                                                                  ( Ref Nothing
-                                                                                    ( Imported
-                                                                                      ( ModuleName "Golden.LongApplyChain.Test" )
-                                                                                      ( Name "applySecond$w" )
-                                                                                    )
-                                                                                  )
-                                                                                  ( AppN Nothing
-                                                                                    ( Ref Nothing
-                                                                                      ( Imported
-                                                                                        ( ModuleName "Golden.LongApplyChain.Test" )
-                                                                                        ( Name "applySecond$w" )
-                                                                                      )
-                                                                                    )
-                                                                                    ( AppN Nothing
-                                                                                      ( Ref Nothing
-                                                                                        ( Imported
-                                                                                          ( ModuleName "Golden.LongApplyChain.Test" )
-                                                                                          ( Name "applySecond$w" )
-                                                                                        )
-                                                                                      )
-                                                                                      ( AppN Nothing
-                                                                                        ( Ref Nothing
-                                                                                          ( Imported
-                                                                                            ( ModuleName "Golden.LongApplyChain.Test" )
-                                                                                            ( Name "applySecond$w" )
-                                                                                          )
-                                                                                        )
-                                                                                        ( AppN Nothing
-                                                                                          ( Ref Nothing
-                                                                                            ( Imported
-                                                                                              ( ModuleName "Golden.LongApplyChain.Test" )
-                                                                                              ( Name "applySecond$w" )
-                                                                                            )
-                                                                                          )
-                                                                                          ( AppN Nothing
-                                                                                            ( Ref Nothing
-                                                                                              ( Imported
-                                                                                                ( ModuleName "Golden.LongApplyChain.Test" )
-                                                                                                ( Name "applySecond$w" )
-                                                                                              )
-                                                                                            )
-                                                                                            ( Ref Nothing
-                                                                                              ( Local
-                                                                                                ( Name "$tmp647" )
-                                                                                              ) :|
-                                                                                              [ Ctor Nothing SumType
-                                                                                                ( ModuleName "Data.Maybe" )
-                                                                                                ( TyName "Maybe" )
-                                                                                                ( CtorName "Just" )
-                                                                                                [ LiteralInt Nothing 42 ]
-                                                                                              ]
-                                                                                            ) :|
-                                                                                            [ Ctor Nothing SumType
-                                                                                              ( ModuleName "Data.Maybe" )
-                                                                                              ( TyName "Maybe" )
-                                                                                              ( CtorName "Just" )
-                                                                                              [ LiteralInt Nothing 43 ]
-                                                                                            ]
-                                                                                          ) :|
-                                                                                          [ Ctor Nothing SumType
-                                                                                            ( ModuleName "Data.Maybe" )
-                                                                                            ( TyName "Maybe" )
-                                                                                            ( CtorName "Just" )
-                                                                                            [ LiteralInt Nothing 44 ]
-                                                                                          ]
-                                                                                        ) :|
-                                                                                        [ Ctor Nothing SumType
-                                                                                          ( ModuleName "Data.Maybe" )
-                                                                                          ( TyName "Maybe" )
-                                                                                          ( CtorName "Just" )
-                                                                                          [ LiteralInt Nothing 45 ]
-                                                                                        ]
-                                                                                      ) :|
-                                                                                      [ Ctor Nothing SumType
-                                                                                        ( ModuleName "Data.Maybe" )
-                                                                                        ( TyName "Maybe" )
-                                                                                        ( CtorName "Just" )
-                                                                                        [ LiteralInt Nothing 46 ]
-                                                                                      ]
-                                                                                    ) :|
-                                                                                    [ Ctor Nothing SumType
-                                                                                      ( ModuleName "Data.Maybe" )
-                                                                                      ( TyName "Maybe" )
-                                                                                      ( CtorName "Just" )
-                                                                                      [ LiteralInt Nothing 47 ]
-                                                                                    ]
-                                                                                  ) :|
-                                                                                  [ Ctor Nothing SumType
-                                                                                    ( ModuleName "Data.Maybe" )
-                                                                                    ( TyName "Maybe" )
-                                                                                    ( CtorName "Just" )
-                                                                                    [ LiteralInt Nothing 48 ]
-                                                                                  ]
-                                                                                ) :|
-                                                                                [ Ctor Nothing SumType
-                                                                                  ( ModuleName "Data.Maybe" )
-                                                                                  ( TyName "Maybe" )
-                                                                                  ( CtorName "Just" )
-                                                                                  [ LiteralInt Nothing 49 ]
-                                                                                ]
-                                                                              ) :|
-                                                                              [ Ctor Nothing SumType
-                                                                                ( ModuleName "Data.Maybe" )
-                                                                                ( TyName "Maybe" )
-                                                                                ( CtorName "Just" )
-                                                                                [ LiteralInt Nothing 50 ]
-                                                                              ]
-                                                                            ) :|
-                                                                            [ Ctor Nothing SumType
-                                                                              ( ModuleName "Data.Maybe" )
-                                                                              ( TyName "Maybe" )
-                                                                              ( CtorName "Just" )
-                                                                              [ LiteralInt Nothing 51 ]
-                                                                            ]
-                                                                          ) :|
-                                                                          [ Ctor Nothing SumType
-                                                                            ( ModuleName "Data.Maybe" )
-                                                                            ( TyName "Maybe" )
-                                                                            ( CtorName "Just" )
-                                                                            [ LiteralInt Nothing 52 ]
-                                                                          ]
-                                                                        ) :|
-                                                                        [ Ctor Nothing SumType
-                                                                          ( ModuleName "Data.Maybe" )
-                                                                          ( TyName "Maybe" )
-                                                                          ( CtorName "Just" )
-                                                                          [ LiteralInt Nothing 53 ]
-                                                                        ]
-                                                                      ) :|
-                                                                      [ Ctor Nothing SumType
-                                                                        ( ModuleName "Data.Maybe" )
-                                                                        ( TyName "Maybe" )
-                                                                        ( CtorName "Just" )
-                                                                        [ LiteralInt Nothing 54 ]
-                                                                      ]
-                                                                    ) :|
-                                                                    [ Ctor Nothing SumType
-                                                                      ( ModuleName "Data.Maybe" )
-                                                                      ( TyName "Maybe" )
-                                                                      ( CtorName "Just" )
-                                                                      [ LiteralInt Nothing 55 ]
-                                                                    ]
-                                                                  ) :|
-                                                                  [ Ctor Nothing SumType
-                                                                    ( ModuleName "Data.Maybe" )
-                                                                    ( TyName "Maybe" )
-                                                                    ( CtorName "Just" )
-                                                                    [ LiteralInt Nothing 56 ]
-                                                                  ]
-                                                                ) :|
-                                                                [ Ctor Nothing SumType
-                                                                  ( ModuleName "Data.Maybe" )
-                                                                  ( TyName "Maybe" )
-                                                                  ( CtorName "Just" )
-                                                                  [ LiteralInt Nothing 57 ]
-                                                                ]
-                                                              ) :|
-                                                              [ Ctor Nothing SumType
-                                                                ( ModuleName "Data.Maybe" )
-                                                                ( TyName "Maybe" )
-                                                                ( CtorName "Just" )
-                                                                [ LiteralInt Nothing 58 ]
-                                                              ]
-                                                            ) :|
-                                                            [ Ctor Nothing SumType
-                                                              ( ModuleName "Data.Maybe" )
-                                                              ( TyName "Maybe" )
-                                                              ( CtorName "Just" )
-                                                              [ LiteralInt Nothing 59 ]
-                                                            ]
-                                                          ) :|
-                                                          [ Ctor Nothing SumType
-                                                            ( ModuleName "Data.Maybe" )
-                                                            ( TyName "Maybe" )
-                                                            ( CtorName "Just" )
-                                                            [ LiteralInt Nothing 60 ]
-                                                          ]
-                                                        ) :|
-                                                        [ Ctor Nothing SumType
-                                                          ( ModuleName "Data.Maybe" )
-                                                          ( TyName "Maybe" )
-                                                          ( CtorName "Just" )
-                                                          [ LiteralInt Nothing 61 ]
-                                                        ]
-                                                      ) :|
-                                                      [ Ctor Nothing SumType
-                                                        ( ModuleName "Data.Maybe" )
-                                                        ( TyName "Maybe" )
-                                                        ( CtorName "Just" )
-                                                        [ LiteralInt Nothing 62 ]
-                                                      ]
-                                                    ) :|
-                                                    [ Ctor Nothing SumType
-                                                      ( ModuleName "Data.Maybe" )
-                                                      ( TyName "Maybe" )
-                                                      ( CtorName "Just" )
-                                                      [ LiteralInt Nothing 63 ]
-                                                    ]
-                                                  ) :|
-                                                  [ Ctor Nothing SumType
-                                                    ( ModuleName "Data.Maybe" )
-                                                    ( TyName "Maybe" )
-                                                    ( CtorName "Just" )
-                                                    [ LiteralInt Nothing 64 ]
-                                                  ]
-                                                ) :|
-                                                [ Ctor Nothing SumType
-                                                  ( ModuleName "Data.Maybe" )
-                                                  ( TyName "Maybe" )
-                                                  ( CtorName "Just" )
-                                                  [ LiteralInt Nothing 65 ]
-                                                ]
-                                              ) :|
-                                              [ Ctor Nothing SumType
-                                                ( ModuleName "Data.Maybe" )
-                                                ( TyName "Maybe" )
-                                                ( CtorName "Just" )
-                                                [ LiteralInt Nothing 66 ]
-                                              ]
-                                            ) :|
-                                            [ Ctor Nothing SumType
-                                              ( ModuleName "Data.Maybe" )
-                                              ( TyName "Maybe" )
-                                              ( CtorName "Just" )
-                                              [ LiteralInt Nothing 67 ]
-                                            ]
-                                          ) :|
-                                          [ Ctor Nothing SumType
-                                            ( ModuleName "Data.Maybe" )
-                                            ( TyName "Maybe" )
-                                            ( CtorName "Just" )
-                                            [ LiteralInt Nothing 68 ]
-                                          ]
-                                        ) :|
-                                        [ Ctor Nothing SumType
-                                          ( ModuleName "Data.Maybe" )
-                                          ( TyName "Maybe" )
-                                          ( CtorName "Just" )
-                                          [ LiteralInt Nothing 69 ]
-                                        ]
-                                      ) :|
-                                      [ Ctor Nothing SumType
-                                        ( ModuleName "Data.Maybe" )
-                                        ( TyName "Maybe" )
-                                        ( CtorName "Just" )
-                                        [ LiteralInt Nothing 70 ]
-                                      ]
-                                    ) :|
-                                    [ Ctor Nothing SumType
-                                      ( ModuleName "Data.Maybe" )
-                                      ( TyName "Maybe" )
-                                      ( CtorName "Just" )
-                                      [ LiteralInt Nothing 71 ]
-                                    ]
-                                  ) :|
-                                  [ Ctor Nothing SumType
-                                    ( ModuleName "Data.Maybe" )
-                                    ( TyName "Maybe" )
-                                    ( CtorName "Just" )
-                                    [ LiteralInt Nothing 72 ]
-                                  ]
-                                ) :|
-                                [ Ctor Nothing SumType
-                                  ( ModuleName "Data.Maybe" )
-                                  ( TyName "Maybe" )
-                                  ( CtorName "Just" )
-                                  [ LiteralInt Nothing 73 ]
-                                ]
-                              ) :|
-                              [ Ctor Nothing SumType
-                                ( ModuleName "Data.Maybe" )
-                                ( TyName "Maybe" )
-                                ( CtorName "Just" )
-                                [ LiteralInt Nothing 74 ]
-                              ]
-                            ) :|
-                            [ Ctor Nothing SumType
-                              ( ModuleName "Data.Maybe" )
-                              ( TyName "Maybe" )
-                              ( CtorName "Just" )
-                              [ LiteralInt Nothing 75 ]
-                            ]
-                          ) :|
-                          [ Ctor Nothing SumType
-                            ( ModuleName "Data.Maybe" )
-                            ( TyName "Maybe" )
-                            ( CtorName "Just" )
-                            [ LiteralInt Nothing 76 ]
-                          ]
-                        ) :|
-                        [ Ctor Nothing SumType
-                          ( ModuleName "Data.Maybe" )
-                          ( TyName "Maybe" )
-                          ( CtorName "Just" )
-                          [ LiteralInt Nothing 77 ]
-                        ]
-                      ) :|
-                      [ Ctor Nothing SumType
-                        ( ModuleName "Data.Maybe" )
-                        ( TyName "Maybe" )
-                        ( CtorName "Just" )
-                        [ LiteralInt Nothing 78 ]
-                      ]
-                    ) :|
-                    [ Ctor Nothing SumType
-                      ( ModuleName "Data.Maybe" )
-                      ( TyName "Maybe" )
-                      ( CtorName "Just" )
-                      [ LiteralInt Nothing 79 ]
-                    ]
-                  ) :|
-                  [ Ctor Nothing SumType
-                    ( ModuleName "Data.Maybe" )
-                    ( TyName "Maybe" )
-                    ( CtorName "Just" )
-                    [ LiteralInt Nothing 80 ]
-                  ]
-                ) :|
-                [ Ctor Nothing SumType
-                  ( ModuleName "Data.Maybe" )
-                  ( TyName "Maybe" )
-                  ( CtorName "Just" )
-                  [ LiteralInt Nothing 81 ]
-                ]
-              )
-            ), Standalone
-            ( Nothing, Name "$tmp649", AppN Nothing
-              ( Ref Nothing
-                ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond$w" ) )
-              )
-              ( AppN Nothing
-                ( Ref Nothing
-                  ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond$w" ) )
-                )
-                ( AppN Nothing
-                  ( Ref Nothing
-                    ( Imported
-                      ( ModuleName "Golden.LongApplyChain.Test" )
-                      ( Name "applySecond$w" )
-                    )
-                  )
-                  ( AppN Nothing
-                    ( Ref Nothing
-                      ( Imported
-                        ( ModuleName "Golden.LongApplyChain.Test" )
-                        ( Name "applySecond$w" )
-                      )
-                    )
-                    ( AppN Nothing
-                      ( Ref Nothing
-                        ( Imported
-                          ( ModuleName "Golden.LongApplyChain.Test" )
-                          ( Name "applySecond$w" )
-                        )
-                      )
-                      ( AppN Nothing
-                        ( Ref Nothing
-                          ( Imported
-                            ( ModuleName "Golden.LongApplyChain.Test" )
-                            ( Name "applySecond$w" )
-                          )
-                        )
-                        ( AppN Nothing
-                          ( Ref Nothing
-                            ( Imported
-                              ( ModuleName "Golden.LongApplyChain.Test" )
-                              ( Name "applySecond$w" )
-                            )
-                          )
-                          ( AppN Nothing
-                            ( Ref Nothing
-                              ( Imported
-                                ( ModuleName "Golden.LongApplyChain.Test" )
-                                ( Name "applySecond$w" )
-                              )
-                            )
-                            ( AppN Nothing
-                              ( Ref Nothing
-                                ( Imported
-                                  ( ModuleName "Golden.LongApplyChain.Test" )
-                                  ( Name "applySecond$w" )
-                                )
-                              )
-                              ( AppN Nothing
-                                ( Ref Nothing
-                                  ( Imported
-                                    ( ModuleName "Golden.LongApplyChain.Test" )
-                                    ( Name "applySecond$w" )
-                                  )
-                                )
-                                ( AppN Nothing
-                                  ( Ref Nothing
-                                    ( Imported
-                                      ( ModuleName "Golden.LongApplyChain.Test" )
-                                      ( Name "applySecond$w" )
-                                    )
-                                  )
-                                  ( AppN Nothing
-                                    ( Ref Nothing
-                                      ( Imported
-                                        ( ModuleName "Golden.LongApplyChain.Test" )
-                                        ( Name "applySecond$w" )
-                                      )
-                                    )
-                                    ( AppN Nothing
-                                      ( Ref Nothing
-                                        ( Imported
-                                          ( ModuleName "Golden.LongApplyChain.Test" )
-                                          ( Name "applySecond$w" )
-                                        )
-                                      )
-                                      ( AppN Nothing
-                                        ( Ref Nothing
-                                          ( Imported
-                                            ( ModuleName "Golden.LongApplyChain.Test" )
-                                            ( Name "applySecond$w" )
-                                          )
-                                        )
-                                        ( AppN Nothing
-                                          ( Ref Nothing
-                                            ( Imported
-                                              ( ModuleName "Golden.LongApplyChain.Test" )
-                                              ( Name "applySecond$w" )
-                                            )
-                                          )
-                                          ( AppN Nothing
-                                            ( Ref Nothing
-                                              ( Imported
-                                                ( ModuleName "Golden.LongApplyChain.Test" )
-                                                ( Name "applySecond$w" )
-                                              )
-                                            )
-                                            ( AppN Nothing
-                                              ( Ref Nothing
-                                                ( Imported
-                                                  ( ModuleName "Golden.LongApplyChain.Test" )
-                                                  ( Name "applySecond$w" )
-                                                )
-                                              )
-                                              ( AppN Nothing
-                                                ( Ref Nothing
-                                                  ( Imported
-                                                    ( ModuleName "Golden.LongApplyChain.Test" )
-                                                    ( Name "applySecond$w" )
-                                                  )
-                                                )
-                                                ( AppN Nothing
-                                                  ( Ref Nothing
-                                                    ( Imported
-                                                      ( ModuleName "Golden.LongApplyChain.Test" )
-                                                      ( Name "applySecond$w" )
-                                                    )
-                                                  )
-                                                  ( AppN Nothing
-                                                    ( Ref Nothing
-                                                      ( Imported
-                                                        ( ModuleName "Golden.LongApplyChain.Test" )
-                                                        ( Name "applySecond$w" )
-                                                      )
-                                                    )
-                                                    ( AppN Nothing
-                                                      ( Ref Nothing
-                                                        ( Imported
-                                                          ( ModuleName "Golden.LongApplyChain.Test" )
-                                                          ( Name "applySecond$w" )
-                                                        )
-                                                      )
-                                                      ( AppN Nothing
-                                                        ( Ref Nothing
-                                                          ( Imported
-                                                            ( ModuleName "Golden.LongApplyChain.Test" )
-                                                            ( Name "applySecond$w" )
-                                                          )
-                                                        )
-                                                        ( AppN Nothing
-                                                          ( Ref Nothing
-                                                            ( Imported
-                                                              ( ModuleName "Golden.LongApplyChain.Test" )
-                                                              ( Name "applySecond$w" )
-                                                            )
-                                                          )
-                                                          ( AppN Nothing
-                                                            ( Ref Nothing
-                                                              ( Imported
-                                                                ( ModuleName "Golden.LongApplyChain.Test" )
-                                                                ( Name "applySecond$w" )
-                                                              )
-                                                            )
-                                                            ( AppN Nothing
-                                                              ( Ref Nothing
-                                                                ( Imported
-                                                                  ( ModuleName "Golden.LongApplyChain.Test" )
-                                                                  ( Name "applySecond$w" )
-                                                                )
-                                                              )
-                                                              ( AppN Nothing
-                                                                ( Ref Nothing
-                                                                  ( Imported
-                                                                    ( ModuleName "Golden.LongApplyChain.Test" )
-                                                                    ( Name "applySecond$w" )
-                                                                  )
-                                                                )
-                                                                ( AppN Nothing
-                                                                  ( Ref Nothing
-                                                                    ( Imported
-                                                                      ( ModuleName "Golden.LongApplyChain.Test" )
-                                                                      ( Name "applySecond$w" )
-                                                                    )
-                                                                  )
-                                                                  ( AppN Nothing
-                                                                    ( Ref Nothing
-                                                                      ( Imported
-                                                                        ( ModuleName "Golden.LongApplyChain.Test" )
-                                                                        ( Name "applySecond$w" )
-                                                                      )
-                                                                    )
-                                                                    ( AppN Nothing
-                                                                      ( Ref Nothing
-                                                                        ( Imported
-                                                                          ( ModuleName "Golden.LongApplyChain.Test" )
-                                                                          ( Name "applySecond$w" )
-                                                                        )
-                                                                      )
-                                                                      ( AppN Nothing
-                                                                        ( Ref Nothing
-                                                                          ( Imported
-                                                                            ( ModuleName "Golden.LongApplyChain.Test" )
-                                                                            ( Name "applySecond$w" )
-                                                                          )
-                                                                        )
-                                                                        ( AppN Nothing
-                                                                          ( Ref Nothing
-                                                                            ( Imported
-                                                                              ( ModuleName "Golden.LongApplyChain.Test" )
-                                                                              ( Name "applySecond$w" )
-                                                                            )
-                                                                          )
-                                                                          ( AppN Nothing
-                                                                            ( Ref Nothing
-                                                                              ( Imported
-                                                                                ( ModuleName "Golden.LongApplyChain.Test" )
-                                                                                ( Name "applySecond$w" )
-                                                                              )
-                                                                            )
-                                                                            ( AppN Nothing
-                                                                              ( Ref Nothing
-                                                                                ( Imported
-                                                                                  ( ModuleName "Golden.LongApplyChain.Test" )
-                                                                                  ( Name "applySecond$w" )
-                                                                                )
-                                                                              )
-                                                                              ( AppN Nothing
-                                                                                ( Ref Nothing
-                                                                                  ( Imported
-                                                                                    ( ModuleName "Golden.LongApplyChain.Test" )
-                                                                                    ( Name "applySecond$w" )
-                                                                                  )
-                                                                                )
-                                                                                ( AppN Nothing
-                                                                                  ( Ref Nothing
-                                                                                    ( Imported
-                                                                                      ( ModuleName "Golden.LongApplyChain.Test" )
-                                                                                      ( Name "applySecond$w" )
-                                                                                    )
-                                                                                  )
-                                                                                  ( AppN Nothing
-                                                                                    ( Ref Nothing
-                                                                                      ( Imported
-                                                                                        ( ModuleName "Golden.LongApplyChain.Test" )
-                                                                                        ( Name "applySecond$w" )
-                                                                                      )
-                                                                                    )
-                                                                                    ( AppN Nothing
-                                                                                      ( Ref Nothing
-                                                                                        ( Imported
-                                                                                          ( ModuleName "Golden.LongApplyChain.Test" )
-                                                                                          ( Name "applySecond$w" )
-                                                                                        )
-                                                                                      )
-                                                                                      ( AppN Nothing
-                                                                                        ( Ref Nothing
-                                                                                          ( Imported
-                                                                                            ( ModuleName "Golden.LongApplyChain.Test" )
-                                                                                            ( Name "applySecond$w" )
-                                                                                          )
-                                                                                        )
-                                                                                        ( AppN Nothing
-                                                                                          ( Ref Nothing
-                                                                                            ( Imported
-                                                                                              ( ModuleName "Golden.LongApplyChain.Test" )
-                                                                                              ( Name "applySecond$w" )
-                                                                                            )
-                                                                                          )
-                                                                                          ( AppN Nothing
-                                                                                            ( Ref Nothing
-                                                                                              ( Imported
-                                                                                                ( ModuleName "Golden.LongApplyChain.Test" )
-                                                                                                ( Name "applySecond$w" )
-                                                                                              )
-                                                                                            )
-                                                                                            ( Ref Nothing
-                                                                                              ( Local
-                                                                                                ( Name "$tmp648" )
-                                                                                              ) :|
-                                                                                              [ Ctor Nothing SumType
-                                                                                                ( ModuleName "Data.Maybe" )
-                                                                                                ( TyName "Maybe" )
-                                                                                                ( CtorName "Just" )
-                                                                                                [ LiteralInt Nothing 82 ]
-                                                                                              ]
-                                                                                            ) :|
-                                                                                            [ Ctor Nothing SumType
-                                                                                              ( ModuleName "Data.Maybe" )
-                                                                                              ( TyName "Maybe" )
-                                                                                              ( CtorName "Just" )
-                                                                                              [ LiteralInt Nothing 83 ]
-                                                                                            ]
-                                                                                          ) :|
-                                                                                          [ Ctor Nothing SumType
-                                                                                            ( ModuleName "Data.Maybe" )
-                                                                                            ( TyName "Maybe" )
-                                                                                            ( CtorName "Just" )
-                                                                                            [ LiteralInt Nothing 84 ]
-                                                                                          ]
-                                                                                        ) :|
-                                                                                        [ Ctor Nothing SumType
-                                                                                          ( ModuleName "Data.Maybe" )
-                                                                                          ( TyName "Maybe" )
-                                                                                          ( CtorName "Just" )
-                                                                                          [ LiteralInt Nothing 85 ]
-                                                                                        ]
-                                                                                      ) :|
-                                                                                      [ Ctor Nothing SumType
-                                                                                        ( ModuleName "Data.Maybe" )
-                                                                                        ( TyName "Maybe" )
-                                                                                        ( CtorName "Just" )
-                                                                                        [ LiteralInt Nothing 86 ]
-                                                                                      ]
-                                                                                    ) :|
-                                                                                    [ Ctor Nothing SumType
-                                                                                      ( ModuleName "Data.Maybe" )
-                                                                                      ( TyName "Maybe" )
-                                                                                      ( CtorName "Just" )
-                                                                                      [ LiteralInt Nothing 87 ]
-                                                                                    ]
-                                                                                  ) :|
-                                                                                  [ Ctor Nothing SumType
-                                                                                    ( ModuleName "Data.Maybe" )
-                                                                                    ( TyName "Maybe" )
-                                                                                    ( CtorName "Just" )
-                                                                                    [ LiteralInt Nothing 88 ]
-                                                                                  ]
-                                                                                ) :|
-                                                                                [ Ctor Nothing SumType
-                                                                                  ( ModuleName "Data.Maybe" )
-                                                                                  ( TyName "Maybe" )
-                                                                                  ( CtorName "Just" )
-                                                                                  [ LiteralInt Nothing 89 ]
-                                                                                ]
-                                                                              ) :|
-                                                                              [ Ctor Nothing SumType
-                                                                                ( ModuleName "Data.Maybe" )
-                                                                                ( TyName "Maybe" )
-                                                                                ( CtorName "Just" )
-                                                                                [ LiteralInt Nothing 90 ]
-                                                                              ]
-                                                                            ) :|
-                                                                            [ Ctor Nothing SumType
-                                                                              ( ModuleName "Data.Maybe" )
-                                                                              ( TyName "Maybe" )
-                                                                              ( CtorName "Just" )
-                                                                              [ LiteralInt Nothing 91 ]
-                                                                            ]
-                                                                          ) :|
-                                                                          [ Ctor Nothing SumType
-                                                                            ( ModuleName "Data.Maybe" )
-                                                                            ( TyName "Maybe" )
-                                                                            ( CtorName "Just" )
-                                                                            [ LiteralInt Nothing 92 ]
-                                                                          ]
-                                                                        ) :|
-                                                                        [ Ctor Nothing SumType
-                                                                          ( ModuleName "Data.Maybe" )
-                                                                          ( TyName "Maybe" )
-                                                                          ( CtorName "Just" )
-                                                                          [ LiteralInt Nothing 93 ]
-                                                                        ]
-                                                                      ) :|
-                                                                      [ Ctor Nothing SumType
-                                                                        ( ModuleName "Data.Maybe" )
-                                                                        ( TyName "Maybe" )
-                                                                        ( CtorName "Just" )
-                                                                        [ LiteralInt Nothing 94 ]
-                                                                      ]
-                                                                    ) :|
-                                                                    [ Ctor Nothing SumType
-                                                                      ( ModuleName "Data.Maybe" )
-                                                                      ( TyName "Maybe" )
-                                                                      ( CtorName "Just" )
-                                                                      [ LiteralInt Nothing 95 ]
-                                                                    ]
-                                                                  ) :|
-                                                                  [ Ctor Nothing SumType
-                                                                    ( ModuleName "Data.Maybe" )
-                                                                    ( TyName "Maybe" )
-                                                                    ( CtorName "Just" )
-                                                                    [ LiteralInt Nothing 96 ]
-                                                                  ]
-                                                                ) :|
-                                                                [ Ctor Nothing SumType
-                                                                  ( ModuleName "Data.Maybe" )
-                                                                  ( TyName "Maybe" )
-                                                                  ( CtorName "Just" )
-                                                                  [ LiteralInt Nothing 97 ]
-                                                                ]
-                                                              ) :|
-                                                              [ Ctor Nothing SumType
-                                                                ( ModuleName "Data.Maybe" )
-                                                                ( TyName "Maybe" )
-                                                                ( CtorName "Just" )
-                                                                [ LiteralInt Nothing 98 ]
-                                                              ]
-                                                            ) :|
-                                                            [ Ctor Nothing SumType
-                                                              ( ModuleName "Data.Maybe" )
-                                                              ( TyName "Maybe" )
-                                                              ( CtorName "Just" )
-                                                              [ LiteralInt Nothing 99 ]
-                                                            ]
-                                                          ) :|
-                                                          [ Ctor Nothing SumType
-                                                            ( ModuleName "Data.Maybe" )
-                                                            ( TyName "Maybe" )
-                                                            ( CtorName "Just" )
-                                                            [ LiteralInt Nothing 100 ]
-                                                          ]
-                                                        ) :|
-                                                        [ Ctor Nothing SumType
-                                                          ( ModuleName "Data.Maybe" )
-                                                          ( TyName "Maybe" )
-                                                          ( CtorName "Just" )
-                                                          [ LiteralInt Nothing 101 ]
-                                                        ]
-                                                      ) :|
-                                                      [ Ctor Nothing SumType
-                                                        ( ModuleName "Data.Maybe" )
-                                                        ( TyName "Maybe" )
-                                                        ( CtorName "Just" )
-                                                        [ LiteralInt Nothing 102 ]
-                                                      ]
-                                                    ) :|
-                                                    [ Ctor Nothing SumType
-                                                      ( ModuleName "Data.Maybe" )
-                                                      ( TyName "Maybe" )
-                                                      ( CtorName "Just" )
-                                                      [ LiteralInt Nothing 103 ]
-                                                    ]
-                                                  ) :|
-                                                  [ Ctor Nothing SumType
-                                                    ( ModuleName "Data.Maybe" )
-                                                    ( TyName "Maybe" )
-                                                    ( CtorName "Just" )
-                                                    [ LiteralInt Nothing 104 ]
-                                                  ]
-                                                ) :|
-                                                [ Ctor Nothing SumType
-                                                  ( ModuleName "Data.Maybe" )
-                                                  ( TyName "Maybe" )
-                                                  ( CtorName "Just" )
-                                                  [ LiteralInt Nothing 105 ]
-                                                ]
-                                              ) :|
-                                              [ Ctor Nothing SumType
-                                                ( ModuleName "Data.Maybe" )
-                                                ( TyName "Maybe" )
-                                                ( CtorName "Just" )
-                                                [ LiteralInt Nothing 106 ]
-                                              ]
-                                            ) :|
-                                            [ Ctor Nothing SumType
-                                              ( ModuleName "Data.Maybe" )
-                                              ( TyName "Maybe" )
-                                              ( CtorName "Just" )
-                                              [ LiteralInt Nothing 107 ]
-                                            ]
-                                          ) :|
-                                          [ Ctor Nothing SumType
-                                            ( ModuleName "Data.Maybe" )
-                                            ( TyName "Maybe" )
-                                            ( CtorName "Just" )
-                                            [ LiteralInt Nothing 108 ]
-                                          ]
-                                        ) :|
-                                        [ Ctor Nothing SumType
-                                          ( ModuleName "Data.Maybe" )
-                                          ( TyName "Maybe" )
-                                          ( CtorName "Just" )
-                                          [ LiteralInt Nothing 109 ]
-                                        ]
-                                      ) :|
-                                      [ Ctor Nothing SumType
-                                        ( ModuleName "Data.Maybe" )
-                                        ( TyName "Maybe" )
-                                        ( CtorName "Just" )
-                                        [ LiteralInt Nothing 110 ]
-                                      ]
-                                    ) :|
-                                    [ Ctor Nothing SumType
-                                      ( ModuleName "Data.Maybe" )
-                                      ( TyName "Maybe" )
-                                      ( CtorName "Just" )
-                                      [ LiteralInt Nothing 111 ]
-                                    ]
-                                  ) :|
-                                  [ Ctor Nothing SumType
-                                    ( ModuleName "Data.Maybe" )
-                                    ( TyName "Maybe" )
-                                    ( CtorName "Just" )
-                                    [ LiteralInt Nothing 112 ]
-                                  ]
-                                ) :|
-                                [ Ctor Nothing SumType
-                                  ( ModuleName "Data.Maybe" )
-                                  ( TyName "Maybe" )
-                                  ( CtorName "Just" )
-                                  [ LiteralInt Nothing 113 ]
-                                ]
-                              ) :|
-                              [ Ctor Nothing SumType
-                                ( ModuleName "Data.Maybe" )
-                                ( TyName "Maybe" )
-                                ( CtorName "Just" )
-                                [ LiteralInt Nothing 114 ]
-                              ]
-                            ) :|
-                            [ Ctor Nothing SumType
-                              ( ModuleName "Data.Maybe" )
-                              ( TyName "Maybe" )
-                              ( CtorName "Just" )
-                              [ LiteralInt Nothing 115 ]
-                            ]
-                          ) :|
-                          [ Ctor Nothing SumType
-                            ( ModuleName "Data.Maybe" )
-                            ( TyName "Maybe" )
-                            ( CtorName "Just" )
-                            [ LiteralInt Nothing 116 ]
-                          ]
-                        ) :|
-                        [ Ctor Nothing SumType
-                          ( ModuleName "Data.Maybe" )
-                          ( TyName "Maybe" )
-                          ( CtorName "Just" )
-                          [ LiteralInt Nothing 117 ]
-                        ]
-                      ) :|
-                      [ Ctor Nothing SumType
-                        ( ModuleName "Data.Maybe" )
-                        ( TyName "Maybe" )
-                        ( CtorName "Just" )
-                        [ LiteralInt Nothing 118 ]
-                      ]
-                    ) :|
-                    [ Ctor Nothing SumType
-                      ( ModuleName "Data.Maybe" )
-                      ( TyName "Maybe" )
-                      ( CtorName "Just" )
-                      [ LiteralInt Nothing 119 ]
-                    ]
-                  ) :|
-                  [ Ctor Nothing SumType
-                    ( ModuleName "Data.Maybe" )
-                    ( TyName "Maybe" )
-                    ( CtorName "Just" )
-                    [ LiteralInt Nothing 120 ]
-                  ]
-                ) :|
-                [ Ctor Nothing SumType
-                  ( ModuleName "Data.Maybe" )
-                  ( TyName "Maybe" )
-                  ( CtorName "Just" )
-                  [ LiteralInt Nothing 121 ]
-                ]
-              )
-            ), Standalone
-            ( Nothing, Name "$tmp650", AppN Nothing
-              ( Ref Nothing
-                ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond$w" ) )
-              )
-              ( AppN Nothing
-                ( Ref Nothing
-                  ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond$w" ) )
-                )
-                ( AppN Nothing
-                  ( Ref Nothing
-                    ( Imported
-                      ( ModuleName "Golden.LongApplyChain.Test" )
-                      ( Name "applySecond$w" )
-                    )
-                  )
-                  ( AppN Nothing
-                    ( Ref Nothing
-                      ( Imported
-                        ( ModuleName "Golden.LongApplyChain.Test" )
-                        ( Name "applySecond$w" )
-                      )
-                    )
-                    ( AppN Nothing
-                      ( Ref Nothing
-                        ( Imported
-                          ( ModuleName "Golden.LongApplyChain.Test" )
-                          ( Name "applySecond$w" )
-                        )
-                      )
-                      ( AppN Nothing
-                        ( Ref Nothing
-                          ( Imported
-                            ( ModuleName "Golden.LongApplyChain.Test" )
-                            ( Name "applySecond$w" )
-                          )
-                        )
-                        ( AppN Nothing
-                          ( Ref Nothing
-                            ( Imported
-                              ( ModuleName "Golden.LongApplyChain.Test" )
-                              ( Name "applySecond$w" )
-                            )
-                          )
-                          ( AppN Nothing
-                            ( Ref Nothing
-                              ( Imported
-                                ( ModuleName "Golden.LongApplyChain.Test" )
-                                ( Name "applySecond$w" )
-                              )
-                            )
-                            ( AppN Nothing
-                              ( Ref Nothing
-                                ( Imported
-                                  ( ModuleName "Golden.LongApplyChain.Test" )
-                                  ( Name "applySecond$w" )
-                                )
-                              )
-                              ( AppN Nothing
-                                ( Ref Nothing
-                                  ( Imported
-                                    ( ModuleName "Golden.LongApplyChain.Test" )
-                                    ( Name "applySecond$w" )
-                                  )
-                                )
-                                ( AppN Nothing
-                                  ( Ref Nothing
-                                    ( Imported
-                                      ( ModuleName "Golden.LongApplyChain.Test" )
-                                      ( Name "applySecond$w" )
-                                    )
-                                  )
-                                  ( AppN Nothing
-                                    ( Ref Nothing
-                                      ( Imported
-                                        ( ModuleName "Golden.LongApplyChain.Test" )
-                                        ( Name "applySecond$w" )
-                                      )
-                                    )
-                                    ( AppN Nothing
-                                      ( Ref Nothing
-                                        ( Imported
-                                          ( ModuleName "Golden.LongApplyChain.Test" )
-                                          ( Name "applySecond$w" )
-                                        )
-                                      )
-                                      ( AppN Nothing
-                                        ( Ref Nothing
-                                          ( Imported
-                                            ( ModuleName "Golden.LongApplyChain.Test" )
-                                            ( Name "applySecond$w" )
-                                          )
-                                        )
-                                        ( AppN Nothing
-                                          ( Ref Nothing
-                                            ( Imported
-                                              ( ModuleName "Golden.LongApplyChain.Test" )
-                                              ( Name "applySecond$w" )
-                                            )
-                                          )
-                                          ( AppN Nothing
-                                            ( Ref Nothing
-                                              ( Imported
-                                                ( ModuleName "Golden.LongApplyChain.Test" )
-                                                ( Name "applySecond$w" )
-                                              )
-                                            )
-                                            ( AppN Nothing
-                                              ( Ref Nothing
-                                                ( Imported
-                                                  ( ModuleName "Golden.LongApplyChain.Test" )
-                                                  ( Name "applySecond$w" )
-                                                )
-                                              )
-                                              ( AppN Nothing
-                                                ( Ref Nothing
-                                                  ( Imported
-                                                    ( ModuleName "Golden.LongApplyChain.Test" )
-                                                    ( Name "applySecond$w" )
-                                                  )
-                                                )
-                                                ( AppN Nothing
-                                                  ( Ref Nothing
-                                                    ( Imported
-                                                      ( ModuleName "Golden.LongApplyChain.Test" )
-                                                      ( Name "applySecond$w" )
-                                                    )
-                                                  )
-                                                  ( AppN Nothing
-                                                    ( Ref Nothing
-                                                      ( Imported
-                                                        ( ModuleName "Golden.LongApplyChain.Test" )
-                                                        ( Name "applySecond$w" )
-                                                      )
-                                                    )
-                                                    ( AppN Nothing
-                                                      ( Ref Nothing
-                                                        ( Imported
-                                                          ( ModuleName "Golden.LongApplyChain.Test" )
-                                                          ( Name "applySecond$w" )
-                                                        )
-                                                      )
-                                                      ( AppN Nothing
-                                                        ( Ref Nothing
-                                                          ( Imported
-                                                            ( ModuleName "Golden.LongApplyChain.Test" )
-                                                            ( Name "applySecond$w" )
-                                                          )
-                                                        )
-                                                        ( AppN Nothing
-                                                          ( Ref Nothing
-                                                            ( Imported
-                                                              ( ModuleName "Golden.LongApplyChain.Test" )
-                                                              ( Name "applySecond$w" )
-                                                            )
-                                                          )
-                                                          ( AppN Nothing
-                                                            ( Ref Nothing
-                                                              ( Imported
-                                                                ( ModuleName "Golden.LongApplyChain.Test" )
-                                                                ( Name "applySecond$w" )
-                                                              )
-                                                            )
-                                                            ( AppN Nothing
-                                                              ( Ref Nothing
-                                                                ( Imported
-                                                                  ( ModuleName "Golden.LongApplyChain.Test" )
-                                                                  ( Name "applySecond$w" )
-                                                                )
-                                                              )
-                                                              ( AppN Nothing
-                                                                ( Ref Nothing
-                                                                  ( Imported
-                                                                    ( ModuleName "Golden.LongApplyChain.Test" )
-                                                                    ( Name "applySecond$w" )
-                                                                  )
-                                                                )
-                                                                ( AppN Nothing
-                                                                  ( Ref Nothing
-                                                                    ( Imported
-                                                                      ( ModuleName "Golden.LongApplyChain.Test" )
-                                                                      ( Name "applySecond$w" )
-                                                                    )
-                                                                  )
-                                                                  ( AppN Nothing
-                                                                    ( Ref Nothing
-                                                                      ( Imported
-                                                                        ( ModuleName "Golden.LongApplyChain.Test" )
-                                                                        ( Name "applySecond$w" )
-                                                                      )
-                                                                    )
-                                                                    ( AppN Nothing
-                                                                      ( Ref Nothing
-                                                                        ( Imported
-                                                                          ( ModuleName "Golden.LongApplyChain.Test" )
-                                                                          ( Name "applySecond$w" )
-                                                                        )
-                                                                      )
-                                                                      ( AppN Nothing
-                                                                        ( Ref Nothing
-                                                                          ( Imported
-                                                                            ( ModuleName "Golden.LongApplyChain.Test" )
-                                                                            ( Name "applySecond$w" )
-                                                                          )
-                                                                        )
-                                                                        ( AppN Nothing
-                                                                          ( Ref Nothing
-                                                                            ( Imported
-                                                                              ( ModuleName "Golden.LongApplyChain.Test" )
-                                                                              ( Name "applySecond$w" )
-                                                                            )
-                                                                          )
-                                                                          ( AppN Nothing
-                                                                            ( Ref Nothing
-                                                                              ( Imported
-                                                                                ( ModuleName "Golden.LongApplyChain.Test" )
-                                                                                ( Name "applySecond$w" )
-                                                                              )
-                                                                            )
-                                                                            ( AppN Nothing
-                                                                              ( Ref Nothing
-                                                                                ( Imported
-                                                                                  ( ModuleName "Golden.LongApplyChain.Test" )
-                                                                                  ( Name "applySecond$w" )
-                                                                                )
-                                                                              )
-                                                                              ( AppN Nothing
-                                                                                ( Ref Nothing
-                                                                                  ( Imported
-                                                                                    ( ModuleName "Golden.LongApplyChain.Test" )
-                                                                                    ( Name "applySecond$w" )
-                                                                                  )
-                                                                                )
-                                                                                ( AppN Nothing
-                                                                                  ( Ref Nothing
-                                                                                    ( Imported
-                                                                                      ( ModuleName "Golden.LongApplyChain.Test" )
-                                                                                      ( Name "applySecond$w" )
-                                                                                    )
-                                                                                  )
-                                                                                  ( AppN Nothing
-                                                                                    ( Ref Nothing
-                                                                                      ( Imported
-                                                                                        ( ModuleName "Golden.LongApplyChain.Test" )
-                                                                                        ( Name "applySecond$w" )
-                                                                                      )
-                                                                                    )
-                                                                                    ( AppN Nothing
-                                                                                      ( Ref Nothing
-                                                                                        ( Imported
-                                                                                          ( ModuleName "Golden.LongApplyChain.Test" )
-                                                                                          ( Name "applySecond$w" )
-                                                                                        )
-                                                                                      )
-                                                                                      ( AppN Nothing
-                                                                                        ( Ref Nothing
-                                                                                          ( Imported
-                                                                                            ( ModuleName "Golden.LongApplyChain.Test" )
-                                                                                            ( Name "applySecond$w" )
-                                                                                          )
-                                                                                        )
-                                                                                        ( AppN Nothing
-                                                                                          ( Ref Nothing
-                                                                                            ( Imported
-                                                                                              ( ModuleName "Golden.LongApplyChain.Test" )
-                                                                                              ( Name "applySecond$w" )
-                                                                                            )
-                                                                                          )
-                                                                                          ( AppN Nothing
-                                                                                            ( Ref Nothing
-                                                                                              ( Imported
-                                                                                                ( ModuleName "Golden.LongApplyChain.Test" )
-                                                                                                ( Name "applySecond$w" )
-                                                                                              )
-                                                                                            )
-                                                                                            ( Ref Nothing
-                                                                                              ( Local
-                                                                                                ( Name "$tmp649" )
-                                                                                              ) :|
-                                                                                              [ Ctor Nothing SumType
-                                                                                                ( ModuleName "Data.Maybe" )
-                                                                                                ( TyName "Maybe" )
-                                                                                                ( CtorName "Just" )
-                                                                                                [ LiteralInt Nothing 122 ]
-                                                                                              ]
-                                                                                            ) :|
-                                                                                            [ Ctor Nothing SumType
-                                                                                              ( ModuleName "Data.Maybe" )
-                                                                                              ( TyName "Maybe" )
-                                                                                              ( CtorName "Just" )
-                                                                                              [ LiteralInt Nothing 123 ]
-                                                                                            ]
-                                                                                          ) :|
-                                                                                          [ Ctor Nothing SumType
-                                                                                            ( ModuleName "Data.Maybe" )
-                                                                                            ( TyName "Maybe" )
-                                                                                            ( CtorName "Just" )
-                                                                                            [ LiteralInt Nothing 124 ]
-                                                                                          ]
-                                                                                        ) :|
-                                                                                        [ Ctor Nothing SumType
-                                                                                          ( ModuleName "Data.Maybe" )
-                                                                                          ( TyName "Maybe" )
-                                                                                          ( CtorName "Just" )
-                                                                                          [ LiteralInt Nothing 125 ]
-                                                                                        ]
-                                                                                      ) :|
-                                                                                      [ Ctor Nothing SumType
-                                                                                        ( ModuleName "Data.Maybe" )
-                                                                                        ( TyName "Maybe" )
-                                                                                        ( CtorName "Just" )
-                                                                                        [ LiteralInt Nothing 126 ]
-                                                                                      ]
-                                                                                    ) :|
-                                                                                    [ Ctor Nothing SumType
-                                                                                      ( ModuleName "Data.Maybe" )
-                                                                                      ( TyName "Maybe" )
-                                                                                      ( CtorName "Just" )
-                                                                                      [ LiteralInt Nothing 127 ]
-                                                                                    ]
-                                                                                  ) :|
-                                                                                  [ Ctor Nothing SumType
-                                                                                    ( ModuleName "Data.Maybe" )
-                                                                                    ( TyName "Maybe" )
-                                                                                    ( CtorName "Just" )
-                                                                                    [ LiteralInt Nothing 128 ]
-                                                                                  ]
-                                                                                ) :|
-                                                                                [ Ctor Nothing SumType
-                                                                                  ( ModuleName "Data.Maybe" )
-                                                                                  ( TyName "Maybe" )
-                                                                                  ( CtorName "Just" )
-                                                                                  [ LiteralInt Nothing 129 ]
-                                                                                ]
-                                                                              ) :|
-                                                                              [ Ctor Nothing SumType
-                                                                                ( ModuleName "Data.Maybe" )
-                                                                                ( TyName "Maybe" )
-                                                                                ( CtorName "Just" )
-                                                                                [ LiteralInt Nothing 130 ]
-                                                                              ]
-                                                                            ) :|
-                                                                            [ Ctor Nothing SumType
-                                                                              ( ModuleName "Data.Maybe" )
-                                                                              ( TyName "Maybe" )
-                                                                              ( CtorName "Just" )
-                                                                              [ LiteralInt Nothing 131 ]
-                                                                            ]
-                                                                          ) :|
-                                                                          [ Ctor Nothing SumType
-                                                                            ( ModuleName "Data.Maybe" )
-                                                                            ( TyName "Maybe" )
-                                                                            ( CtorName "Just" )
-                                                                            [ LiteralInt Nothing 132 ]
-                                                                          ]
-                                                                        ) :|
-                                                                        [ Ctor Nothing SumType
-                                                                          ( ModuleName "Data.Maybe" )
-                                                                          ( TyName "Maybe" )
-                                                                          ( CtorName "Just" )
-                                                                          [ LiteralInt Nothing 133 ]
-                                                                        ]
-                                                                      ) :|
-                                                                      [ Ctor Nothing SumType
-                                                                        ( ModuleName "Data.Maybe" )
-                                                                        ( TyName "Maybe" )
-                                                                        ( CtorName "Just" )
-                                                                        [ LiteralInt Nothing 134 ]
-                                                                      ]
-                                                                    ) :|
-                                                                    [ Ctor Nothing SumType
-                                                                      ( ModuleName "Data.Maybe" )
-                                                                      ( TyName "Maybe" )
-                                                                      ( CtorName "Just" )
-                                                                      [ LiteralInt Nothing 135 ]
-                                                                    ]
-                                                                  ) :|
-                                                                  [ Ctor Nothing SumType
-                                                                    ( ModuleName "Data.Maybe" )
-                                                                    ( TyName "Maybe" )
-                                                                    ( CtorName "Just" )
-                                                                    [ LiteralInt Nothing 136 ]
-                                                                  ]
-                                                                ) :|
-                                                                [ Ctor Nothing SumType
-                                                                  ( ModuleName "Data.Maybe" )
-                                                                  ( TyName "Maybe" )
-                                                                  ( CtorName "Just" )
-                                                                  [ LiteralInt Nothing 137 ]
-                                                                ]
-                                                              ) :|
-                                                              [ Ctor Nothing SumType
-                                                                ( ModuleName "Data.Maybe" )
-                                                                ( TyName "Maybe" )
-                                                                ( CtorName "Just" )
-                                                                [ LiteralInt Nothing 138 ]
-                                                              ]
-                                                            ) :|
-                                                            [ Ctor Nothing SumType
-                                                              ( ModuleName "Data.Maybe" )
-                                                              ( TyName "Maybe" )
-                                                              ( CtorName "Just" )
-                                                              [ LiteralInt Nothing 139 ]
-                                                            ]
-                                                          ) :|
-                                                          [ Ctor Nothing SumType
-                                                            ( ModuleName "Data.Maybe" )
-                                                            ( TyName "Maybe" )
-                                                            ( CtorName "Just" )
-                                                            [ LiteralInt Nothing 140 ]
-                                                          ]
-                                                        ) :|
-                                                        [ Ctor Nothing SumType
-                                                          ( ModuleName "Data.Maybe" )
-                                                          ( TyName "Maybe" )
-                                                          ( CtorName "Just" )
-                                                          [ LiteralInt Nothing 141 ]
-                                                        ]
-                                                      ) :|
-                                                      [ Ctor Nothing SumType
-                                                        ( ModuleName "Data.Maybe" )
-                                                        ( TyName "Maybe" )
-                                                        ( CtorName "Just" )
-                                                        [ LiteralInt Nothing 142 ]
-                                                      ]
-                                                    ) :|
-                                                    [ Ctor Nothing SumType
-                                                      ( ModuleName "Data.Maybe" )
-                                                      ( TyName "Maybe" )
-                                                      ( CtorName "Just" )
-                                                      [ LiteralInt Nothing 143 ]
-                                                    ]
-                                                  ) :|
-                                                  [ Ctor Nothing SumType
-                                                    ( ModuleName "Data.Maybe" )
-                                                    ( TyName "Maybe" )
-                                                    ( CtorName "Just" )
-                                                    [ LiteralInt Nothing 144 ]
-                                                  ]
-                                                ) :|
-                                                [ Ctor Nothing SumType
-                                                  ( ModuleName "Data.Maybe" )
-                                                  ( TyName "Maybe" )
-                                                  ( CtorName "Just" )
-                                                  [ LiteralInt Nothing 145 ]
-                                                ]
-                                              ) :|
-                                              [ Ctor Nothing SumType
-                                                ( ModuleName "Data.Maybe" )
-                                                ( TyName "Maybe" )
-                                                ( CtorName "Just" )
-                                                [ LiteralInt Nothing 146 ]
-                                              ]
-                                            ) :|
-                                            [ Ctor Nothing SumType
-                                              ( ModuleName "Data.Maybe" )
-                                              ( TyName "Maybe" )
-                                              ( CtorName "Just" )
-                                              [ LiteralInt Nothing 147 ]
-                                            ]
-                                          ) :|
-                                          [ Ctor Nothing SumType
-                                            ( ModuleName "Data.Maybe" )
-                                            ( TyName "Maybe" )
-                                            ( CtorName "Just" )
-                                            [ LiteralInt Nothing 148 ]
-                                          ]
-                                        ) :|
-                                        [ Ctor Nothing SumType
-                                          ( ModuleName "Data.Maybe" )
-                                          ( TyName "Maybe" )
-                                          ( CtorName "Just" )
-                                          [ LiteralInt Nothing 149 ]
-                                        ]
-                                      ) :|
-                                      [ Ctor Nothing SumType
-                                        ( ModuleName "Data.Maybe" )
-                                        ( TyName "Maybe" )
-                                        ( CtorName "Just" )
-                                        [ LiteralInt Nothing 150 ]
-                                      ]
-                                    ) :|
-                                    [ Ctor Nothing SumType
-                                      ( ModuleName "Data.Maybe" )
-                                      ( TyName "Maybe" )
-                                      ( CtorName "Just" )
-                                      [ LiteralInt Nothing 151 ]
-                                    ]
-                                  ) :|
-                                  [ Ctor Nothing SumType
-                                    ( ModuleName "Data.Maybe" )
-                                    ( TyName "Maybe" )
-                                    ( CtorName "Just" )
-                                    [ LiteralInt Nothing 152 ]
-                                  ]
-                                ) :|
-                                [ Ctor Nothing SumType
-                                  ( ModuleName "Data.Maybe" )
-                                  ( TyName "Maybe" )
-                                  ( CtorName "Just" )
-                                  [ LiteralInt Nothing 153 ]
-                                ]
-                              ) :|
-                              [ Ctor Nothing SumType
-                                ( ModuleName "Data.Maybe" )
-                                ( TyName "Maybe" )
-                                ( CtorName "Just" )
-                                [ LiteralInt Nothing 154 ]
-                              ]
-                            ) :|
-                            [ Ctor Nothing SumType
-                              ( ModuleName "Data.Maybe" )
-                              ( TyName "Maybe" )
-                              ( CtorName "Just" )
-                              [ LiteralInt Nothing 155 ]
-                            ]
-                          ) :|
-                          [ Ctor Nothing SumType
-                            ( ModuleName "Data.Maybe" )
-                            ( TyName "Maybe" )
-                            ( CtorName "Just" )
-                            [ LiteralInt Nothing 156 ]
-                          ]
-                        ) :|
-                        [ Ctor Nothing SumType
-                          ( ModuleName "Data.Maybe" )
-                          ( TyName "Maybe" )
-                          ( CtorName "Just" )
-                          [ LiteralInt Nothing 157 ]
-                        ]
-                      ) :|
-                      [ Ctor Nothing SumType
-                        ( ModuleName "Data.Maybe" )
-                        ( TyName "Maybe" )
-                        ( CtorName "Just" )
-                        [ LiteralInt Nothing 158 ]
-                      ]
-                    ) :|
-                    [ Ctor Nothing SumType
-                      ( ModuleName "Data.Maybe" )
-                      ( TyName "Maybe" )
-                      ( CtorName "Just" )
-                      [ LiteralInt Nothing 159 ]
-                    ]
-                  ) :|
-                  [ Ctor Nothing SumType
-                    ( ModuleName "Data.Maybe" )
-                    ( TyName "Maybe" )
-                    ( CtorName "Just" )
-                    [ LiteralInt Nothing 160 ]
-                  ]
-                ) :|
-                [ Ctor Nothing SumType
-                  ( ModuleName "Data.Maybe" )
-                  ( TyName "Maybe" )
-                  ( CtorName "Just" )
-                  [ LiteralInt Nothing 161 ]
-                ]
-              )
-            ), Standalone
-            ( Nothing, Name "$tmp651", AppN Nothing
-              ( Ref Nothing
-                ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond$w" ) )
-              )
-              ( AppN Nothing
-                ( Ref Nothing
-                  ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond$w" ) )
-                )
-                ( AppN Nothing
-                  ( Ref Nothing
-                    ( Imported
-                      ( ModuleName "Golden.LongApplyChain.Test" )
-                      ( Name "applySecond$w" )
-                    )
-                  )
-                  ( AppN Nothing
-                    ( Ref Nothing
-                      ( Imported
-                        ( ModuleName "Golden.LongApplyChain.Test" )
-                        ( Name "applySecond$w" )
-                      )
-                    )
-                    ( AppN Nothing
-                      ( Ref Nothing
-                        ( Imported
-                          ( ModuleName "Golden.LongApplyChain.Test" )
-                          ( Name "applySecond$w" )
-                        )
-                      )
-                      ( AppN Nothing
-                        ( Ref Nothing
-                          ( Imported
-                            ( ModuleName "Golden.LongApplyChain.Test" )
-                            ( Name "applySecond$w" )
-                          )
-                        )
-                        ( AppN Nothing
-                          ( Ref Nothing
-                            ( Imported
-                              ( ModuleName "Golden.LongApplyChain.Test" )
-                              ( Name "applySecond$w" )
-                            )
-                          )
-                          ( AppN Nothing
-                            ( Ref Nothing
-                              ( Imported
-                                ( ModuleName "Golden.LongApplyChain.Test" )
-                                ( Name "applySecond$w" )
-                              )
-                            )
-                            ( AppN Nothing
-                              ( Ref Nothing
-                                ( Imported
-                                  ( ModuleName "Golden.LongApplyChain.Test" )
-                                  ( Name "applySecond$w" )
-                                )
-                              )
-                              ( AppN Nothing
-                                ( Ref Nothing
-                                  ( Imported
-                                    ( ModuleName "Golden.LongApplyChain.Test" )
-                                    ( Name "applySecond$w" )
-                                  )
-                                )
-                                ( AppN Nothing
-                                  ( Ref Nothing
-                                    ( Imported
-                                      ( ModuleName "Golden.LongApplyChain.Test" )
-                                      ( Name "applySecond$w" )
-                                    )
-                                  )
-                                  ( AppN Nothing
-                                    ( Ref Nothing
-                                      ( Imported
-                                        ( ModuleName "Golden.LongApplyChain.Test" )
-                                        ( Name "applySecond$w" )
-                                      )
-                                    )
-                                    ( AppN Nothing
-                                      ( Ref Nothing
-                                        ( Imported
-                                          ( ModuleName "Golden.LongApplyChain.Test" )
-                                          ( Name "applySecond$w" )
-                                        )
-                                      )
-                                      ( AppN Nothing
-                                        ( Ref Nothing
-                                          ( Imported
-                                            ( ModuleName "Golden.LongApplyChain.Test" )
-                                            ( Name "applySecond$w" )
-                                          )
-                                        )
-                                        ( AppN Nothing
-                                          ( Ref Nothing
-                                            ( Imported
-                                              ( ModuleName "Golden.LongApplyChain.Test" )
-                                              ( Name "applySecond$w" )
-                                            )
-                                          )
-                                          ( AppN Nothing
-                                            ( Ref Nothing
-                                              ( Imported
-                                                ( ModuleName "Golden.LongApplyChain.Test" )
-                                                ( Name "applySecond$w" )
-                                              )
-                                            )
-                                            ( AppN Nothing
-                                              ( Ref Nothing
-                                                ( Imported
-                                                  ( ModuleName "Golden.LongApplyChain.Test" )
-                                                  ( Name "applySecond$w" )
-                                                )
-                                              )
-                                              ( AppN Nothing
-                                                ( Ref Nothing
-                                                  ( Imported
-                                                    ( ModuleName "Golden.LongApplyChain.Test" )
-                                                    ( Name "applySecond$w" )
-                                                  )
-                                                )
-                                                ( AppN Nothing
-                                                  ( Ref Nothing
-                                                    ( Imported
-                                                      ( ModuleName "Golden.LongApplyChain.Test" )
-                                                      ( Name "applySecond$w" )
-                                                    )
-                                                  )
-                                                  ( AppN Nothing
-                                                    ( Ref Nothing
-                                                      ( Imported
-                                                        ( ModuleName "Golden.LongApplyChain.Test" )
-                                                        ( Name "applySecond$w" )
-                                                      )
-                                                    )
-                                                    ( AppN Nothing
-                                                      ( Ref Nothing
-                                                        ( Imported
-                                                          ( ModuleName "Golden.LongApplyChain.Test" )
-                                                          ( Name "applySecond$w" )
-                                                        )
-                                                      )
-                                                      ( AppN Nothing
-                                                        ( Ref Nothing
-                                                          ( Imported
-                                                            ( ModuleName "Golden.LongApplyChain.Test" )
-                                                            ( Name "applySecond$w" )
-                                                          )
-                                                        )
-                                                        ( AppN Nothing
-                                                          ( Ref Nothing
-                                                            ( Imported
-                                                              ( ModuleName "Golden.LongApplyChain.Test" )
-                                                              ( Name "applySecond$w" )
-                                                            )
-                                                          )
-                                                          ( AppN Nothing
-                                                            ( Ref Nothing
-                                                              ( Imported
-                                                                ( ModuleName "Golden.LongApplyChain.Test" )
-                                                                ( Name "applySecond$w" )
-                                                              )
-                                                            )
-                                                            ( AppN Nothing
-                                                              ( Ref Nothing
-                                                                ( Imported
-                                                                  ( ModuleName "Golden.LongApplyChain.Test" )
-                                                                  ( Name "applySecond$w" )
-                                                                )
-                                                              )
-                                                              ( AppN Nothing
-                                                                ( Ref Nothing
-                                                                  ( Imported
-                                                                    ( ModuleName "Golden.LongApplyChain.Test" )
-                                                                    ( Name "applySecond$w" )
-                                                                  )
-                                                                )
-                                                                ( AppN Nothing
-                                                                  ( Ref Nothing
-                                                                    ( Imported
-                                                                      ( ModuleName "Golden.LongApplyChain.Test" )
-                                                                      ( Name "applySecond$w" )
-                                                                    )
-                                                                  )
-                                                                  ( AppN Nothing
-                                                                    ( Ref Nothing
-                                                                      ( Imported
-                                                                        ( ModuleName "Golden.LongApplyChain.Test" )
-                                                                        ( Name "applySecond$w" )
-                                                                      )
-                                                                    )
-                                                                    ( AppN Nothing
-                                                                      ( Ref Nothing
-                                                                        ( Imported
-                                                                          ( ModuleName "Golden.LongApplyChain.Test" )
-                                                                          ( Name "applySecond$w" )
-                                                                        )
-                                                                      )
-                                                                      ( AppN Nothing
-                                                                        ( Ref Nothing
-                                                                          ( Imported
-                                                                            ( ModuleName "Golden.LongApplyChain.Test" )
-                                                                            ( Name "applySecond$w" )
-                                                                          )
-                                                                        )
-                                                                        ( AppN Nothing
-                                                                          ( Ref Nothing
-                                                                            ( Imported
-                                                                              ( ModuleName "Golden.LongApplyChain.Test" )
-                                                                              ( Name "applySecond$w" )
-                                                                            )
-                                                                          )
-                                                                          ( AppN Nothing
-                                                                            ( Ref Nothing
-                                                                              ( Imported
-                                                                                ( ModuleName "Golden.LongApplyChain.Test" )
-                                                                                ( Name "applySecond$w" )
-                                                                              )
-                                                                            )
-                                                                            ( AppN Nothing
-                                                                              ( Ref Nothing
-                                                                                ( Imported
-                                                                                  ( ModuleName "Golden.LongApplyChain.Test" )
-                                                                                  ( Name "applySecond$w" )
-                                                                                )
-                                                                              )
-                                                                              ( AppN Nothing
-                                                                                ( Ref Nothing
-                                                                                  ( Imported
-                                                                                    ( ModuleName "Golden.LongApplyChain.Test" )
-                                                                                    ( Name "applySecond$w" )
-                                                                                  )
-                                                                                )
-                                                                                ( AppN Nothing
-                                                                                  ( Ref Nothing
-                                                                                    ( Imported
-                                                                                      ( ModuleName "Golden.LongApplyChain.Test" )
-                                                                                      ( Name "applySecond$w" )
-                                                                                    )
-                                                                                  )
-                                                                                  ( AppN Nothing
-                                                                                    ( Ref Nothing
-                                                                                      ( Imported
-                                                                                        ( ModuleName "Golden.LongApplyChain.Test" )
-                                                                                        ( Name "applySecond$w" )
-                                                                                      )
-                                                                                    )
-                                                                                    ( AppN Nothing
-                                                                                      ( Ref Nothing
-                                                                                        ( Imported
-                                                                                          ( ModuleName "Golden.LongApplyChain.Test" )
-                                                                                          ( Name "applySecond$w" )
-                                                                                        )
-                                                                                      )
-                                                                                      ( AppN Nothing
-                                                                                        ( Ref Nothing
-                                                                                          ( Imported
-                                                                                            ( ModuleName "Golden.LongApplyChain.Test" )
-                                                                                            ( Name "applySecond$w" )
-                                                                                          )
-                                                                                        )
-                                                                                        ( AppN Nothing
-                                                                                          ( Ref Nothing
-                                                                                            ( Imported
-                                                                                              ( ModuleName "Golden.LongApplyChain.Test" )
-                                                                                              ( Name "applySecond$w" )
-                                                                                            )
-                                                                                          )
-                                                                                          ( AppN Nothing
-                                                                                            ( Ref Nothing
-                                                                                              ( Imported
-                                                                                                ( ModuleName "Golden.LongApplyChain.Test" )
-                                                                                                ( Name "applySecond$w" )
-                                                                                              )
-                                                                                            )
-                                                                                            ( Ref Nothing
-                                                                                              ( Local
-                                                                                                ( Name "$tmp650" )
-                                                                                              ) :|
-                                                                                              [ Ctor Nothing SumType
-                                                                                                ( ModuleName "Data.Maybe" )
-                                                                                                ( TyName "Maybe" )
-                                                                                                ( CtorName "Just" )
-                                                                                                [ LiteralInt Nothing 162 ]
-                                                                                              ]
-                                                                                            ) :|
-                                                                                            [ Ctor Nothing SumType
-                                                                                              ( ModuleName "Data.Maybe" )
-                                                                                              ( TyName "Maybe" )
-                                                                                              ( CtorName "Just" )
-                                                                                              [ LiteralInt Nothing 163 ]
-                                                                                            ]
-                                                                                          ) :|
-                                                                                          [ Ctor Nothing SumType
-                                                                                            ( ModuleName "Data.Maybe" )
-                                                                                            ( TyName "Maybe" )
-                                                                                            ( CtorName "Just" )
-                                                                                            [ LiteralInt Nothing 164 ]
-                                                                                          ]
-                                                                                        ) :|
-                                                                                        [ Ctor Nothing SumType
-                                                                                          ( ModuleName "Data.Maybe" )
-                                                                                          ( TyName "Maybe" )
-                                                                                          ( CtorName "Just" )
-                                                                                          [ LiteralInt Nothing 165 ]
-                                                                                        ]
-                                                                                      ) :|
-                                                                                      [ Ctor Nothing SumType
-                                                                                        ( ModuleName "Data.Maybe" )
-                                                                                        ( TyName "Maybe" )
-                                                                                        ( CtorName "Just" )
-                                                                                        [ LiteralInt Nothing 166 ]
-                                                                                      ]
-                                                                                    ) :|
-                                                                                    [ Ctor Nothing SumType
-                                                                                      ( ModuleName "Data.Maybe" )
-                                                                                      ( TyName "Maybe" )
-                                                                                      ( CtorName "Just" )
-                                                                                      [ LiteralInt Nothing 167 ]
-                                                                                    ]
-                                                                                  ) :|
-                                                                                  [ Ctor Nothing SumType
-                                                                                    ( ModuleName "Data.Maybe" )
-                                                                                    ( TyName "Maybe" )
-                                                                                    ( CtorName "Just" )
-                                                                                    [ LiteralInt Nothing 168 ]
-                                                                                  ]
-                                                                                ) :|
-                                                                                [ Ctor Nothing SumType
-                                                                                  ( ModuleName "Data.Maybe" )
-                                                                                  ( TyName "Maybe" )
-                                                                                  ( CtorName "Just" )
-                                                                                  [ LiteralInt Nothing 169 ]
-                                                                                ]
-                                                                              ) :|
-                                                                              [ Ctor Nothing SumType
-                                                                                ( ModuleName "Data.Maybe" )
-                                                                                ( TyName "Maybe" )
-                                                                                ( CtorName "Just" )
-                                                                                [ LiteralInt Nothing 170 ]
-                                                                              ]
-                                                                            ) :|
-                                                                            [ Ctor Nothing SumType
-                                                                              ( ModuleName "Data.Maybe" )
-                                                                              ( TyName "Maybe" )
-                                                                              ( CtorName "Just" )
-                                                                              [ LiteralInt Nothing 171 ]
-                                                                            ]
-                                                                          ) :|
-                                                                          [ Ctor Nothing SumType
-                                                                            ( ModuleName "Data.Maybe" )
-                                                                            ( TyName "Maybe" )
-                                                                            ( CtorName "Just" )
-                                                                            [ LiteralInt Nothing 172 ]
-                                                                          ]
-                                                                        ) :|
-                                                                        [ Ctor Nothing SumType
-                                                                          ( ModuleName "Data.Maybe" )
-                                                                          ( TyName "Maybe" )
-                                                                          ( CtorName "Just" )
-                                                                          [ LiteralInt Nothing 173 ]
-                                                                        ]
-                                                                      ) :|
-                                                                      [ Ctor Nothing SumType
-                                                                        ( ModuleName "Data.Maybe" )
-                                                                        ( TyName "Maybe" )
-                                                                        ( CtorName "Just" )
-                                                                        [ LiteralInt Nothing 174 ]
-                                                                      ]
-                                                                    ) :|
-                                                                    [ Ctor Nothing SumType
-                                                                      ( ModuleName "Data.Maybe" )
-                                                                      ( TyName "Maybe" )
-                                                                      ( CtorName "Just" )
-                                                                      [ LiteralInt Nothing 175 ]
-                                                                    ]
-                                                                  ) :|
-                                                                  [ Ctor Nothing SumType
-                                                                    ( ModuleName "Data.Maybe" )
-                                                                    ( TyName "Maybe" )
-                                                                    ( CtorName "Just" )
-                                                                    [ LiteralInt Nothing 176 ]
-                                                                  ]
-                                                                ) :|
-                                                                [ Ctor Nothing SumType
-                                                                  ( ModuleName "Data.Maybe" )
-                                                                  ( TyName "Maybe" )
-                                                                  ( CtorName "Just" )
-                                                                  [ LiteralInt Nothing 177 ]
-                                                                ]
-                                                              ) :|
-                                                              [ Ctor Nothing SumType
-                                                                ( ModuleName "Data.Maybe" )
-                                                                ( TyName "Maybe" )
-                                                                ( CtorName "Just" )
-                                                                [ LiteralInt Nothing 178 ]
-                                                              ]
-                                                            ) :|
-                                                            [ Ctor Nothing SumType
-                                                              ( ModuleName "Data.Maybe" )
-                                                              ( TyName "Maybe" )
-                                                              ( CtorName "Just" )
-                                                              [ LiteralInt Nothing 179 ]
-                                                            ]
-                                                          ) :|
-                                                          [ Ctor Nothing SumType
-                                                            ( ModuleName "Data.Maybe" )
-                                                            ( TyName "Maybe" )
-                                                            ( CtorName "Just" )
-                                                            [ LiteralInt Nothing 180 ]
-                                                          ]
-                                                        ) :|
-                                                        [ Ctor Nothing SumType
-                                                          ( ModuleName "Data.Maybe" )
-                                                          ( TyName "Maybe" )
-                                                          ( CtorName "Just" )
-                                                          [ LiteralInt Nothing 181 ]
-                                                        ]
-                                                      ) :|
-                                                      [ Ctor Nothing SumType
-                                                        ( ModuleName "Data.Maybe" )
-                                                        ( TyName "Maybe" )
-                                                        ( CtorName "Just" )
-                                                        [ LiteralInt Nothing 182 ]
-                                                      ]
-                                                    ) :|
-                                                    [ Ctor Nothing SumType
-                                                      ( ModuleName "Data.Maybe" )
-                                                      ( TyName "Maybe" )
-                                                      ( CtorName "Just" )
-                                                      [ LiteralInt Nothing 183 ]
-                                                    ]
-                                                  ) :|
-                                                  [ Ctor Nothing SumType
-                                                    ( ModuleName "Data.Maybe" )
-                                                    ( TyName "Maybe" )
-                                                    ( CtorName "Just" )
-                                                    [ LiteralInt Nothing 184 ]
-                                                  ]
-                                                ) :|
-                                                [ Ctor Nothing SumType
-                                                  ( ModuleName "Data.Maybe" )
-                                                  ( TyName "Maybe" )
-                                                  ( CtorName "Just" )
-                                                  [ LiteralInt Nothing 185 ]
-                                                ]
-                                              ) :|
-                                              [ Ctor Nothing SumType
-                                                ( ModuleName "Data.Maybe" )
-                                                ( TyName "Maybe" )
-                                                ( CtorName "Just" )
-                                                [ LiteralInt Nothing 186 ]
-                                              ]
-                                            ) :|
-                                            [ Ctor Nothing SumType
-                                              ( ModuleName "Data.Maybe" )
-                                              ( TyName "Maybe" )
-                                              ( CtorName "Just" )
-                                              [ LiteralInt Nothing 187 ]
-                                            ]
-                                          ) :|
-                                          [ Ctor Nothing SumType
-                                            ( ModuleName "Data.Maybe" )
-                                            ( TyName "Maybe" )
-                                            ( CtorName "Just" )
-                                            [ LiteralInt Nothing 188 ]
-                                          ]
-                                        ) :|
-                                        [ Ctor Nothing SumType
-                                          ( ModuleName "Data.Maybe" )
-                                          ( TyName "Maybe" )
-                                          ( CtorName "Just" )
-                                          [ LiteralInt Nothing 189 ]
-                                        ]
-                                      ) :|
-                                      [ Ctor Nothing SumType
-                                        ( ModuleName "Data.Maybe" )
-                                        ( TyName "Maybe" )
-                                        ( CtorName "Just" )
-                                        [ LiteralInt Nothing 190 ]
-                                      ]
-                                    ) :|
-                                    [ Ctor Nothing SumType
-                                      ( ModuleName "Data.Maybe" )
-                                      ( TyName "Maybe" )
-                                      ( CtorName "Just" )
-                                      [ LiteralInt Nothing 191 ]
-                                    ]
-                                  ) :|
-                                  [ Ctor Nothing SumType
-                                    ( ModuleName "Data.Maybe" )
-                                    ( TyName "Maybe" )
-                                    ( CtorName "Just" )
-                                    [ LiteralInt Nothing 192 ]
-                                  ]
-                                ) :|
-                                [ Ctor Nothing SumType
-                                  ( ModuleName "Data.Maybe" )
-                                  ( TyName "Maybe" )
-                                  ( CtorName "Just" )
-                                  [ LiteralInt Nothing 193 ]
-                                ]
-                              ) :|
-                              [ Ctor Nothing SumType
-                                ( ModuleName "Data.Maybe" )
-                                ( TyName "Maybe" )
-                                ( CtorName "Just" )
-                                [ LiteralInt Nothing 194 ]
-                              ]
-                            ) :|
-                            [ Ctor Nothing SumType
-                              ( ModuleName "Data.Maybe" )
-                              ( TyName "Maybe" )
-                              ( CtorName "Just" )
-                              [ LiteralInt Nothing 195 ]
-                            ]
-                          ) :|
-                          [ Ctor Nothing SumType
-                            ( ModuleName "Data.Maybe" )
-                            ( TyName "Maybe" )
-                            ( CtorName "Just" )
-                            [ LiteralInt Nothing 196 ]
-                          ]
-                        ) :|
-                        [ Ctor Nothing SumType
-                          ( ModuleName "Data.Maybe" )
-                          ( TyName "Maybe" )
-                          ( CtorName "Just" )
-                          [ LiteralInt Nothing 197 ]
-                        ]
-                      ) :|
-                      [ Ctor Nothing SumType
-                        ( ModuleName "Data.Maybe" )
-                        ( TyName "Maybe" )
-                        ( CtorName "Just" )
-                        [ LiteralInt Nothing 198 ]
-                      ]
-                    ) :|
-                    [ Ctor Nothing SumType
-                      ( ModuleName "Data.Maybe" )
-                      ( TyName "Maybe" )
-                      ( CtorName "Just" )
-                      [ LiteralInt Nothing 199 ]
-                    ]
-                  ) :|
-                  [ Ctor Nothing SumType
-                    ( ModuleName "Data.Maybe" )
-                    ( TyName "Maybe" )
-                    ( CtorName "Just" )
-                    [ LiteralInt Nothing 200 ]
-                  ]
-                ) :|
-                [ Ctor Nothing SumType
-                  ( ModuleName "Data.Maybe" )
-                  ( TyName "Maybe" )
-                  ( CtorName "Just" )
-                  [ LiteralInt Nothing 201 ]
-                ]
-              )
-            ), Standalone
-            ( Nothing, Name "$tmp652", AppN Nothing
-              ( Ref Nothing
-                ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond$w" ) )
-              )
-              ( AppN Nothing
-                ( Ref Nothing
-                  ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond$w" ) )
-                )
-                ( AppN Nothing
-                  ( Ref Nothing
-                    ( Imported
-                      ( ModuleName "Golden.LongApplyChain.Test" )
-                      ( Name "applySecond$w" )
-                    )
-                  )
-                  ( AppN Nothing
-                    ( Ref Nothing
-                      ( Imported
-                        ( ModuleName "Golden.LongApplyChain.Test" )
-                        ( Name "applySecond$w" )
-                      )
-                    )
-                    ( AppN Nothing
-                      ( Ref Nothing
-                        ( Imported
-                          ( ModuleName "Golden.LongApplyChain.Test" )
-                          ( Name "applySecond$w" )
-                        )
-                      )
-                      ( AppN Nothing
-                        ( Ref Nothing
-                          ( Imported
-                            ( ModuleName "Golden.LongApplyChain.Test" )
-                            ( Name "applySecond$w" )
-                          )
-                        )
-                        ( AppN Nothing
-                          ( Ref Nothing
-                            ( Imported
-                              ( ModuleName "Golden.LongApplyChain.Test" )
-                              ( Name "applySecond$w" )
-                            )
-                          )
-                          ( AppN Nothing
-                            ( Ref Nothing
-                              ( Imported
-                                ( ModuleName "Golden.LongApplyChain.Test" )
-                                ( Name "applySecond$w" )
-                              )
-                            )
-                            ( AppN Nothing
-                              ( Ref Nothing
-                                ( Imported
-                                  ( ModuleName "Golden.LongApplyChain.Test" )
-                                  ( Name "applySecond$w" )
-                                )
-                              )
-                              ( AppN Nothing
-                                ( Ref Nothing
-                                  ( Imported
-                                    ( ModuleName "Golden.LongApplyChain.Test" )
-                                    ( Name "applySecond$w" )
-                                  )
-                                )
-                                ( AppN Nothing
-                                  ( Ref Nothing
-                                    ( Imported
-                                      ( ModuleName "Golden.LongApplyChain.Test" )
-                                      ( Name "applySecond$w" )
-                                    )
-                                  )
-                                  ( AppN Nothing
-                                    ( Ref Nothing
-                                      ( Imported
-                                        ( ModuleName "Golden.LongApplyChain.Test" )
-                                        ( Name "applySecond$w" )
-                                      )
-                                    )
-                                    ( AppN Nothing
-                                      ( Ref Nothing
-                                        ( Imported
-                                          ( ModuleName "Golden.LongApplyChain.Test" )
-                                          ( Name "applySecond$w" )
-                                        )
-                                      )
-                                      ( AppN Nothing
-                                        ( Ref Nothing
-                                          ( Imported
-                                            ( ModuleName "Golden.LongApplyChain.Test" )
-                                            ( Name "applySecond$w" )
-                                          )
-                                        )
-                                        ( AppN Nothing
-                                          ( Ref Nothing
-                                            ( Imported
-                                              ( ModuleName "Golden.LongApplyChain.Test" )
-                                              ( Name "applySecond$w" )
-                                            )
-                                          )
-                                          ( AppN Nothing
-                                            ( Ref Nothing
-                                              ( Imported
-                                                ( ModuleName "Golden.LongApplyChain.Test" )
-                                                ( Name "applySecond$w" )
-                                              )
-                                            )
-                                            ( AppN Nothing
-                                              ( Ref Nothing
-                                                ( Imported
-                                                  ( ModuleName "Golden.LongApplyChain.Test" )
-                                                  ( Name "applySecond$w" )
-                                                )
-                                              )
-                                              ( AppN Nothing
-                                                ( Ref Nothing
-                                                  ( Imported
-                                                    ( ModuleName "Golden.LongApplyChain.Test" )
-                                                    ( Name "applySecond$w" )
-                                                  )
-                                                )
-                                                ( AppN Nothing
-                                                  ( Ref Nothing
-                                                    ( Imported
-                                                      ( ModuleName "Golden.LongApplyChain.Test" )
-                                                      ( Name "applySecond$w" )
-                                                    )
-                                                  )
-                                                  ( AppN Nothing
-                                                    ( Ref Nothing
-                                                      ( Imported
-                                                        ( ModuleName "Golden.LongApplyChain.Test" )
-                                                        ( Name "applySecond$w" )
-                                                      )
-                                                    )
-                                                    ( AppN Nothing
-                                                      ( Ref Nothing
-                                                        ( Imported
-                                                          ( ModuleName "Golden.LongApplyChain.Test" )
-                                                          ( Name "applySecond$w" )
-                                                        )
-                                                      )
-                                                      ( AppN Nothing
-                                                        ( Ref Nothing
-                                                          ( Imported
-                                                            ( ModuleName "Golden.LongApplyChain.Test" )
-                                                            ( Name "applySecond$w" )
-                                                          )
-                                                        )
-                                                        ( AppN Nothing
-                                                          ( Ref Nothing
-                                                            ( Imported
-                                                              ( ModuleName "Golden.LongApplyChain.Test" )
-                                                              ( Name "applySecond$w" )
-                                                            )
-                                                          )
-                                                          ( AppN Nothing
-                                                            ( Ref Nothing
-                                                              ( Imported
-                                                                ( ModuleName "Golden.LongApplyChain.Test" )
-                                                                ( Name "applySecond$w" )
-                                                              )
-                                                            )
-                                                            ( AppN Nothing
-                                                              ( Ref Nothing
-                                                                ( Imported
-                                                                  ( ModuleName "Golden.LongApplyChain.Test" )
-                                                                  ( Name "applySecond$w" )
-                                                                )
-                                                              )
-                                                              ( AppN Nothing
-                                                                ( Ref Nothing
-                                                                  ( Imported
-                                                                    ( ModuleName "Golden.LongApplyChain.Test" )
-                                                                    ( Name "applySecond$w" )
-                                                                  )
-                                                                )
-                                                                ( AppN Nothing
-                                                                  ( Ref Nothing
-                                                                    ( Imported
-                                                                      ( ModuleName "Golden.LongApplyChain.Test" )
-                                                                      ( Name "applySecond$w" )
-                                                                    )
-                                                                  )
-                                                                  ( AppN Nothing
-                                                                    ( Ref Nothing
-                                                                      ( Imported
-                                                                        ( ModuleName "Golden.LongApplyChain.Test" )
-                                                                        ( Name "applySecond$w" )
-                                                                      )
-                                                                    )
-                                                                    ( AppN Nothing
-                                                                      ( Ref Nothing
-                                                                        ( Imported
-                                                                          ( ModuleName "Golden.LongApplyChain.Test" )
-                                                                          ( Name "applySecond$w" )
-                                                                        )
-                                                                      )
-                                                                      ( AppN Nothing
-                                                                        ( Ref Nothing
-                                                                          ( Imported
-                                                                            ( ModuleName "Golden.LongApplyChain.Test" )
-                                                                            ( Name "applySecond$w" )
-                                                                          )
-                                                                        )
-                                                                        ( AppN Nothing
-                                                                          ( Ref Nothing
-                                                                            ( Imported
-                                                                              ( ModuleName "Golden.LongApplyChain.Test" )
-                                                                              ( Name "applySecond$w" )
-                                                                            )
-                                                                          )
-                                                                          ( AppN Nothing
-                                                                            ( Ref Nothing
-                                                                              ( Imported
-                                                                                ( ModuleName "Golden.LongApplyChain.Test" )
-                                                                                ( Name "applySecond$w" )
-                                                                              )
-                                                                            )
-                                                                            ( AppN Nothing
-                                                                              ( Ref Nothing
-                                                                                ( Imported
-                                                                                  ( ModuleName "Golden.LongApplyChain.Test" )
-                                                                                  ( Name "applySecond$w" )
-                                                                                )
-                                                                              )
-                                                                              ( AppN Nothing
-                                                                                ( Ref Nothing
-                                                                                  ( Imported
-                                                                                    ( ModuleName "Golden.LongApplyChain.Test" )
-                                                                                    ( Name "applySecond$w" )
-                                                                                  )
-                                                                                )
-                                                                                ( AppN Nothing
-                                                                                  ( Ref Nothing
-                                                                                    ( Imported
-                                                                                      ( ModuleName "Golden.LongApplyChain.Test" )
-                                                                                      ( Name "applySecond$w" )
-                                                                                    )
-                                                                                  )
-                                                                                  ( AppN Nothing
-                                                                                    ( Ref Nothing
-                                                                                      ( Imported
-                                                                                        ( ModuleName "Golden.LongApplyChain.Test" )
-                                                                                        ( Name "applySecond$w" )
-                                                                                      )
-                                                                                    )
-                                                                                    ( AppN Nothing
-                                                                                      ( Ref Nothing
-                                                                                        ( Imported
-                                                                                          ( ModuleName "Golden.LongApplyChain.Test" )
-                                                                                          ( Name "applySecond$w" )
-                                                                                        )
-                                                                                      )
-                                                                                      ( AppN Nothing
-                                                                                        ( Ref Nothing
-                                                                                          ( Imported
-                                                                                            ( ModuleName "Golden.LongApplyChain.Test" )
-                                                                                            ( Name "applySecond$w" )
-                                                                                          )
-                                                                                        )
-                                                                                        ( AppN Nothing
-                                                                                          ( Ref Nothing
-                                                                                            ( Imported
-                                                                                              ( ModuleName "Golden.LongApplyChain.Test" )
-                                                                                              ( Name "applySecond$w" )
-                                                                                            )
-                                                                                          )
-                                                                                          ( AppN Nothing
-                                                                                            ( Ref Nothing
-                                                                                              ( Imported
-                                                                                                ( ModuleName "Golden.LongApplyChain.Test" )
-                                                                                                ( Name "applySecond$w" )
-                                                                                              )
-                                                                                            )
-                                                                                            ( Ref Nothing
-                                                                                              ( Local
-                                                                                                ( Name "$tmp651" )
-                                                                                              ) :|
-                                                                                              [ Ctor Nothing SumType
-                                                                                                ( ModuleName "Data.Maybe" )
-                                                                                                ( TyName "Maybe" )
-                                                                                                ( CtorName "Just" )
-                                                                                                [ LiteralInt Nothing 202 ]
-                                                                                              ]
-                                                                                            ) :|
-                                                                                            [ Ctor Nothing SumType
-                                                                                              ( ModuleName "Data.Maybe" )
-                                                                                              ( TyName "Maybe" )
-                                                                                              ( CtorName "Just" )
-                                                                                              [ LiteralInt Nothing 203 ]
-                                                                                            ]
-                                                                                          ) :|
-                                                                                          [ Ctor Nothing SumType
-                                                                                            ( ModuleName "Data.Maybe" )
-                                                                                            ( TyName "Maybe" )
-                                                                                            ( CtorName "Just" )
-                                                                                            [ LiteralInt Nothing 204 ]
-                                                                                          ]
-                                                                                        ) :|
-                                                                                        [ Ctor Nothing SumType
-                                                                                          ( ModuleName "Data.Maybe" )
-                                                                                          ( TyName "Maybe" )
-                                                                                          ( CtorName "Just" )
-                                                                                          [ LiteralInt Nothing 205 ]
-                                                                                        ]
-                                                                                      ) :|
-                                                                                      [ Ctor Nothing SumType
-                                                                                        ( ModuleName "Data.Maybe" )
-                                                                                        ( TyName "Maybe" )
-                                                                                        ( CtorName "Just" )
-                                                                                        [ LiteralInt Nothing 206 ]
-                                                                                      ]
-                                                                                    ) :|
-                                                                                    [ Ctor Nothing SumType
-                                                                                      ( ModuleName "Data.Maybe" )
-                                                                                      ( TyName "Maybe" )
-                                                                                      ( CtorName "Just" )
-                                                                                      [ LiteralInt Nothing 207 ]
-                                                                                    ]
-                                                                                  ) :|
-                                                                                  [ Ctor Nothing SumType
-                                                                                    ( ModuleName "Data.Maybe" )
-                                                                                    ( TyName "Maybe" )
-                                                                                    ( CtorName "Just" )
-                                                                                    [ LiteralInt Nothing 208 ]
-                                                                                  ]
-                                                                                ) :|
-                                                                                [ Ctor Nothing SumType
-                                                                                  ( ModuleName "Data.Maybe" )
-                                                                                  ( TyName "Maybe" )
-                                                                                  ( CtorName "Just" )
-                                                                                  [ LiteralInt Nothing 209 ]
-                                                                                ]
-                                                                              ) :|
-                                                                              [ Ctor Nothing SumType
-                                                                                ( ModuleName "Data.Maybe" )
-                                                                                ( TyName "Maybe" )
-                                                                                ( CtorName "Just" )
-                                                                                [ LiteralInt Nothing 210 ]
-                                                                              ]
-                                                                            ) :|
-                                                                            [ Ctor Nothing SumType
-                                                                              ( ModuleName "Data.Maybe" )
-                                                                              ( TyName "Maybe" )
-                                                                              ( CtorName "Just" )
-                                                                              [ LiteralInt Nothing 211 ]
-                                                                            ]
-                                                                          ) :|
-                                                                          [ Ctor Nothing SumType
-                                                                            ( ModuleName "Data.Maybe" )
-                                                                            ( TyName "Maybe" )
-                                                                            ( CtorName "Just" )
-                                                                            [ LiteralInt Nothing 212 ]
-                                                                          ]
-                                                                        ) :|
-                                                                        [ Ctor Nothing SumType
-                                                                          ( ModuleName "Data.Maybe" )
-                                                                          ( TyName "Maybe" )
-                                                                          ( CtorName "Just" )
-                                                                          [ LiteralInt Nothing 213 ]
-                                                                        ]
-                                                                      ) :|
-                                                                      [ Ctor Nothing SumType
-                                                                        ( ModuleName "Data.Maybe" )
-                                                                        ( TyName "Maybe" )
-                                                                        ( CtorName "Just" )
-                                                                        [ LiteralInt Nothing 214 ]
-                                                                      ]
-                                                                    ) :|
-                                                                    [ Ctor Nothing SumType
-                                                                      ( ModuleName "Data.Maybe" )
-                                                                      ( TyName "Maybe" )
-                                                                      ( CtorName "Just" )
-                                                                      [ LiteralInt Nothing 215 ]
-                                                                    ]
-                                                                  ) :|
-                                                                  [ Ctor Nothing SumType
-                                                                    ( ModuleName "Data.Maybe" )
-                                                                    ( TyName "Maybe" )
-                                                                    ( CtorName "Just" )
-                                                                    [ LiteralInt Nothing 216 ]
-                                                                  ]
-                                                                ) :|
-                                                                [ Ctor Nothing SumType
-                                                                  ( ModuleName "Data.Maybe" )
-                                                                  ( TyName "Maybe" )
-                                                                  ( CtorName "Just" )
-                                                                  [ LiteralInt Nothing 217 ]
-                                                                ]
-                                                              ) :|
-                                                              [ Ctor Nothing SumType
-                                                                ( ModuleName "Data.Maybe" )
-                                                                ( TyName "Maybe" )
-                                                                ( CtorName "Just" )
-                                                                [ LiteralInt Nothing 218 ]
-                                                              ]
-                                                            ) :|
-                                                            [ Ctor Nothing SumType
-                                                              ( ModuleName "Data.Maybe" )
-                                                              ( TyName "Maybe" )
-                                                              ( CtorName "Just" )
-                                                              [ LiteralInt Nothing 219 ]
-                                                            ]
-                                                          ) :|
-                                                          [ Ctor Nothing SumType
-                                                            ( ModuleName "Data.Maybe" )
-                                                            ( TyName "Maybe" )
-                                                            ( CtorName "Just" )
-                                                            [ LiteralInt Nothing 220 ]
-                                                          ]
-                                                        ) :|
-                                                        [ Ctor Nothing SumType
-                                                          ( ModuleName "Data.Maybe" )
-                                                          ( TyName "Maybe" )
-                                                          ( CtorName "Just" )
-                                                          [ LiteralInt Nothing 221 ]
-                                                        ]
-                                                      ) :|
-                                                      [ Ctor Nothing SumType
-                                                        ( ModuleName "Data.Maybe" )
-                                                        ( TyName "Maybe" )
-                                                        ( CtorName "Just" )
-                                                        [ LiteralInt Nothing 222 ]
-                                                      ]
-                                                    ) :|
-                                                    [ Ctor Nothing SumType
-                                                      ( ModuleName "Data.Maybe" )
-                                                      ( TyName "Maybe" )
-                                                      ( CtorName "Just" )
-                                                      [ LiteralInt Nothing 223 ]
-                                                    ]
-                                                  ) :|
-                                                  [ Ctor Nothing SumType
-                                                    ( ModuleName "Data.Maybe" )
-                                                    ( TyName "Maybe" )
-                                                    ( CtorName "Just" )
-                                                    [ LiteralInt Nothing 224 ]
-                                                  ]
-                                                ) :|
-                                                [ Ctor Nothing SumType
-                                                  ( ModuleName "Data.Maybe" )
-                                                  ( TyName "Maybe" )
-                                                  ( CtorName "Just" )
-                                                  [ LiteralInt Nothing 225 ]
-                                                ]
-                                              ) :|
-                                              [ Ctor Nothing SumType
-                                                ( ModuleName "Data.Maybe" )
-                                                ( TyName "Maybe" )
-                                                ( CtorName "Just" )
-                                                [ LiteralInt Nothing 226 ]
-                                              ]
-                                            ) :|
-                                            [ Ctor Nothing SumType
-                                              ( ModuleName "Data.Maybe" )
-                                              ( TyName "Maybe" )
-                                              ( CtorName "Just" )
-                                              [ LiteralInt Nothing 227 ]
-                                            ]
-                                          ) :|
-                                          [ Ctor Nothing SumType
-                                            ( ModuleName "Data.Maybe" )
-                                            ( TyName "Maybe" )
-                                            ( CtorName "Just" )
-                                            [ LiteralInt Nothing 228 ]
-                                          ]
-                                        ) :|
-                                        [ Ctor Nothing SumType
-                                          ( ModuleName "Data.Maybe" )
-                                          ( TyName "Maybe" )
-                                          ( CtorName "Just" )
-                                          [ LiteralInt Nothing 229 ]
-                                        ]
-                                      ) :|
-                                      [ Ctor Nothing SumType
-                                        ( ModuleName "Data.Maybe" )
-                                        ( TyName "Maybe" )
-                                        ( CtorName "Just" )
-                                        [ LiteralInt Nothing 230 ]
-                                      ]
-                                    ) :|
-                                    [ Ctor Nothing SumType
-                                      ( ModuleName "Data.Maybe" )
-                                      ( TyName "Maybe" )
-                                      ( CtorName "Just" )
-                                      [ LiteralInt Nothing 231 ]
-                                    ]
-                                  ) :|
-                                  [ Ctor Nothing SumType
-                                    ( ModuleName "Data.Maybe" )
-                                    ( TyName "Maybe" )
-                                    ( CtorName "Just" )
-                                    [ LiteralInt Nothing 232 ]
-                                  ]
-                                ) :|
-                                [ Ctor Nothing SumType
-                                  ( ModuleName "Data.Maybe" )
-                                  ( TyName "Maybe" )
-                                  ( CtorName "Just" )
-                                  [ LiteralInt Nothing 233 ]
-                                ]
-                              ) :|
-                              [ Ctor Nothing SumType
-                                ( ModuleName "Data.Maybe" )
-                                ( TyName "Maybe" )
-                                ( CtorName "Just" )
-                                [ LiteralInt Nothing 234 ]
-                              ]
-                            ) :|
-                            [ Ctor Nothing SumType
-                              ( ModuleName "Data.Maybe" )
-                              ( TyName "Maybe" )
-                              ( CtorName "Just" )
-                              [ LiteralInt Nothing 235 ]
-                            ]
-                          ) :|
-                          [ Ctor Nothing SumType
-                            ( ModuleName "Data.Maybe" )
-                            ( TyName "Maybe" )
-                            ( CtorName "Just" )
-                            [ LiteralInt Nothing 236 ]
-                          ]
-                        ) :|
-                        [ Ctor Nothing SumType
-                          ( ModuleName "Data.Maybe" )
-                          ( TyName "Maybe" )
-                          ( CtorName "Just" )
-                          [ LiteralInt Nothing 237 ]
-                        ]
-                      ) :|
-                      [ Ctor Nothing SumType
-                        ( ModuleName "Data.Maybe" )
-                        ( TyName "Maybe" )
-                        ( CtorName "Just" )
-                        [ LiteralInt Nothing 238 ]
-                      ]
-                    ) :|
-                    [ Ctor Nothing SumType
-                      ( ModuleName "Data.Maybe" )
-                      ( TyName "Maybe" )
-                      ( CtorName "Just" )
-                      [ LiteralInt Nothing 239 ]
-                    ]
-                  ) :|
-                  [ Ctor Nothing SumType
-                    ( ModuleName "Data.Maybe" )
-                    ( TyName "Maybe" )
-                    ( CtorName "Just" )
-                    [ LiteralInt Nothing 240 ]
-                  ]
-                ) :|
-                [ Ctor Nothing SumType
-                  ( ModuleName "Data.Maybe" )
-                  ( TyName "Maybe" )
-                  ( CtorName "Just" )
-                  [ LiteralInt Nothing 241 ]
-                ]
-              )
-            ), Standalone
-            ( Nothing, Name "$tmp653", AppN Nothing
-              ( Ref Nothing
-                ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond$w" ) )
-              )
-              ( AppN Nothing
-                ( Ref Nothing
-                  ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond$w" ) )
-                )
-                ( AppN Nothing
-                  ( Ref Nothing
-                    ( Imported
-                      ( ModuleName "Golden.LongApplyChain.Test" )
-                      ( Name "applySecond$w" )
-                    )
-                  )
-                  ( AppN Nothing
-                    ( Ref Nothing
-                      ( Imported
-                        ( ModuleName "Golden.LongApplyChain.Test" )
-                        ( Name "applySecond$w" )
-                      )
-                    )
-                    ( AppN Nothing
-                      ( Ref Nothing
-                        ( Imported
-                          ( ModuleName "Golden.LongApplyChain.Test" )
-                          ( Name "applySecond$w" )
-                        )
-                      )
-                      ( AppN Nothing
-                        ( Ref Nothing
-                          ( Imported
-                            ( ModuleName "Golden.LongApplyChain.Test" )
-                            ( Name "applySecond$w" )
-                          )
-                        )
-                        ( AppN Nothing
-                          ( Ref Nothing
-                            ( Imported
-                              ( ModuleName "Golden.LongApplyChain.Test" )
-                              ( Name "applySecond$w" )
-                            )
-                          )
-                          ( AppN Nothing
-                            ( Ref Nothing
-                              ( Imported
-                                ( ModuleName "Golden.LongApplyChain.Test" )
-                                ( Name "applySecond$w" )
-                              )
-                            )
-                            ( AppN Nothing
-                              ( Ref Nothing
-                                ( Imported
-                                  ( ModuleName "Golden.LongApplyChain.Test" )
-                                  ( Name "applySecond$w" )
-                                )
-                              )
-                              ( AppN Nothing
-                                ( Ref Nothing
-                                  ( Imported
-                                    ( ModuleName "Golden.LongApplyChain.Test" )
-                                    ( Name "applySecond$w" )
-                                  )
-                                )
-                                ( AppN Nothing
-                                  ( Ref Nothing
-                                    ( Imported
-                                      ( ModuleName "Golden.LongApplyChain.Test" )
-                                      ( Name "applySecond$w" )
-                                    )
-                                  )
-                                  ( AppN Nothing
-                                    ( Ref Nothing
-                                      ( Imported
-                                        ( ModuleName "Golden.LongApplyChain.Test" )
-                                        ( Name "applySecond$w" )
-                                      )
-                                    )
-                                    ( AppN Nothing
-                                      ( Ref Nothing
-                                        ( Imported
-                                          ( ModuleName "Golden.LongApplyChain.Test" )
-                                          ( Name "applySecond$w" )
-                                        )
-                                      )
-                                      ( AppN Nothing
-                                        ( Ref Nothing
-                                          ( Imported
-                                            ( ModuleName "Golden.LongApplyChain.Test" )
-                                            ( Name "applySecond$w" )
-                                          )
-                                        )
-                                        ( AppN Nothing
-                                          ( Ref Nothing
-                                            ( Imported
-                                              ( ModuleName "Golden.LongApplyChain.Test" )
-                                              ( Name "applySecond$w" )
-                                            )
-                                          )
-                                          ( AppN Nothing
-                                            ( Ref Nothing
-                                              ( Imported
-                                                ( ModuleName "Golden.LongApplyChain.Test" )
-                                                ( Name "applySecond$w" )
-                                              )
-                                            )
-                                            ( AppN Nothing
-                                              ( Ref Nothing
-                                                ( Imported
-                                                  ( ModuleName "Golden.LongApplyChain.Test" )
-                                                  ( Name "applySecond$w" )
-                                                )
-                                              )
-                                              ( AppN Nothing
-                                                ( Ref Nothing
-                                                  ( Imported
-                                                    ( ModuleName "Golden.LongApplyChain.Test" )
-                                                    ( Name "applySecond$w" )
-                                                  )
-                                                )
-                                                ( AppN Nothing
-                                                  ( Ref Nothing
-                                                    ( Imported
-                                                      ( ModuleName "Golden.LongApplyChain.Test" )
-                                                      ( Name "applySecond$w" )
-                                                    )
-                                                  )
-                                                  ( AppN Nothing
-                                                    ( Ref Nothing
-                                                      ( Imported
-                                                        ( ModuleName "Golden.LongApplyChain.Test" )
-                                                        ( Name "applySecond$w" )
-                                                      )
-                                                    )
-                                                    ( AppN Nothing
-                                                      ( Ref Nothing
-                                                        ( Imported
-                                                          ( ModuleName "Golden.LongApplyChain.Test" )
-                                                          ( Name "applySecond$w" )
-                                                        )
-                                                      )
-                                                      ( AppN Nothing
-                                                        ( Ref Nothing
-                                                          ( Imported
-                                                            ( ModuleName "Golden.LongApplyChain.Test" )
-                                                            ( Name "applySecond$w" )
-                                                          )
-                                                        )
-                                                        ( AppN Nothing
-                                                          ( Ref Nothing
-                                                            ( Imported
-                                                              ( ModuleName "Golden.LongApplyChain.Test" )
-                                                              ( Name "applySecond$w" )
-                                                            )
-                                                          )
-                                                          ( AppN Nothing
-                                                            ( Ref Nothing
-                                                              ( Imported
-                                                                ( ModuleName "Golden.LongApplyChain.Test" )
-                                                                ( Name "applySecond$w" )
-                                                              )
-                                                            )
-                                                            ( AppN Nothing
-                                                              ( Ref Nothing
-                                                                ( Imported
-                                                                  ( ModuleName "Golden.LongApplyChain.Test" )
-                                                                  ( Name "applySecond$w" )
-                                                                )
-                                                              )
-                                                              ( AppN Nothing
-                                                                ( Ref Nothing
-                                                                  ( Imported
-                                                                    ( ModuleName "Golden.LongApplyChain.Test" )
-                                                                    ( Name "applySecond$w" )
-                                                                  )
-                                                                )
-                                                                ( AppN Nothing
-                                                                  ( Ref Nothing
-                                                                    ( Imported
-                                                                      ( ModuleName "Golden.LongApplyChain.Test" )
-                                                                      ( Name "applySecond$w" )
-                                                                    )
-                                                                  )
-                                                                  ( AppN Nothing
-                                                                    ( Ref Nothing
-                                                                      ( Imported
-                                                                        ( ModuleName "Golden.LongApplyChain.Test" )
-                                                                        ( Name "applySecond$w" )
-                                                                      )
-                                                                    )
-                                                                    ( AppN Nothing
-                                                                      ( Ref Nothing
-                                                                        ( Imported
-                                                                          ( ModuleName "Golden.LongApplyChain.Test" )
-                                                                          ( Name "applySecond$w" )
-                                                                        )
-                                                                      )
-                                                                      ( AppN Nothing
-                                                                        ( Ref Nothing
-                                                                          ( Imported
-                                                                            ( ModuleName "Golden.LongApplyChain.Test" )
-                                                                            ( Name "applySecond$w" )
-                                                                          )
-                                                                        )
-                                                                        ( AppN Nothing
-                                                                          ( Ref Nothing
-                                                                            ( Imported
-                                                                              ( ModuleName "Golden.LongApplyChain.Test" )
-                                                                              ( Name "applySecond$w" )
-                                                                            )
-                                                                          )
-                                                                          ( AppN Nothing
-                                                                            ( Ref Nothing
-                                                                              ( Imported
-                                                                                ( ModuleName "Golden.LongApplyChain.Test" )
-                                                                                ( Name "applySecond$w" )
-                                                                              )
-                                                                            )
-                                                                            ( AppN Nothing
-                                                                              ( Ref Nothing
-                                                                                ( Imported
-                                                                                  ( ModuleName "Golden.LongApplyChain.Test" )
-                                                                                  ( Name "applySecond$w" )
-                                                                                )
-                                                                              )
-                                                                              ( AppN Nothing
-                                                                                ( Ref Nothing
-                                                                                  ( Imported
-                                                                                    ( ModuleName "Golden.LongApplyChain.Test" )
-                                                                                    ( Name "applySecond$w" )
-                                                                                  )
-                                                                                )
-                                                                                ( AppN Nothing
-                                                                                  ( Ref Nothing
-                                                                                    ( Imported
-                                                                                      ( ModuleName "Golden.LongApplyChain.Test" )
-                                                                                      ( Name "applySecond$w" )
-                                                                                    )
-                                                                                  )
-                                                                                  ( AppN Nothing
-                                                                                    ( Ref Nothing
-                                                                                      ( Imported
-                                                                                        ( ModuleName "Golden.LongApplyChain.Test" )
-                                                                                        ( Name "applySecond$w" )
-                                                                                      )
-                                                                                    )
-                                                                                    ( AppN Nothing
-                                                                                      ( Ref Nothing
-                                                                                        ( Imported
-                                                                                          ( ModuleName "Golden.LongApplyChain.Test" )
-                                                                                          ( Name "applySecond$w" )
-                                                                                        )
-                                                                                      )
-                                                                                      ( AppN Nothing
-                                                                                        ( Ref Nothing
-                                                                                          ( Imported
-                                                                                            ( ModuleName "Golden.LongApplyChain.Test" )
-                                                                                            ( Name "applySecond$w" )
-                                                                                          )
-                                                                                        )
-                                                                                        ( AppN Nothing
-                                                                                          ( Ref Nothing
-                                                                                            ( Imported
-                                                                                              ( ModuleName "Golden.LongApplyChain.Test" )
-                                                                                              ( Name "applySecond$w" )
-                                                                                            )
-                                                                                          )
-                                                                                          ( AppN Nothing
-                                                                                            ( Ref Nothing
-                                                                                              ( Imported
-                                                                                                ( ModuleName "Golden.LongApplyChain.Test" )
-                                                                                                ( Name "applySecond$w" )
-                                                                                              )
-                                                                                            )
-                                                                                            ( Ref Nothing
-                                                                                              ( Local
-                                                                                                ( Name "$tmp652" )
-                                                                                              ) :|
-                                                                                              [ Ctor Nothing SumType
-                                                                                                ( ModuleName "Data.Maybe" )
-                                                                                                ( TyName "Maybe" )
-                                                                                                ( CtorName "Just" )
-                                                                                                [ LiteralInt Nothing 242 ]
-                                                                                              ]
-                                                                                            ) :|
-                                                                                            [ Ctor Nothing SumType
-                                                                                              ( ModuleName "Data.Maybe" )
-                                                                                              ( TyName "Maybe" )
-                                                                                              ( CtorName "Just" )
-                                                                                              [ LiteralInt Nothing 243 ]
-                                                                                            ]
-                                                                                          ) :|
-                                                                                          [ Ctor Nothing SumType
-                                                                                            ( ModuleName "Data.Maybe" )
-                                                                                            ( TyName "Maybe" )
-                                                                                            ( CtorName "Just" )
-                                                                                            [ LiteralInt Nothing 244 ]
-                                                                                          ]
-                                                                                        ) :|
-                                                                                        [ Ctor Nothing SumType
-                                                                                          ( ModuleName "Data.Maybe" )
-                                                                                          ( TyName "Maybe" )
-                                                                                          ( CtorName "Just" )
-                                                                                          [ LiteralInt Nothing 245 ]
-                                                                                        ]
-                                                                                      ) :|
-                                                                                      [ Ctor Nothing SumType
-                                                                                        ( ModuleName "Data.Maybe" )
-                                                                                        ( TyName "Maybe" )
-                                                                                        ( CtorName "Just" )
-                                                                                        [ LiteralInt Nothing 246 ]
-                                                                                      ]
-                                                                                    ) :|
-                                                                                    [ Ctor Nothing SumType
-                                                                                      ( ModuleName "Data.Maybe" )
-                                                                                      ( TyName "Maybe" )
-                                                                                      ( CtorName "Just" )
-                                                                                      [ LiteralInt Nothing 247 ]
-                                                                                    ]
-                                                                                  ) :|
-                                                                                  [ Ctor Nothing SumType
-                                                                                    ( ModuleName "Data.Maybe" )
-                                                                                    ( TyName "Maybe" )
-                                                                                    ( CtorName "Just" )
-                                                                                    [ LiteralInt Nothing 248 ]
-                                                                                  ]
-                                                                                ) :|
-                                                                                [ Ctor Nothing SumType
-                                                                                  ( ModuleName "Data.Maybe" )
-                                                                                  ( TyName "Maybe" )
-                                                                                  ( CtorName "Just" )
-                                                                                  [ LiteralInt Nothing 249 ]
-                                                                                ]
-                                                                              ) :|
-                                                                              [ Ctor Nothing SumType
-                                                                                ( ModuleName "Data.Maybe" )
-                                                                                ( TyName "Maybe" )
-                                                                                ( CtorName "Just" )
-                                                                                [ LiteralInt Nothing 250 ]
-                                                                              ]
-                                                                            ) :|
-                                                                            [ Ctor Nothing SumType
-                                                                              ( ModuleName "Data.Maybe" )
-                                                                              ( TyName "Maybe" )
-                                                                              ( CtorName "Just" )
-                                                                              [ LiteralInt Nothing 251 ]
-                                                                            ]
-                                                                          ) :|
-                                                                          [ Ctor Nothing SumType
-                                                                            ( ModuleName "Data.Maybe" )
-                                                                            ( TyName "Maybe" )
-                                                                            ( CtorName "Just" )
-                                                                            [ LiteralInt Nothing 252 ]
-                                                                          ]
-                                                                        ) :|
-                                                                        [ Ctor Nothing SumType
-                                                                          ( ModuleName "Data.Maybe" )
-                                                                          ( TyName "Maybe" )
-                                                                          ( CtorName "Just" )
-                                                                          [ LiteralInt Nothing 253 ]
-                                                                        ]
-                                                                      ) :|
-                                                                      [ Ctor Nothing SumType
-                                                                        ( ModuleName "Data.Maybe" )
-                                                                        ( TyName "Maybe" )
-                                                                        ( CtorName "Just" )
-                                                                        [ LiteralInt Nothing 254 ]
-                                                                      ]
-                                                                    ) :|
-                                                                    [ Ctor Nothing SumType
-                                                                      ( ModuleName "Data.Maybe" )
-                                                                      ( TyName "Maybe" )
-                                                                      ( CtorName "Just" )
-                                                                      [ LiteralInt Nothing 255 ]
-                                                                    ]
-                                                                  ) :|
-                                                                  [ Ctor Nothing SumType
-                                                                    ( ModuleName "Data.Maybe" )
-                                                                    ( TyName "Maybe" )
-                                                                    ( CtorName "Just" )
-                                                                    [ LiteralInt Nothing 256 ]
-                                                                  ]
-                                                                ) :|
-                                                                [ Ctor Nothing SumType
-                                                                  ( ModuleName "Data.Maybe" )
-                                                                  ( TyName "Maybe" )
-                                                                  ( CtorName "Just" )
-                                                                  [ LiteralInt Nothing 257 ]
-                                                                ]
-                                                              ) :|
-                                                              [ Ctor Nothing SumType
-                                                                ( ModuleName "Data.Maybe" )
-                                                                ( TyName "Maybe" )
-                                                                ( CtorName "Just" )
-                                                                [ LiteralInt Nothing 258 ]
-                                                              ]
-                                                            ) :|
-                                                            [ Ctor Nothing SumType
-                                                              ( ModuleName "Data.Maybe" )
-                                                              ( TyName "Maybe" )
-                                                              ( CtorName "Just" )
-                                                              [ LiteralInt Nothing 259 ]
-                                                            ]
-                                                          ) :|
-                                                          [ Ctor Nothing SumType
-                                                            ( ModuleName "Data.Maybe" )
-                                                            ( TyName "Maybe" )
-                                                            ( CtorName "Just" )
-                                                            [ LiteralInt Nothing 260 ]
-                                                          ]
-                                                        ) :|
-                                                        [ Ctor Nothing SumType
-                                                          ( ModuleName "Data.Maybe" )
-                                                          ( TyName "Maybe" )
-                                                          ( CtorName "Just" )
-                                                          [ LiteralInt Nothing 261 ]
-                                                        ]
-                                                      ) :|
-                                                      [ Ctor Nothing SumType
-                                                        ( ModuleName "Data.Maybe" )
-                                                        ( TyName "Maybe" )
-                                                        ( CtorName "Just" )
-                                                        [ LiteralInt Nothing 262 ]
-                                                      ]
-                                                    ) :|
-                                                    [ Ctor Nothing SumType
-                                                      ( ModuleName "Data.Maybe" )
-                                                      ( TyName "Maybe" )
-                                                      ( CtorName "Just" )
-                                                      [ LiteralInt Nothing 263 ]
-                                                    ]
-                                                  ) :|
-                                                  [ Ctor Nothing SumType
-                                                    ( ModuleName "Data.Maybe" )
-                                                    ( TyName "Maybe" )
-                                                    ( CtorName "Just" )
-                                                    [ LiteralInt Nothing 264 ]
-                                                  ]
-                                                ) :|
-                                                [ Ctor Nothing SumType
-                                                  ( ModuleName "Data.Maybe" )
-                                                  ( TyName "Maybe" )
-                                                  ( CtorName "Just" )
-                                                  [ LiteralInt Nothing 265 ]
-                                                ]
-                                              ) :|
-                                              [ Ctor Nothing SumType
-                                                ( ModuleName "Data.Maybe" )
-                                                ( TyName "Maybe" )
-                                                ( CtorName "Just" )
-                                                [ LiteralInt Nothing 266 ]
-                                              ]
-                                            ) :|
-                                            [ Ctor Nothing SumType
-                                              ( ModuleName "Data.Maybe" )
-                                              ( TyName "Maybe" )
-                                              ( CtorName "Just" )
-                                              [ LiteralInt Nothing 267 ]
-                                            ]
-                                          ) :|
-                                          [ Ctor Nothing SumType
-                                            ( ModuleName "Data.Maybe" )
-                                            ( TyName "Maybe" )
-                                            ( CtorName "Just" )
-                                            [ LiteralInt Nothing 268 ]
-                                          ]
-                                        ) :|
-                                        [ Ctor Nothing SumType
-                                          ( ModuleName "Data.Maybe" )
-                                          ( TyName "Maybe" )
-                                          ( CtorName "Just" )
-                                          [ LiteralInt Nothing 269 ]
-                                        ]
-                                      ) :|
-                                      [ Ctor Nothing SumType
-                                        ( ModuleName "Data.Maybe" )
-                                        ( TyName "Maybe" )
-                                        ( CtorName "Just" )
-                                        [ LiteralInt Nothing 270 ]
-                                      ]
-                                    ) :|
-                                    [ Ctor Nothing SumType
-                                      ( ModuleName "Data.Maybe" )
-                                      ( TyName "Maybe" )
-                                      ( CtorName "Just" )
-                                      [ LiteralInt Nothing 271 ]
-                                    ]
-                                  ) :|
-                                  [ Ctor Nothing SumType
-                                    ( ModuleName "Data.Maybe" )
-                                    ( TyName "Maybe" )
-                                    ( CtorName "Just" )
-                                    [ LiteralInt Nothing 272 ]
-                                  ]
-                                ) :|
-                                [ Ctor Nothing SumType
-                                  ( ModuleName "Data.Maybe" )
-                                  ( TyName "Maybe" )
-                                  ( CtorName "Just" )
-                                  [ LiteralInt Nothing 273 ]
-                                ]
-                              ) :|
-                              [ Ctor Nothing SumType
-                                ( ModuleName "Data.Maybe" )
-                                ( TyName "Maybe" )
-                                ( CtorName "Just" )
-                                [ LiteralInt Nothing 274 ]
-                              ]
-                            ) :|
-                            [ Ctor Nothing SumType
-                              ( ModuleName "Data.Maybe" )
-                              ( TyName "Maybe" )
-                              ( CtorName "Just" )
-                              [ LiteralInt Nothing 275 ]
-                            ]
-                          ) :|
-                          [ Ctor Nothing SumType
-                            ( ModuleName "Data.Maybe" )
-                            ( TyName "Maybe" )
-                            ( CtorName "Just" )
-                            [ LiteralInt Nothing 276 ]
-                          ]
-                        ) :|
-                        [ Ctor Nothing SumType
-                          ( ModuleName "Data.Maybe" )
-                          ( TyName "Maybe" )
-                          ( CtorName "Just" )
-                          [ LiteralInt Nothing 277 ]
-                        ]
-                      ) :|
-                      [ Ctor Nothing SumType
-                        ( ModuleName "Data.Maybe" )
-                        ( TyName "Maybe" )
-                        ( CtorName "Just" )
-                        [ LiteralInt Nothing 278 ]
-                      ]
-                    ) :|
-                    [ Ctor Nothing SumType
-                      ( ModuleName "Data.Maybe" )
-                      ( TyName "Maybe" )
-                      ( CtorName "Just" )
-                      [ LiteralInt Nothing 279 ]
-                    ]
-                  ) :|
-                  [ Ctor Nothing SumType
-                    ( ModuleName "Data.Maybe" )
-                    ( TyName "Maybe" )
-                    ( CtorName "Just" )
-                    [ LiteralInt Nothing 280 ]
-                  ]
-                ) :|
-                [ Ctor Nothing SumType
-                  ( ModuleName "Data.Maybe" )
-                  ( TyName "Maybe" )
-                  ( CtorName "Just" )
-                  [ LiteralInt Nothing 281 ]
-                ]
-              )
-            )
-          ]
-        )
-        ( AppN Nothing
-          ( Ref Nothing
-            ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond$w" ) )
-          )
-          ( AppN Nothing
-            ( Ref Nothing
-              ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond$w" ) )
-            )
-            ( AppN Nothing
-              ( Ref Nothing
-                ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond$w" ) )
-              )
-              ( AppN Nothing
-                ( Ref Nothing
-                  ( Imported ( ModuleName "Golden.LongApplyChain.Test" ) ( Name "applySecond$w" ) )
-                )
-                ( AppN Nothing
-                  ( Ref Nothing
-                    ( Imported
-                      ( ModuleName "Golden.LongApplyChain.Test" )
-                      ( Name "applySecond$w" )
-                    )
-                  )
-                  ( AppN Nothing
-                    ( Ref Nothing
-                      ( Imported
-                        ( ModuleName "Golden.LongApplyChain.Test" )
-                        ( Name "applySecond$w" )
-                      )
-                    )
-                    ( AppN Nothing
-                      ( Ref Nothing
-                        ( Imported
-                          ( ModuleName "Golden.LongApplyChain.Test" )
-                          ( Name "applySecond$w" )
-                        )
-                      )
-                      ( AppN Nothing
-                        ( Ref Nothing
-                          ( Imported
-                            ( ModuleName "Golden.LongApplyChain.Test" )
-                            ( Name "applySecond$w" )
-                          )
-                        )
-                        ( AppN Nothing
-                          ( Ref Nothing
-                            ( Imported
-                              ( ModuleName "Golden.LongApplyChain.Test" )
-                              ( Name "applySecond$w" )
-                            )
-                          )
-                          ( AppN Nothing
-                            ( Ref Nothing
-                              ( Imported
-                                ( ModuleName "Golden.LongApplyChain.Test" )
-                                ( Name "applySecond$w" )
-                              )
-                            )
-                            ( AppN Nothing
-                              ( Ref Nothing
-                                ( Imported
-                                  ( ModuleName "Golden.LongApplyChain.Test" )
-                                  ( Name "applySecond$w" )
-                                )
-                              )
-                              ( AppN Nothing
-                                ( Ref Nothing
-                                  ( Imported
-                                    ( ModuleName "Golden.LongApplyChain.Test" )
-                                    ( Name "applySecond$w" )
-                                  )
-                                )
-                                ( AppN Nothing
-                                  ( Ref Nothing
-                                    ( Imported
-                                      ( ModuleName "Golden.LongApplyChain.Test" )
-                                      ( Name "applySecond$w" )
-                                    )
-                                  )
-                                  ( AppN Nothing
-                                    ( Ref Nothing
-                                      ( Imported
-                                        ( ModuleName "Golden.LongApplyChain.Test" )
-                                        ( Name "applySecond$w" )
-                                      )
-                                    )
-                                    ( AppN Nothing
-                                      ( Ref Nothing
-                                        ( Imported
-                                          ( ModuleName "Golden.LongApplyChain.Test" )
-                                          ( Name "applySecond$w" )
-                                        )
-                                      )
-                                      ( AppN Nothing
-                                        ( Ref Nothing
-                                          ( Imported
-                                            ( ModuleName "Golden.LongApplyChain.Test" )
-                                            ( Name "applySecond$w" )
-                                          )
-                                        )
-                                        ( AppN Nothing
-                                          ( Ref Nothing
-                                            ( Imported
-                                              ( ModuleName "Golden.LongApplyChain.Test" )
-                                              ( Name "applySecond$w" )
-                                            )
-                                          )
-                                          ( AppN Nothing
-                                            ( Ref Nothing
-                                              ( Imported
-                                                ( ModuleName "Golden.LongApplyChain.Test" )
-                                                ( Name "applySecond$w" )
-                                              )
-                                            )
-                                            ( AppN Nothing
-                                              ( Ref Nothing
-                                                ( Imported
-                                                  ( ModuleName "Golden.LongApplyChain.Test" )
-                                                  ( Name "applySecond$w" )
-                                                )
-                                              )
-                                              ( Ref Nothing
-                                                ( Local ( Name "$tmp653" ) ) :|
-                                                [ Ctor Nothing SumType
-                                                  ( ModuleName "Data.Maybe" )
-                                                  ( TyName "Maybe" )
-                                                  ( CtorName "Just" )
-                                                  [ LiteralInt Nothing 282 ]
-                                                ]
-                                              ) :|
-                                              [ Ctor Nothing SumType
-                                                ( ModuleName "Data.Maybe" )
-                                                ( TyName "Maybe" )
-                                                ( CtorName "Just" )
-                                                [ LiteralInt Nothing 283 ]
-                                              ]
-                                            ) :|
-                                            [ Ctor Nothing SumType
-                                              ( ModuleName "Data.Maybe" )
-                                              ( TyName "Maybe" )
-                                              ( CtorName "Just" )
-                                              [ LiteralInt Nothing 284 ]
-                                            ]
-                                          ) :|
-                                          [ Ctor Nothing SumType
-                                            ( ModuleName "Data.Maybe" )
-                                            ( TyName "Maybe" )
-                                            ( CtorName "Just" )
-                                            [ LiteralInt Nothing 285 ]
-                                          ]
-                                        ) :|
-                                        [ Ctor Nothing SumType
-                                          ( ModuleName "Data.Maybe" )
-                                          ( TyName "Maybe" )
-                                          ( CtorName "Just" )
-                                          [ LiteralInt Nothing 286 ]
-                                        ]
-                                      ) :|
-                                      [ Ctor Nothing SumType
-                                        ( ModuleName "Data.Maybe" )
-                                        ( TyName "Maybe" )
-                                        ( CtorName "Just" )
-                                        [ LiteralInt Nothing 287 ]
-                                      ]
-                                    ) :|
-                                    [ Ctor Nothing SumType
-                                      ( ModuleName "Data.Maybe" )
-                                      ( TyName "Maybe" )
-                                      ( CtorName "Just" )
-                                      [ LiteralInt Nothing 288 ]
-                                    ]
-                                  ) :|
-                                  [ Ctor Nothing SumType
-                                    ( ModuleName "Data.Maybe" )
-                                    ( TyName "Maybe" )
-                                    ( CtorName "Just" )
-                                    [ LiteralInt Nothing 289 ]
-                                  ]
-                                ) :|
-                                [ Ctor Nothing SumType
-                                  ( ModuleName "Data.Maybe" )
-                                  ( TyName "Maybe" )
-                                  ( CtorName "Just" )
-                                  [ LiteralInt Nothing 290 ]
-                                ]
-                              ) :|
-                              [ Ctor Nothing SumType
-                                ( ModuleName "Data.Maybe" )
-                                ( TyName "Maybe" )
-                                ( CtorName "Just" )
-                                [ LiteralInt Nothing 291 ]
-                              ]
-                            ) :|
-                            [ Ctor Nothing SumType
-                              ( ModuleName "Data.Maybe" )
-                              ( TyName "Maybe" )
-                              ( CtorName "Just" )
-                              [ LiteralInt Nothing 292 ]
-                            ]
-                          ) :|
-                          [ Ctor Nothing SumType
-                            ( ModuleName "Data.Maybe" )
-                            ( TyName "Maybe" )
-                            ( CtorName "Just" )
-                            [ LiteralInt Nothing 293 ]
-                          ]
-                        ) :|
-                        [ Ctor Nothing SumType
-                          ( ModuleName "Data.Maybe" )
-                          ( TyName "Maybe" )
-                          ( CtorName "Just" )
-                          [ LiteralInt Nothing 294 ]
-                        ]
-                      ) :|
-                      [ Ctor Nothing SumType
-                        ( ModuleName "Data.Maybe" )
-                        ( TyName "Maybe" )
-                        ( CtorName "Just" )
-                        [ LiteralInt Nothing 295 ]
-                      ]
-                    ) :|
-                    [ Ctor Nothing SumType
-                      ( ModuleName "Data.Maybe" )
-                      ( TyName "Maybe" )
-                      ( CtorName "Just" )
-                      [ LiteralInt Nothing 296 ]
-                    ]
-                  ) :|
-                  [ Ctor Nothing SumType
-                    ( ModuleName "Data.Maybe" )
-                    ( TyName "Maybe" )
-                    ( CtorName "Just" )
-                    [ LiteralInt Nothing 297 ]
-                  ]
-                ) :|
-                [ Ctor Nothing SumType
-                  ( ModuleName "Data.Maybe" )
-                  ( TyName "Maybe" )
-                  ( CtorName "Just" )
-                  [ LiteralInt Nothing 298 ]
-                ]
-              ) :|
-              [ Ctor Nothing SumType
-                ( ModuleName "Data.Maybe" )
-                ( TyName "Maybe" )
-                ( CtorName "Just" )
-                [ LiteralInt Nothing 299 ]
-              ]
-            ) :|
-            [ Ctor Nothing SumType
-              ( ModuleName "Data.Maybe" )
-              ( TyName "Maybe" )
-              ( CtorName "Just" )
-              [ LiteralInt Nothing 300 ]
-            ]
-          )
-        )
+        ( CtorName "Just" )
+        [ LiteralInt Nothing 300 ]
       )
     ], uberModuleForeigns = [], uberModuleExports =
     [
diff --git a/test/ps/output/Golden.LongApplyChain.Test/golden.lua b/test/ps/output/Golden.LongApplyChain.Test/golden.lua
index ce7857ae..436318eb 100644
--- a/test/ps/output/Golden.LongApplyChain.Test/golden.lua
+++ b/test/ps/output/Golden.LongApplyChain.Test/golden.lua
@@ -2,351 +2,7 @@ local Data_Show_foreign = { showIntImpl = function(n) return tostring(n) end }
 local Effect_Console_foreign = {
   log = function(s) return function() print(s) end end
 }
-local Data_Maybe_Nothing = { "Data.Maybe∷Maybe.Nothing" }
-local Golden_LongApplyChain_Test_applySecond_S_w = function(a_S_0, b_S_0)
-  local v_S_0 = (function()
-    if "Data.Maybe∷Maybe.Just" == a_S_0[1] then
-      return { "Data.Maybe∷Maybe.Just", function(x_S_0) return x_S_0 end }
-    else
-      return Data_Maybe_Nothing
-    end
-  end)()
-  local v1_S_0 = b_S_0
-  if "Data.Maybe∷Maybe.Just" == v_S_0[1] then
-    if "Data.Maybe∷Maybe.Just" == v1_S_0[1] then
-      return { "Data.Maybe∷Maybe.Just", (v_S_0[2](v1_S_0[2])) }
-    else
-      return Data_Maybe_Nothing
-    end
-  else
-    return Data_Maybe_Nothing
-  end
-end
-local Golden_LongApplyChain_Test_compute = (function()
-  local _S_tmp0 = Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w({
-    "Data.Maybe∷Maybe.Just",
-    1
-  }, { "Data.Maybe∷Maybe.Just", 2 }), { "Data.Maybe∷Maybe.Just", 3 }), {
-    "Data.Maybe∷Maybe.Just",
-    4
-  }), { "Data.Maybe∷Maybe.Just", 5 }), { "Data.Maybe∷Maybe.Just", 6 }), {
-    "Data.Maybe∷Maybe.Just",
-    7
-  }), { "Data.Maybe∷Maybe.Just", 8 }), { "Data.Maybe∷Maybe.Just", 9 }), {
-    "Data.Maybe∷Maybe.Just",
-    10
-  }), { "Data.Maybe∷Maybe.Just", 11 }), { "Data.Maybe∷Maybe.Just", 12 }), {
-    "Data.Maybe∷Maybe.Just",
-    13
-  }), { "Data.Maybe∷Maybe.Just", 14 }), { "Data.Maybe∷Maybe.Just", 15 }), {
-    "Data.Maybe∷Maybe.Just",
-    16
-  }), { "Data.Maybe∷Maybe.Just", 17 }), { "Data.Maybe∷Maybe.Just", 18 }), {
-    "Data.Maybe∷Maybe.Just",
-    19
-  }), { "Data.Maybe∷Maybe.Just", 20 }), { "Data.Maybe∷Maybe.Just", 21 }), {
-    "Data.Maybe∷Maybe.Just",
-    22
-  }), { "Data.Maybe∷Maybe.Just", 23 }), { "Data.Maybe∷Maybe.Just", 24 }), {
-    "Data.Maybe∷Maybe.Just",
-    25
-  }), { "Data.Maybe∷Maybe.Just", 26 }), { "Data.Maybe∷Maybe.Just", 27 }), {
-    "Data.Maybe∷Maybe.Just",
-    28
-  }), { "Data.Maybe∷Maybe.Just", 29 }), { "Data.Maybe∷Maybe.Just", 30 }), {
-    "Data.Maybe∷Maybe.Just",
-    31
-  }), { "Data.Maybe∷Maybe.Just", 32 }), { "Data.Maybe∷Maybe.Just", 33 }), {
-    "Data.Maybe∷Maybe.Just",
-    34
-  }), { "Data.Maybe∷Maybe.Just", 35 }), { "Data.Maybe∷Maybe.Just", 36 }), {
-    "Data.Maybe∷Maybe.Just",
-    37
-  }), { "Data.Maybe∷Maybe.Just", 38 }), { "Data.Maybe∷Maybe.Just", 39 }), {
-    "Data.Maybe∷Maybe.Just",
-    40
-  }), { "Data.Maybe∷Maybe.Just", 41 })
-  local _S_tmp1 = Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(_S_tmp0, {
-    "Data.Maybe∷Maybe.Just",
-    42
-  }), { "Data.Maybe∷Maybe.Just", 43 }), { "Data.Maybe∷Maybe.Just", 44 }), {
-    "Data.Maybe∷Maybe.Just",
-    45
-  }), { "Data.Maybe∷Maybe.Just", 46 }), { "Data.Maybe∷Maybe.Just", 47 }), {
-    "Data.Maybe∷Maybe.Just",
-    48
-  }), { "Data.Maybe∷Maybe.Just", 49 }), { "Data.Maybe∷Maybe.Just", 50 }), {
-    "Data.Maybe∷Maybe.Just",
-    51
-  }), { "Data.Maybe∷Maybe.Just", 52 }), { "Data.Maybe∷Maybe.Just", 53 }), {
-    "Data.Maybe∷Maybe.Just",
-    54
-  }), { "Data.Maybe∷Maybe.Just", 55 }), { "Data.Maybe∷Maybe.Just", 56 }), {
-    "Data.Maybe∷Maybe.Just",
-    57
-  }), { "Data.Maybe∷Maybe.Just", 58 }), { "Data.Maybe∷Maybe.Just", 59 }), {
-    "Data.Maybe∷Maybe.Just",
-    60
-  }), { "Data.Maybe∷Maybe.Just", 61 }), { "Data.Maybe∷Maybe.Just", 62 }), {
-    "Data.Maybe∷Maybe.Just",
-    63
-  }), { "Data.Maybe∷Maybe.Just", 64 }), { "Data.Maybe∷Maybe.Just", 65 }), {
-    "Data.Maybe∷Maybe.Just",
-    66
-  }), { "Data.Maybe∷Maybe.Just", 67 }), { "Data.Maybe∷Maybe.Just", 68 }), {
-    "Data.Maybe∷Maybe.Just",
-    69
-  }), { "Data.Maybe∷Maybe.Just", 70 }), { "Data.Maybe∷Maybe.Just", 71 }), {
-    "Data.Maybe∷Maybe.Just",
-    72
-  }), { "Data.Maybe∷Maybe.Just", 73 }), { "Data.Maybe∷Maybe.Just", 74 }), {
-    "Data.Maybe∷Maybe.Just",
-    75
-  }), { "Data.Maybe∷Maybe.Just", 76 }), { "Data.Maybe∷Maybe.Just", 77 }), {
-    "Data.Maybe∷Maybe.Just",
-    78
-  }), { "Data.Maybe∷Maybe.Just", 79 }), { "Data.Maybe∷Maybe.Just", 80 }), {
-    "Data.Maybe∷Maybe.Just",
-    81
-  })
-  local _S_tmp2 = Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(_S_tmp1, {
-    "Data.Maybe∷Maybe.Just",
-    82
-  }), { "Data.Maybe∷Maybe.Just", 83 }), { "Data.Maybe∷Maybe.Just", 84 }), {
-    "Data.Maybe∷Maybe.Just",
-    85
-  }), { "Data.Maybe∷Maybe.Just", 86 }), { "Data.Maybe∷Maybe.Just", 87 }), {
-    "Data.Maybe∷Maybe.Just",
-    88
-  }), { "Data.Maybe∷Maybe.Just", 89 }), { "Data.Maybe∷Maybe.Just", 90 }), {
-    "Data.Maybe∷Maybe.Just",
-    91
-  }), { "Data.Maybe∷Maybe.Just", 92 }), { "Data.Maybe∷Maybe.Just", 93 }), {
-    "Data.Maybe∷Maybe.Just",
-    94
-  }), { "Data.Maybe∷Maybe.Just", 95 }), { "Data.Maybe∷Maybe.Just", 96 }), {
-    "Data.Maybe∷Maybe.Just",
-    97
-  }), { "Data.Maybe∷Maybe.Just", 98 }), { "Data.Maybe∷Maybe.Just", 99 }), {
-    "Data.Maybe∷Maybe.Just",
-    100
-  }), { "Data.Maybe∷Maybe.Just", 101 }), { "Data.Maybe∷Maybe.Just", 102 }), {
-    "Data.Maybe∷Maybe.Just",
-    103
-  }), { "Data.Maybe∷Maybe.Just", 104 }), { "Data.Maybe∷Maybe.Just", 105 }), {
-    "Data.Maybe∷Maybe.Just",
-    106
-  }), { "Data.Maybe∷Maybe.Just", 107 }), { "Data.Maybe∷Maybe.Just", 108 }), {
-    "Data.Maybe∷Maybe.Just",
-    109
-  }), { "Data.Maybe∷Maybe.Just", 110 }), { "Data.Maybe∷Maybe.Just", 111 }), {
-    "Data.Maybe∷Maybe.Just",
-    112
-  }), { "Data.Maybe∷Maybe.Just", 113 }), { "Data.Maybe∷Maybe.Just", 114 }), {
-    "Data.Maybe∷Maybe.Just",
-    115
-  }), { "Data.Maybe∷Maybe.Just", 116 }), { "Data.Maybe∷Maybe.Just", 117 }), {
-    "Data.Maybe∷Maybe.Just",
-    118
-  }), { "Data.Maybe∷Maybe.Just", 119 }), { "Data.Maybe∷Maybe.Just", 120 }), {
-    "Data.Maybe∷Maybe.Just",
-    121
-  })
-  local _S_tmp3 = Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(_S_tmp2, {
-    "Data.Maybe∷Maybe.Just",
-    122
-  }), { "Data.Maybe∷Maybe.Just", 123 }), { "Data.Maybe∷Maybe.Just", 124 }), {
-    "Data.Maybe∷Maybe.Just",
-    125
-  }), { "Data.Maybe∷Maybe.Just", 126 }), { "Data.Maybe∷Maybe.Just", 127 }), {
-    "Data.Maybe∷Maybe.Just",
-    128
-  }), { "Data.Maybe∷Maybe.Just", 129 }), { "Data.Maybe∷Maybe.Just", 130 }), {
-    "Data.Maybe∷Maybe.Just",
-    131
-  }), { "Data.Maybe∷Maybe.Just", 132 }), { "Data.Maybe∷Maybe.Just", 133 }), {
-    "Data.Maybe∷Maybe.Just",
-    134
-  }), { "Data.Maybe∷Maybe.Just", 135 }), { "Data.Maybe∷Maybe.Just", 136 }), {
-    "Data.Maybe∷Maybe.Just",
-    137
-  }), { "Data.Maybe∷Maybe.Just", 138 }), { "Data.Maybe∷Maybe.Just", 139 }), {
-    "Data.Maybe∷Maybe.Just",
-    140
-  }), { "Data.Maybe∷Maybe.Just", 141 }), { "Data.Maybe∷Maybe.Just", 142 }), {
-    "Data.Maybe∷Maybe.Just",
-    143
-  }), { "Data.Maybe∷Maybe.Just", 144 }), { "Data.Maybe∷Maybe.Just", 145 }), {
-    "Data.Maybe∷Maybe.Just",
-    146
-  }), { "Data.Maybe∷Maybe.Just", 147 }), { "Data.Maybe∷Maybe.Just", 148 }), {
-    "Data.Maybe∷Maybe.Just",
-    149
-  }), { "Data.Maybe∷Maybe.Just", 150 }), { "Data.Maybe∷Maybe.Just", 151 }), {
-    "Data.Maybe∷Maybe.Just",
-    152
-  }), { "Data.Maybe∷Maybe.Just", 153 }), { "Data.Maybe∷Maybe.Just", 154 }), {
-    "Data.Maybe∷Maybe.Just",
-    155
-  }), { "Data.Maybe∷Maybe.Just", 156 }), { "Data.Maybe∷Maybe.Just", 157 }), {
-    "Data.Maybe∷Maybe.Just",
-    158
-  }), { "Data.Maybe∷Maybe.Just", 159 }), { "Data.Maybe∷Maybe.Just", 160 }), {
-    "Data.Maybe∷Maybe.Just",
-    161
-  })
-  local _S_tmp4 = Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(_S_tmp3, {
-    "Data.Maybe∷Maybe.Just",
-    162
-  }), { "Data.Maybe∷Maybe.Just", 163 }), { "Data.Maybe∷Maybe.Just", 164 }), {
-    "Data.Maybe∷Maybe.Just",
-    165
-  }), { "Data.Maybe∷Maybe.Just", 166 }), { "Data.Maybe∷Maybe.Just", 167 }), {
-    "Data.Maybe∷Maybe.Just",
-    168
-  }), { "Data.Maybe∷Maybe.Just", 169 }), { "Data.Maybe∷Maybe.Just", 170 }), {
-    "Data.Maybe∷Maybe.Just",
-    171
-  }), { "Data.Maybe∷Maybe.Just", 172 }), { "Data.Maybe∷Maybe.Just", 173 }), {
-    "Data.Maybe∷Maybe.Just",
-    174
-  }), { "Data.Maybe∷Maybe.Just", 175 }), { "Data.Maybe∷Maybe.Just", 176 }), {
-    "Data.Maybe∷Maybe.Just",
-    177
-  }), { "Data.Maybe∷Maybe.Just", 178 }), { "Data.Maybe∷Maybe.Just", 179 }), {
-    "Data.Maybe∷Maybe.Just",
-    180
-  }), { "Data.Maybe∷Maybe.Just", 181 }), { "Data.Maybe∷Maybe.Just", 182 }), {
-    "Data.Maybe∷Maybe.Just",
-    183
-  }), { "Data.Maybe∷Maybe.Just", 184 }), { "Data.Maybe∷Maybe.Just", 185 }), {
-    "Data.Maybe∷Maybe.Just",
-    186
-  }), { "Data.Maybe∷Maybe.Just", 187 }), { "Data.Maybe∷Maybe.Just", 188 }), {
-    "Data.Maybe∷Maybe.Just",
-    189
-  }), { "Data.Maybe∷Maybe.Just", 190 }), { "Data.Maybe∷Maybe.Just", 191 }), {
-    "Data.Maybe∷Maybe.Just",
-    192
-  }), { "Data.Maybe∷Maybe.Just", 193 }), { "Data.Maybe∷Maybe.Just", 194 }), {
-    "Data.Maybe∷Maybe.Just",
-    195
-  }), { "Data.Maybe∷Maybe.Just", 196 }), { "Data.Maybe∷Maybe.Just", 197 }), {
-    "Data.Maybe∷Maybe.Just",
-    198
-  }), { "Data.Maybe∷Maybe.Just", 199 }), { "Data.Maybe∷Maybe.Just", 200 }), {
-    "Data.Maybe∷Maybe.Just",
-    201
-  })
-  local _S_tmp5 = Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(_S_tmp4, {
-    "Data.Maybe∷Maybe.Just",
-    202
-  }), { "Data.Maybe∷Maybe.Just", 203 }), { "Data.Maybe∷Maybe.Just", 204 }), {
-    "Data.Maybe∷Maybe.Just",
-    205
-  }), { "Data.Maybe∷Maybe.Just", 206 }), { "Data.Maybe∷Maybe.Just", 207 }), {
-    "Data.Maybe∷Maybe.Just",
-    208
-  }), { "Data.Maybe∷Maybe.Just", 209 }), { "Data.Maybe∷Maybe.Just", 210 }), {
-    "Data.Maybe∷Maybe.Just",
-    211
-  }), { "Data.Maybe∷Maybe.Just", 212 }), { "Data.Maybe∷Maybe.Just", 213 }), {
-    "Data.Maybe∷Maybe.Just",
-    214
-  }), { "Data.Maybe∷Maybe.Just", 215 }), { "Data.Maybe∷Maybe.Just", 216 }), {
-    "Data.Maybe∷Maybe.Just",
-    217
-  }), { "Data.Maybe∷Maybe.Just", 218 }), { "Data.Maybe∷Maybe.Just", 219 }), {
-    "Data.Maybe∷Maybe.Just",
-    220
-  }), { "Data.Maybe∷Maybe.Just", 221 }), { "Data.Maybe∷Maybe.Just", 222 }), {
-    "Data.Maybe∷Maybe.Just",
-    223
-  }), { "Data.Maybe∷Maybe.Just", 224 }), { "Data.Maybe∷Maybe.Just", 225 }), {
-    "Data.Maybe∷Maybe.Just",
-    226
-  }), { "Data.Maybe∷Maybe.Just", 227 }), { "Data.Maybe∷Maybe.Just", 228 }), {
-    "Data.Maybe∷Maybe.Just",
-    229
-  }), { "Data.Maybe∷Maybe.Just", 230 }), { "Data.Maybe∷Maybe.Just", 231 }), {
-    "Data.Maybe∷Maybe.Just",
-    232
-  }), { "Data.Maybe∷Maybe.Just", 233 }), { "Data.Maybe∷Maybe.Just", 234 }), {
-    "Data.Maybe∷Maybe.Just",
-    235
-  }), { "Data.Maybe∷Maybe.Just", 236 }), { "Data.Maybe∷Maybe.Just", 237 }), {
-    "Data.Maybe∷Maybe.Just",
-    238
-  }), { "Data.Maybe∷Maybe.Just", 239 }), { "Data.Maybe∷Maybe.Just", 240 }), {
-    "Data.Maybe∷Maybe.Just",
-    241
-  })
-  local _S_tmp6 = Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(_S_tmp5, {
-    "Data.Maybe∷Maybe.Just",
-    242
-  }), { "Data.Maybe∷Maybe.Just", 243 }), { "Data.Maybe∷Maybe.Just", 244 }), {
-    "Data.Maybe∷Maybe.Just",
-    245
-  }), { "Data.Maybe∷Maybe.Just", 246 }), { "Data.Maybe∷Maybe.Just", 247 }), {
-    "Data.Maybe∷Maybe.Just",
-    248
-  }), { "Data.Maybe∷Maybe.Just", 249 }), { "Data.Maybe∷Maybe.Just", 250 }), {
-    "Data.Maybe∷Maybe.Just",
-    251
-  }), { "Data.Maybe∷Maybe.Just", 252 }), { "Data.Maybe∷Maybe.Just", 253 }), {
-    "Data.Maybe∷Maybe.Just",
-    254
-  }), { "Data.Maybe∷Maybe.Just", 255 }), { "Data.Maybe∷Maybe.Just", 256 }), {
-    "Data.Maybe∷Maybe.Just",
-    257
-  }), { "Data.Maybe∷Maybe.Just", 258 }), { "Data.Maybe∷Maybe.Just", 259 }), {
-    "Data.Maybe∷Maybe.Just",
-    260
-  }), { "Data.Maybe∷Maybe.Just", 261 }), { "Data.Maybe∷Maybe.Just", 262 }), {
-    "Data.Maybe∷Maybe.Just",
-    263
-  }), { "Data.Maybe∷Maybe.Just", 264 }), { "Data.Maybe∷Maybe.Just", 265 }), {
-    "Data.Maybe∷Maybe.Just",
-    266
-  }), { "Data.Maybe∷Maybe.Just", 267 }), { "Data.Maybe∷Maybe.Just", 268 }), {
-    "Data.Maybe∷Maybe.Just",
-    269
-  }), { "Data.Maybe∷Maybe.Just", 270 }), { "Data.Maybe∷Maybe.Just", 271 }), {
-    "Data.Maybe∷Maybe.Just",
-    272
-  }), { "Data.Maybe∷Maybe.Just", 273 }), { "Data.Maybe∷Maybe.Just", 274 }), {
-    "Data.Maybe∷Maybe.Just",
-    275
-  }), { "Data.Maybe∷Maybe.Just", 276 }), { "Data.Maybe∷Maybe.Just", 277 }), {
-    "Data.Maybe∷Maybe.Just",
-    278
-  }), { "Data.Maybe∷Maybe.Just", 279 }), { "Data.Maybe∷Maybe.Just", 280 }), {
-    "Data.Maybe∷Maybe.Just",
-    281
-  })
-  return Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(_S_tmp6, {
-    "Data.Maybe∷Maybe.Just",
-    282
-  }), { "Data.Maybe∷Maybe.Just", 283 }), { "Data.Maybe∷Maybe.Just", 284 }), {
-    "Data.Maybe∷Maybe.Just",
-    285
-  }), { "Data.Maybe∷Maybe.Just", 286 }), { "Data.Maybe∷Maybe.Just", 287 }), {
-    "Data.Maybe∷Maybe.Just",
-    288
-  }), { "Data.Maybe∷Maybe.Just", 289 }), { "Data.Maybe∷Maybe.Just", 290 }), {
-    "Data.Maybe∷Maybe.Just",
-    291
-  }), { "Data.Maybe∷Maybe.Just", 292 }), { "Data.Maybe∷Maybe.Just", 293 }), {
-    "Data.Maybe∷Maybe.Just",
-    294
-  }), { "Data.Maybe∷Maybe.Just", 295 }), { "Data.Maybe∷Maybe.Just", 296 }), {
-    "Data.Maybe∷Maybe.Just",
-    297
-  }), { "Data.Maybe∷Maybe.Just", 298 }), { "Data.Maybe∷Maybe.Just", 299 }), {
-    "Data.Maybe∷Maybe.Just",
-    300
-  })
-end)()
+local Golden_LongApplyChain_Test_compute = { "Data.Maybe∷Maybe.Just", 300 }
 return Effect_Console_foreign.log((function()
   if "Data.Maybe∷Maybe.Just" == Golden_LongApplyChain_Test_compute[1] then
     return "(Just " .. Data_Show_foreign.showIntImpl(Golden_LongApplyChain_Test_compute[2]) .. ")"
diff --git a/test/ps/output/Golden.LongBindFlipped.Test/golden.ir b/test/ps/output/Golden.LongBindFlipped.Test/golden.ir
index 93e7f76f..adcbcba1 100644
--- a/test/ps/output/Golden.LongBindFlipped.Test/golden.ir
+++ b/test/ps/output/Golden.LongBindFlipped.Test/golden.ir
@@ -13,28 +13,6 @@ UberModule
         ( ModuleName "Effect.Console" ) ".spago/p/console/f82835a0b873aafe6bd7b14dd30cc150553d4ab9/src/Effect/Console.purs"
         [ ( Nothing, Name "log" ) ]
       ), Standalone
-      ( QName
-        { qnameModuleName = ModuleName "Golden.LongBindFlipped.Test", qnameName = Name "bindFlipped$w"
-        }, AbsN Nothing
-        ( ParamNamed Nothing ( Name "b$311" ) :| [ ParamNamed Nothing ( Name "a$312" ) ] )
-        ( IfThenElse Nothing
-          ( Eq Nothing
-            ( LiteralString Nothing "Data.Maybe∷Maybe.Just" )
-            ( ReflectCtor Nothing ( Ref Nothing ( Local ( Name "a$312" ) ) ) )
-          )
-          ( AppN Nothing
-            ( Ref Nothing ( Local ( Name "b$311" ) ) )
-            ( DataArgumentByIndex Nothing SumType 0
-              ( Ref Nothing ( Local ( Name "a$312" ) ) ) :| []
-            )
-          )
-          ( Ctor Nothing SumType
-            ( ModuleName "Data.Maybe" )
-            ( TyName "Maybe" )
-            ( CtorName "Nothing" ) []
-          )
-        )
-      ), Standalone
       ( QName
         { qnameModuleName = ModuleName "Golden.LongBindFlipped.Test", qnameName = Name "inc"
         }, AbsN Nothing
@@ -51,4147 +29,11 @@ UberModule
       ), Standalone
       ( QName
         { qnameModuleName = ModuleName "Golden.LongBindFlipped.Test", qnameName = Name "compute"
-        }, Let Nothing
-        ( Standalone
-          ( Nothing, Name "$tmp333", AppN Nothing
-            ( Ref Nothing
-              ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "bindFlipped$w" ) )
-            )
-            ( Ref Nothing
-              ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) ) :|
-              [ AppN Nothing
-                ( Ref Nothing
-                  ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "bindFlipped$w" ) )
-                )
-                ( Ref Nothing
-                  ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) ) :|
-                  [ AppN Nothing
-                    ( Ref Nothing
-                      ( Imported
-                        ( ModuleName "Golden.LongBindFlipped.Test" )
-                        ( Name "bindFlipped$w" )
-                      )
-                    )
-                    ( Ref Nothing
-                      ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) ) :|
-                      [ AppN Nothing
-                        ( Ref Nothing
-                          ( Imported
-                            ( ModuleName "Golden.LongBindFlipped.Test" )
-                            ( Name "bindFlipped$w" )
-                          )
-                        )
-                        ( Ref Nothing
-                          ( Imported
-                            ( ModuleName "Golden.LongBindFlipped.Test" )
-                            ( Name "inc" )
-                          ) :|
-                          [ AppN Nothing
-                            ( Ref Nothing
-                              ( Imported
-                                ( ModuleName "Golden.LongBindFlipped.Test" )
-                                ( Name "bindFlipped$w" )
-                              )
-                            )
-                            ( Ref Nothing
-                              ( Imported
-                                ( ModuleName "Golden.LongBindFlipped.Test" )
-                                ( Name "inc" )
-                              ) :|
-                              [ AppN Nothing
-                                ( Ref Nothing
-                                  ( Imported
-                                    ( ModuleName "Golden.LongBindFlipped.Test" )
-                                    ( Name "bindFlipped$w" )
-                                  )
-                                )
-                                ( Ref Nothing
-                                  ( Imported
-                                    ( ModuleName "Golden.LongBindFlipped.Test" )
-                                    ( Name "inc" )
-                                  ) :|
-                                  [ AppN Nothing
-                                    ( Ref Nothing
-                                      ( Imported
-                                        ( ModuleName "Golden.LongBindFlipped.Test" )
-                                        ( Name "bindFlipped$w" )
-                                      )
-                                    )
-                                    ( Ref Nothing
-                                      ( Imported
-                                        ( ModuleName "Golden.LongBindFlipped.Test" )
-                                        ( Name "inc" )
-                                      ) :|
-                                      [ AppN Nothing
-                                        ( Ref Nothing
-                                          ( Imported
-                                            ( ModuleName "Golden.LongBindFlipped.Test" )
-                                            ( Name "bindFlipped$w" )
-                                          )
-                                        )
-                                        ( Ref Nothing
-                                          ( Imported
-                                            ( ModuleName "Golden.LongBindFlipped.Test" )
-                                            ( Name "inc" )
-                                          ) :|
-                                          [ AppN Nothing
-                                            ( Ref Nothing
-                                              ( Imported
-                                                ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                ( Name "bindFlipped$w" )
-                                              )
-                                            )
-                                            ( Ref Nothing
-                                              ( Imported
-                                                ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                ( Name "inc" )
-                                              ) :|
-                                              [ AppN Nothing
-                                                ( Ref Nothing
-                                                  ( Imported
-                                                    ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                    ( Name "bindFlipped$w" )
-                                                  )
-                                                )
-                                                ( Ref Nothing
-                                                  ( Imported
-                                                    ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                    ( Name "inc" )
-                                                  ) :|
-                                                  [ AppN Nothing
-                                                    ( Ref Nothing
-                                                      ( Imported
-                                                        ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                        ( Name "bindFlipped$w" )
-                                                      )
-                                                    )
-                                                    ( Ref Nothing
-                                                      ( Imported
-                                                        ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                        ( Name "inc" )
-                                                      ) :|
-                                                      [ AppN Nothing
-                                                        ( Ref Nothing
-                                                          ( Imported
-                                                            ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                            ( Name "bindFlipped$w" )
-                                                          )
-                                                        )
-                                                        ( Ref Nothing
-                                                          ( Imported
-                                                            ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                            ( Name "inc" )
-                                                          ) :|
-                                                          [ AppN Nothing
-                                                            ( Ref Nothing
-                                                              ( Imported
-                                                                ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                ( Name "bindFlipped$w" )
-                                                              )
-                                                            )
-                                                            ( Ref Nothing
-                                                              ( Imported
-                                                                ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                ( Name "inc" )
-                                                              ) :|
-                                                              [ AppN Nothing
-                                                                ( Ref Nothing
-                                                                  ( Imported
-                                                                    ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                    ( Name "bindFlipped$w" )
-                                                                  )
-                                                                )
-                                                                ( Ref Nothing
-                                                                  ( Imported
-                                                                    ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                    ( Name "inc" )
-                                                                  ) :|
-                                                                  [ AppN Nothing
-                                                                    ( Ref Nothing
-                                                                      ( Imported
-                                                                        ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                        ( Name "bindFlipped$w" )
-                                                                      )
-                                                                    )
-                                                                    ( Ref Nothing
-                                                                      ( Imported
-                                                                        ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                        ( Name "inc" )
-                                                                      ) :|
-                                                                      [ AppN Nothing
-                                                                        ( Ref Nothing
-                                                                          ( Imported
-                                                                            ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                            ( Name "bindFlipped$w" )
-                                                                          )
-                                                                        )
-                                                                        ( Ref Nothing
-                                                                          ( Imported
-                                                                            ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                            ( Name "inc" )
-                                                                          ) :|
-                                                                          [ AppN Nothing
-                                                                            ( Ref Nothing
-                                                                              ( Imported
-                                                                                ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                ( Name "bindFlipped$w" )
-                                                                              )
-                                                                            )
-                                                                            ( Ref Nothing
-                                                                              ( Imported
-                                                                                ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                ( Name "inc" )
-                                                                              ) :|
-                                                                              [ AppN Nothing
-                                                                                ( Ref Nothing
-                                                                                  ( Imported
-                                                                                    ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                    ( Name "bindFlipped$w" )
-                                                                                  )
-                                                                                )
-                                                                                ( Ref Nothing
-                                                                                  ( Imported
-                                                                                    ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                    ( Name "inc" )
-                                                                                  ) :|
-                                                                                  [ AppN Nothing
-                                                                                    ( Ref Nothing
-                                                                                      ( Imported
-                                                                                        ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                        ( Name "bindFlipped$w" )
-                                                                                      )
-                                                                                    )
-                                                                                    ( Ref Nothing
-                                                                                      ( Imported
-                                                                                        ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                        ( Name "inc" )
-                                                                                      ) :|
-                                                                                      [ AppN Nothing
-                                                                                        ( Ref Nothing
-                                                                                          ( Imported
-                                                                                            ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                            ( Name "bindFlipped$w" )
-                                                                                          )
-                                                                                        )
-                                                                                        ( Ref Nothing
-                                                                                          ( Imported
-                                                                                            ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                            ( Name "inc" )
-                                                                                          ) :|
-                                                                                          [ AppN Nothing
-                                                                                            ( Ref Nothing
-                                                                                              ( Imported
-                                                                                                ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                ( Name "bindFlipped$w" )
-                                                                                              )
-                                                                                            )
-                                                                                            ( Ref Nothing
-                                                                                              ( Imported
-                                                                                                ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                ( Name "inc" )
-                                                                                              ) :|
-                                                                                              [ AppN Nothing
-                                                                                                ( Ref Nothing
-                                                                                                  ( Imported
-                                                                                                    ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                    ( Name "bindFlipped$w" )
-                                                                                                  )
-                                                                                                )
-                                                                                                ( Ref Nothing
-                                                                                                  ( Imported
-                                                                                                    ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                    ( Name "inc" )
-                                                                                                  ) :|
-                                                                                                  [ AppN Nothing
-                                                                                                    ( Ref Nothing
-                                                                                                      ( Imported
-                                                                                                        ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                        ( Name "bindFlipped$w" )
-                                                                                                      )
-                                                                                                    )
-                                                                                                    ( Ref Nothing
-                                                                                                      ( Imported
-                                                                                                        ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                        ( Name "inc" )
-                                                                                                      ) :|
-                                                                                                      [ AppN Nothing
-                                                                                                        ( Ref Nothing
-                                                                                                          ( Imported
-                                                                                                            ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                            ( Name "bindFlipped$w" )
-                                                                                                          )
-                                                                                                        )
-                                                                                                        ( Ref Nothing
-                                                                                                          ( Imported
-                                                                                                            ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                            ( Name "inc" )
-                                                                                                          ) :|
-                                                                                                          [ AppN Nothing
-                                                                                                            ( Ref Nothing
-                                                                                                              ( Imported
-                                                                                                                ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                                ( Name "bindFlipped$w" )
-                                                                                                              )
-                                                                                                            )
-                                                                                                            ( Ref Nothing
-                                                                                                              ( Imported
-                                                                                                                ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                                ( Name "inc" )
-                                                                                                              ) :|
-                                                                                                              [ AppN Nothing
-                                                                                                                ( Ref Nothing
-                                                                                                                  ( Imported
-                                                                                                                    ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                                    ( Name "bindFlipped$w" )
-                                                                                                                  )
-                                                                                                                )
-                                                                                                                ( Ref Nothing
-                                                                                                                  ( Imported
-                                                                                                                    ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                                    ( Name "inc" )
-                                                                                                                  ) :|
-                                                                                                                  [ AppN Nothing
-                                                                                                                    ( Ref Nothing
-                                                                                                                      ( Imported
-                                                                                                                        ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                                        ( Name "bindFlipped$w" )
-                                                                                                                      )
-                                                                                                                    )
-                                                                                                                    ( Ref Nothing
-                                                                                                                      ( Imported
-                                                                                                                        ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                                        ( Name "inc" )
-                                                                                                                      ) :|
-                                                                                                                      [ AppN Nothing
-                                                                                                                        ( Ref Nothing
-                                                                                                                          ( Imported
-                                                                                                                            ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                                            ( Name "bindFlipped$w" )
-                                                                                                                          )
-                                                                                                                        )
-                                                                                                                        ( Ref Nothing
-                                                                                                                          ( Imported
-                                                                                                                            ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                                            ( Name "inc" )
-                                                                                                                          ) :|
-                                                                                                                          [ AppN Nothing
-                                                                                                                            ( Ref Nothing
-                                                                                                                              ( Imported
-                                                                                                                                ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                                                ( Name "bindFlipped$w" )
-                                                                                                                              )
-                                                                                                                            )
-                                                                                                                            ( Ref Nothing
-                                                                                                                              ( Imported
-                                                                                                                                ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                                                ( Name "inc" )
-                                                                                                                              ) :|
-                                                                                                                              [ AppN Nothing
-                                                                                                                                ( Ref Nothing
-                                                                                                                                  ( Imported
-                                                                                                                                    ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                                                    ( Name "bindFlipped$w" )
-                                                                                                                                  )
-                                                                                                                                )
-                                                                                                                                ( Ref Nothing
-                                                                                                                                  ( Imported
-                                                                                                                                    ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                                                    ( Name "inc" )
-                                                                                                                                  ) :|
-                                                                                                                                  [ AppN Nothing
-                                                                                                                                    ( Ref Nothing
-                                                                                                                                      ( Imported
-                                                                                                                                        ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                                                        ( Name "bindFlipped$w" )
-                                                                                                                                      )
-                                                                                                                                    )
-                                                                                                                                    ( Ref Nothing
-                                                                                                                                      ( Imported
-                                                                                                                                        ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                                                        ( Name "inc" )
-                                                                                                                                      ) :|
-                                                                                                                                      [ AppN Nothing
-                                                                                                                                        ( Ref Nothing
-                                                                                                                                          ( Imported
-                                                                                                                                            ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                                                            ( Name "bindFlipped$w" )
-                                                                                                                                          )
-                                                                                                                                        )
-                                                                                                                                        ( Ref Nothing
-                                                                                                                                          ( Imported
-                                                                                                                                            ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                                                            ( Name "inc" )
-                                                                                                                                          ) :|
-                                                                                                                                          [ AppN Nothing
-                                                                                                                                            ( Ref Nothing
-                                                                                                                                              ( Imported
-                                                                                                                                                ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                                                                ( Name "bindFlipped$w" )
-                                                                                                                                              )
-                                                                                                                                            )
-                                                                                                                                            ( Ref Nothing
-                                                                                                                                              ( Imported
-                                                                                                                                                ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                                                                ( Name "inc" )
-                                                                                                                                              ) :|
-                                                                                                                                              [ AppN Nothing
-                                                                                                                                                ( Ref Nothing
-                                                                                                                                                  ( Imported
-                                                                                                                                                    ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                                                                    ( Name "bindFlipped$w" )
-                                                                                                                                                  )
-                                                                                                                                                )
-                                                                                                                                                ( Ref Nothing
-                                                                                                                                                  ( Imported
-                                                                                                                                                    ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                                                                    ( Name "inc" )
-                                                                                                                                                  ) :|
-                                                                                                                                                  [ AppN Nothing
-                                                                                                                                                    ( Ref Nothing
-                                                                                                                                                      ( Imported
-                                                                                                                                                        ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                                                                        ( Name "bindFlipped$w" )
-                                                                                                                                                      )
-                                                                                                                                                    )
-                                                                                                                                                    ( Ref Nothing
-                                                                                                                                                      ( Imported
-                                                                                                                                                        ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                                                                        ( Name "inc" )
-                                                                                                                                                      ) :|
-                                                                                                                                                      [ AppN Nothing
-                                                                                                                                                        ( Ref Nothing
-                                                                                                                                                          ( Imported
-                                                                                                                                                            ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                                                                            ( Name "bindFlipped$w" )
-                                                                                                                                                          )
-                                                                                                                                                        )
-                                                                                                                                                        ( Ref Nothing
-                                                                                                                                                          ( Imported
-                                                                                                                                                            ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                                                                            ( Name "inc" )
-                                                                                                                                                          ) :|
-                                                                                                                                                          [ AppN Nothing
-                                                                                                                                                            ( Ref Nothing
-                                                                                                                                                              ( Imported
-                                                                                                                                                                ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                                                                                ( Name "bindFlipped$w" )
-                                                                                                                                                              )
-                                                                                                                                                            )
-                                                                                                                                                            ( Ref Nothing
-                                                                                                                                                              ( Imported
-                                                                                                                                                                ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                                                                                ( Name "inc" )
-                                                                                                                                                              ) :|
-                                                                                                                                                              [ AppN Nothing
-                                                                                                                                                                ( Ref Nothing
-                                                                                                                                                                  ( Imported
-                                                                                                                                                                    ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                                                                                    ( Name "bindFlipped$w" )
-                                                                                                                                                                  )
-                                                                                                                                                                )
-                                                                                                                                                                ( Ref Nothing
-                                                                                                                                                                  ( Imported
-                                                                                                                                                                    ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                                                                                    ( Name "inc" )
-                                                                                                                                                                  ) :|
-                                                                                                                                                                  [ AppN Nothing
-                                                                                                                                                                    ( Ref Nothing
-                                                                                                                                                                      ( Imported
-                                                                                                                                                                        ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                                                                                        ( Name "bindFlipped$w" )
-                                                                                                                                                                      )
-                                                                                                                                                                    )
-                                                                                                                                                                    ( Ref Nothing
-                                                                                                                                                                      ( Imported
-                                                                                                                                                                        ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                                                                                        ( Name "inc" )
-                                                                                                                                                                      ) :|
-                                                                                                                                                                      [ AppN Nothing
-                                                                                                                                                                        ( Ref Nothing
-                                                                                                                                                                          ( Imported
-                                                                                                                                                                            ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                                                                                            ( Name "bindFlipped$w" )
-                                                                                                                                                                          )
-                                                                                                                                                                        )
-                                                                                                                                                                        ( Ref Nothing
-                                                                                                                                                                          ( Imported
-                                                                                                                                                                            ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                                                                                            ( Name "inc" )
-                                                                                                                                                                          ) :|
-                                                                                                                                                                          [ Ctor Nothing SumType
-                                                                                                                                                                            ( ModuleName "Data.Maybe" )
-                                                                                                                                                                            ( TyName "Maybe" )
-                                                                                                                                                                            ( CtorName "Just" )
-                                                                                                                                                                            [ LiteralInt Nothing 1 ]
-                                                                                                                                                                          ]
-                                                                                                                                                                        )
-                                                                                                                                                                      ]
-                                                                                                                                                                    )
-                                                                                                                                                                  ]
-                                                                                                                                                                )
-                                                                                                                                                              ]
-                                                                                                                                                            )
-                                                                                                                                                          ]
-                                                                                                                                                        )
-                                                                                                                                                      ]
-                                                                                                                                                    )
-                                                                                                                                                  ]
-                                                                                                                                                )
-                                                                                                                                              ]
-                                                                                                                                            )
-                                                                                                                                          ]
-                                                                                                                                        )
-                                                                                                                                      ]
-                                                                                                                                    )
-                                                                                                                                  ]
-                                                                                                                                )
-                                                                                                                              ]
-                                                                                                                            )
-                                                                                                                          ]
-                                                                                                                        )
-                                                                                                                      ]
-                                                                                                                    )
-                                                                                                                  ]
-                                                                                                                )
-                                                                                                              ]
-                                                                                                            )
-                                                                                                          ]
-                                                                                                        )
-                                                                                                      ]
-                                                                                                    )
-                                                                                                  ]
-                                                                                                )
-                                                                                              ]
-                                                                                            )
-                                                                                          ]
-                                                                                        )
-                                                                                      ]
-                                                                                    )
-                                                                                  ]
-                                                                                )
-                                                                              ]
-                                                                            )
-                                                                          ]
-                                                                        )
-                                                                      ]
-                                                                    )
-                                                                  ]
-                                                                )
-                                                              ]
-                                                            )
-                                                          ]
-                                                        )
-                                                      ]
-                                                    )
-                                                  ]
-                                                )
-                                              ]
-                                            )
-                                          ]
-                                        )
-                                      ]
-                                    )
-                                  ]
-                                )
-                              ]
-                            )
-                          ]
-                        )
-                      ]
-                    )
-                  ]
-                )
-              ]
-            )
-          ) :|
-          [ Standalone
-            ( Nothing, Name "$tmp334", AppN Nothing
-              ( Ref Nothing
-                ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "bindFlipped$w" ) )
-              )
-              ( Ref Nothing
-                ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) ) :|
-                [ AppN Nothing
-                  ( Ref Nothing
-                    ( Imported
-                      ( ModuleName "Golden.LongBindFlipped.Test" )
-                      ( Name "bindFlipped$w" )
-                    )
-                  )
-                  ( Ref Nothing
-                    ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) ) :|
-                    [ AppN Nothing
-                      ( Ref Nothing
-                        ( Imported
-                          ( ModuleName "Golden.LongBindFlipped.Test" )
-                          ( Name "bindFlipped$w" )
-                        )
-                      )
-                      ( Ref Nothing
-                        ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) ) :|
-                        [ AppN Nothing
-                          ( Ref Nothing
-                            ( Imported
-                              ( ModuleName "Golden.LongBindFlipped.Test" )
-                              ( Name "bindFlipped$w" )
-                            )
-                          )
-                          ( Ref Nothing
-                            ( Imported
-                              ( ModuleName "Golden.LongBindFlipped.Test" )
-                              ( Name "inc" )
-                            ) :|
-                            [ AppN Nothing
-                              ( Ref Nothing
-                                ( Imported
-                                  ( ModuleName "Golden.LongBindFlipped.Test" )
-                                  ( Name "bindFlipped$w" )
-                                )
-                              )
-                              ( Ref Nothing
-                                ( Imported
-                                  ( ModuleName "Golden.LongBindFlipped.Test" )
-                                  ( Name "inc" )
-                                ) :|
-                                [ AppN Nothing
-                                  ( Ref Nothing
-                                    ( Imported
-                                      ( ModuleName "Golden.LongBindFlipped.Test" )
-                                      ( Name "bindFlipped$w" )
-                                    )
-                                  )
-                                  ( Ref Nothing
-                                    ( Imported
-                                      ( ModuleName "Golden.LongBindFlipped.Test" )
-                                      ( Name "inc" )
-                                    ) :|
-                                    [ AppN Nothing
-                                      ( Ref Nothing
-                                        ( Imported
-                                          ( ModuleName "Golden.LongBindFlipped.Test" )
-                                          ( Name "bindFlipped$w" )
-                                        )
-                                      )
-                                      ( Ref Nothing
-                                        ( Imported
-                                          ( ModuleName "Golden.LongBindFlipped.Test" )
-                                          ( Name "inc" )
-                                        ) :|
-                                        [ AppN Nothing
-                                          ( Ref Nothing
-                                            ( Imported
-                                              ( ModuleName "Golden.LongBindFlipped.Test" )
-                                              ( Name "bindFlipped$w" )
-                                            )
-                                          )
-                                          ( Ref Nothing
-                                            ( Imported
-                                              ( ModuleName "Golden.LongBindFlipped.Test" )
-                                              ( Name "inc" )
-                                            ) :|
-                                            [ AppN Nothing
-                                              ( Ref Nothing
-                                                ( Imported
-                                                  ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                  ( Name "bindFlipped$w" )
-                                                )
-                                              )
-                                              ( Ref Nothing
-                                                ( Imported
-                                                  ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                  ( Name "inc" )
-                                                ) :|
-                                                [ AppN Nothing
-                                                  ( Ref Nothing
-                                                    ( Imported
-                                                      ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                      ( Name "bindFlipped$w" )
-                                                    )
-                                                  )
-                                                  ( Ref Nothing
-                                                    ( Imported
-                                                      ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                      ( Name "inc" )
-                                                    ) :|
-                                                    [ AppN Nothing
-                                                      ( Ref Nothing
-                                                        ( Imported
-                                                          ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                          ( Name "bindFlipped$w" )
-                                                        )
-                                                      )
-                                                      ( Ref Nothing
-                                                        ( Imported
-                                                          ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                          ( Name "inc" )
-                                                        ) :|
-                                                        [ AppN Nothing
-                                                          ( Ref Nothing
-                                                            ( Imported
-                                                              ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                              ( Name "bindFlipped$w" )
-                                                            )
-                                                          )
-                                                          ( Ref Nothing
-                                                            ( Imported
-                                                              ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                              ( Name "inc" )
-                                                            ) :|
-                                                            [ AppN Nothing
-                                                              ( Ref Nothing
-                                                                ( Imported
-                                                                  ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                  ( Name "bindFlipped$w" )
-                                                                )
-                                                              )
-                                                              ( Ref Nothing
-                                                                ( Imported
-                                                                  ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                  ( Name "inc" )
-                                                                ) :|
-                                                                [ AppN Nothing
-                                                                  ( Ref Nothing
-                                                                    ( Imported
-                                                                      ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                      ( Name "bindFlipped$w" )
-                                                                    )
-                                                                  )
-                                                                  ( Ref Nothing
-                                                                    ( Imported
-                                                                      ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                      ( Name "inc" )
-                                                                    ) :|
-                                                                    [ AppN Nothing
-                                                                      ( Ref Nothing
-                                                                        ( Imported
-                                                                          ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                          ( Name "bindFlipped$w" )
-                                                                        )
-                                                                      )
-                                                                      ( Ref Nothing
-                                                                        ( Imported
-                                                                          ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                          ( Name "inc" )
-                                                                        ) :|
-                                                                        [ AppN Nothing
-                                                                          ( Ref Nothing
-                                                                            ( Imported
-                                                                              ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                              ( Name "bindFlipped$w" )
-                                                                            )
-                                                                          )
-                                                                          ( Ref Nothing
-                                                                            ( Imported
-                                                                              ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                              ( Name "inc" )
-                                                                            ) :|
-                                                                            [ AppN Nothing
-                                                                              ( Ref Nothing
-                                                                                ( Imported
-                                                                                  ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                  ( Name "bindFlipped$w" )
-                                                                                )
-                                                                              )
-                                                                              ( Ref Nothing
-                                                                                ( Imported
-                                                                                  ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                  ( Name "inc" )
-                                                                                ) :|
-                                                                                [ AppN Nothing
-                                                                                  ( Ref Nothing
-                                                                                    ( Imported
-                                                                                      ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                      ( Name "bindFlipped$w" )
-                                                                                    )
-                                                                                  )
-                                                                                  ( Ref Nothing
-                                                                                    ( Imported
-                                                                                      ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                      ( Name "inc" )
-                                                                                    ) :|
-                                                                                    [ AppN Nothing
-                                                                                      ( Ref Nothing
-                                                                                        ( Imported
-                                                                                          ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                          ( Name "bindFlipped$w" )
-                                                                                        )
-                                                                                      )
-                                                                                      ( Ref Nothing
-                                                                                        ( Imported
-                                                                                          ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                          ( Name "inc" )
-                                                                                        ) :|
-                                                                                        [ AppN Nothing
-                                                                                          ( Ref Nothing
-                                                                                            ( Imported
-                                                                                              ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                              ( Name "bindFlipped$w" )
-                                                                                            )
-                                                                                          )
-                                                                                          ( Ref Nothing
-                                                                                            ( Imported
-                                                                                              ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                              ( Name "inc" )
-                                                                                            ) :|
-                                                                                            [ AppN Nothing
-                                                                                              ( Ref Nothing
-                                                                                                ( Imported
-                                                                                                  ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                  ( Name "bindFlipped$w" )
-                                                                                                )
-                                                                                              )
-                                                                                              ( Ref Nothing
-                                                                                                ( Imported
-                                                                                                  ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                  ( Name "inc" )
-                                                                                                ) :|
-                                                                                                [ AppN Nothing
-                                                                                                  ( Ref Nothing
-                                                                                                    ( Imported
-                                                                                                      ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                      ( Name "bindFlipped$w" )
-                                                                                                    )
-                                                                                                  )
-                                                                                                  ( Ref Nothing
-                                                                                                    ( Imported
-                                                                                                      ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                      ( Name "inc" )
-                                                                                                    ) :|
-                                                                                                    [ AppN Nothing
-                                                                                                      ( Ref Nothing
-                                                                                                        ( Imported
-                                                                                                          ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                          ( Name "bindFlipped$w" )
-                                                                                                        )
-                                                                                                      )
-                                                                                                      ( Ref Nothing
-                                                                                                        ( Imported
-                                                                                                          ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                          ( Name "inc" )
-                                                                                                        ) :|
-                                                                                                        [ AppN Nothing
-                                                                                                          ( Ref Nothing
-                                                                                                            ( Imported
-                                                                                                              ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                              ( Name "bindFlipped$w" )
-                                                                                                            )
-                                                                                                          )
-                                                                                                          ( Ref Nothing
-                                                                                                            ( Imported
-                                                                                                              ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                              ( Name "inc" )
-                                                                                                            ) :|
-                                                                                                            [ AppN Nothing
-                                                                                                              ( Ref Nothing
-                                                                                                                ( Imported
-                                                                                                                  ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                                  ( Name "bindFlipped$w" )
-                                                                                                                )
-                                                                                                              )
-                                                                                                              ( Ref Nothing
-                                                                                                                ( Imported
-                                                                                                                  ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                                  ( Name "inc" )
-                                                                                                                ) :|
-                                                                                                                [ AppN Nothing
-                                                                                                                  ( Ref Nothing
-                                                                                                                    ( Imported
-                                                                                                                      ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                                      ( Name "bindFlipped$w" )
-                                                                                                                    )
-                                                                                                                  )
-                                                                                                                  ( Ref Nothing
-                                                                                                                    ( Imported
-                                                                                                                      ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                                      ( Name "inc" )
-                                                                                                                    ) :|
-                                                                                                                    [ AppN Nothing
-                                                                                                                      ( Ref Nothing
-                                                                                                                        ( Imported
-                                                                                                                          ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                                          ( Name "bindFlipped$w" )
-                                                                                                                        )
-                                                                                                                      )
-                                                                                                                      ( Ref Nothing
-                                                                                                                        ( Imported
-                                                                                                                          ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                                          ( Name "inc" )
-                                                                                                                        ) :|
-                                                                                                                        [ AppN Nothing
-                                                                                                                          ( Ref Nothing
-                                                                                                                            ( Imported
-                                                                                                                              ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                                              ( Name "bindFlipped$w" )
-                                                                                                                            )
-                                                                                                                          )
-                                                                                                                          ( Ref Nothing
-                                                                                                                            ( Imported
-                                                                                                                              ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                                              ( Name "inc" )
-                                                                                                                            ) :|
-                                                                                                                            [ AppN Nothing
-                                                                                                                              ( Ref Nothing
-                                                                                                                                ( Imported
-                                                                                                                                  ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                                                  ( Name "bindFlipped$w" )
-                                                                                                                                )
-                                                                                                                              )
-                                                                                                                              ( Ref Nothing
-                                                                                                                                ( Imported
-                                                                                                                                  ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                                                  ( Name "inc" )
-                                                                                                                                ) :|
-                                                                                                                                [ AppN Nothing
-                                                                                                                                  ( Ref Nothing
-                                                                                                                                    ( Imported
-                                                                                                                                      ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                                                      ( Name "bindFlipped$w" )
-                                                                                                                                    )
-                                                                                                                                  )
-                                                                                                                                  ( Ref Nothing
-                                                                                                                                    ( Imported
-                                                                                                                                      ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                                                      ( Name "inc" )
-                                                                                                                                    ) :|
-                                                                                                                                    [ AppN Nothing
-                                                                                                                                      ( Ref Nothing
-                                                                                                                                        ( Imported
-                                                                                                                                          ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                                                          ( Name "bindFlipped$w" )
-                                                                                                                                        )
-                                                                                                                                      )
-                                                                                                                                      ( Ref Nothing
-                                                                                                                                        ( Imported
-                                                                                                                                          ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                                                          ( Name "inc" )
-                                                                                                                                        ) :|
-                                                                                                                                        [ AppN Nothing
-                                                                                                                                          ( Ref Nothing
-                                                                                                                                            ( Imported
-                                                                                                                                              ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                                                              ( Name "bindFlipped$w" )
-                                                                                                                                            )
-                                                                                                                                          )
-                                                                                                                                          ( Ref Nothing
-                                                                                                                                            ( Imported
-                                                                                                                                              ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                                                              ( Name "inc" )
-                                                                                                                                            ) :|
-                                                                                                                                            [ AppN Nothing
-                                                                                                                                              ( Ref Nothing
-                                                                                                                                                ( Imported
-                                                                                                                                                  ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                                                                  ( Name "bindFlipped$w" )
-                                                                                                                                                )
-                                                                                                                                              )
-                                                                                                                                              ( Ref Nothing
-                                                                                                                                                ( Imported
-                                                                                                                                                  ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                                                                  ( Name "inc" )
-                                                                                                                                                ) :|
-                                                                                                                                                [ AppN Nothing
-                                                                                                                                                  ( Ref Nothing
-                                                                                                                                                    ( Imported
-                                                                                                                                                      ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                                                                      ( Name "bindFlipped$w" )
-                                                                                                                                                    )
-                                                                                                                                                  )
-                                                                                                                                                  ( Ref Nothing
-                                                                                                                                                    ( Imported
-                                                                                                                                                      ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                                                                      ( Name "inc" )
-                                                                                                                                                    ) :|
-                                                                                                                                                    [ AppN Nothing
-                                                                                                                                                      ( Ref Nothing
-                                                                                                                                                        ( Imported
-                                                                                                                                                          ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                                                                          ( Name "bindFlipped$w" )
-                                                                                                                                                        )
-                                                                                                                                                      )
-                                                                                                                                                      ( Ref Nothing
-                                                                                                                                                        ( Imported
-                                                                                                                                                          ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                                                                          ( Name "inc" )
-                                                                                                                                                        ) :|
-                                                                                                                                                        [ AppN Nothing
-                                                                                                                                                          ( Ref Nothing
-                                                                                                                                                            ( Imported
-                                                                                                                                                              ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                                                                              ( Name "bindFlipped$w" )
-                                                                                                                                                            )
-                                                                                                                                                          )
-                                                                                                                                                          ( Ref Nothing
-                                                                                                                                                            ( Imported
-                                                                                                                                                              ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                                                                              ( Name "inc" )
-                                                                                                                                                            ) :|
-                                                                                                                                                            [ AppN Nothing
-                                                                                                                                                              ( Ref Nothing
-                                                                                                                                                                ( Imported
-                                                                                                                                                                  ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                                                                                  ( Name "bindFlipped$w" )
-                                                                                                                                                                )
-                                                                                                                                                              )
-                                                                                                                                                              ( Ref Nothing
-                                                                                                                                                                ( Imported
-                                                                                                                                                                  ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                                                                                  ( Name "inc" )
-                                                                                                                                                                ) :|
-                                                                                                                                                                [ AppN Nothing
-                                                                                                                                                                  ( Ref Nothing
-                                                                                                                                                                    ( Imported
-                                                                                                                                                                      ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                                                                                      ( Name "bindFlipped$w" )
-                                                                                                                                                                    )
-                                                                                                                                                                  )
-                                                                                                                                                                  ( Ref Nothing
-                                                                                                                                                                    ( Imported
-                                                                                                                                                                      ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                                                                                      ( Name "inc" )
-                                                                                                                                                                    ) :|
-                                                                                                                                                                    [ AppN Nothing
-                                                                                                                                                                      ( Ref Nothing
-                                                                                                                                                                        ( Imported
-                                                                                                                                                                          ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                                                                                          ( Name "bindFlipped$w" )
-                                                                                                                                                                        )
-                                                                                                                                                                      )
-                                                                                                                                                                      ( Ref Nothing
-                                                                                                                                                                        ( Imported
-                                                                                                                                                                          ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                                                                                          ( Name "inc" )
-                                                                                                                                                                        ) :|
-                                                                                                                                                                        [ AppN Nothing
-                                                                                                                                                                          ( Ref Nothing
-                                                                                                                                                                            ( Imported
-                                                                                                                                                                              ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                                                                                              ( Name "bindFlipped$w" )
-                                                                                                                                                                            )
-                                                                                                                                                                          )
-                                                                                                                                                                          ( Ref Nothing
-                                                                                                                                                                            ( Imported
-                                                                                                                                                                              ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                                                                                              ( Name "inc" )
-                                                                                                                                                                            ) :|
-                                                                                                                                                                            [ Ref Nothing
-                                                                                                                                                                              ( Local
-                                                                                                                                                                                ( Name "$tmp333" )
-                                                                                                                                                                              )
-                                                                                                                                                                            ]
-                                                                                                                                                                          )
-                                                                                                                                                                        ]
-                                                                                                                                                                      )
-                                                                                                                                                                    ]
-                                                                                                                                                                  )
-                                                                                                                                                                ]
-                                                                                                                                                              )
-                                                                                                                                                            ]
-                                                                                                                                                          )
-                                                                                                                                                        ]
-                                                                                                                                                      )
-                                                                                                                                                    ]
-                                                                                                                                                  )
-                                                                                                                                                ]
-                                                                                                                                              )
-                                                                                                                                            ]
-                                                                                                                                          )
-                                                                                                                                        ]
-                                                                                                                                      )
-                                                                                                                                    ]
-                                                                                                                                  )
-                                                                                                                                ]
-                                                                                                                              )
-                                                                                                                            ]
-                                                                                                                          )
-                                                                                                                        ]
-                                                                                                                      )
-                                                                                                                    ]
-                                                                                                                  )
-                                                                                                                ]
-                                                                                                              )
-                                                                                                            ]
-                                                                                                          )
-                                                                                                        ]
-                                                                                                      )
-                                                                                                    ]
-                                                                                                  )
-                                                                                                ]
-                                                                                              )
-                                                                                            ]
-                                                                                          )
-                                                                                        ]
-                                                                                      )
-                                                                                    ]
-                                                                                  )
-                                                                                ]
-                                                                              )
-                                                                            ]
-                                                                          )
-                                                                        ]
-                                                                      )
-                                                                    ]
-                                                                  )
-                                                                ]
-                                                              )
-                                                            ]
-                                                          )
-                                                        ]
-                                                      )
-                                                    ]
-                                                  )
-                                                ]
-                                              )
-                                            ]
-                                          )
-                                        ]
-                                      )
-                                    ]
-                                  )
-                                ]
-                              )
-                            ]
-                          )
-                        ]
-                      )
-                    ]
-                  )
-                ]
-              )
-            ), Standalone
-            ( Nothing, Name "$tmp335", AppN Nothing
-              ( Ref Nothing
-                ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "bindFlipped$w" ) )
-              )
-              ( Ref Nothing
-                ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) ) :|
-                [ AppN Nothing
-                  ( Ref Nothing
-                    ( Imported
-                      ( ModuleName "Golden.LongBindFlipped.Test" )
-                      ( Name "bindFlipped$w" )
-                    )
-                  )
-                  ( Ref Nothing
-                    ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) ) :|
-                    [ AppN Nothing
-                      ( Ref Nothing
-                        ( Imported
-                          ( ModuleName "Golden.LongBindFlipped.Test" )
-                          ( Name "bindFlipped$w" )
-                        )
-                      )
-                      ( Ref Nothing
-                        ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) ) :|
-                        [ AppN Nothing
-                          ( Ref Nothing
-                            ( Imported
-                              ( ModuleName "Golden.LongBindFlipped.Test" )
-                              ( Name "bindFlipped$w" )
-                            )
-                          )
-                          ( Ref Nothing
-                            ( Imported
-                              ( ModuleName "Golden.LongBindFlipped.Test" )
-                              ( Name "inc" )
-                            ) :|
-                            [ AppN Nothing
-                              ( Ref Nothing
-                                ( Imported
-                                  ( ModuleName "Golden.LongBindFlipped.Test" )
-                                  ( Name "bindFlipped$w" )
-                                )
-                              )
-                              ( Ref Nothing
-                                ( Imported
-                                  ( ModuleName "Golden.LongBindFlipped.Test" )
-                                  ( Name "inc" )
-                                ) :|
-                                [ AppN Nothing
-                                  ( Ref Nothing
-                                    ( Imported
-                                      ( ModuleName "Golden.LongBindFlipped.Test" )
-                                      ( Name "bindFlipped$w" )
-                                    )
-                                  )
-                                  ( Ref Nothing
-                                    ( Imported
-                                      ( ModuleName "Golden.LongBindFlipped.Test" )
-                                      ( Name "inc" )
-                                    ) :|
-                                    [ AppN Nothing
-                                      ( Ref Nothing
-                                        ( Imported
-                                          ( ModuleName "Golden.LongBindFlipped.Test" )
-                                          ( Name "bindFlipped$w" )
-                                        )
-                                      )
-                                      ( Ref Nothing
-                                        ( Imported
-                                          ( ModuleName "Golden.LongBindFlipped.Test" )
-                                          ( Name "inc" )
-                                        ) :|
-                                        [ AppN Nothing
-                                          ( Ref Nothing
-                                            ( Imported
-                                              ( ModuleName "Golden.LongBindFlipped.Test" )
-                                              ( Name "bindFlipped$w" )
-                                            )
-                                          )
-                                          ( Ref Nothing
-                                            ( Imported
-                                              ( ModuleName "Golden.LongBindFlipped.Test" )
-                                              ( Name "inc" )
-                                            ) :|
-                                            [ AppN Nothing
-                                              ( Ref Nothing
-                                                ( Imported
-                                                  ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                  ( Name "bindFlipped$w" )
-                                                )
-                                              )
-                                              ( Ref Nothing
-                                                ( Imported
-                                                  ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                  ( Name "inc" )
-                                                ) :|
-                                                [ AppN Nothing
-                                                  ( Ref Nothing
-                                                    ( Imported
-                                                      ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                      ( Name "bindFlipped$w" )
-                                                    )
-                                                  )
-                                                  ( Ref Nothing
-                                                    ( Imported
-                                                      ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                      ( Name "inc" )
-                                                    ) :|
-                                                    [ AppN Nothing
-                                                      ( Ref Nothing
-                                                        ( Imported
-                                                          ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                          ( Name "bindFlipped$w" )
-                                                        )
-                                                      )
-                                                      ( Ref Nothing
-                                                        ( Imported
-                                                          ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                          ( Name "inc" )
-                                                        ) :|
-                                                        [ AppN Nothing
-                                                          ( Ref Nothing
-                                                            ( Imported
-                                                              ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                              ( Name "bindFlipped$w" )
-                                                            )
-                                                          )
-                                                          ( Ref Nothing
-                                                            ( Imported
-                                                              ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                              ( Name "inc" )
-                                                            ) :|
-                                                            [ AppN Nothing
-                                                              ( Ref Nothing
-                                                                ( Imported
-                                                                  ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                  ( Name "bindFlipped$w" )
-                                                                )
-                                                              )
-                                                              ( Ref Nothing
-                                                                ( Imported
-                                                                  ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                  ( Name "inc" )
-                                                                ) :|
-                                                                [ AppN Nothing
-                                                                  ( Ref Nothing
-                                                                    ( Imported
-                                                                      ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                      ( Name "bindFlipped$w" )
-                                                                    )
-                                                                  )
-                                                                  ( Ref Nothing
-                                                                    ( Imported
-                                                                      ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                      ( Name "inc" )
-                                                                    ) :|
-                                                                    [ AppN Nothing
-                                                                      ( Ref Nothing
-                                                                        ( Imported
-                                                                          ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                          ( Name "bindFlipped$w" )
-                                                                        )
-                                                                      )
-                                                                      ( Ref Nothing
-                                                                        ( Imported
-                                                                          ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                          ( Name "inc" )
-                                                                        ) :|
-                                                                        [ AppN Nothing
-                                                                          ( Ref Nothing
-                                                                            ( Imported
-                                                                              ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                              ( Name "bindFlipped$w" )
-                                                                            )
-                                                                          )
-                                                                          ( Ref Nothing
-                                                                            ( Imported
-                                                                              ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                              ( Name "inc" )
-                                                                            ) :|
-                                                                            [ AppN Nothing
-                                                                              ( Ref Nothing
-                                                                                ( Imported
-                                                                                  ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                  ( Name "bindFlipped$w" )
-                                                                                )
-                                                                              )
-                                                                              ( Ref Nothing
-                                                                                ( Imported
-                                                                                  ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                  ( Name "inc" )
-                                                                                ) :|
-                                                                                [ AppN Nothing
-                                                                                  ( Ref Nothing
-                                                                                    ( Imported
-                                                                                      ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                      ( Name "bindFlipped$w" )
-                                                                                    )
-                                                                                  )
-                                                                                  ( Ref Nothing
-                                                                                    ( Imported
-                                                                                      ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                      ( Name "inc" )
-                                                                                    ) :|
-                                                                                    [ AppN Nothing
-                                                                                      ( Ref Nothing
-                                                                                        ( Imported
-                                                                                          ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                          ( Name "bindFlipped$w" )
-                                                                                        )
-                                                                                      )
-                                                                                      ( Ref Nothing
-                                                                                        ( Imported
-                                                                                          ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                          ( Name "inc" )
-                                                                                        ) :|
-                                                                                        [ AppN Nothing
-                                                                                          ( Ref Nothing
-                                                                                            ( Imported
-                                                                                              ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                              ( Name "bindFlipped$w" )
-                                                                                            )
-                                                                                          )
-                                                                                          ( Ref Nothing
-                                                                                            ( Imported
-                                                                                              ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                              ( Name "inc" )
-                                                                                            ) :|
-                                                                                            [ AppN Nothing
-                                                                                              ( Ref Nothing
-                                                                                                ( Imported
-                                                                                                  ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                  ( Name "bindFlipped$w" )
-                                                                                                )
-                                                                                              )
-                                                                                              ( Ref Nothing
-                                                                                                ( Imported
-                                                                                                  ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                  ( Name "inc" )
-                                                                                                ) :|
-                                                                                                [ AppN Nothing
-                                                                                                  ( Ref Nothing
-                                                                                                    ( Imported
-                                                                                                      ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                      ( Name "bindFlipped$w" )
-                                                                                                    )
-                                                                                                  )
-                                                                                                  ( Ref Nothing
-                                                                                                    ( Imported
-                                                                                                      ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                      ( Name "inc" )
-                                                                                                    ) :|
-                                                                                                    [ AppN Nothing
-                                                                                                      ( Ref Nothing
-                                                                                                        ( Imported
-                                                                                                          ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                          ( Name "bindFlipped$w" )
-                                                                                                        )
-                                                                                                      )
-                                                                                                      ( Ref Nothing
-                                                                                                        ( Imported
-                                                                                                          ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                          ( Name "inc" )
-                                                                                                        ) :|
-                                                                                                        [ AppN Nothing
-                                                                                                          ( Ref Nothing
-                                                                                                            ( Imported
-                                                                                                              ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                              ( Name "bindFlipped$w" )
-                                                                                                            )
-                                                                                                          )
-                                                                                                          ( Ref Nothing
-                                                                                                            ( Imported
-                                                                                                              ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                              ( Name "inc" )
-                                                                                                            ) :|
-                                                                                                            [ AppN Nothing
-                                                                                                              ( Ref Nothing
-                                                                                                                ( Imported
-                                                                                                                  ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                                  ( Name "bindFlipped$w" )
-                                                                                                                )
-                                                                                                              )
-                                                                                                              ( Ref Nothing
-                                                                                                                ( Imported
-                                                                                                                  ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                                  ( Name "inc" )
-                                                                                                                ) :|
-                                                                                                                [ AppN Nothing
-                                                                                                                  ( Ref Nothing
-                                                                                                                    ( Imported
-                                                                                                                      ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                                      ( Name "bindFlipped$w" )
-                                                                                                                    )
-                                                                                                                  )
-                                                                                                                  ( Ref Nothing
-                                                                                                                    ( Imported
-                                                                                                                      ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                                      ( Name "inc" )
-                                                                                                                    ) :|
-                                                                                                                    [ AppN Nothing
-                                                                                                                      ( Ref Nothing
-                                                                                                                        ( Imported
-                                                                                                                          ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                                          ( Name "bindFlipped$w" )
-                                                                                                                        )
-                                                                                                                      )
-                                                                                                                      ( Ref Nothing
-                                                                                                                        ( Imported
-                                                                                                                          ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                                          ( Name "inc" )
-                                                                                                                        ) :|
-                                                                                                                        [ AppN Nothing
-                                                                                                                          ( Ref Nothing
-                                                                                                                            ( Imported
-                                                                                                                              ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                                              ( Name "bindFlipped$w" )
-                                                                                                                            )
-                                                                                                                          )
-                                                                                                                          ( Ref Nothing
-                                                                                                                            ( Imported
-                                                                                                                              ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                                              ( Name "inc" )
-                                                                                                                            ) :|
-                                                                                                                            [ AppN Nothing
-                                                                                                                              ( Ref Nothing
-                                                                                                                                ( Imported
-                                                                                                                                  ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                                                  ( Name "bindFlipped$w" )
-                                                                                                                                )
-                                                                                                                              )
-                                                                                                                              ( Ref Nothing
-                                                                                                                                ( Imported
-                                                                                                                                  ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                                                  ( Name "inc" )
-                                                                                                                                ) :|
-                                                                                                                                [ AppN Nothing
-                                                                                                                                  ( Ref Nothing
-                                                                                                                                    ( Imported
-                                                                                                                                      ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                                                      ( Name "bindFlipped$w" )
-                                                                                                                                    )
-                                                                                                                                  )
-                                                                                                                                  ( Ref Nothing
-                                                                                                                                    ( Imported
-                                                                                                                                      ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                                                      ( Name "inc" )
-                                                                                                                                    ) :|
-                                                                                                                                    [ AppN Nothing
-                                                                                                                                      ( Ref Nothing
-                                                                                                                                        ( Imported
-                                                                                                                                          ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                                                          ( Name "bindFlipped$w" )
-                                                                                                                                        )
-                                                                                                                                      )
-                                                                                                                                      ( Ref Nothing
-                                                                                                                                        ( Imported
-                                                                                                                                          ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                                                          ( Name "inc" )
-                                                                                                                                        ) :|
-                                                                                                                                        [ AppN Nothing
-                                                                                                                                          ( Ref Nothing
-                                                                                                                                            ( Imported
-                                                                                                                                              ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                                                              ( Name "bindFlipped$w" )
-                                                                                                                                            )
-                                                                                                                                          )
-                                                                                                                                          ( Ref Nothing
-                                                                                                                                            ( Imported
-                                                                                                                                              ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                                                              ( Name "inc" )
-                                                                                                                                            ) :|
-                                                                                                                                            [ AppN Nothing
-                                                                                                                                              ( Ref Nothing
-                                                                                                                                                ( Imported
-                                                                                                                                                  ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                                                                  ( Name "bindFlipped$w" )
-                                                                                                                                                )
-                                                                                                                                              )
-                                                                                                                                              ( Ref Nothing
-                                                                                                                                                ( Imported
-                                                                                                                                                  ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                                                                  ( Name "inc" )
-                                                                                                                                                ) :|
-                                                                                                                                                [ AppN Nothing
-                                                                                                                                                  ( Ref Nothing
-                                                                                                                                                    ( Imported
-                                                                                                                                                      ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                                                                      ( Name "bindFlipped$w" )
-                                                                                                                                                    )
-                                                                                                                                                  )
-                                                                                                                                                  ( Ref Nothing
-                                                                                                                                                    ( Imported
-                                                                                                                                                      ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                                                                      ( Name "inc" )
-                                                                                                                                                    ) :|
-                                                                                                                                                    [ AppN Nothing
-                                                                                                                                                      ( Ref Nothing
-                                                                                                                                                        ( Imported
-                                                                                                                                                          ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                                                                          ( Name "bindFlipped$w" )
-                                                                                                                                                        )
-                                                                                                                                                      )
-                                                                                                                                                      ( Ref Nothing
-                                                                                                                                                        ( Imported
-                                                                                                                                                          ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                                                                          ( Name "inc" )
-                                                                                                                                                        ) :|
-                                                                                                                                                        [ AppN Nothing
-                                                                                                                                                          ( Ref Nothing
-                                                                                                                                                            ( Imported
-                                                                                                                                                              ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                                                                              ( Name "bindFlipped$w" )
-                                                                                                                                                            )
-                                                                                                                                                          )
-                                                                                                                                                          ( Ref Nothing
-                                                                                                                                                            ( Imported
-                                                                                                                                                              ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                                                                              ( Name "inc" )
-                                                                                                                                                            ) :|
-                                                                                                                                                            [ AppN Nothing
-                                                                                                                                                              ( Ref Nothing
-                                                                                                                                                                ( Imported
-                                                                                                                                                                  ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                                                                                  ( Name "bindFlipped$w" )
-                                                                                                                                                                )
-                                                                                                                                                              )
-                                                                                                                                                              ( Ref Nothing
-                                                                                                                                                                ( Imported
-                                                                                                                                                                  ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                                                                                  ( Name "inc" )
-                                                                                                                                                                ) :|
-                                                                                                                                                                [ AppN Nothing
-                                                                                                                                                                  ( Ref Nothing
-                                                                                                                                                                    ( Imported
-                                                                                                                                                                      ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                                                                                      ( Name "bindFlipped$w" )
-                                                                                                                                                                    )
-                                                                                                                                                                  )
-                                                                                                                                                                  ( Ref Nothing
-                                                                                                                                                                    ( Imported
-                                                                                                                                                                      ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                                                                                      ( Name "inc" )
-                                                                                                                                                                    ) :|
-                                                                                                                                                                    [ AppN Nothing
-                                                                                                                                                                      ( Ref Nothing
-                                                                                                                                                                        ( Imported
-                                                                                                                                                                          ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                                                                                          ( Name "bindFlipped$w" )
-                                                                                                                                                                        )
-                                                                                                                                                                      )
-                                                                                                                                                                      ( Ref Nothing
-                                                                                                                                                                        ( Imported
-                                                                                                                                                                          ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                                                                                          ( Name "inc" )
-                                                                                                                                                                        ) :|
-                                                                                                                                                                        [ AppN Nothing
-                                                                                                                                                                          ( Ref Nothing
-                                                                                                                                                                            ( Imported
-                                                                                                                                                                              ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                                                                                              ( Name "bindFlipped$w" )
-                                                                                                                                                                            )
-                                                                                                                                                                          )
-                                                                                                                                                                          ( Ref Nothing
-                                                                                                                                                                            ( Imported
-                                                                                                                                                                              ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                                                                                              ( Name "inc" )
-                                                                                                                                                                            ) :|
-                                                                                                                                                                            [ Ref Nothing
-                                                                                                                                                                              ( Local
-                                                                                                                                                                                ( Name "$tmp334" )
-                                                                                                                                                                              )
-                                                                                                                                                                            ]
-                                                                                                                                                                          )
-                                                                                                                                                                        ]
-                                                                                                                                                                      )
-                                                                                                                                                                    ]
-                                                                                                                                                                  )
-                                                                                                                                                                ]
-                                                                                                                                                              )
-                                                                                                                                                            ]
-                                                                                                                                                          )
-                                                                                                                                                        ]
-                                                                                                                                                      )
-                                                                                                                                                    ]
-                                                                                                                                                  )
-                                                                                                                                                ]
-                                                                                                                                              )
-                                                                                                                                            ]
-                                                                                                                                          )
-                                                                                                                                        ]
-                                                                                                                                      )
-                                                                                                                                    ]
-                                                                                                                                  )
-                                                                                                                                ]
-                                                                                                                              )
-                                                                                                                            ]
-                                                                                                                          )
-                                                                                                                        ]
-                                                                                                                      )
-                                                                                                                    ]
-                                                                                                                  )
-                                                                                                                ]
-                                                                                                              )
-                                                                                                            ]
-                                                                                                          )
-                                                                                                        ]
-                                                                                                      )
-                                                                                                    ]
-                                                                                                  )
-                                                                                                ]
-                                                                                              )
-                                                                                            ]
-                                                                                          )
-                                                                                        ]
-                                                                                      )
-                                                                                    ]
-                                                                                  )
-                                                                                ]
-                                                                              )
-                                                                            ]
-                                                                          )
-                                                                        ]
-                                                                      )
-                                                                    ]
-                                                                  )
-                                                                ]
-                                                              )
-                                                            ]
-                                                          )
-                                                        ]
-                                                      )
-                                                    ]
-                                                  )
-                                                ]
-                                              )
-                                            ]
-                                          )
-                                        ]
-                                      )
-                                    ]
-                                  )
-                                ]
-                              )
-                            ]
-                          )
-                        ]
-                      )
-                    ]
-                  )
-                ]
-              )
-            ), Standalone
-            ( Nothing, Name "$tmp336", AppN Nothing
-              ( Ref Nothing
-                ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "bindFlipped$w" ) )
-              )
-              ( Ref Nothing
-                ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) ) :|
-                [ AppN Nothing
-                  ( Ref Nothing
-                    ( Imported
-                      ( ModuleName "Golden.LongBindFlipped.Test" )
-                      ( Name "bindFlipped$w" )
-                    )
-                  )
-                  ( Ref Nothing
-                    ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) ) :|
-                    [ AppN Nothing
-                      ( Ref Nothing
-                        ( Imported
-                          ( ModuleName "Golden.LongBindFlipped.Test" )
-                          ( Name "bindFlipped$w" )
-                        )
-                      )
-                      ( Ref Nothing
-                        ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) ) :|
-                        [ AppN Nothing
-                          ( Ref Nothing
-                            ( Imported
-                              ( ModuleName "Golden.LongBindFlipped.Test" )
-                              ( Name "bindFlipped$w" )
-                            )
-                          )
-                          ( Ref Nothing
-                            ( Imported
-                              ( ModuleName "Golden.LongBindFlipped.Test" )
-                              ( Name "inc" )
-                            ) :|
-                            [ AppN Nothing
-                              ( Ref Nothing
-                                ( Imported
-                                  ( ModuleName "Golden.LongBindFlipped.Test" )
-                                  ( Name "bindFlipped$w" )
-                                )
-                              )
-                              ( Ref Nothing
-                                ( Imported
-                                  ( ModuleName "Golden.LongBindFlipped.Test" )
-                                  ( Name "inc" )
-                                ) :|
-                                [ AppN Nothing
-                                  ( Ref Nothing
-                                    ( Imported
-                                      ( ModuleName "Golden.LongBindFlipped.Test" )
-                                      ( Name "bindFlipped$w" )
-                                    )
-                                  )
-                                  ( Ref Nothing
-                                    ( Imported
-                                      ( ModuleName "Golden.LongBindFlipped.Test" )
-                                      ( Name "inc" )
-                                    ) :|
-                                    [ AppN Nothing
-                                      ( Ref Nothing
-                                        ( Imported
-                                          ( ModuleName "Golden.LongBindFlipped.Test" )
-                                          ( Name "bindFlipped$w" )
-                                        )
-                                      )
-                                      ( Ref Nothing
-                                        ( Imported
-                                          ( ModuleName "Golden.LongBindFlipped.Test" )
-                                          ( Name "inc" )
-                                        ) :|
-                                        [ AppN Nothing
-                                          ( Ref Nothing
-                                            ( Imported
-                                              ( ModuleName "Golden.LongBindFlipped.Test" )
-                                              ( Name "bindFlipped$w" )
-                                            )
-                                          )
-                                          ( Ref Nothing
-                                            ( Imported
-                                              ( ModuleName "Golden.LongBindFlipped.Test" )
-                                              ( Name "inc" )
-                                            ) :|
-                                            [ AppN Nothing
-                                              ( Ref Nothing
-                                                ( Imported
-                                                  ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                  ( Name "bindFlipped$w" )
-                                                )
-                                              )
-                                              ( Ref Nothing
-                                                ( Imported
-                                                  ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                  ( Name "inc" )
-                                                ) :|
-                                                [ AppN Nothing
-                                                  ( Ref Nothing
-                                                    ( Imported
-                                                      ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                      ( Name "bindFlipped$w" )
-                                                    )
-                                                  )
-                                                  ( Ref Nothing
-                                                    ( Imported
-                                                      ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                      ( Name "inc" )
-                                                    ) :|
-                                                    [ AppN Nothing
-                                                      ( Ref Nothing
-                                                        ( Imported
-                                                          ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                          ( Name "bindFlipped$w" )
-                                                        )
-                                                      )
-                                                      ( Ref Nothing
-                                                        ( Imported
-                                                          ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                          ( Name "inc" )
-                                                        ) :|
-                                                        [ AppN Nothing
-                                                          ( Ref Nothing
-                                                            ( Imported
-                                                              ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                              ( Name "bindFlipped$w" )
-                                                            )
-                                                          )
-                                                          ( Ref Nothing
-                                                            ( Imported
-                                                              ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                              ( Name "inc" )
-                                                            ) :|
-                                                            [ AppN Nothing
-                                                              ( Ref Nothing
-                                                                ( Imported
-                                                                  ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                  ( Name "bindFlipped$w" )
-                                                                )
-                                                              )
-                                                              ( Ref Nothing
-                                                                ( Imported
-                                                                  ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                  ( Name "inc" )
-                                                                ) :|
-                                                                [ AppN Nothing
-                                                                  ( Ref Nothing
-                                                                    ( Imported
-                                                                      ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                      ( Name "bindFlipped$w" )
-                                                                    )
-                                                                  )
-                                                                  ( Ref Nothing
-                                                                    ( Imported
-                                                                      ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                      ( Name "inc" )
-                                                                    ) :|
-                                                                    [ AppN Nothing
-                                                                      ( Ref Nothing
-                                                                        ( Imported
-                                                                          ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                          ( Name "bindFlipped$w" )
-                                                                        )
-                                                                      )
-                                                                      ( Ref Nothing
-                                                                        ( Imported
-                                                                          ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                          ( Name "inc" )
-                                                                        ) :|
-                                                                        [ AppN Nothing
-                                                                          ( Ref Nothing
-                                                                            ( Imported
-                                                                              ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                              ( Name "bindFlipped$w" )
-                                                                            )
-                                                                          )
-                                                                          ( Ref Nothing
-                                                                            ( Imported
-                                                                              ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                              ( Name "inc" )
-                                                                            ) :|
-                                                                            [ AppN Nothing
-                                                                              ( Ref Nothing
-                                                                                ( Imported
-                                                                                  ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                  ( Name "bindFlipped$w" )
-                                                                                )
-                                                                              )
-                                                                              ( Ref Nothing
-                                                                                ( Imported
-                                                                                  ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                  ( Name "inc" )
-                                                                                ) :|
-                                                                                [ AppN Nothing
-                                                                                  ( Ref Nothing
-                                                                                    ( Imported
-                                                                                      ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                      ( Name "bindFlipped$w" )
-                                                                                    )
-                                                                                  )
-                                                                                  ( Ref Nothing
-                                                                                    ( Imported
-                                                                                      ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                      ( Name "inc" )
-                                                                                    ) :|
-                                                                                    [ AppN Nothing
-                                                                                      ( Ref Nothing
-                                                                                        ( Imported
-                                                                                          ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                          ( Name "bindFlipped$w" )
-                                                                                        )
-                                                                                      )
-                                                                                      ( Ref Nothing
-                                                                                        ( Imported
-                                                                                          ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                          ( Name "inc" )
-                                                                                        ) :|
-                                                                                        [ AppN Nothing
-                                                                                          ( Ref Nothing
-                                                                                            ( Imported
-                                                                                              ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                              ( Name "bindFlipped$w" )
-                                                                                            )
-                                                                                          )
-                                                                                          ( Ref Nothing
-                                                                                            ( Imported
-                                                                                              ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                              ( Name "inc" )
-                                                                                            ) :|
-                                                                                            [ AppN Nothing
-                                                                                              ( Ref Nothing
-                                                                                                ( Imported
-                                                                                                  ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                  ( Name "bindFlipped$w" )
-                                                                                                )
-                                                                                              )
-                                                                                              ( Ref Nothing
-                                                                                                ( Imported
-                                                                                                  ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                  ( Name "inc" )
-                                                                                                ) :|
-                                                                                                [ AppN Nothing
-                                                                                                  ( Ref Nothing
-                                                                                                    ( Imported
-                                                                                                      ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                      ( Name "bindFlipped$w" )
-                                                                                                    )
-                                                                                                  )
-                                                                                                  ( Ref Nothing
-                                                                                                    ( Imported
-                                                                                                      ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                      ( Name "inc" )
-                                                                                                    ) :|
-                                                                                                    [ AppN Nothing
-                                                                                                      ( Ref Nothing
-                                                                                                        ( Imported
-                                                                                                          ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                          ( Name "bindFlipped$w" )
-                                                                                                        )
-                                                                                                      )
-                                                                                                      ( Ref Nothing
-                                                                                                        ( Imported
-                                                                                                          ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                          ( Name "inc" )
-                                                                                                        ) :|
-                                                                                                        [ AppN Nothing
-                                                                                                          ( Ref Nothing
-                                                                                                            ( Imported
-                                                                                                              ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                              ( Name "bindFlipped$w" )
-                                                                                                            )
-                                                                                                          )
-                                                                                                          ( Ref Nothing
-                                                                                                            ( Imported
-                                                                                                              ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                              ( Name "inc" )
-                                                                                                            ) :|
-                                                                                                            [ AppN Nothing
-                                                                                                              ( Ref Nothing
-                                                                                                                ( Imported
-                                                                                                                  ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                                  ( Name "bindFlipped$w" )
-                                                                                                                )
-                                                                                                              )
-                                                                                                              ( Ref Nothing
-                                                                                                                ( Imported
-                                                                                                                  ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                                  ( Name "inc" )
-                                                                                                                ) :|
-                                                                                                                [ AppN Nothing
-                                                                                                                  ( Ref Nothing
-                                                                                                                    ( Imported
-                                                                                                                      ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                                      ( Name "bindFlipped$w" )
-                                                                                                                    )
-                                                                                                                  )
-                                                                                                                  ( Ref Nothing
-                                                                                                                    ( Imported
-                                                                                                                      ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                                      ( Name "inc" )
-                                                                                                                    ) :|
-                                                                                                                    [ AppN Nothing
-                                                                                                                      ( Ref Nothing
-                                                                                                                        ( Imported
-                                                                                                                          ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                                          ( Name "bindFlipped$w" )
-                                                                                                                        )
-                                                                                                                      )
-                                                                                                                      ( Ref Nothing
-                                                                                                                        ( Imported
-                                                                                                                          ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                                          ( Name "inc" )
-                                                                                                                        ) :|
-                                                                                                                        [ AppN Nothing
-                                                                                                                          ( Ref Nothing
-                                                                                                                            ( Imported
-                                                                                                                              ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                                              ( Name "bindFlipped$w" )
-                                                                                                                            )
-                                                                                                                          )
-                                                                                                                          ( Ref Nothing
-                                                                                                                            ( Imported
-                                                                                                                              ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                                              ( Name "inc" )
-                                                                                                                            ) :|
-                                                                                                                            [ AppN Nothing
-                                                                                                                              ( Ref Nothing
-                                                                                                                                ( Imported
-                                                                                                                                  ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                                                  ( Name "bindFlipped$w" )
-                                                                                                                                )
-                                                                                                                              )
-                                                                                                                              ( Ref Nothing
-                                                                                                                                ( Imported
-                                                                                                                                  ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                                                  ( Name "inc" )
-                                                                                                                                ) :|
-                                                                                                                                [ AppN Nothing
-                                                                                                                                  ( Ref Nothing
-                                                                                                                                    ( Imported
-                                                                                                                                      ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                                                      ( Name "bindFlipped$w" )
-                                                                                                                                    )
-                                                                                                                                  )
-                                                                                                                                  ( Ref Nothing
-                                                                                                                                    ( Imported
-                                                                                                                                      ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                                                      ( Name "inc" )
-                                                                                                                                    ) :|
-                                                                                                                                    [ AppN Nothing
-                                                                                                                                      ( Ref Nothing
-                                                                                                                                        ( Imported
-                                                                                                                                          ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                                                          ( Name "bindFlipped$w" )
-                                                                                                                                        )
-                                                                                                                                      )
-                                                                                                                                      ( Ref Nothing
-                                                                                                                                        ( Imported
-                                                                                                                                          ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                                                          ( Name "inc" )
-                                                                                                                                        ) :|
-                                                                                                                                        [ AppN Nothing
-                                                                                                                                          ( Ref Nothing
-                                                                                                                                            ( Imported
-                                                                                                                                              ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                                                              ( Name "bindFlipped$w" )
-                                                                                                                                            )
-                                                                                                                                          )
-                                                                                                                                          ( Ref Nothing
-                                                                                                                                            ( Imported
-                                                                                                                                              ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                                                              ( Name "inc" )
-                                                                                                                                            ) :|
-                                                                                                                                            [ AppN Nothing
-                                                                                                                                              ( Ref Nothing
-                                                                                                                                                ( Imported
-                                                                                                                                                  ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                                                                  ( Name "bindFlipped$w" )
-                                                                                                                                                )
-                                                                                                                                              )
-                                                                                                                                              ( Ref Nothing
-                                                                                                                                                ( Imported
-                                                                                                                                                  ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                                                                  ( Name "inc" )
-                                                                                                                                                ) :|
-                                                                                                                                                [ AppN Nothing
-                                                                                                                                                  ( Ref Nothing
-                                                                                                                                                    ( Imported
-                                                                                                                                                      ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                                                                      ( Name "bindFlipped$w" )
-                                                                                                                                                    )
-                                                                                                                                                  )
-                                                                                                                                                  ( Ref Nothing
-                                                                                                                                                    ( Imported
-                                                                                                                                                      ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                                                                      ( Name "inc" )
-                                                                                                                                                    ) :|
-                                                                                                                                                    [ AppN Nothing
-                                                                                                                                                      ( Ref Nothing
-                                                                                                                                                        ( Imported
-                                                                                                                                                          ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                                                                          ( Name "bindFlipped$w" )
-                                                                                                                                                        )
-                                                                                                                                                      )
-                                                                                                                                                      ( Ref Nothing
-                                                                                                                                                        ( Imported
-                                                                                                                                                          ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                                                                          ( Name "inc" )
-                                                                                                                                                        ) :|
-                                                                                                                                                        [ AppN Nothing
-                                                                                                                                                          ( Ref Nothing
-                                                                                                                                                            ( Imported
-                                                                                                                                                              ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                                                                              ( Name "bindFlipped$w" )
-                                                                                                                                                            )
-                                                                                                                                                          )
-                                                                                                                                                          ( Ref Nothing
-                                                                                                                                                            ( Imported
-                                                                                                                                                              ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                                                                              ( Name "inc" )
-                                                                                                                                                            ) :|
-                                                                                                                                                            [ AppN Nothing
-                                                                                                                                                              ( Ref Nothing
-                                                                                                                                                                ( Imported
-                                                                                                                                                                  ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                                                                                  ( Name "bindFlipped$w" )
-                                                                                                                                                                )
-                                                                                                                                                              )
-                                                                                                                                                              ( Ref Nothing
-                                                                                                                                                                ( Imported
-                                                                                                                                                                  ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                                                                                  ( Name "inc" )
-                                                                                                                                                                ) :|
-                                                                                                                                                                [ AppN Nothing
-                                                                                                                                                                  ( Ref Nothing
-                                                                                                                                                                    ( Imported
-                                                                                                                                                                      ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                                                                                      ( Name "bindFlipped$w" )
-                                                                                                                                                                    )
-                                                                                                                                                                  )
-                                                                                                                                                                  ( Ref Nothing
-                                                                                                                                                                    ( Imported
-                                                                                                                                                                      ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                                                                                      ( Name "inc" )
-                                                                                                                                                                    ) :|
-                                                                                                                                                                    [ AppN Nothing
-                                                                                                                                                                      ( Ref Nothing
-                                                                                                                                                                        ( Imported
-                                                                                                                                                                          ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                                                                                          ( Name "bindFlipped$w" )
-                                                                                                                                                                        )
-                                                                                                                                                                      )
-                                                                                                                                                                      ( Ref Nothing
-                                                                                                                                                                        ( Imported
-                                                                                                                                                                          ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                                                                                          ( Name "inc" )
-                                                                                                                                                                        ) :|
-                                                                                                                                                                        [ AppN Nothing
-                                                                                                                                                                          ( Ref Nothing
-                                                                                                                                                                            ( Imported
-                                                                                                                                                                              ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                                                                                              ( Name "bindFlipped$w" )
-                                                                                                                                                                            )
-                                                                                                                                                                          )
-                                                                                                                                                                          ( Ref Nothing
-                                                                                                                                                                            ( Imported
-                                                                                                                                                                              ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                                                                                              ( Name "inc" )
-                                                                                                                                                                            ) :|
-                                                                                                                                                                            [ Ref Nothing
-                                                                                                                                                                              ( Local
-                                                                                                                                                                                ( Name "$tmp335" )
-                                                                                                                                                                              )
-                                                                                                                                                                            ]
-                                                                                                                                                                          )
-                                                                                                                                                                        ]
-                                                                                                                                                                      )
-                                                                                                                                                                    ]
-                                                                                                                                                                  )
-                                                                                                                                                                ]
-                                                                                                                                                              )
-                                                                                                                                                            ]
-                                                                                                                                                          )
-                                                                                                                                                        ]
-                                                                                                                                                      )
-                                                                                                                                                    ]
-                                                                                                                                                  )
-                                                                                                                                                ]
-                                                                                                                                              )
-                                                                                                                                            ]
-                                                                                                                                          )
-                                                                                                                                        ]
-                                                                                                                                      )
-                                                                                                                                    ]
-                                                                                                                                  )
-                                                                                                                                ]
-                                                                                                                              )
-                                                                                                                            ]
-                                                                                                                          )
-                                                                                                                        ]
-                                                                                                                      )
-                                                                                                                    ]
-                                                                                                                  )
-                                                                                                                ]
-                                                                                                              )
-                                                                                                            ]
-                                                                                                          )
-                                                                                                        ]
-                                                                                                      )
-                                                                                                    ]
-                                                                                                  )
-                                                                                                ]
-                                                                                              )
-                                                                                            ]
-                                                                                          )
-                                                                                        ]
-                                                                                      )
-                                                                                    ]
-                                                                                  )
-                                                                                ]
-                                                                              )
-                                                                            ]
-                                                                          )
-                                                                        ]
-                                                                      )
-                                                                    ]
-                                                                  )
-                                                                ]
-                                                              )
-                                                            ]
-                                                          )
-                                                        ]
-                                                      )
-                                                    ]
-                                                  )
-                                                ]
-                                              )
-                                            ]
-                                          )
-                                        ]
-                                      )
-                                    ]
-                                  )
-                                ]
-                              )
-                            ]
-                          )
-                        ]
-                      )
-                    ]
-                  )
-                ]
-              )
-            ), Standalone
-            ( Nothing, Name "$tmp337", AppN Nothing
-              ( Ref Nothing
-                ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "bindFlipped$w" ) )
-              )
-              ( Ref Nothing
-                ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) ) :|
-                [ AppN Nothing
-                  ( Ref Nothing
-                    ( Imported
-                      ( ModuleName "Golden.LongBindFlipped.Test" )
-                      ( Name "bindFlipped$w" )
-                    )
-                  )
-                  ( Ref Nothing
-                    ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) ) :|
-                    [ AppN Nothing
-                      ( Ref Nothing
-                        ( Imported
-                          ( ModuleName "Golden.LongBindFlipped.Test" )
-                          ( Name "bindFlipped$w" )
-                        )
-                      )
-                      ( Ref Nothing
-                        ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) ) :|
-                        [ AppN Nothing
-                          ( Ref Nothing
-                            ( Imported
-                              ( ModuleName "Golden.LongBindFlipped.Test" )
-                              ( Name "bindFlipped$w" )
-                            )
-                          )
-                          ( Ref Nothing
-                            ( Imported
-                              ( ModuleName "Golden.LongBindFlipped.Test" )
-                              ( Name "inc" )
-                            ) :|
-                            [ AppN Nothing
-                              ( Ref Nothing
-                                ( Imported
-                                  ( ModuleName "Golden.LongBindFlipped.Test" )
-                                  ( Name "bindFlipped$w" )
-                                )
-                              )
-                              ( Ref Nothing
-                                ( Imported
-                                  ( ModuleName "Golden.LongBindFlipped.Test" )
-                                  ( Name "inc" )
-                                ) :|
-                                [ AppN Nothing
-                                  ( Ref Nothing
-                                    ( Imported
-                                      ( ModuleName "Golden.LongBindFlipped.Test" )
-                                      ( Name "bindFlipped$w" )
-                                    )
-                                  )
-                                  ( Ref Nothing
-                                    ( Imported
-                                      ( ModuleName "Golden.LongBindFlipped.Test" )
-                                      ( Name "inc" )
-                                    ) :|
-                                    [ AppN Nothing
-                                      ( Ref Nothing
-                                        ( Imported
-                                          ( ModuleName "Golden.LongBindFlipped.Test" )
-                                          ( Name "bindFlipped$w" )
-                                        )
-                                      )
-                                      ( Ref Nothing
-                                        ( Imported
-                                          ( ModuleName "Golden.LongBindFlipped.Test" )
-                                          ( Name "inc" )
-                                        ) :|
-                                        [ AppN Nothing
-                                          ( Ref Nothing
-                                            ( Imported
-                                              ( ModuleName "Golden.LongBindFlipped.Test" )
-                                              ( Name "bindFlipped$w" )
-                                            )
-                                          )
-                                          ( Ref Nothing
-                                            ( Imported
-                                              ( ModuleName "Golden.LongBindFlipped.Test" )
-                                              ( Name "inc" )
-                                            ) :|
-                                            [ AppN Nothing
-                                              ( Ref Nothing
-                                                ( Imported
-                                                  ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                  ( Name "bindFlipped$w" )
-                                                )
-                                              )
-                                              ( Ref Nothing
-                                                ( Imported
-                                                  ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                  ( Name "inc" )
-                                                ) :|
-                                                [ AppN Nothing
-                                                  ( Ref Nothing
-                                                    ( Imported
-                                                      ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                      ( Name "bindFlipped$w" )
-                                                    )
-                                                  )
-                                                  ( Ref Nothing
-                                                    ( Imported
-                                                      ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                      ( Name "inc" )
-                                                    ) :|
-                                                    [ AppN Nothing
-                                                      ( Ref Nothing
-                                                        ( Imported
-                                                          ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                          ( Name "bindFlipped$w" )
-                                                        )
-                                                      )
-                                                      ( Ref Nothing
-                                                        ( Imported
-                                                          ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                          ( Name "inc" )
-                                                        ) :|
-                                                        [ AppN Nothing
-                                                          ( Ref Nothing
-                                                            ( Imported
-                                                              ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                              ( Name "bindFlipped$w" )
-                                                            )
-                                                          )
-                                                          ( Ref Nothing
-                                                            ( Imported
-                                                              ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                              ( Name "inc" )
-                                                            ) :|
-                                                            [ AppN Nothing
-                                                              ( Ref Nothing
-                                                                ( Imported
-                                                                  ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                  ( Name "bindFlipped$w" )
-                                                                )
-                                                              )
-                                                              ( Ref Nothing
-                                                                ( Imported
-                                                                  ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                  ( Name "inc" )
-                                                                ) :|
-                                                                [ AppN Nothing
-                                                                  ( Ref Nothing
-                                                                    ( Imported
-                                                                      ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                      ( Name "bindFlipped$w" )
-                                                                    )
-                                                                  )
-                                                                  ( Ref Nothing
-                                                                    ( Imported
-                                                                      ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                      ( Name "inc" )
-                                                                    ) :|
-                                                                    [ AppN Nothing
-                                                                      ( Ref Nothing
-                                                                        ( Imported
-                                                                          ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                          ( Name "bindFlipped$w" )
-                                                                        )
-                                                                      )
-                                                                      ( Ref Nothing
-                                                                        ( Imported
-                                                                          ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                          ( Name "inc" )
-                                                                        ) :|
-                                                                        [ AppN Nothing
-                                                                          ( Ref Nothing
-                                                                            ( Imported
-                                                                              ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                              ( Name "bindFlipped$w" )
-                                                                            )
-                                                                          )
-                                                                          ( Ref Nothing
-                                                                            ( Imported
-                                                                              ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                              ( Name "inc" )
-                                                                            ) :|
-                                                                            [ AppN Nothing
-                                                                              ( Ref Nothing
-                                                                                ( Imported
-                                                                                  ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                  ( Name "bindFlipped$w" )
-                                                                                )
-                                                                              )
-                                                                              ( Ref Nothing
-                                                                                ( Imported
-                                                                                  ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                  ( Name "inc" )
-                                                                                ) :|
-                                                                                [ AppN Nothing
-                                                                                  ( Ref Nothing
-                                                                                    ( Imported
-                                                                                      ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                      ( Name "bindFlipped$w" )
-                                                                                    )
-                                                                                  )
-                                                                                  ( Ref Nothing
-                                                                                    ( Imported
-                                                                                      ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                      ( Name "inc" )
-                                                                                    ) :|
-                                                                                    [ AppN Nothing
-                                                                                      ( Ref Nothing
-                                                                                        ( Imported
-                                                                                          ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                          ( Name "bindFlipped$w" )
-                                                                                        )
-                                                                                      )
-                                                                                      ( Ref Nothing
-                                                                                        ( Imported
-                                                                                          ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                          ( Name "inc" )
-                                                                                        ) :|
-                                                                                        [ AppN Nothing
-                                                                                          ( Ref Nothing
-                                                                                            ( Imported
-                                                                                              ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                              ( Name "bindFlipped$w" )
-                                                                                            )
-                                                                                          )
-                                                                                          ( Ref Nothing
-                                                                                            ( Imported
-                                                                                              ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                              ( Name "inc" )
-                                                                                            ) :|
-                                                                                            [ AppN Nothing
-                                                                                              ( Ref Nothing
-                                                                                                ( Imported
-                                                                                                  ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                  ( Name "bindFlipped$w" )
-                                                                                                )
-                                                                                              )
-                                                                                              ( Ref Nothing
-                                                                                                ( Imported
-                                                                                                  ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                  ( Name "inc" )
-                                                                                                ) :|
-                                                                                                [ AppN Nothing
-                                                                                                  ( Ref Nothing
-                                                                                                    ( Imported
-                                                                                                      ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                      ( Name "bindFlipped$w" )
-                                                                                                    )
-                                                                                                  )
-                                                                                                  ( Ref Nothing
-                                                                                                    ( Imported
-                                                                                                      ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                      ( Name "inc" )
-                                                                                                    ) :|
-                                                                                                    [ AppN Nothing
-                                                                                                      ( Ref Nothing
-                                                                                                        ( Imported
-                                                                                                          ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                          ( Name "bindFlipped$w" )
-                                                                                                        )
-                                                                                                      )
-                                                                                                      ( Ref Nothing
-                                                                                                        ( Imported
-                                                                                                          ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                          ( Name "inc" )
-                                                                                                        ) :|
-                                                                                                        [ AppN Nothing
-                                                                                                          ( Ref Nothing
-                                                                                                            ( Imported
-                                                                                                              ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                              ( Name "bindFlipped$w" )
-                                                                                                            )
-                                                                                                          )
-                                                                                                          ( Ref Nothing
-                                                                                                            ( Imported
-                                                                                                              ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                              ( Name "inc" )
-                                                                                                            ) :|
-                                                                                                            [ AppN Nothing
-                                                                                                              ( Ref Nothing
-                                                                                                                ( Imported
-                                                                                                                  ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                                  ( Name "bindFlipped$w" )
-                                                                                                                )
-                                                                                                              )
-                                                                                                              ( Ref Nothing
-                                                                                                                ( Imported
-                                                                                                                  ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                                  ( Name "inc" )
-                                                                                                                ) :|
-                                                                                                                [ AppN Nothing
-                                                                                                                  ( Ref Nothing
-                                                                                                                    ( Imported
-                                                                                                                      ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                                      ( Name "bindFlipped$w" )
-                                                                                                                    )
-                                                                                                                  )
-                                                                                                                  ( Ref Nothing
-                                                                                                                    ( Imported
-                                                                                                                      ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                                      ( Name "inc" )
-                                                                                                                    ) :|
-                                                                                                                    [ AppN Nothing
-                                                                                                                      ( Ref Nothing
-                                                                                                                        ( Imported
-                                                                                                                          ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                                          ( Name "bindFlipped$w" )
-                                                                                                                        )
-                                                                                                                      )
-                                                                                                                      ( Ref Nothing
-                                                                                                                        ( Imported
-                                                                                                                          ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                                          ( Name "inc" )
-                                                                                                                        ) :|
-                                                                                                                        [ AppN Nothing
-                                                                                                                          ( Ref Nothing
-                                                                                                                            ( Imported
-                                                                                                                              ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                                              ( Name "bindFlipped$w" )
-                                                                                                                            )
-                                                                                                                          )
-                                                                                                                          ( Ref Nothing
-                                                                                                                            ( Imported
-                                                                                                                              ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                                              ( Name "inc" )
-                                                                                                                            ) :|
-                                                                                                                            [ AppN Nothing
-                                                                                                                              ( Ref Nothing
-                                                                                                                                ( Imported
-                                                                                                                                  ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                                                  ( Name "bindFlipped$w" )
-                                                                                                                                )
-                                                                                                                              )
-                                                                                                                              ( Ref Nothing
-                                                                                                                                ( Imported
-                                                                                                                                  ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                                                  ( Name "inc" )
-                                                                                                                                ) :|
-                                                                                                                                [ AppN Nothing
-                                                                                                                                  ( Ref Nothing
-                                                                                                                                    ( Imported
-                                                                                                                                      ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                                                      ( Name "bindFlipped$w" )
-                                                                                                                                    )
-                                                                                                                                  )
-                                                                                                                                  ( Ref Nothing
-                                                                                                                                    ( Imported
-                                                                                                                                      ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                                                      ( Name "inc" )
-                                                                                                                                    ) :|
-                                                                                                                                    [ AppN Nothing
-                                                                                                                                      ( Ref Nothing
-                                                                                                                                        ( Imported
-                                                                                                                                          ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                                                          ( Name "bindFlipped$w" )
-                                                                                                                                        )
-                                                                                                                                      )
-                                                                                                                                      ( Ref Nothing
-                                                                                                                                        ( Imported
-                                                                                                                                          ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                                                          ( Name "inc" )
-                                                                                                                                        ) :|
-                                                                                                                                        [ AppN Nothing
-                                                                                                                                          ( Ref Nothing
-                                                                                                                                            ( Imported
-                                                                                                                                              ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                                                              ( Name "bindFlipped$w" )
-                                                                                                                                            )
-                                                                                                                                          )
-                                                                                                                                          ( Ref Nothing
-                                                                                                                                            ( Imported
-                                                                                                                                              ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                                                              ( Name "inc" )
-                                                                                                                                            ) :|
-                                                                                                                                            [ AppN Nothing
-                                                                                                                                              ( Ref Nothing
-                                                                                                                                                ( Imported
-                                                                                                                                                  ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                                                                  ( Name "bindFlipped$w" )
-                                                                                                                                                )
-                                                                                                                                              )
-                                                                                                                                              ( Ref Nothing
-                                                                                                                                                ( Imported
-                                                                                                                                                  ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                                                                  ( Name "inc" )
-                                                                                                                                                ) :|
-                                                                                                                                                [ AppN Nothing
-                                                                                                                                                  ( Ref Nothing
-                                                                                                                                                    ( Imported
-                                                                                                                                                      ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                                                                      ( Name "bindFlipped$w" )
-                                                                                                                                                    )
-                                                                                                                                                  )
-                                                                                                                                                  ( Ref Nothing
-                                                                                                                                                    ( Imported
-                                                                                                                                                      ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                                                                      ( Name "inc" )
-                                                                                                                                                    ) :|
-                                                                                                                                                    [ AppN Nothing
-                                                                                                                                                      ( Ref Nothing
-                                                                                                                                                        ( Imported
-                                                                                                                                                          ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                                                                          ( Name "bindFlipped$w" )
-                                                                                                                                                        )
-                                                                                                                                                      )
-                                                                                                                                                      ( Ref Nothing
-                                                                                                                                                        ( Imported
-                                                                                                                                                          ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                                                                          ( Name "inc" )
-                                                                                                                                                        ) :|
-                                                                                                                                                        [ AppN Nothing
-                                                                                                                                                          ( Ref Nothing
-                                                                                                                                                            ( Imported
-                                                                                                                                                              ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                                                                              ( Name "bindFlipped$w" )
-                                                                                                                                                            )
-                                                                                                                                                          )
-                                                                                                                                                          ( Ref Nothing
-                                                                                                                                                            ( Imported
-                                                                                                                                                              ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                                                                              ( Name "inc" )
-                                                                                                                                                            ) :|
-                                                                                                                                                            [ AppN Nothing
-                                                                                                                                                              ( Ref Nothing
-                                                                                                                                                                ( Imported
-                                                                                                                                                                  ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                                                                                  ( Name "bindFlipped$w" )
-                                                                                                                                                                )
-                                                                                                                                                              )
-                                                                                                                                                              ( Ref Nothing
-                                                                                                                                                                ( Imported
-                                                                                                                                                                  ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                                                                                  ( Name "inc" )
-                                                                                                                                                                ) :|
-                                                                                                                                                                [ AppN Nothing
-                                                                                                                                                                  ( Ref Nothing
-                                                                                                                                                                    ( Imported
-                                                                                                                                                                      ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                                                                                      ( Name "bindFlipped$w" )
-                                                                                                                                                                    )
-                                                                                                                                                                  )
-                                                                                                                                                                  ( Ref Nothing
-                                                                                                                                                                    ( Imported
-                                                                                                                                                                      ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                                                                                      ( Name "inc" )
-                                                                                                                                                                    ) :|
-                                                                                                                                                                    [ AppN Nothing
-                                                                                                                                                                      ( Ref Nothing
-                                                                                                                                                                        ( Imported
-                                                                                                                                                                          ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                                                                                          ( Name "bindFlipped$w" )
-                                                                                                                                                                        )
-                                                                                                                                                                      )
-                                                                                                                                                                      ( Ref Nothing
-                                                                                                                                                                        ( Imported
-                                                                                                                                                                          ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                                                                                          ( Name "inc" )
-                                                                                                                                                                        ) :|
-                                                                                                                                                                        [ AppN Nothing
-                                                                                                                                                                          ( Ref Nothing
-                                                                                                                                                                            ( Imported
-                                                                                                                                                                              ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                                                                                              ( Name "bindFlipped$w" )
-                                                                                                                                                                            )
-                                                                                                                                                                          )
-                                                                                                                                                                          ( Ref Nothing
-                                                                                                                                                                            ( Imported
-                                                                                                                                                                              ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                                                                                              ( Name "inc" )
-                                                                                                                                                                            ) :|
-                                                                                                                                                                            [ Ref Nothing
-                                                                                                                                                                              ( Local
-                                                                                                                                                                                ( Name "$tmp336" )
-                                                                                                                                                                              )
-                                                                                                                                                                            ]
-                                                                                                                                                                          )
-                                                                                                                                                                        ]
-                                                                                                                                                                      )
-                                                                                                                                                                    ]
-                                                                                                                                                                  )
-                                                                                                                                                                ]
-                                                                                                                                                              )
-                                                                                                                                                            ]
-                                                                                                                                                          )
-                                                                                                                                                        ]
-                                                                                                                                                      )
-                                                                                                                                                    ]
-                                                                                                                                                  )
-                                                                                                                                                ]
-                                                                                                                                              )
-                                                                                                                                            ]
-                                                                                                                                          )
-                                                                                                                                        ]
-                                                                                                                                      )
-                                                                                                                                    ]
-                                                                                                                                  )
-                                                                                                                                ]
-                                                                                                                              )
-                                                                                                                            ]
-                                                                                                                          )
-                                                                                                                        ]
-                                                                                                                      )
-                                                                                                                    ]
-                                                                                                                  )
-                                                                                                                ]
-                                                                                                              )
-                                                                                                            ]
-                                                                                                          )
-                                                                                                        ]
-                                                                                                      )
-                                                                                                    ]
-                                                                                                  )
-                                                                                                ]
-                                                                                              )
-                                                                                            ]
-                                                                                          )
-                                                                                        ]
-                                                                                      )
-                                                                                    ]
-                                                                                  )
-                                                                                ]
-                                                                              )
-                                                                            ]
-                                                                          )
-                                                                        ]
-                                                                      )
-                                                                    ]
-                                                                  )
-                                                                ]
-                                                              )
-                                                            ]
-                                                          )
-                                                        ]
-                                                      )
-                                                    ]
-                                                  )
-                                                ]
-                                              )
-                                            ]
-                                          )
-                                        ]
-                                      )
-                                    ]
-                                  )
-                                ]
-                              )
-                            ]
-                          )
-                        ]
-                      )
-                    ]
-                  )
-                ]
-              )
-            ), Standalone
-            ( Nothing, Name "$tmp338", AppN Nothing
-              ( Ref Nothing
-                ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "bindFlipped$w" ) )
-              )
-              ( Ref Nothing
-                ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) ) :|
-                [ AppN Nothing
-                  ( Ref Nothing
-                    ( Imported
-                      ( ModuleName "Golden.LongBindFlipped.Test" )
-                      ( Name "bindFlipped$w" )
-                    )
-                  )
-                  ( Ref Nothing
-                    ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) ) :|
-                    [ AppN Nothing
-                      ( Ref Nothing
-                        ( Imported
-                          ( ModuleName "Golden.LongBindFlipped.Test" )
-                          ( Name "bindFlipped$w" )
-                        )
-                      )
-                      ( Ref Nothing
-                        ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) ) :|
-                        [ AppN Nothing
-                          ( Ref Nothing
-                            ( Imported
-                              ( ModuleName "Golden.LongBindFlipped.Test" )
-                              ( Name "bindFlipped$w" )
-                            )
-                          )
-                          ( Ref Nothing
-                            ( Imported
-                              ( ModuleName "Golden.LongBindFlipped.Test" )
-                              ( Name "inc" )
-                            ) :|
-                            [ AppN Nothing
-                              ( Ref Nothing
-                                ( Imported
-                                  ( ModuleName "Golden.LongBindFlipped.Test" )
-                                  ( Name "bindFlipped$w" )
-                                )
-                              )
-                              ( Ref Nothing
-                                ( Imported
-                                  ( ModuleName "Golden.LongBindFlipped.Test" )
-                                  ( Name "inc" )
-                                ) :|
-                                [ AppN Nothing
-                                  ( Ref Nothing
-                                    ( Imported
-                                      ( ModuleName "Golden.LongBindFlipped.Test" )
-                                      ( Name "bindFlipped$w" )
-                                    )
-                                  )
-                                  ( Ref Nothing
-                                    ( Imported
-                                      ( ModuleName "Golden.LongBindFlipped.Test" )
-                                      ( Name "inc" )
-                                    ) :|
-                                    [ AppN Nothing
-                                      ( Ref Nothing
-                                        ( Imported
-                                          ( ModuleName "Golden.LongBindFlipped.Test" )
-                                          ( Name "bindFlipped$w" )
-                                        )
-                                      )
-                                      ( Ref Nothing
-                                        ( Imported
-                                          ( ModuleName "Golden.LongBindFlipped.Test" )
-                                          ( Name "inc" )
-                                        ) :|
-                                        [ AppN Nothing
-                                          ( Ref Nothing
-                                            ( Imported
-                                              ( ModuleName "Golden.LongBindFlipped.Test" )
-                                              ( Name "bindFlipped$w" )
-                                            )
-                                          )
-                                          ( Ref Nothing
-                                            ( Imported
-                                              ( ModuleName "Golden.LongBindFlipped.Test" )
-                                              ( Name "inc" )
-                                            ) :|
-                                            [ AppN Nothing
-                                              ( Ref Nothing
-                                                ( Imported
-                                                  ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                  ( Name "bindFlipped$w" )
-                                                )
-                                              )
-                                              ( Ref Nothing
-                                                ( Imported
-                                                  ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                  ( Name "inc" )
-                                                ) :|
-                                                [ AppN Nothing
-                                                  ( Ref Nothing
-                                                    ( Imported
-                                                      ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                      ( Name "bindFlipped$w" )
-                                                    )
-                                                  )
-                                                  ( Ref Nothing
-                                                    ( Imported
-                                                      ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                      ( Name "inc" )
-                                                    ) :|
-                                                    [ AppN Nothing
-                                                      ( Ref Nothing
-                                                        ( Imported
-                                                          ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                          ( Name "bindFlipped$w" )
-                                                        )
-                                                      )
-                                                      ( Ref Nothing
-                                                        ( Imported
-                                                          ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                          ( Name "inc" )
-                                                        ) :|
-                                                        [ AppN Nothing
-                                                          ( Ref Nothing
-                                                            ( Imported
-                                                              ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                              ( Name "bindFlipped$w" )
-                                                            )
-                                                          )
-                                                          ( Ref Nothing
-                                                            ( Imported
-                                                              ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                              ( Name "inc" )
-                                                            ) :|
-                                                            [ AppN Nothing
-                                                              ( Ref Nothing
-                                                                ( Imported
-                                                                  ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                  ( Name "bindFlipped$w" )
-                                                                )
-                                                              )
-                                                              ( Ref Nothing
-                                                                ( Imported
-                                                                  ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                  ( Name "inc" )
-                                                                ) :|
-                                                                [ AppN Nothing
-                                                                  ( Ref Nothing
-                                                                    ( Imported
-                                                                      ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                      ( Name "bindFlipped$w" )
-                                                                    )
-                                                                  )
-                                                                  ( Ref Nothing
-                                                                    ( Imported
-                                                                      ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                      ( Name "inc" )
-                                                                    ) :|
-                                                                    [ AppN Nothing
-                                                                      ( Ref Nothing
-                                                                        ( Imported
-                                                                          ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                          ( Name "bindFlipped$w" )
-                                                                        )
-                                                                      )
-                                                                      ( Ref Nothing
-                                                                        ( Imported
-                                                                          ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                          ( Name "inc" )
-                                                                        ) :|
-                                                                        [ AppN Nothing
-                                                                          ( Ref Nothing
-                                                                            ( Imported
-                                                                              ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                              ( Name "bindFlipped$w" )
-                                                                            )
-                                                                          )
-                                                                          ( Ref Nothing
-                                                                            ( Imported
-                                                                              ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                              ( Name "inc" )
-                                                                            ) :|
-                                                                            [ AppN Nothing
-                                                                              ( Ref Nothing
-                                                                                ( Imported
-                                                                                  ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                  ( Name "bindFlipped$w" )
-                                                                                )
-                                                                              )
-                                                                              ( Ref Nothing
-                                                                                ( Imported
-                                                                                  ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                  ( Name "inc" )
-                                                                                ) :|
-                                                                                [ AppN Nothing
-                                                                                  ( Ref Nothing
-                                                                                    ( Imported
-                                                                                      ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                      ( Name "bindFlipped$w" )
-                                                                                    )
-                                                                                  )
-                                                                                  ( Ref Nothing
-                                                                                    ( Imported
-                                                                                      ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                      ( Name "inc" )
-                                                                                    ) :|
-                                                                                    [ AppN Nothing
-                                                                                      ( Ref Nothing
-                                                                                        ( Imported
-                                                                                          ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                          ( Name "bindFlipped$w" )
-                                                                                        )
-                                                                                      )
-                                                                                      ( Ref Nothing
-                                                                                        ( Imported
-                                                                                          ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                          ( Name "inc" )
-                                                                                        ) :|
-                                                                                        [ AppN Nothing
-                                                                                          ( Ref Nothing
-                                                                                            ( Imported
-                                                                                              ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                              ( Name "bindFlipped$w" )
-                                                                                            )
-                                                                                          )
-                                                                                          ( Ref Nothing
-                                                                                            ( Imported
-                                                                                              ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                              ( Name "inc" )
-                                                                                            ) :|
-                                                                                            [ AppN Nothing
-                                                                                              ( Ref Nothing
-                                                                                                ( Imported
-                                                                                                  ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                  ( Name "bindFlipped$w" )
-                                                                                                )
-                                                                                              )
-                                                                                              ( Ref Nothing
-                                                                                                ( Imported
-                                                                                                  ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                  ( Name "inc" )
-                                                                                                ) :|
-                                                                                                [ AppN Nothing
-                                                                                                  ( Ref Nothing
-                                                                                                    ( Imported
-                                                                                                      ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                      ( Name "bindFlipped$w" )
-                                                                                                    )
-                                                                                                  )
-                                                                                                  ( Ref Nothing
-                                                                                                    ( Imported
-                                                                                                      ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                      ( Name "inc" )
-                                                                                                    ) :|
-                                                                                                    [ AppN Nothing
-                                                                                                      ( Ref Nothing
-                                                                                                        ( Imported
-                                                                                                          ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                          ( Name "bindFlipped$w" )
-                                                                                                        )
-                                                                                                      )
-                                                                                                      ( Ref Nothing
-                                                                                                        ( Imported
-                                                                                                          ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                          ( Name "inc" )
-                                                                                                        ) :|
-                                                                                                        [ AppN Nothing
-                                                                                                          ( Ref Nothing
-                                                                                                            ( Imported
-                                                                                                              ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                              ( Name "bindFlipped$w" )
-                                                                                                            )
-                                                                                                          )
-                                                                                                          ( Ref Nothing
-                                                                                                            ( Imported
-                                                                                                              ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                              ( Name "inc" )
-                                                                                                            ) :|
-                                                                                                            [ AppN Nothing
-                                                                                                              ( Ref Nothing
-                                                                                                                ( Imported
-                                                                                                                  ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                                  ( Name "bindFlipped$w" )
-                                                                                                                )
-                                                                                                              )
-                                                                                                              ( Ref Nothing
-                                                                                                                ( Imported
-                                                                                                                  ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                                  ( Name "inc" )
-                                                                                                                ) :|
-                                                                                                                [ AppN Nothing
-                                                                                                                  ( Ref Nothing
-                                                                                                                    ( Imported
-                                                                                                                      ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                                      ( Name "bindFlipped$w" )
-                                                                                                                    )
-                                                                                                                  )
-                                                                                                                  ( Ref Nothing
-                                                                                                                    ( Imported
-                                                                                                                      ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                                      ( Name "inc" )
-                                                                                                                    ) :|
-                                                                                                                    [ AppN Nothing
-                                                                                                                      ( Ref Nothing
-                                                                                                                        ( Imported
-                                                                                                                          ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                                          ( Name "bindFlipped$w" )
-                                                                                                                        )
-                                                                                                                      )
-                                                                                                                      ( Ref Nothing
-                                                                                                                        ( Imported
-                                                                                                                          ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                                          ( Name "inc" )
-                                                                                                                        ) :|
-                                                                                                                        [ AppN Nothing
-                                                                                                                          ( Ref Nothing
-                                                                                                                            ( Imported
-                                                                                                                              ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                                              ( Name "bindFlipped$w" )
-                                                                                                                            )
-                                                                                                                          )
-                                                                                                                          ( Ref Nothing
-                                                                                                                            ( Imported
-                                                                                                                              ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                                              ( Name "inc" )
-                                                                                                                            ) :|
-                                                                                                                            [ AppN Nothing
-                                                                                                                              ( Ref Nothing
-                                                                                                                                ( Imported
-                                                                                                                                  ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                                                  ( Name "bindFlipped$w" )
-                                                                                                                                )
-                                                                                                                              )
-                                                                                                                              ( Ref Nothing
-                                                                                                                                ( Imported
-                                                                                                                                  ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                                                  ( Name "inc" )
-                                                                                                                                ) :|
-                                                                                                                                [ AppN Nothing
-                                                                                                                                  ( Ref Nothing
-                                                                                                                                    ( Imported
-                                                                                                                                      ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                                                      ( Name "bindFlipped$w" )
-                                                                                                                                    )
-                                                                                                                                  )
-                                                                                                                                  ( Ref Nothing
-                                                                                                                                    ( Imported
-                                                                                                                                      ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                                                      ( Name "inc" )
-                                                                                                                                    ) :|
-                                                                                                                                    [ AppN Nothing
-                                                                                                                                      ( Ref Nothing
-                                                                                                                                        ( Imported
-                                                                                                                                          ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                                                          ( Name "bindFlipped$w" )
-                                                                                                                                        )
-                                                                                                                                      )
-                                                                                                                                      ( Ref Nothing
-                                                                                                                                        ( Imported
-                                                                                                                                          ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                                                          ( Name "inc" )
-                                                                                                                                        ) :|
-                                                                                                                                        [ AppN Nothing
-                                                                                                                                          ( Ref Nothing
-                                                                                                                                            ( Imported
-                                                                                                                                              ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                                                              ( Name "bindFlipped$w" )
-                                                                                                                                            )
-                                                                                                                                          )
-                                                                                                                                          ( Ref Nothing
-                                                                                                                                            ( Imported
-                                                                                                                                              ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                                                              ( Name "inc" )
-                                                                                                                                            ) :|
-                                                                                                                                            [ AppN Nothing
-                                                                                                                                              ( Ref Nothing
-                                                                                                                                                ( Imported
-                                                                                                                                                  ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                                                                  ( Name "bindFlipped$w" )
-                                                                                                                                                )
-                                                                                                                                              )
-                                                                                                                                              ( Ref Nothing
-                                                                                                                                                ( Imported
-                                                                                                                                                  ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                                                                  ( Name "inc" )
-                                                                                                                                                ) :|
-                                                                                                                                                [ AppN Nothing
-                                                                                                                                                  ( Ref Nothing
-                                                                                                                                                    ( Imported
-                                                                                                                                                      ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                                                                      ( Name "bindFlipped$w" )
-                                                                                                                                                    )
-                                                                                                                                                  )
-                                                                                                                                                  ( Ref Nothing
-                                                                                                                                                    ( Imported
-                                                                                                                                                      ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                                                                      ( Name "inc" )
-                                                                                                                                                    ) :|
-                                                                                                                                                    [ AppN Nothing
-                                                                                                                                                      ( Ref Nothing
-                                                                                                                                                        ( Imported
-                                                                                                                                                          ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                                                                          ( Name "bindFlipped$w" )
-                                                                                                                                                        )
-                                                                                                                                                      )
-                                                                                                                                                      ( Ref Nothing
-                                                                                                                                                        ( Imported
-                                                                                                                                                          ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                                                                          ( Name "inc" )
-                                                                                                                                                        ) :|
-                                                                                                                                                        [ AppN Nothing
-                                                                                                                                                          ( Ref Nothing
-                                                                                                                                                            ( Imported
-                                                                                                                                                              ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                                                                              ( Name "bindFlipped$w" )
-                                                                                                                                                            )
-                                                                                                                                                          )
-                                                                                                                                                          ( Ref Nothing
-                                                                                                                                                            ( Imported
-                                                                                                                                                              ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                                                                              ( Name "inc" )
-                                                                                                                                                            ) :|
-                                                                                                                                                            [ AppN Nothing
-                                                                                                                                                              ( Ref Nothing
-                                                                                                                                                                ( Imported
-                                                                                                                                                                  ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                                                                                  ( Name "bindFlipped$w" )
-                                                                                                                                                                )
-                                                                                                                                                              )
-                                                                                                                                                              ( Ref Nothing
-                                                                                                                                                                ( Imported
-                                                                                                                                                                  ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                                                                                  ( Name "inc" )
-                                                                                                                                                                ) :|
-                                                                                                                                                                [ AppN Nothing
-                                                                                                                                                                  ( Ref Nothing
-                                                                                                                                                                    ( Imported
-                                                                                                                                                                      ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                                                                                      ( Name "bindFlipped$w" )
-                                                                                                                                                                    )
-                                                                                                                                                                  )
-                                                                                                                                                                  ( Ref Nothing
-                                                                                                                                                                    ( Imported
-                                                                                                                                                                      ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                                                                                      ( Name "inc" )
-                                                                                                                                                                    ) :|
-                                                                                                                                                                    [ AppN Nothing
-                                                                                                                                                                      ( Ref Nothing
-                                                                                                                                                                        ( Imported
-                                                                                                                                                                          ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                                                                                          ( Name "bindFlipped$w" )
-                                                                                                                                                                        )
-                                                                                                                                                                      )
-                                                                                                                                                                      ( Ref Nothing
-                                                                                                                                                                        ( Imported
-                                                                                                                                                                          ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                                                                                          ( Name "inc" )
-                                                                                                                                                                        ) :|
-                                                                                                                                                                        [ AppN Nothing
-                                                                                                                                                                          ( Ref Nothing
-                                                                                                                                                                            ( Imported
-                                                                                                                                                                              ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                                                                                              ( Name "bindFlipped$w" )
-                                                                                                                                                                            )
-                                                                                                                                                                          )
-                                                                                                                                                                          ( Ref Nothing
-                                                                                                                                                                            ( Imported
-                                                                                                                                                                              ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                                                                                              ( Name "inc" )
-                                                                                                                                                                            ) :|
-                                                                                                                                                                            [ Ref Nothing
-                                                                                                                                                                              ( Local
-                                                                                                                                                                                ( Name "$tmp337" )
-                                                                                                                                                                              )
-                                                                                                                                                                            ]
-                                                                                                                                                                          )
-                                                                                                                                                                        ]
-                                                                                                                                                                      )
-                                                                                                                                                                    ]
-                                                                                                                                                                  )
-                                                                                                                                                                ]
-                                                                                                                                                              )
-                                                                                                                                                            ]
-                                                                                                                                                          )
-                                                                                                                                                        ]
-                                                                                                                                                      )
-                                                                                                                                                    ]
-                                                                                                                                                  )
-                                                                                                                                                ]
-                                                                                                                                              )
-                                                                                                                                            ]
-                                                                                                                                          )
-                                                                                                                                        ]
-                                                                                                                                      )
-                                                                                                                                    ]
-                                                                                                                                  )
-                                                                                                                                ]
-                                                                                                                              )
-                                                                                                                            ]
-                                                                                                                          )
-                                                                                                                        ]
-                                                                                                                      )
-                                                                                                                    ]
-                                                                                                                  )
-                                                                                                                ]
-                                                                                                              )
-                                                                                                            ]
-                                                                                                          )
-                                                                                                        ]
-                                                                                                      )
-                                                                                                    ]
-                                                                                                  )
-                                                                                                ]
-                                                                                              )
-                                                                                            ]
-                                                                                          )
-                                                                                        ]
-                                                                                      )
-                                                                                    ]
-                                                                                  )
-                                                                                ]
-                                                                              )
-                                                                            ]
-                                                                          )
-                                                                        ]
-                                                                      )
-                                                                    ]
-                                                                  )
-                                                                ]
-                                                              )
-                                                            ]
-                                                          )
-                                                        ]
-                                                      )
-                                                    ]
-                                                  )
-                                                ]
-                                              )
-                                            ]
-                                          )
-                                        ]
-                                      )
-                                    ]
-                                  )
-                                ]
-                              )
-                            ]
-                          )
-                        ]
-                      )
-                    ]
-                  )
-                ]
-              )
-            ), Standalone
-            ( Nothing, Name "$tmp339", AppN Nothing
-              ( Ref Nothing
-                ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "bindFlipped$w" ) )
-              )
-              ( Ref Nothing
-                ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) ) :|
-                [ AppN Nothing
-                  ( Ref Nothing
-                    ( Imported
-                      ( ModuleName "Golden.LongBindFlipped.Test" )
-                      ( Name "bindFlipped$w" )
-                    )
-                  )
-                  ( Ref Nothing
-                    ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) ) :|
-                    [ AppN Nothing
-                      ( Ref Nothing
-                        ( Imported
-                          ( ModuleName "Golden.LongBindFlipped.Test" )
-                          ( Name "bindFlipped$w" )
-                        )
-                      )
-                      ( Ref Nothing
-                        ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) ) :|
-                        [ AppN Nothing
-                          ( Ref Nothing
-                            ( Imported
-                              ( ModuleName "Golden.LongBindFlipped.Test" )
-                              ( Name "bindFlipped$w" )
-                            )
-                          )
-                          ( Ref Nothing
-                            ( Imported
-                              ( ModuleName "Golden.LongBindFlipped.Test" )
-                              ( Name "inc" )
-                            ) :|
-                            [ AppN Nothing
-                              ( Ref Nothing
-                                ( Imported
-                                  ( ModuleName "Golden.LongBindFlipped.Test" )
-                                  ( Name "bindFlipped$w" )
-                                )
-                              )
-                              ( Ref Nothing
-                                ( Imported
-                                  ( ModuleName "Golden.LongBindFlipped.Test" )
-                                  ( Name "inc" )
-                                ) :|
-                                [ AppN Nothing
-                                  ( Ref Nothing
-                                    ( Imported
-                                      ( ModuleName "Golden.LongBindFlipped.Test" )
-                                      ( Name "bindFlipped$w" )
-                                    )
-                                  )
-                                  ( Ref Nothing
-                                    ( Imported
-                                      ( ModuleName "Golden.LongBindFlipped.Test" )
-                                      ( Name "inc" )
-                                    ) :|
-                                    [ AppN Nothing
-                                      ( Ref Nothing
-                                        ( Imported
-                                          ( ModuleName "Golden.LongBindFlipped.Test" )
-                                          ( Name "bindFlipped$w" )
-                                        )
-                                      )
-                                      ( Ref Nothing
-                                        ( Imported
-                                          ( ModuleName "Golden.LongBindFlipped.Test" )
-                                          ( Name "inc" )
-                                        ) :|
-                                        [ AppN Nothing
-                                          ( Ref Nothing
-                                            ( Imported
-                                              ( ModuleName "Golden.LongBindFlipped.Test" )
-                                              ( Name "bindFlipped$w" )
-                                            )
-                                          )
-                                          ( Ref Nothing
-                                            ( Imported
-                                              ( ModuleName "Golden.LongBindFlipped.Test" )
-                                              ( Name "inc" )
-                                            ) :|
-                                            [ AppN Nothing
-                                              ( Ref Nothing
-                                                ( Imported
-                                                  ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                  ( Name "bindFlipped$w" )
-                                                )
-                                              )
-                                              ( Ref Nothing
-                                                ( Imported
-                                                  ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                  ( Name "inc" )
-                                                ) :|
-                                                [ AppN Nothing
-                                                  ( Ref Nothing
-                                                    ( Imported
-                                                      ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                      ( Name "bindFlipped$w" )
-                                                    )
-                                                  )
-                                                  ( Ref Nothing
-                                                    ( Imported
-                                                      ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                      ( Name "inc" )
-                                                    ) :|
-                                                    [ AppN Nothing
-                                                      ( Ref Nothing
-                                                        ( Imported
-                                                          ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                          ( Name "bindFlipped$w" )
-                                                        )
-                                                      )
-                                                      ( Ref Nothing
-                                                        ( Imported
-                                                          ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                          ( Name "inc" )
-                                                        ) :|
-                                                        [ AppN Nothing
-                                                          ( Ref Nothing
-                                                            ( Imported
-                                                              ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                              ( Name "bindFlipped$w" )
-                                                            )
-                                                          )
-                                                          ( Ref Nothing
-                                                            ( Imported
-                                                              ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                              ( Name "inc" )
-                                                            ) :|
-                                                            [ AppN Nothing
-                                                              ( Ref Nothing
-                                                                ( Imported
-                                                                  ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                  ( Name "bindFlipped$w" )
-                                                                )
-                                                              )
-                                                              ( Ref Nothing
-                                                                ( Imported
-                                                                  ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                  ( Name "inc" )
-                                                                ) :|
-                                                                [ AppN Nothing
-                                                                  ( Ref Nothing
-                                                                    ( Imported
-                                                                      ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                      ( Name "bindFlipped$w" )
-                                                                    )
-                                                                  )
-                                                                  ( Ref Nothing
-                                                                    ( Imported
-                                                                      ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                      ( Name "inc" )
-                                                                    ) :|
-                                                                    [ AppN Nothing
-                                                                      ( Ref Nothing
-                                                                        ( Imported
-                                                                          ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                          ( Name "bindFlipped$w" )
-                                                                        )
-                                                                      )
-                                                                      ( Ref Nothing
-                                                                        ( Imported
-                                                                          ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                          ( Name "inc" )
-                                                                        ) :|
-                                                                        [ AppN Nothing
-                                                                          ( Ref Nothing
-                                                                            ( Imported
-                                                                              ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                              ( Name "bindFlipped$w" )
-                                                                            )
-                                                                          )
-                                                                          ( Ref Nothing
-                                                                            ( Imported
-                                                                              ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                              ( Name "inc" )
-                                                                            ) :|
-                                                                            [ AppN Nothing
-                                                                              ( Ref Nothing
-                                                                                ( Imported
-                                                                                  ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                  ( Name "bindFlipped$w" )
-                                                                                )
-                                                                              )
-                                                                              ( Ref Nothing
-                                                                                ( Imported
-                                                                                  ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                  ( Name "inc" )
-                                                                                ) :|
-                                                                                [ AppN Nothing
-                                                                                  ( Ref Nothing
-                                                                                    ( Imported
-                                                                                      ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                      ( Name "bindFlipped$w" )
-                                                                                    )
-                                                                                  )
-                                                                                  ( Ref Nothing
-                                                                                    ( Imported
-                                                                                      ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                      ( Name "inc" )
-                                                                                    ) :|
-                                                                                    [ AppN Nothing
-                                                                                      ( Ref Nothing
-                                                                                        ( Imported
-                                                                                          ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                          ( Name "bindFlipped$w" )
-                                                                                        )
-                                                                                      )
-                                                                                      ( Ref Nothing
-                                                                                        ( Imported
-                                                                                          ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                          ( Name "inc" )
-                                                                                        ) :|
-                                                                                        [ AppN Nothing
-                                                                                          ( Ref Nothing
-                                                                                            ( Imported
-                                                                                              ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                              ( Name "bindFlipped$w" )
-                                                                                            )
-                                                                                          )
-                                                                                          ( Ref Nothing
-                                                                                            ( Imported
-                                                                                              ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                              ( Name "inc" )
-                                                                                            ) :|
-                                                                                            [ AppN Nothing
-                                                                                              ( Ref Nothing
-                                                                                                ( Imported
-                                                                                                  ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                  ( Name "bindFlipped$w" )
-                                                                                                )
-                                                                                              )
-                                                                                              ( Ref Nothing
-                                                                                                ( Imported
-                                                                                                  ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                  ( Name "inc" )
-                                                                                                ) :|
-                                                                                                [ AppN Nothing
-                                                                                                  ( Ref Nothing
-                                                                                                    ( Imported
-                                                                                                      ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                      ( Name "bindFlipped$w" )
-                                                                                                    )
-                                                                                                  )
-                                                                                                  ( Ref Nothing
-                                                                                                    ( Imported
-                                                                                                      ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                      ( Name "inc" )
-                                                                                                    ) :|
-                                                                                                    [ AppN Nothing
-                                                                                                      ( Ref Nothing
-                                                                                                        ( Imported
-                                                                                                          ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                          ( Name "bindFlipped$w" )
-                                                                                                        )
-                                                                                                      )
-                                                                                                      ( Ref Nothing
-                                                                                                        ( Imported
-                                                                                                          ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                          ( Name "inc" )
-                                                                                                        ) :|
-                                                                                                        [ AppN Nothing
-                                                                                                          ( Ref Nothing
-                                                                                                            ( Imported
-                                                                                                              ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                              ( Name "bindFlipped$w" )
-                                                                                                            )
-                                                                                                          )
-                                                                                                          ( Ref Nothing
-                                                                                                            ( Imported
-                                                                                                              ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                              ( Name "inc" )
-                                                                                                            ) :|
-                                                                                                            [ AppN Nothing
-                                                                                                              ( Ref Nothing
-                                                                                                                ( Imported
-                                                                                                                  ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                                  ( Name "bindFlipped$w" )
-                                                                                                                )
-                                                                                                              )
-                                                                                                              ( Ref Nothing
-                                                                                                                ( Imported
-                                                                                                                  ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                                  ( Name "inc" )
-                                                                                                                ) :|
-                                                                                                                [ AppN Nothing
-                                                                                                                  ( Ref Nothing
-                                                                                                                    ( Imported
-                                                                                                                      ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                                      ( Name "bindFlipped$w" )
-                                                                                                                    )
-                                                                                                                  )
-                                                                                                                  ( Ref Nothing
-                                                                                                                    ( Imported
-                                                                                                                      ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                                      ( Name "inc" )
-                                                                                                                    ) :|
-                                                                                                                    [ AppN Nothing
-                                                                                                                      ( Ref Nothing
-                                                                                                                        ( Imported
-                                                                                                                          ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                                          ( Name "bindFlipped$w" )
-                                                                                                                        )
-                                                                                                                      )
-                                                                                                                      ( Ref Nothing
-                                                                                                                        ( Imported
-                                                                                                                          ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                                          ( Name "inc" )
-                                                                                                                        ) :|
-                                                                                                                        [ AppN Nothing
-                                                                                                                          ( Ref Nothing
-                                                                                                                            ( Imported
-                                                                                                                              ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                                              ( Name "bindFlipped$w" )
-                                                                                                                            )
-                                                                                                                          )
-                                                                                                                          ( Ref Nothing
-                                                                                                                            ( Imported
-                                                                                                                              ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                                              ( Name "inc" )
-                                                                                                                            ) :|
-                                                                                                                            [ AppN Nothing
-                                                                                                                              ( Ref Nothing
-                                                                                                                                ( Imported
-                                                                                                                                  ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                                                  ( Name "bindFlipped$w" )
-                                                                                                                                )
-                                                                                                                              )
-                                                                                                                              ( Ref Nothing
-                                                                                                                                ( Imported
-                                                                                                                                  ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                                                  ( Name "inc" )
-                                                                                                                                ) :|
-                                                                                                                                [ AppN Nothing
-                                                                                                                                  ( Ref Nothing
-                                                                                                                                    ( Imported
-                                                                                                                                      ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                                                      ( Name "bindFlipped$w" )
-                                                                                                                                    )
-                                                                                                                                  )
-                                                                                                                                  ( Ref Nothing
-                                                                                                                                    ( Imported
-                                                                                                                                      ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                                                      ( Name "inc" )
-                                                                                                                                    ) :|
-                                                                                                                                    [ AppN Nothing
-                                                                                                                                      ( Ref Nothing
-                                                                                                                                        ( Imported
-                                                                                                                                          ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                                                          ( Name "bindFlipped$w" )
-                                                                                                                                        )
-                                                                                                                                      )
-                                                                                                                                      ( Ref Nothing
-                                                                                                                                        ( Imported
-                                                                                                                                          ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                                                          ( Name "inc" )
-                                                                                                                                        ) :|
-                                                                                                                                        [ AppN Nothing
-                                                                                                                                          ( Ref Nothing
-                                                                                                                                            ( Imported
-                                                                                                                                              ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                                                              ( Name "bindFlipped$w" )
-                                                                                                                                            )
-                                                                                                                                          )
-                                                                                                                                          ( Ref Nothing
-                                                                                                                                            ( Imported
-                                                                                                                                              ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                                                              ( Name "inc" )
-                                                                                                                                            ) :|
-                                                                                                                                            [ AppN Nothing
-                                                                                                                                              ( Ref Nothing
-                                                                                                                                                ( Imported
-                                                                                                                                                  ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                                                                  ( Name "bindFlipped$w" )
-                                                                                                                                                )
-                                                                                                                                              )
-                                                                                                                                              ( Ref Nothing
-                                                                                                                                                ( Imported
-                                                                                                                                                  ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                                                                  ( Name "inc" )
-                                                                                                                                                ) :|
-                                                                                                                                                [ AppN Nothing
-                                                                                                                                                  ( Ref Nothing
-                                                                                                                                                    ( Imported
-                                                                                                                                                      ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                                                                      ( Name "bindFlipped$w" )
-                                                                                                                                                    )
-                                                                                                                                                  )
-                                                                                                                                                  ( Ref Nothing
-                                                                                                                                                    ( Imported
-                                                                                                                                                      ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                                                                      ( Name "inc" )
-                                                                                                                                                    ) :|
-                                                                                                                                                    [ AppN Nothing
-                                                                                                                                                      ( Ref Nothing
-                                                                                                                                                        ( Imported
-                                                                                                                                                          ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                                                                          ( Name "bindFlipped$w" )
-                                                                                                                                                        )
-                                                                                                                                                      )
-                                                                                                                                                      ( Ref Nothing
-                                                                                                                                                        ( Imported
-                                                                                                                                                          ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                                                                          ( Name "inc" )
-                                                                                                                                                        ) :|
-                                                                                                                                                        [ AppN Nothing
-                                                                                                                                                          ( Ref Nothing
-                                                                                                                                                            ( Imported
-                                                                                                                                                              ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                                                                              ( Name "bindFlipped$w" )
-                                                                                                                                                            )
-                                                                                                                                                          )
-                                                                                                                                                          ( Ref Nothing
-                                                                                                                                                            ( Imported
-                                                                                                                                                              ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                                                                              ( Name "inc" )
-                                                                                                                                                            ) :|
-                                                                                                                                                            [ AppN Nothing
-                                                                                                                                                              ( Ref Nothing
-                                                                                                                                                                ( Imported
-                                                                                                                                                                  ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                                                                                  ( Name "bindFlipped$w" )
-                                                                                                                                                                )
-                                                                                                                                                              )
-                                                                                                                                                              ( Ref Nothing
-                                                                                                                                                                ( Imported
-                                                                                                                                                                  ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                                                                                  ( Name "inc" )
-                                                                                                                                                                ) :|
-                                                                                                                                                                [ AppN Nothing
-                                                                                                                                                                  ( Ref Nothing
-                                                                                                                                                                    ( Imported
-                                                                                                                                                                      ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                                                                                      ( Name "bindFlipped$w" )
-                                                                                                                                                                    )
-                                                                                                                                                                  )
-                                                                                                                                                                  ( Ref Nothing
-                                                                                                                                                                    ( Imported
-                                                                                                                                                                      ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                                                                                      ( Name "inc" )
-                                                                                                                                                                    ) :|
-                                                                                                                                                                    [ AppN Nothing
-                                                                                                                                                                      ( Ref Nothing
-                                                                                                                                                                        ( Imported
-                                                                                                                                                                          ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                                                                                          ( Name "bindFlipped$w" )
-                                                                                                                                                                        )
-                                                                                                                                                                      )
-                                                                                                                                                                      ( Ref Nothing
-                                                                                                                                                                        ( Imported
-                                                                                                                                                                          ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                                                                                          ( Name "inc" )
-                                                                                                                                                                        ) :|
-                                                                                                                                                                        [ AppN Nothing
-                                                                                                                                                                          ( Ref Nothing
-                                                                                                                                                                            ( Imported
-                                                                                                                                                                              ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                                                                                              ( Name "bindFlipped$w" )
-                                                                                                                                                                            )
-                                                                                                                                                                          )
-                                                                                                                                                                          ( Ref Nothing
-                                                                                                                                                                            ( Imported
-                                                                                                                                                                              ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                                                                                                              ( Name "inc" )
-                                                                                                                                                                            ) :|
-                                                                                                                                                                            [ Ref Nothing
-                                                                                                                                                                              ( Local
-                                                                                                                                                                                ( Name "$tmp338" )
-                                                                                                                                                                              )
-                                                                                                                                                                            ]
-                                                                                                                                                                          )
-                                                                                                                                                                        ]
-                                                                                                                                                                      )
-                                                                                                                                                                    ]
-                                                                                                                                                                  )
-                                                                                                                                                                ]
-                                                                                                                                                              )
-                                                                                                                                                            ]
-                                                                                                                                                          )
-                                                                                                                                                        ]
-                                                                                                                                                      )
-                                                                                                                                                    ]
-                                                                                                                                                  )
-                                                                                                                                                ]
-                                                                                                                                              )
-                                                                                                                                            ]
-                                                                                                                                          )
-                                                                                                                                        ]
-                                                                                                                                      )
-                                                                                                                                    ]
-                                                                                                                                  )
-                                                                                                                                ]
-                                                                                                                              )
-                                                                                                                            ]
-                                                                                                                          )
-                                                                                                                        ]
-                                                                                                                      )
-                                                                                                                    ]
-                                                                                                                  )
-                                                                                                                ]
-                                                                                                              )
-                                                                                                            ]
-                                                                                                          )
-                                                                                                        ]
-                                                                                                      )
-                                                                                                    ]
-                                                                                                  )
-                                                                                                ]
-                                                                                              )
-                                                                                            ]
-                                                                                          )
-                                                                                        ]
-                                                                                      )
-                                                                                    ]
-                                                                                  )
-                                                                                ]
-                                                                              )
-                                                                            ]
-                                                                          )
-                                                                        ]
-                                                                      )
-                                                                    ]
-                                                                  )
-                                                                ]
-                                                              )
-                                                            ]
-                                                          )
-                                                        ]
-                                                      )
-                                                    ]
-                                                  )
-                                                ]
-                                              )
-                                            ]
-                                          )
-                                        ]
-                                      )
-                                    ]
-                                  )
-                                ]
-                              )
-                            ]
-                          )
-                        ]
-                      )
-                    ]
-                  )
-                ]
-              )
-            )
-          ]
-        )
-        ( AppN Nothing
-          ( Ref Nothing
-            ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "bindFlipped$w" ) )
-          )
-          ( Ref Nothing
-            ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) ) :|
-            [ AppN Nothing
-              ( Ref Nothing
-                ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "bindFlipped$w" ) )
-              )
-              ( Ref Nothing
-                ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) ) :|
-                [ AppN Nothing
-                  ( Ref Nothing
-                    ( Imported
-                      ( ModuleName "Golden.LongBindFlipped.Test" )
-                      ( Name "bindFlipped$w" )
-                    )
-                  )
-                  ( Ref Nothing
-                    ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) ) :|
-                    [ AppN Nothing
-                      ( Ref Nothing
-                        ( Imported
-                          ( ModuleName "Golden.LongBindFlipped.Test" )
-                          ( Name "bindFlipped$w" )
-                        )
-                      )
-                      ( Ref Nothing
-                        ( Imported ( ModuleName "Golden.LongBindFlipped.Test" ) ( Name "inc" ) ) :|
-                        [ AppN Nothing
-                          ( Ref Nothing
-                            ( Imported
-                              ( ModuleName "Golden.LongBindFlipped.Test" )
-                              ( Name "bindFlipped$w" )
-                            )
-                          )
-                          ( Ref Nothing
-                            ( Imported
-                              ( ModuleName "Golden.LongBindFlipped.Test" )
-                              ( Name "inc" )
-                            ) :|
-                            [ AppN Nothing
-                              ( Ref Nothing
-                                ( Imported
-                                  ( ModuleName "Golden.LongBindFlipped.Test" )
-                                  ( Name "bindFlipped$w" )
-                                )
-                              )
-                              ( Ref Nothing
-                                ( Imported
-                                  ( ModuleName "Golden.LongBindFlipped.Test" )
-                                  ( Name "inc" )
-                                ) :|
-                                [ AppN Nothing
-                                  ( Ref Nothing
-                                    ( Imported
-                                      ( ModuleName "Golden.LongBindFlipped.Test" )
-                                      ( Name "bindFlipped$w" )
-                                    )
-                                  )
-                                  ( Ref Nothing
-                                    ( Imported
-                                      ( ModuleName "Golden.LongBindFlipped.Test" )
-                                      ( Name "inc" )
-                                    ) :|
-                                    [ AppN Nothing
-                                      ( Ref Nothing
-                                        ( Imported
-                                          ( ModuleName "Golden.LongBindFlipped.Test" )
-                                          ( Name "bindFlipped$w" )
-                                        )
-                                      )
-                                      ( Ref Nothing
-                                        ( Imported
-                                          ( ModuleName "Golden.LongBindFlipped.Test" )
-                                          ( Name "inc" )
-                                        ) :|
-                                        [ AppN Nothing
-                                          ( Ref Nothing
-                                            ( Imported
-                                              ( ModuleName "Golden.LongBindFlipped.Test" )
-                                              ( Name "bindFlipped$w" )
-                                            )
-                                          )
-                                          ( Ref Nothing
-                                            ( Imported
-                                              ( ModuleName "Golden.LongBindFlipped.Test" )
-                                              ( Name "inc" )
-                                            ) :|
-                                            [ AppN Nothing
-                                              ( Ref Nothing
-                                                ( Imported
-                                                  ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                  ( Name "bindFlipped$w" )
-                                                )
-                                              )
-                                              ( Ref Nothing
-                                                ( Imported
-                                                  ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                  ( Name "inc" )
-                                                ) :|
-                                                [ AppN Nothing
-                                                  ( Ref Nothing
-                                                    ( Imported
-                                                      ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                      ( Name "bindFlipped$w" )
-                                                    )
-                                                  )
-                                                  ( Ref Nothing
-                                                    ( Imported
-                                                      ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                      ( Name "inc" )
-                                                    ) :|
-                                                    [ AppN Nothing
-                                                      ( Ref Nothing
-                                                        ( Imported
-                                                          ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                          ( Name "bindFlipped$w" )
-                                                        )
-                                                      )
-                                                      ( Ref Nothing
-                                                        ( Imported
-                                                          ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                          ( Name "inc" )
-                                                        ) :|
-                                                        [ AppN Nothing
-                                                          ( Ref Nothing
-                                                            ( Imported
-                                                              ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                              ( Name "bindFlipped$w" )
-                                                            )
-                                                          )
-                                                          ( Ref Nothing
-                                                            ( Imported
-                                                              ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                              ( Name "inc" )
-                                                            ) :|
-                                                            [ AppN Nothing
-                                                              ( Ref Nothing
-                                                                ( Imported
-                                                                  ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                  ( Name "bindFlipped$w" )
-                                                                )
-                                                              )
-                                                              ( Ref Nothing
-                                                                ( Imported
-                                                                  ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                  ( Name "inc" )
-                                                                ) :|
-                                                                [ AppN Nothing
-                                                                  ( Ref Nothing
-                                                                    ( Imported
-                                                                      ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                      ( Name "bindFlipped$w" )
-                                                                    )
-                                                                  )
-                                                                  ( Ref Nothing
-                                                                    ( Imported
-                                                                      ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                      ( Name "inc" )
-                                                                    ) :|
-                                                                    [ AppN Nothing
-                                                                      ( Ref Nothing
-                                                                        ( Imported
-                                                                          ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                          ( Name "bindFlipped$w" )
-                                                                        )
-                                                                      )
-                                                                      ( Ref Nothing
-                                                                        ( Imported
-                                                                          ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                          ( Name "inc" )
-                                                                        ) :|
-                                                                        [ AppN Nothing
-                                                                          ( Ref Nothing
-                                                                            ( Imported
-                                                                              ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                              ( Name "bindFlipped$w" )
-                                                                            )
-                                                                          )
-                                                                          ( Ref Nothing
-                                                                            ( Imported
-                                                                              ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                              ( Name "inc" )
-                                                                            ) :|
-                                                                            [ AppN Nothing
-                                                                              ( Ref Nothing
-                                                                                ( Imported
-                                                                                  ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                  ( Name "bindFlipped$w" )
-                                                                                )
-                                                                              )
-                                                                              ( Ref Nothing
-                                                                                ( Imported
-                                                                                  ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                  ( Name "inc" )
-                                                                                ) :|
-                                                                                [ AppN Nothing
-                                                                                  ( Ref Nothing
-                                                                                    ( Imported
-                                                                                      ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                      ( Name "bindFlipped$w" )
-                                                                                    )
-                                                                                  )
-                                                                                  ( Ref Nothing
-                                                                                    ( Imported
-                                                                                      ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                      ( Name "inc" )
-                                                                                    ) :|
-                                                                                    [ AppN Nothing
-                                                                                      ( Ref Nothing
-                                                                                        ( Imported
-                                                                                          ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                          ( Name "bindFlipped$w" )
-                                                                                        )
-                                                                                      )
-                                                                                      ( Ref Nothing
-                                                                                        ( Imported
-                                                                                          ( ModuleName "Golden.LongBindFlipped.Test" )
-                                                                                          ( Name "inc" )
-                                                                                        ) :|
-                                                                                        [ Ref Nothing
-                                                                                          ( Local
-                                                                                            ( Name "$tmp339" )
-                                                                                          )
-                                                                                        ]
-                                                                                      )
-                                                                                    ]
-                                                                                  )
-                                                                                ]
-                                                                              )
-                                                                            ]
-                                                                          )
-                                                                        ]
-                                                                      )
-                                                                    ]
-                                                                  )
-                                                                ]
-                                                              )
-                                                            ]
-                                                          )
-                                                        ]
-                                                      )
-                                                    ]
-                                                  )
-                                                ]
-                                              )
-                                            ]
-                                          )
-                                        ]
-                                      )
-                                    ]
-                                  )
-                                ]
-                              )
-                            ]
-                          )
-                        ]
-                      )
-                    ]
-                  )
-                ]
-              )
-            ]
-          )
-        )
+        }, Ctor Nothing SumType
+        ( ModuleName "Data.Maybe" )
+        ( TyName "Maybe" )
+        ( CtorName "Just" )
+        [ LiteralInt Nothing 301 ]
       )
     ], uberModuleForeigns = [], uberModuleExports =
     [
diff --git a/test/ps/output/Golden.LongBindFlipped.Test/golden.lua b/test/ps/output/Golden.LongBindFlipped.Test/golden.lua
index 0d32ba9e..d9ad25c4 100644
--- a/test/ps/output/Golden.LongBindFlipped.Test/golden.lua
+++ b/test/ps/output/Golden.LongBindFlipped.Test/golden.lua
@@ -1,30 +1,12 @@
+local M = {}
 local Data_Show_foreign = { showIntImpl = function(n) return tostring(n) end }
 local Effect_Console_foreign = {
   log = function(s) return function() print(s) end end
 }
-local Golden_LongBindFlipped_Test_bindFlipped_S_w = function(b_S_0, a_S_0)
-  if "Data.Maybe∷Maybe.Just" == a_S_0[1] then
-    return b_S_0(a_S_0[2])
-  else
-    return { "Data.Maybe∷Maybe.Nothing" }
-  end
-end
-local Golden_LongBindFlipped_Test_inc = function(x)
+M.Golden_LongBindFlipped_Test_inc = function(x)
   return { "Data.Maybe∷Maybe.Just", x + 1 }
 end
-local Golden_LongBindFlipped_Test_compute = (function()
-  local _S_tmp0 = Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, {
-    "Data.Maybe∷Maybe.Just",
-    1
-  }))))))))))))))))))))))))))))))))))))))))
-  local _S_tmp1 = Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, _S_tmp0))))))))))))))))))))))))))))))))))))))))
-  local _S_tmp2 = Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, _S_tmp1))))))))))))))))))))))))))))))))))))))))
-  local _S_tmp3 = Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, _S_tmp2))))))))))))))))))))))))))))))))))))))))
-  local _S_tmp4 = Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, _S_tmp3))))))))))))))))))))))))))))))))))))))))
-  local _S_tmp5 = Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, _S_tmp4))))))))))))))))))))))))))))))))))))))))
-  local _S_tmp6 = Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, _S_tmp5))))))))))))))))))))))))))))))))))))))))
-  return Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, _S_tmp6))))))))))))))))))))
-end)()
+local Golden_LongBindFlipped_Test_compute = { "Data.Maybe∷Maybe.Just", 301 }
 return Effect_Console_foreign.log((function()
   if "Data.Maybe∷Maybe.Just" == Golden_LongBindFlipped_Test_compute[1] then
     return "(Just " .. Data_Show_foreign.showIntImpl(Golden_LongBindFlipped_Test_compute[2]) .. ")"
diff --git a/test/ps/output/Golden.LongCallbackChain.Test/golden.ir b/test/ps/output/Golden.LongCallbackChain.Test/golden.ir
index 35d88936..48d0ccb3 100644
--- a/test/ps/output/Golden.LongCallbackChain.Test/golden.ir
+++ b/test/ps/output/Golden.LongCallbackChain.Test/golden.ir
@@ -66,14 +66,14 @@ UberModule
         { qnameModuleName = ModuleName "Golden.LongCallbackChain.Test", qnameName = Name "compute"
         }, Let Nothing
         ( Standalone
-          ( Nothing, Name "$kont231", AbsN Nothing
-            ( ParamNamed Nothing ( Name "x280$232" ) :| [] )
+          ( Nothing, Name "$kont226", AbsN Nothing
+            ( ParamNamed Nothing ( Name "x280$227" ) :| [] )
             ( AppN Nothing
               ( Ref Nothing
                 ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) ( Name "withInc$w" ) )
               )
               ( Ref Nothing
-                ( Local ( Name "x280$232" ) ) :|
+                ( Local ( Name "x280$227" ) ) :|
                 [ AbsN Nothing
                   ( ParamNamed Nothing ( Name "x281" ) :| [] )
                   ( AppN Nothing
@@ -398,14 +398,14 @@ UberModule
             )
           ) :|
           [ Standalone
-            ( Nothing, Name "$kont233", AbsN Nothing
-              ( ParamNamed Nothing ( Name "x240$234" ) :| [] )
+            ( Nothing, Name "$kont228", AbsN Nothing
+              ( ParamNamed Nothing ( Name "x240$229" ) :| [] )
               ( AppN Nothing
                 ( Ref Nothing
                   ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) ( Name "withInc$w" ) )
                 )
                 ( Ref Nothing
-                  ( Local ( Name "x240$234" ) ) :|
+                  ( Local ( Name "x240$229" ) ) :|
                   [ AbsN Nothing
                     ( ParamNamed Nothing ( Name "x241" ) :| [] )
                     ( AppN Nothing
@@ -970,7 +970,7 @@ UberModule
                                                                                                                                                                                                                                                               ( AppN Nothing
                                                                                                                                                                                                                                                                 ( Ref Nothing
                                                                                                                                                                                                                                                                   ( Local
-                                                                                                                                                                                                                                                                    ( Name "$kont231" )
+                                                                                                                                                                                                                                                                    ( Name "$kont226" )
                                                                                                                                                                                                                                                                   )
                                                                                                                                                                                                                                                                 )
                                                                                                                                                                                                                                                                 ( Ref Nothing
@@ -1100,14 +1100,14 @@ UberModule
                 )
               )
             ), Standalone
-            ( Nothing, Name "$kont235", AbsN Nothing
-              ( ParamNamed Nothing ( Name "x200$236" ) :| [] )
+            ( Nothing, Name "$kont230", AbsN Nothing
+              ( ParamNamed Nothing ( Name "x200$231" ) :| [] )
               ( AppN Nothing
                 ( Ref Nothing
                   ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) ( Name "withInc$w" ) )
                 )
                 ( Ref Nothing
-                  ( Local ( Name "x200$236" ) ) :|
+                  ( Local ( Name "x200$231" ) ) :|
                   [ AbsN Nothing
                     ( ParamNamed Nothing ( Name "x201" ) :| [] )
                     ( AppN Nothing
@@ -1672,7 +1672,7 @@ UberModule
                                                                                                                                                                                                                                                               ( AppN Nothing
                                                                                                                                                                                                                                                                 ( Ref Nothing
                                                                                                                                                                                                                                                                   ( Local
-                                                                                                                                                                                                                                                                    ( Name "$kont233" )
+                                                                                                                                                                                                                                                                    ( Name "$kont228" )
                                                                                                                                                                                                                                                                   )
                                                                                                                                                                                                                                                                 )
                                                                                                                                                                                                                                                                 ( Ref Nothing
@@ -1802,14 +1802,14 @@ UberModule
                 )
               )
             ), Standalone
-            ( Nothing, Name "$kont237", AbsN Nothing
-              ( ParamNamed Nothing ( Name "x160$238" ) :| [] )
+            ( Nothing, Name "$kont232", AbsN Nothing
+              ( ParamNamed Nothing ( Name "x160$233" ) :| [] )
               ( AppN Nothing
                 ( Ref Nothing
                   ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) ( Name "withInc$w" ) )
                 )
                 ( Ref Nothing
-                  ( Local ( Name "x160$238" ) ) :|
+                  ( Local ( Name "x160$233" ) ) :|
                   [ AbsN Nothing
                     ( ParamNamed Nothing ( Name "x161" ) :| [] )
                     ( AppN Nothing
@@ -2374,7 +2374,7 @@ UberModule
                                                                                                                                                                                                                                                               ( AppN Nothing
                                                                                                                                                                                                                                                                 ( Ref Nothing
                                                                                                                                                                                                                                                                   ( Local
-                                                                                                                                                                                                                                                                    ( Name "$kont235" )
+                                                                                                                                                                                                                                                                    ( Name "$kont230" )
                                                                                                                                                                                                                                                                   )
                                                                                                                                                                                                                                                                 )
                                                                                                                                                                                                                                                                 ( Ref Nothing
@@ -2504,14 +2504,14 @@ UberModule
                 )
               )
             ), Standalone
-            ( Nothing, Name "$kont239", AbsN Nothing
-              ( ParamNamed Nothing ( Name "x120$240" ) :| [] )
+            ( Nothing, Name "$kont234", AbsN Nothing
+              ( ParamNamed Nothing ( Name "x120$235" ) :| [] )
               ( AppN Nothing
                 ( Ref Nothing
                   ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) ( Name "withInc$w" ) )
                 )
                 ( Ref Nothing
-                  ( Local ( Name "x120$240" ) ) :|
+                  ( Local ( Name "x120$235" ) ) :|
                   [ AbsN Nothing
                     ( ParamNamed Nothing ( Name "x121" ) :| [] )
                     ( AppN Nothing
@@ -3076,7 +3076,7 @@ UberModule
                                                                                                                                                                                                                                                               ( AppN Nothing
                                                                                                                                                                                                                                                                 ( Ref Nothing
                                                                                                                                                                                                                                                                   ( Local
-                                                                                                                                                                                                                                                                    ( Name "$kont237" )
+                                                                                                                                                                                                                                                                    ( Name "$kont232" )
                                                                                                                                                                                                                                                                   )
                                                                                                                                                                                                                                                                 )
                                                                                                                                                                                                                                                                 ( Ref Nothing
@@ -3206,14 +3206,14 @@ UberModule
                 )
               )
             ), Standalone
-            ( Nothing, Name "$kont241", AbsN Nothing
-              ( ParamNamed Nothing ( Name "x80$242" ) :| [] )
+            ( Nothing, Name "$kont236", AbsN Nothing
+              ( ParamNamed Nothing ( Name "x80$237" ) :| [] )
               ( AppN Nothing
                 ( Ref Nothing
                   ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) ( Name "withInc$w" ) )
                 )
                 ( Ref Nothing
-                  ( Local ( Name "x80$242" ) ) :|
+                  ( Local ( Name "x80$237" ) ) :|
                   [ AbsN Nothing
                     ( ParamNamed Nothing ( Name "x81" ) :| [] )
                     ( AppN Nothing
@@ -3774,7 +3774,7 @@ UberModule
                                                                                                                                                                                                                                                               ( AppN Nothing
                                                                                                                                                                                                                                                                 ( Ref Nothing
                                                                                                                                                                                                                                                                   ( Local
-                                                                                                                                                                                                                                                                    ( Name "$kont239" )
+                                                                                                                                                                                                                                                                    ( Name "$kont234" )
                                                                                                                                                                                                                                                                   )
                                                                                                                                                                                                                                                                 )
                                                                                                                                                                                                                                                                 ( Ref Nothing
@@ -3904,14 +3904,14 @@ UberModule
                 )
               )
             ), Standalone
-            ( Nothing, Name "$kont243", AbsN Nothing
-              ( ParamNamed Nothing ( Name "x40$244" ) :| [] )
+            ( Nothing, Name "$kont238", AbsN Nothing
+              ( ParamNamed Nothing ( Name "x40$239" ) :| [] )
               ( AppN Nothing
                 ( Ref Nothing
                   ( Imported ( ModuleName "Golden.LongCallbackChain.Test" ) ( Name "withInc$w" ) )
                 )
                 ( Ref Nothing
-                  ( Local ( Name "x40$244" ) ) :|
+                  ( Local ( Name "x40$239" ) ) :|
                   [ AbsN Nothing
                     ( ParamNamed Nothing ( Name "x41" ) :| [] )
                     ( AppN Nothing
@@ -4472,7 +4472,7 @@ UberModule
                                                                                                                                                                                                                                                               ( AppN Nothing
                                                                                                                                                                                                                                                                 ( Ref Nothing
                                                                                                                                                                                                                                                                   ( Local
-                                                                                                                                                                                                                                                                    ( Name "$kont241" )
+                                                                                                                                                                                                                                                                    ( Name "$kont236" )
                                                                                                                                                                                                                                                                   )
                                                                                                                                                                                                                                                                 )
                                                                                                                                                                                                                                                                 ( Ref Nothing
@@ -5162,7 +5162,7 @@ UberModule
                                                                                                                                                                                                                                                         ( AppN Nothing
                                                                                                                                                                                                                                                           ( Ref Nothing
                                                                                                                                                                                                                                                             ( Local
-                                                                                                                                                                                                                                                              ( Name "$kont243" )
+                                                                                                                                                                                                                                                              ( Name "$kont238" )
                                                                                                                                                                                                                                                             )
                                                                                                                                                                                                                                                           )
                                                                                                                                                                                                                                                           ( Ref Nothing
diff --git a/test/ps/output/Golden.LongEitherBind.Test/golden.ir b/test/ps/output/Golden.LongEitherBind.Test/golden.ir
index 063886a7..0bd486b3 100644
--- a/test/ps/output/Golden.LongEitherBind.Test/golden.ir
+++ b/test/ps/output/Golden.LongEitherBind.Test/golden.ir
@@ -28,7 +28,7 @@ UberModule
       ),
       ( Name "main", Let Nothing
         ( Standalone
-          ( Nothing, Name "$cse2150", DataArgumentByIndex Nothing SumType 0
+          ( Nothing, Name "$cse2753", DataArgumentByIndex Nothing SumType 0
             ( Ref Nothing
               ( Imported ( ModuleName "Golden.LongEitherBind.Test" ) ( Name "compute" ) )
             )
@@ -56,7 +56,7 @@ UberModule
                     ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "foreign" ) ) )
                     ( PropName "showStringImpl" )
                   )
-                  ( Ref Nothing ( Local ( Name "$cse2150" ) ) :| [] )
+                  ( Ref Nothing ( Local ( Name "$cse2753" ) ) :| [] )
                 )
                 ( LiteralString Nothing ")" )
               )
@@ -69,7 +69,7 @@ UberModule
                     ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "foreign" ) ) )
                     ( PropName "showIntImpl" )
                   )
-                  ( Ref Nothing ( Local ( Name "$cse2150" ) ) :| [] )
+                  ( Ref Nothing ( Local ( Name "$cse2753" ) ) :| [] )
                 )
                 ( LiteralString Nothing ")" )
               )
diff --git a/test/ps/output/Golden.LongExceptBind.Test/golden.ir b/test/ps/output/Golden.LongExceptBind.Test/golden.ir
index 2b6a7f73..b837e17e 100644
--- a/test/ps/output/Golden.LongExceptBind.Test/golden.ir
+++ b/test/ps/output/Golden.LongExceptBind.Test/golden.ir
@@ -32,12 +32,12 @@ UberModule
             ( LiteralObject Nothing
               [
                 ( PropName "map", AbsN Nothing
-                  ( ParamNamed Nothing ( Name "f$541" ) :| [] )
+                  ( ParamNamed Nothing ( Name "f$529" ) :| [] )
                   ( AbsN Nothing
-                    ( ParamNamed Nothing ( Name "m$542" ) :| [] )
+                    ( ParamNamed Nothing ( Name "m$530" ) :| [] )
                     ( AppN Nothing
-                      ( Ref Nothing ( Local ( Name "f$541" ) ) )
-                      ( Ref Nothing ( Local ( Name "m$542" ) ) :| [] )
+                      ( Ref Nothing ( Local ( Name "f$529" ) ) )
+                      ( Ref Nothing ( Local ( Name "m$530" ) ) :| [] )
                     )
                   )
                 )
@@ -51,8 +51,8 @@ UberModule
         }, LiteralObject Nothing
         [
           ( PropName "pure", AbsN Nothing
-            ( ParamNamed Nothing ( Name "x$543" ) :| [] )
-            ( Ref Nothing ( Local ( Name "x$543" ) ) )
+            ( ParamNamed Nothing ( Name "x$531" ) :| [] )
+            ( Ref Nothing ( Local ( Name "x$531" ) ) )
           ),
           ( PropName "Apply0", AbsN Nothing
             ( ParamUnused Nothing :| [] )
@@ -75,12 +75,12 @@ UberModule
             ( LiteralObject Nothing
               [
                 ( PropName "bind", AbsN Nothing
-                  ( ParamNamed Nothing ( Name "v$87" ) :| [] )
+                  ( ParamNamed Nothing ( Name "v$84" ) :| [] )
                   ( AbsN Nothing
-                    ( ParamNamed Nothing ( Name "f$88" ) :| [] )
+                    ( ParamNamed Nothing ( Name "f$85" ) :| [] )
                     ( AppN Nothing
-                      ( Ref Nothing ( Local ( Name "f$88" ) ) )
-                      ( Ref Nothing ( Local ( Name "v$87" ) ) :| [] )
+                      ( Ref Nothing ( Local ( Name "f$85" ) ) )
+                      ( Ref Nothing ( Local ( Name "v$84" ) ) :| [] )
                     )
                   )
                 ),
@@ -154,17 +154,17 @@ UberModule
                         ( Ref Nothing ( Local ( Name "v" ) ) :| [] )
                       )
                       ( AbsN Nothing
-                        ( ParamNamed Nothing ( Name "v2$546" ) :| [] )
+                        ( ParamNamed Nothing ( Name "v2$534" ) :| [] )
                         ( Let Nothing
                           ( Standalone
-                            ( Nothing, Name "$cse1413", DataArgumentByIndex Nothing SumType 0
-                              ( Ref Nothing ( Local ( Name "v2$546" ) ) )
+                            ( Nothing, Name "$cse1412", DataArgumentByIndex Nothing SumType 0
+                              ( Ref Nothing ( Local ( Name "v2$534" ) ) )
                             ) :| []
                           )
                           ( IfThenElse Nothing
                             ( Eq Nothing
                               ( LiteralString Nothing "Data.Either∷Either.Left" )
-                              ( ReflectCtor Nothing ( Ref Nothing ( Local ( Name "v2$546" ) ) ) )
+                              ( ReflectCtor Nothing ( Ref Nothing ( Local ( Name "v2$534" ) ) ) )
                             )
                             ( AppN Nothing
                               ( ObjectProp Nothing
@@ -183,12 +183,12 @@ UberModule
                                 ( ModuleName "Data.Either" )
                                 ( TyName "Either" )
                                 ( CtorName "Left" )
-                                [ Ref Nothing ( Local ( Name "$cse1413" ) ) ] :| []
+                                [ Ref Nothing ( Local ( Name "$cse1412" ) ) ] :| []
                               )
                             )
                             ( AppN Nothing
                               ( Ref Nothing ( Local ( Name "k" ) ) )
-                              ( Ref Nothing ( Local ( Name "$cse1413" ) ) :| [] )
+                              ( Ref Nothing ( Local ( Name "$cse1412" ) ) :| [] )
                             )
                           )
                         ) :| []
@@ -219,7 +219,7 @@ UberModule
               [
                 ( PropName "apply", Let Nothing
                   ( Standalone
-                    ( Nothing, Name "dictMonad$550", AppN Nothing
+                    ( Nothing, Name "dictMonad$538", AppN Nothing
                       ( Ref Nothing
                         ( Imported
                           ( ModuleName "Control.Monad.Except.Trans" )
@@ -231,10 +231,10 @@ UberModule
                   )
                   ( Let Nothing
                     ( Standalone
-                      ( Nothing, Name "bind$551", ObjectProp Nothing
+                      ( Nothing, Name "bind$539", ObjectProp Nothing
                         ( AppN Nothing
                           ( ObjectProp Nothing
-                            ( Ref Nothing ( Local ( Name "dictMonad$550" ) ) )
+                            ( Ref Nothing ( Local ( Name "dictMonad$538" ) ) )
                             ( PropName "Bind1" )
                           )
                           ( Ref Nothing
@@ -245,28 +245,28 @@ UberModule
                       ) :| []
                     )
                     ( AbsN Nothing
-                      ( ParamNamed Nothing ( Name "f$552" ) :| [] )
+                      ( ParamNamed Nothing ( Name "f$540" ) :| [] )
                       ( AbsN Nothing
-                        ( ParamNamed Nothing ( Name "a$553" ) :| [] )
+                        ( ParamNamed Nothing ( Name "a$541" ) :| [] )
                         ( AppN Nothing
                           ( AppN Nothing
-                            ( Ref Nothing ( Local ( Name "bind$551" ) ) )
-                            ( Ref Nothing ( Local ( Name "f$552" ) ) :| [] )
+                            ( Ref Nothing ( Local ( Name "bind$539" ) ) )
+                            ( Ref Nothing ( Local ( Name "f$540" ) ) :| [] )
                           )
                           ( AbsN Nothing
-                            ( ParamNamed Nothing ( Name "f'$554" ) :| [] )
+                            ( ParamNamed Nothing ( Name "f'$542" ) :| [] )
                             ( AppN Nothing
                               ( AppN Nothing
-                                ( Ref Nothing ( Local ( Name "bind$551" ) ) )
-                                ( Ref Nothing ( Local ( Name "a$553" ) ) :| [] )
+                                ( Ref Nothing ( Local ( Name "bind$539" ) ) )
+                                ( Ref Nothing ( Local ( Name "a$541" ) ) :| [] )
                               )
                               ( AbsN Nothing
-                                ( ParamNamed Nothing ( Name "a'$555" ) :| [] )
+                                ( ParamNamed Nothing ( Name "a'$543" ) :| [] )
                                 ( AppN Nothing
                                   ( ObjectProp Nothing
                                     ( AppN Nothing
                                       ( ObjectProp Nothing
-                                        ( Ref Nothing ( Local ( Name "dictMonad$550" ) ) )
+                                        ( Ref Nothing ( Local ( Name "dictMonad$538" ) ) )
                                         ( PropName "Applicative0" )
                                       )
                                       ( Ref Nothing
@@ -279,8 +279,8 @@ UberModule
                                     ( PropName "pure" )
                                   )
                                   ( AppN Nothing
-                                    ( Ref Nothing ( Local ( Name "f'$554" ) ) )
-                                    ( Ref Nothing ( Local ( Name "a'$555" ) ) :| [] ) :| []
+                                    ( Ref Nothing ( Local ( Name "f'$542" ) ) )
+                                    ( Ref Nothing ( Local ( Name "a'$543" ) ) :| [] ) :| []
                                   )
                                 ) :| []
                               )
@@ -296,9 +296,9 @@ UberModule
                   ( LiteralObject Nothing
                     [
                       ( PropName "map", AbsN Nothing
-                        ( ParamNamed Nothing ( Name "f$538" ) :| [] )
+                        ( ParamNamed Nothing ( Name "f$526" ) :| [] )
                         ( AbsN Nothing
-                          ( ParamNamed Nothing ( Name "v$540" ) :| [] )
+                          ( ParamNamed Nothing ( Name "v$528" ) :| [] )
                           ( AppN Nothing
                             ( AppN Nothing
                               ( ObjectProp Nothing
@@ -336,40 +336,40 @@ UberModule
                                 ( PropName "map" )
                               )
                               ( AbsN Nothing
-                                ( ParamNamed Nothing ( Name "m$548" ) :| [] )
+                                ( ParamNamed Nothing ( Name "m$536" ) :| [] )
                                 ( Let Nothing
                                   ( Standalone
-                                    ( Nothing, Name "$cse1414", DataArgumentByIndex Nothing SumType 0
-                                      ( Ref Nothing ( Local ( Name "m$548" ) ) )
+                                    ( Nothing, Name "$cse1413", DataArgumentByIndex Nothing SumType 0
+                                      ( Ref Nothing ( Local ( Name "m$536" ) ) )
                                     ) :| []
                                   )
                                   ( IfThenElse Nothing
                                     ( Eq Nothing
                                       ( LiteralString Nothing "Data.Either∷Either.Left" )
                                       ( ReflectCtor Nothing
-                                        ( Ref Nothing ( Local ( Name "m$548" ) ) )
+                                        ( Ref Nothing ( Local ( Name "m$536" ) ) )
                                       )
                                     )
                                     ( Ctor Nothing SumType
                                       ( ModuleName "Data.Either" )
                                       ( TyName "Either" )
                                       ( CtorName "Left" )
-                                      [ Ref Nothing ( Local ( Name "$cse1414" ) ) ]
+                                      [ Ref Nothing ( Local ( Name "$cse1413" ) ) ]
                                     )
                                     ( Ctor Nothing SumType
                                       ( ModuleName "Data.Either" )
                                       ( TyName "Either" )
                                       ( CtorName "Right" )
                                       [ AppN Nothing
-                                        ( Ref Nothing ( Local ( Name "f$538" ) ) )
-                                        ( Ref Nothing ( Local ( Name "$cse1414" ) ) :| [] )
+                                        ( Ref Nothing ( Local ( Name "f$526" ) ) )
+                                        ( Ref Nothing ( Local ( Name "$cse1413" ) ) :| [] )
                                       ]
                                     )
                                   )
                                 ) :| []
                               )
                             )
-                            ( Ref Nothing ( Local ( Name "v$540" ) ) :| [] )
+                            ( Ref Nothing ( Local ( Name "v$528" ) ) :| [] )
                           )
                         )
                       )
@@ -386,7 +386,7 @@ UberModule
             ( LiteralObject Nothing
               [
                 ( PropName "pure", AbsN Nothing
-                  ( ParamNamed Nothing ( Name "x$1207" ) :| [] )
+                  ( ParamNamed Nothing ( Name "x$1195" ) :| [] )
                   ( AppN Nothing
                     ( ObjectProp Nothing
                       ( AppN Nothing
@@ -404,7 +404,7 @@ UberModule
                       ( ModuleName "Data.Either" )
                       ( TyName "Either" )
                       ( CtorName "Right" )
-                      [ Ref Nothing ( Local ( Name "x$1207" ) ) ] :| []
+                      [ Ref Nothing ( Local ( Name "x$1195" ) ) ] :| []
                     )
                   )
                 ),
@@ -440,10 +440,10 @@ UberModule
         { qnameModuleName = ModuleName "Golden.LongExceptBind.Test", qnameName = Name "go"
         }, Let Nothing
         ( Standalone
-          ( Nothing, Name "$kont1416$w", AbsN Nothing
+          ( Nothing, Name "$kont1415$w", AbsN Nothing
             ( ParamNamed Nothing
-              ( Name "x1$1417" ) :|
-              [ ParamNamed Nothing ( Name "x160$1418" ) ]
+              ( Name "x1$1416" ) :|
+              [ ParamNamed Nothing ( Name "x160$1417" ) ]
             )
             ( AppN Nothing
               ( AppN Nothing
@@ -455,7 +455,7 @@ UberModule
                   ( TyName "Either" )
                   ( CtorName "Right" )
                   [ PrimBinOp Nothing PrimAdd
-                    ( Ref Nothing ( Local ( Name "x160$1418" ) ) )
+                    ( Ref Nothing ( Local ( Name "x160$1417" ) ) )
                     ( LiteralInt Nothing 1 )
                   ] :| []
                 )
@@ -1429,7 +1429,7 @@ UberModule
                                                                                                                                                                               ( PrimBinOp Nothing PrimAdd
                                                                                                                                                                                 ( Ref Nothing
                                                                                                                                                                                   ( Local
-                                                                                                                                                                                    ( Name "x1$1417" )
+                                                                                                                                                                                    ( Name "x1$1416" )
                                                                                                                                                                                   )
                                                                                                                                                                                 )
                                                                                                                                                                                 ( Ref Nothing
@@ -1521,10 +1521,10 @@ UberModule
             )
           ) :|
           [ Standalone
-            ( Nothing, Name "$kont1419$w", AbsN Nothing
+            ( Nothing, Name "$kont1418$w", AbsN Nothing
               ( ParamNamed Nothing
-                ( Name "x1$1420" ) :|
-                [ ParamNamed Nothing ( Name "x120$1421" ) ]
+                ( Name "x1$1419" ) :|
+                [ ParamNamed Nothing ( Name "x120$1420" ) ]
               )
               ( AppN Nothing
                 ( AppN Nothing
@@ -1536,7 +1536,7 @@ UberModule
                     ( TyName "Either" )
                     ( CtorName "Right" )
                     [ PrimBinOp Nothing PrimAdd
-                      ( Ref Nothing ( Local ( Name "x120$1421" ) ) )
+                      ( Ref Nothing ( Local ( Name "x120$1420" ) ) )
                       ( LiteralInt Nothing 1 )
                     ] :| []
                   )
@@ -2494,12 +2494,12 @@ UberModule
                                                                                                                                                                               ( AppN Nothing
                                                                                                                                                                                 ( Ref Nothing
                                                                                                                                                                                   ( Local
-                                                                                                                                                                                    ( Name "$kont1416$w" )
+                                                                                                                                                                                    ( Name "$kont1415$w" )
                                                                                                                                                                                   )
                                                                                                                                                                                 )
                                                                                                                                                                                 ( Ref Nothing
                                                                                                                                                                                   ( Local
-                                                                                                                                                                                    ( Name "x1$1420" )
+                                                                                                                                                                                    ( Name "x1$1419" )
                                                                                                                                                                                   ) :|
                                                                                                                                                                                   [ Ref Nothing
                                                                                                                                                                                     ( Local
@@ -2589,10 +2589,10 @@ UberModule
                 )
               )
             ), Standalone
-            ( Nothing, Name "$kont1422$w", AbsN Nothing
+            ( Nothing, Name "$kont1421$w", AbsN Nothing
               ( ParamNamed Nothing
-                ( Name "x1$1423" ) :|
-                [ ParamNamed Nothing ( Name "x80$1424" ) ]
+                ( Name "x1$1422" ) :|
+                [ ParamNamed Nothing ( Name "x80$1423" ) ]
               )
               ( AppN Nothing
                 ( AppN Nothing
@@ -2604,7 +2604,7 @@ UberModule
                     ( TyName "Either" )
                     ( CtorName "Right" )
                     [ PrimBinOp Nothing PrimAdd
-                      ( Ref Nothing ( Local ( Name "x80$1424" ) ) )
+                      ( Ref Nothing ( Local ( Name "x80$1423" ) ) )
                       ( LiteralInt Nothing 1 )
                     ] :| []
                   )
@@ -3560,12 +3560,12 @@ UberModule
                                                                                                                                                                               ( AppN Nothing
                                                                                                                                                                                 ( Ref Nothing
                                                                                                                                                                                   ( Local
-                                                                                                                                                                                    ( Name "$kont1419$w" )
+                                                                                                                                                                                    ( Name "$kont1418$w" )
                                                                                                                                                                                   )
                                                                                                                                                                                 )
                                                                                                                                                                                 ( Ref Nothing
                                                                                                                                                                                   ( Local
-                                                                                                                                                                                    ( Name "x1$1423" )
+                                                                                                                                                                                    ( Name "x1$1422" )
                                                                                                                                                                                   ) :|
                                                                                                                                                                                   [ Ref Nothing
                                                                                                                                                                                     ( Local
@@ -3655,10 +3655,10 @@ UberModule
                 )
               )
             ), Standalone
-            ( Nothing, Name "$kont1425$w", AbsN Nothing
+            ( Nothing, Name "$kont1424$w", AbsN Nothing
               ( ParamNamed Nothing
-                ( Name "x1$1426" ) :|
-                [ ParamNamed Nothing ( Name "x40$1427" ) ]
+                ( Name "x1$1425" ) :|
+                [ ParamNamed Nothing ( Name "x40$1426" ) ]
               )
               ( AppN Nothing
                 ( AppN Nothing
@@ -3670,7 +3670,7 @@ UberModule
                     ( TyName "Either" )
                     ( CtorName "Right" )
                     [ PrimBinOp Nothing PrimAdd
-                      ( Ref Nothing ( Local ( Name "x40$1427" ) ) )
+                      ( Ref Nothing ( Local ( Name "x40$1426" ) ) )
                       ( LiteralInt Nothing 1 )
                     ] :| []
                   )
@@ -4626,12 +4626,12 @@ UberModule
                                                                                                                                                                               ( AppN Nothing
                                                                                                                                                                                 ( Ref Nothing
                                                                                                                                                                                   ( Local
-                                                                                                                                                                                    ( Name "$kont1422$w" )
+                                                                                                                                                                                    ( Name "$kont1421$w" )
                                                                                                                                                                                   )
                                                                                                                                                                                 )
                                                                                                                                                                                 ( Ref Nothing
                                                                                                                                                                                   ( Local
-                                                                                                                                                                                    ( Name "x1$1426" )
+                                                                                                                                                                                    ( Name "x1$1425" )
                                                                                                                                                                                   ) :|
                                                                                                                                                                                   [ Ref Nothing
                                                                                                                                                                                     ( Local
@@ -5675,7 +5675,7 @@ UberModule
                                                                                                                                                                         ( AppN Nothing
                                                                                                                                                                           ( Ref Nothing
                                                                                                                                                                             ( Local
-                                                                                                                                                                              ( Name "$kont1425$w" )
+                                                                                                                                                                              ( Name "$kont1424$w" )
                                                                                                                                                                             )
                                                                                                                                                                           )
                                                                                                                                                                           ( Ref Nothing
@@ -5769,11 +5769,6 @@ UberModule
             ) :| []
           )
         )
-      ), Standalone
-      ( QName
-        { qnameModuleName = ModuleName "Golden.LongExceptBind.Test", qnameName = Name "compute"
-        }, Ref Nothing
-        ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "go" ) )
       )
     ], uberModuleForeigns = [], uberModuleExports =
     [
@@ -5781,14 +5776,12 @@ UberModule
         ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "go" ) )
       ),
       ( Name "compute", Ref Nothing
-        ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "compute" ) )
+        ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "go" ) )
       ),
       ( Name "main", Let Nothing
         ( Standalone
-          ( Nothing, Name "$cse1415", DataArgumentByIndex Nothing SumType 0
-            ( Ref Nothing
-              ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "compute" ) )
-            )
+          ( Nothing, Name "$cse1414", DataArgumentByIndex Nothing SumType 0
+            ( Ref Nothing ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "go" ) ) )
           ) :| []
         )
         ( AppN Nothing
@@ -5801,7 +5794,7 @@ UberModule
               ( LiteralString Nothing "Data.Either∷Either.Left" )
               ( ReflectCtor Nothing
                 ( Ref Nothing
-                  ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "compute" ) )
+                  ( Imported ( ModuleName "Golden.LongExceptBind.Test" ) ( Name "go" ) )
                 )
               )
             )
@@ -5813,7 +5806,7 @@ UberModule
                     ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "foreign" ) ) )
                     ( PropName "showStringImpl" )
                   )
-                  ( Ref Nothing ( Local ( Name "$cse1415" ) ) :| [] )
+                  ( Ref Nothing ( Local ( Name "$cse1414" ) ) :| [] )
                 )
                 ( LiteralString Nothing ")" )
               )
@@ -5826,7 +5819,7 @@ UberModule
                     ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "foreign" ) ) )
                     ( PropName "showIntImpl" )
                   )
-                  ( Ref Nothing ( Local ( Name "$cse1415" ) ) :| [] )
+                  ( Ref Nothing ( Local ( Name "$cse1414" ) ) :| [] )
                 )
                 ( LiteralString Nothing ")" )
               )
diff --git a/test/ps/output/Golden.LongExceptBind.Test/golden.lua b/test/ps/output/Golden.LongExceptBind.Test/golden.lua
index 54c5615a..a19c24a9 100644
--- a/test/ps/output/Golden.LongExceptBind.Test/golden.lua
+++ b/test/ps/output/Golden.LongExceptBind.Test/golden.lua
@@ -1161,11 +1161,10 @@ local Golden_LongExceptBind_Test_go = (function()
     end)
   end)
 end)()
-local Golden_LongExceptBind_Test_compute = Golden_LongExceptBind_Test_go
 return (function()
-  local _S_cse2 = Golden_LongExceptBind_Test_compute[2]
+  local _S_cse2 = Golden_LongExceptBind_Test_go[2]
   return Effect_Console_foreign.log((function()
-    if "Data.Either∷Either.Left" == Golden_LongExceptBind_Test_compute[1] then
+    if "Data.Either∷Either.Left" == Golden_LongExceptBind_Test_go[1] then
       return "(Left " .. Data_Show_foreign.showStringImpl(_S_cse2) .. ")"
     else
       return "(Right " .. Data_Show_foreign.showIntImpl(_S_cse2) .. ")"
diff --git a/test/ps/output/Golden.LongMaybeBind.Test/golden.ir b/test/ps/output/Golden.LongMaybeBind.Test/golden.ir
index cdeaf577..b6dbbd97 100644
--- a/test/ps/output/Golden.LongMaybeBind.Test/golden.ir
+++ b/test/ps/output/Golden.LongMaybeBind.Test/golden.ir
@@ -1,18 +1,6 @@
 UberModule
   { uberModuleBindings =
     [ Standalone
-      ( QName
-        { qnameModuleName = ModuleName "Data.Unit", qnameName = Name "foreign"
-        }, ForeignImport Nothing
-        ( ModuleName "Data.Unit" ) ".spago/p/prelude/5718c84fdde6247749cb053e816df696c30fe691/src/Data/Unit.purs"
-        [ ( Just Never, Name "unit" ) ]
-      ), Standalone
-      ( QName
-        { qnameModuleName = ModuleName "Data.Unit", qnameName = Name "unit"
-        }, ObjectProp ( Just Never )
-        ( Ref Nothing ( Imported ( ModuleName "Data.Unit" ) ( Name "foreign" ) ) )
-        ( PropName "unit" )
-      ), Standalone
       ( QName
         { qnameModuleName = ModuleName "Data.Show", qnameName = Name "foreign"
         }, ForeignImport Nothing
@@ -25,7649 +13,13 @@ UberModule
         ( ModuleName "Effect.Console" ) ".spago/p/console/f82835a0b873aafe6bd7b14dd30cc150553d4ab9/src/Effect/Console.purs"
         [ ( Nothing, Name "log" ) ]
       ), Standalone
-      ( QName
-        { qnameModuleName = ModuleName "Golden.LongMaybeBind.Test", qnameName = Name "bind$w"
-        }, AbsN Nothing
-        ( ParamNamed Nothing ( Name "v$306" ) :| [ ParamNamed Nothing ( Name "v1$307" ) ] )
-        ( IfThenElse Nothing
-          ( Eq Nothing
-            ( LiteralString Nothing "Data.Maybe∷Maybe.Just" )
-            ( ReflectCtor Nothing ( Ref Nothing ( Local ( Name "v$306" ) ) ) )
-          )
-          ( AppN Nothing
-            ( Ref Nothing ( Local ( Name "v1$307" ) ) )
-            ( DataArgumentByIndex Nothing SumType 0
-              ( Ref Nothing ( Local ( Name "v$306" ) ) ) :| []
-            )
-          )
-          ( Ctor Nothing SumType
-            ( ModuleName "Data.Maybe" )
-            ( TyName "Maybe" )
-            ( CtorName "Nothing" ) []
-          )
-        )
-      ), Standalone
       ( QName
         { qnameModuleName = ModuleName "Golden.LongMaybeBind.Test", qnameName = Name "compute"
-        }, Let Nothing
-        ( Standalone
-          ( Nothing, Name "$kont1231$w", AbsN Nothing
-            ( ParamNamed Nothing
-              ( Name "x1$1232" ) :|
-              [ ParamNamed Nothing ( Name "x277$1233" ) ]
-            )
-            ( AppN Nothing
-              ( Ref Nothing
-                ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind$w" ) )
-              )
-              ( Ctor Nothing SumType
-                ( ModuleName "Data.Maybe" )
-                ( TyName "Maybe" )
-                ( CtorName "Just" )
-                [ PrimBinOp Nothing PrimAdd
-                  ( Ref Nothing ( Local ( Name "x277$1233" ) ) )
-                  ( LiteralInt Nothing 1 )
-                ] :|
-                [ AbsN Nothing
-                  ( ParamNamed Nothing ( Name "x278" ) :| [] )
-                  ( AppN Nothing
-                    ( Ref Nothing
-                      ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind$w" ) )
-                    )
-                    ( Ctor Nothing SumType
-                      ( ModuleName "Data.Maybe" )
-                      ( TyName "Maybe" )
-                      ( CtorName "Just" )
-                      [ PrimBinOp Nothing PrimAdd
-                        ( 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" )
-                            )
-                          )
-                          ( Ctor Nothing SumType
-                            ( ModuleName "Data.Maybe" )
-                            ( TyName "Maybe" )
-                            ( CtorName "Just" )
-                            [ PrimBinOp Nothing PrimAdd
-                              ( 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" )
-                                  )
-                                )
-                                ( Ctor Nothing SumType
-                                  ( ModuleName "Data.Maybe" )
-                                  ( TyName "Maybe" )
-                                  ( CtorName "Just" )
-                                  [ PrimBinOp Nothing PrimAdd
-                                    ( 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" )
-                                        )
-                                      )
-                                      ( Ctor Nothing SumType
-                                        ( ModuleName "Data.Maybe" )
-                                        ( TyName "Maybe" )
-                                        ( CtorName "Just" )
-                                        [ PrimBinOp Nothing PrimAdd
-                                          ( 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" )
-                                              )
-                                            )
-                                            ( Ctor Nothing SumType
-                                              ( ModuleName "Data.Maybe" )
-                                              ( TyName "Maybe" )
-                                              ( CtorName "Just" )
-                                              [ PrimBinOp Nothing PrimAdd
-                                                ( 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" )
-                                                    )
-                                                  )
-                                                  ( Ctor Nothing SumType
-                                                    ( ModuleName "Data.Maybe" )
-                                                    ( TyName "Maybe" )
-                                                    ( CtorName "Just" )
-                                                    [ PrimBinOp Nothing PrimAdd
-                                                      ( 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" )
-                                                          )
-                                                        )
-                                                        ( Ctor Nothing SumType
-                                                          ( ModuleName "Data.Maybe" )
-                                                          ( TyName "Maybe" )
-                                                          ( CtorName "Just" )
-                                                          [ PrimBinOp Nothing PrimAdd
-                                                            ( 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" )
-                                                                )
-                                                              )
-                                                              ( Ctor Nothing SumType
-                                                                ( ModuleName "Data.Maybe" )
-                                                                ( TyName "Maybe" )
-                                                                ( CtorName "Just" )
-                                                                [ PrimBinOp Nothing PrimAdd
-                                                                  ( 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" )
-                                                                      )
-                                                                    )
-                                                                    ( Ctor Nothing SumType
-                                                                      ( ModuleName "Data.Maybe" )
-                                                                      ( TyName "Maybe" )
-                                                                      ( CtorName "Just" )
-                                                                      [ PrimBinOp Nothing PrimAdd
-                                                                        ( 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" )
-                                                                            )
-                                                                          )
-                                                                          ( Ctor Nothing SumType
-                                                                            ( ModuleName "Data.Maybe" )
-                                                                            ( TyName "Maybe" )
-                                                                            ( CtorName "Just" )
-                                                                            [ PrimBinOp Nothing PrimAdd
-                                                                              ( 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" )
-                                                                                  )
-                                                                                )
-                                                                                ( Ctor Nothing SumType
-                                                                                  ( ModuleName "Data.Maybe" )
-                                                                                  ( TyName "Maybe" )
-                                                                                  ( CtorName "Just" )
-                                                                                  [ PrimBinOp Nothing PrimAdd
-                                                                                    ( 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" )
-                                                                                        )
-                                                                                      )
-                                                                                      ( Ctor Nothing SumType
-                                                                                        ( ModuleName "Data.Maybe" )
-                                                                                        ( TyName "Maybe" )
-                                                                                        ( CtorName "Just" )
-                                                                                        [ PrimBinOp Nothing PrimAdd
-                                                                                          ( 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" )
-                                                                                              )
-                                                                                            )
-                                                                                            ( Ctor Nothing SumType
-                                                                                              ( ModuleName "Data.Maybe" )
-                                                                                              ( TyName "Maybe" )
-                                                                                              ( CtorName "Just" )
-                                                                                              [ PrimBinOp Nothing PrimAdd
-                                                                                                ( 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" )
-                                                                                                    )
-                                                                                                  )
-                                                                                                  ( Ctor Nothing SumType
-                                                                                                    ( ModuleName "Data.Maybe" )
-                                                                                                    ( TyName "Maybe" )
-                                                                                                    ( CtorName "Just" )
-                                                                                                    [ PrimBinOp Nothing PrimAdd
-                                                                                                      ( 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" )
-                                                                                                          )
-                                                                                                        )
-                                                                                                        ( Ctor Nothing SumType
-                                                                                                          ( ModuleName "Data.Maybe" )
-                                                                                                          ( TyName "Maybe" )
-                                                                                                          ( CtorName "Just" )
-                                                                                                          [ PrimBinOp Nothing PrimAdd
-                                                                                                            ( 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" )
-                                                                                                                )
-                                                                                                              )
-                                                                                                              ( Ctor Nothing SumType
-                                                                                                                ( ModuleName "Data.Maybe" )
-                                                                                                                ( TyName "Maybe" )
-                                                                                                                ( CtorName "Just" )
-                                                                                                                [ PrimBinOp Nothing PrimAdd
-                                                                                                                  ( 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" )
-                                                                                                                      )
-                                                                                                                    )
-                                                                                                                    ( Ctor Nothing SumType
-                                                                                                                      ( ModuleName "Data.Maybe" )
-                                                                                                                      ( TyName "Maybe" )
-                                                                                                                      ( CtorName "Just" )
-                                                                                                                      [ PrimBinOp Nothing PrimAdd
-                                                                                                                        ( 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" )
-                                                                                                                            )
-                                                                                                                          )
-                                                                                                                          ( Ctor Nothing SumType
-                                                                                                                            ( ModuleName "Data.Maybe" )
-                                                                                                                            ( TyName "Maybe" )
-                                                                                                                            ( CtorName "Just" )
-                                                                                                                            [ PrimBinOp Nothing PrimAdd
-                                                                                                                              ( 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" )
-                                                                                                                                  )
-                                                                                                                                )
-                                                                                                                                ( Ctor Nothing SumType
-                                                                                                                                  ( ModuleName "Data.Maybe" )
-                                                                                                                                  ( TyName "Maybe" )
-                                                                                                                                  ( CtorName "Just" )
-                                                                                                                                  [ PrimBinOp Nothing PrimAdd
-                                                                                                                                    ( 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" )
-                                                                                                                                        )
-                                                                                                                                      )
-                                                                                                                                      ( Ctor Nothing SumType
-                                                                                                                                        ( ModuleName "Data.Maybe" )
-                                                                                                                                        ( TyName "Maybe" )
-                                                                                                                                        ( CtorName "Just" )
-                                                                                                                                        [ PrimBinOp Nothing PrimAdd
-                                                                                                                                          ( 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" )
-                                                                                                                                              )
-                                                                                                                                            )
-                                                                                                                                            ( Ctor Nothing SumType
-                                                                                                                                              ( ModuleName "Data.Maybe" )
-                                                                                                                                              ( TyName "Maybe" )
-                                                                                                                                              ( CtorName "Just" )
-                                                                                                                                              [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                ( 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" )
-                                                                                                                                                    )
-                                                                                                                                                  )
-                                                                                                                                                  ( Ctor Nothing SumType
-                                                                                                                                                    ( ModuleName "Data.Maybe" )
-                                                                                                                                                    ( TyName "Maybe" )
-                                                                                                                                                    ( CtorName "Just" )
-                                                                                                                                                    [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                      ( Ref Nothing
-                                                                                                                                                        ( Local
-                                                                                                                                                          ( Name "x299" )
-                                                                                                                                                        )
-                                                                                                                                                      )
-                                                                                                                                                      ( LiteralInt Nothing 1 )
-                                                                                                                                                    ] :|
-                                                                                                                                                    [ AbsN Nothing
-                                                                                                                                                      ( ParamNamed Nothing
-                                                                                                                                                        ( Name "x300" ) :| []
-                                                                                                                                                      )
-                                                                                                                                                      ( Ctor Nothing SumType
-                                                                                                                                                        ( ModuleName "Data.Maybe" )
-                                                                                                                                                        ( TyName "Maybe" )
-                                                                                                                                                        ( CtorName "Just" )
-                                                                                                                                                        [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                          ( Ref Nothing
-                                                                                                                                                            ( Local
-                                                                                                                                                              ( Name "x1$1232" )
-                                                                                                                                                            )
-                                                                                                                                                          )
-                                                                                                                                                          ( Ref Nothing
-                                                                                                                                                            ( Local
-                                                                                                                                                              ( Name "x300" )
-                                                                                                                                                            )
-                                                                                                                                                          )
-                                                                                                                                                        ]
-                                                                                                                                                      )
-                                                                                                                                                    ]
-                                                                                                                                                  )
-                                                                                                                                                )
-                                                                                                                                              ]
-                                                                                                                                            )
-                                                                                                                                          )
-                                                                                                                                        ]
-                                                                                                                                      )
-                                                                                                                                    )
-                                                                                                                                  ]
-                                                                                                                                )
-                                                                                                                              )
-                                                                                                                            ]
-                                                                                                                          )
-                                                                                                                        )
-                                                                                                                      ]
-                                                                                                                    )
-                                                                                                                  )
-                                                                                                                ]
-                                                                                                              )
-                                                                                                            )
-                                                                                                          ]
-                                                                                                        )
-                                                                                                      )
-                                                                                                    ]
-                                                                                                  )
-                                                                                                )
-                                                                                              ]
-                                                                                            )
-                                                                                          )
-                                                                                        ]
-                                                                                      )
-                                                                                    )
-                                                                                  ]
-                                                                                )
-                                                                              )
-                                                                            ]
-                                                                          )
-                                                                        )
-                                                                      ]
-                                                                    )
-                                                                  )
-                                                                ]
-                                                              )
-                                                            )
-                                                          ]
-                                                        )
-                                                      )
-                                                    ]
-                                                  )
-                                                )
-                                              ]
-                                            )
-                                          )
-                                        ]
-                                      )
-                                    )
-                                  ]
-                                )
-                              )
-                            ]
-                          )
-                        )
-                      ]
-                    )
-                  )
-                ]
-              )
-            )
-          ) :|
-          [ Standalone
-            ( Nothing, Name "$kont1234$w", AbsN Nothing
-              ( ParamNamed Nothing
-                ( Name "x1$1235" ) :|
-                [ ParamNamed Nothing ( Name "x238$1236" ) ]
-              )
-              ( AppN Nothing
-                ( Ref Nothing
-                  ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind$w" ) )
-                )
-                ( Ctor Nothing SumType
-                  ( ModuleName "Data.Maybe" )
-                  ( TyName "Maybe" )
-                  ( CtorName "Just" )
-                  [ PrimBinOp Nothing PrimAdd
-                    ( Ref Nothing ( Local ( Name "x238$1236" ) ) )
-                    ( LiteralInt Nothing 1 )
-                  ] :|
-                  [ AbsN Nothing
-                    ( ParamNamed Nothing ( Name "x239" ) :| [] )
-                    ( AppN Nothing
-                      ( Ref Nothing
-                        ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind$w" ) )
-                      )
-                      ( Ctor Nothing SumType
-                        ( ModuleName "Data.Maybe" )
-                        ( TyName "Maybe" )
-                        ( CtorName "Just" )
-                        [ PrimBinOp Nothing PrimAdd
-                          ( 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" )
-                              )
-                            )
-                            ( Ctor Nothing SumType
-                              ( ModuleName "Data.Maybe" )
-                              ( TyName "Maybe" )
-                              ( CtorName "Just" )
-                              [ PrimBinOp Nothing PrimAdd
-                                ( 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" )
-                                    )
-                                  )
-                                  ( Ctor Nothing SumType
-                                    ( ModuleName "Data.Maybe" )
-                                    ( TyName "Maybe" )
-                                    ( CtorName "Just" )
-                                    [ PrimBinOp Nothing PrimAdd
-                                      ( 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" )
-                                          )
-                                        )
-                                        ( Ctor Nothing SumType
-                                          ( ModuleName "Data.Maybe" )
-                                          ( TyName "Maybe" )
-                                          ( CtorName "Just" )
-                                          [ PrimBinOp Nothing PrimAdd
-                                            ( 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" )
-                                                )
-                                              )
-                                              ( Ctor Nothing SumType
-                                                ( ModuleName "Data.Maybe" )
-                                                ( TyName "Maybe" )
-                                                ( CtorName "Just" )
-                                                [ PrimBinOp Nothing PrimAdd
-                                                  ( 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" )
-                                                      )
-                                                    )
-                                                    ( Ctor Nothing SumType
-                                                      ( ModuleName "Data.Maybe" )
-                                                      ( TyName "Maybe" )
-                                                      ( CtorName "Just" )
-                                                      [ PrimBinOp Nothing PrimAdd
-                                                        ( 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" )
-                                                            )
-                                                          )
-                                                          ( Ctor Nothing SumType
-                                                            ( ModuleName "Data.Maybe" )
-                                                            ( TyName "Maybe" )
-                                                            ( CtorName "Just" )
-                                                            [ PrimBinOp Nothing PrimAdd
-                                                              ( 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" )
-                                                                  )
-                                                                )
-                                                                ( Ctor Nothing SumType
-                                                                  ( ModuleName "Data.Maybe" )
-                                                                  ( TyName "Maybe" )
-                                                                  ( CtorName "Just" )
-                                                                  [ PrimBinOp Nothing PrimAdd
-                                                                    ( 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" )
-                                                                        )
-                                                                      )
-                                                                      ( Ctor Nothing SumType
-                                                                        ( ModuleName "Data.Maybe" )
-                                                                        ( TyName "Maybe" )
-                                                                        ( CtorName "Just" )
-                                                                        [ PrimBinOp Nothing PrimAdd
-                                                                          ( 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" )
-                                                                              )
-                                                                            )
-                                                                            ( Ctor Nothing SumType
-                                                                              ( ModuleName "Data.Maybe" )
-                                                                              ( TyName "Maybe" )
-                                                                              ( CtorName "Just" )
-                                                                              [ PrimBinOp Nothing PrimAdd
-                                                                                ( 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" )
-                                                                                    )
-                                                                                  )
-                                                                                  ( Ctor Nothing SumType
-                                                                                    ( ModuleName "Data.Maybe" )
-                                                                                    ( TyName "Maybe" )
-                                                                                    ( CtorName "Just" )
-                                                                                    [ PrimBinOp Nothing PrimAdd
-                                                                                      ( 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" )
-                                                                                          )
-                                                                                        )
-                                                                                        ( Ctor Nothing SumType
-                                                                                          ( ModuleName "Data.Maybe" )
-                                                                                          ( TyName "Maybe" )
-                                                                                          ( CtorName "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" )
-                                                                                                )
-                                                                                              )
-                                                                                              ( Ctor Nothing SumType
-                                                                                                ( ModuleName "Data.Maybe" )
-                                                                                                ( TyName "Maybe" )
-                                                                                                ( CtorName "Just" )
-                                                                                                [ PrimBinOp Nothing PrimAdd
-                                                                                                  ( Ref Nothing
-                                                                                                    ( Local
-                                                                                                      ( Name "x250" )
-                                                                                                    )
-                                                                                                  )
-                                                                                                  ( LiteralInt Nothing 1 )
-                                                                                                ] :|
-                                                                                                [ AbsN Nothing
-                                                                                                  ( ParamNamed Nothing
-                                                                                                    ( Name "x251" ) :| []
-                                                                                                  )
-                                                                                                  ( AppN Nothing
-                                                                                                    ( Ref Nothing
-                                                                                                      ( Imported
-                                                                                                        ( ModuleName "Golden.LongMaybeBind.Test" )
-                                                                                                        ( Name "bind$w" )
-                                                                                                      )
-                                                                                                    )
-                                                                                                    ( Ctor Nothing SumType
-                                                                                                      ( ModuleName "Data.Maybe" )
-                                                                                                      ( TyName "Maybe" )
-                                                                                                      ( CtorName "Just" )
-                                                                                                      [ PrimBinOp Nothing PrimAdd
-                                                                                                        ( 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" )
-                                                                                                            )
-                                                                                                          )
-                                                                                                          ( Ctor Nothing SumType
-                                                                                                            ( ModuleName "Data.Maybe" )
-                                                                                                            ( TyName "Maybe" )
-                                                                                                            ( CtorName "Just" )
-                                                                                                            [ PrimBinOp Nothing PrimAdd
-                                                                                                              ( 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" )
-                                                                                                                  )
-                                                                                                                )
-                                                                                                                ( Ctor Nothing SumType
-                                                                                                                  ( ModuleName "Data.Maybe" )
-                                                                                                                  ( TyName "Maybe" )
-                                                                                                                  ( CtorName "Just" )
-                                                                                                                  [ PrimBinOp Nothing PrimAdd
-                                                                                                                    ( 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" )
-                                                                                                                        )
-                                                                                                                      )
-                                                                                                                      ( Ctor Nothing SumType
-                                                                                                                        ( ModuleName "Data.Maybe" )
-                                                                                                                        ( TyName "Maybe" )
-                                                                                                                        ( CtorName "Just" )
-                                                                                                                        [ PrimBinOp Nothing PrimAdd
-                                                                                                                          ( 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" )
-                                                                                                                              )
-                                                                                                                            )
-                                                                                                                            ( Ctor Nothing SumType
-                                                                                                                              ( ModuleName "Data.Maybe" )
-                                                                                                                              ( TyName "Maybe" )
-                                                                                                                              ( CtorName "Just" )
-                                                                                                                              [ PrimBinOp Nothing PrimAdd
-                                                                                                                                ( 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" )
-                                                                                                                                    )
-                                                                                                                                  )
-                                                                                                                                  ( Ctor Nothing SumType
-                                                                                                                                    ( ModuleName "Data.Maybe" )
-                                                                                                                                    ( TyName "Maybe" )
-                                                                                                                                    ( CtorName "Just" )
-                                                                                                                                    [ PrimBinOp Nothing PrimAdd
-                                                                                                                                      ( 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" )
-                                                                                                                                          )
-                                                                                                                                        )
-                                                                                                                                        ( Ctor Nothing SumType
-                                                                                                                                          ( ModuleName "Data.Maybe" )
-                                                                                                                                          ( TyName "Maybe" )
-                                                                                                                                          ( CtorName "Just" )
-                                                                                                                                          [ PrimBinOp Nothing PrimAdd
-                                                                                                                                            ( 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" )
-                                                                                                                                                )
-                                                                                                                                              )
-                                                                                                                                              ( Ctor Nothing SumType
-                                                                                                                                                ( ModuleName "Data.Maybe" )
-                                                                                                                                                ( TyName "Maybe" )
-                                                                                                                                                ( CtorName "Just" )
-                                                                                                                                                [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                  ( 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" )
-                                                                                                                                                      )
-                                                                                                                                                    )
-                                                                                                                                                    ( Ctor Nothing SumType
-                                                                                                                                                      ( ModuleName "Data.Maybe" )
-                                                                                                                                                      ( TyName "Maybe" )
-                                                                                                                                                      ( CtorName "Just" )
-                                                                                                                                                      [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                        ( 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" )
-                                                                                                                                                            )
-                                                                                                                                                          )
-                                                                                                                                                          ( Ctor Nothing SumType
-                                                                                                                                                            ( ModuleName "Data.Maybe" )
-                                                                                                                                                            ( TyName "Maybe" )
-                                                                                                                                                            ( CtorName "Just" )
-                                                                                                                                                            [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                              ( 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" )
-                                                                                                                                                                  )
-                                                                                                                                                                )
-                                                                                                                                                                ( Ctor Nothing SumType
-                                                                                                                                                                  ( ModuleName "Data.Maybe" )
-                                                                                                                                                                  ( TyName "Maybe" )
-                                                                                                                                                                  ( CtorName "Just" )
-                                                                                                                                                                  [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                                    ( 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" )
-                                                                                                                                                                        )
-                                                                                                                                                                      )
-                                                                                                                                                                      ( Ctor Nothing SumType
-                                                                                                                                                                        ( ModuleName "Data.Maybe" )
-                                                                                                                                                                        ( TyName "Maybe" )
-                                                                                                                                                                        ( CtorName "Just" )
-                                                                                                                                                                        [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                                          ( 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" )
-                                                                                                                                                                              )
-                                                                                                                                                                            )
-                                                                                                                                                                            ( Ctor Nothing SumType
-                                                                                                                                                                              ( ModuleName "Data.Maybe" )
-                                                                                                                                                                              ( TyName "Maybe" )
-                                                                                                                                                                              ( CtorName "Just" )
-                                                                                                                                                                              [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                                                ( 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" )
-                                                                                                                                                                                    )
-                                                                                                                                                                                  )
-                                                                                                                                                                                  ( Ctor Nothing SumType
-                                                                                                                                                                                    ( ModuleName "Data.Maybe" )
-                                                                                                                                                                                    ( TyName "Maybe" )
-                                                                                                                                                                                    ( CtorName "Just" )
-                                                                                                                                                                                    [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                                                      ( 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" )
-                                                                                                                                                                                          )
-                                                                                                                                                                                        )
-                                                                                                                                                                                        ( Ctor Nothing SumType
-                                                                                                                                                                                          ( ModuleName "Data.Maybe" )
-                                                                                                                                                                                          ( TyName "Maybe" )
-                                                                                                                                                                                          ( CtorName "Just" )
-                                                                                                                                                                                          [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                                                            ( 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" )
-                                                                                                                                                                                                )
-                                                                                                                                                                                              )
-                                                                                                                                                                                              ( Ctor Nothing SumType
-                                                                                                                                                                                                ( ModuleName "Data.Maybe" )
-                                                                                                                                                                                                ( TyName "Maybe" )
-                                                                                                                                                                                                ( CtorName "Just" )
-                                                                                                                                                                                                [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                                                                  ( 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" )
-                                                                                                                                                                                                      )
-                                                                                                                                                                                                    )
-                                                                                                                                                                                                    ( Ctor Nothing SumType
-                                                                                                                                                                                                      ( ModuleName "Data.Maybe" )
-                                                                                                                                                                                                      ( TyName "Maybe" )
-                                                                                                                                                                                                      ( CtorName "Just" )
-                                                                                                                                                                                                      [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                                                                        ( 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" )
-                                                                                                                                                                                                            )
-                                                                                                                                                                                                          )
-                                                                                                                                                                                                          ( Ctor Nothing SumType
-                                                                                                                                                                                                            ( ModuleName "Data.Maybe" )
-                                                                                                                                                                                                            ( TyName "Maybe" )
-                                                                                                                                                                                                            ( CtorName "Just" )
-                                                                                                                                                                                                            [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                                                                              ( 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" )
-                                                                                                                                                                                                                  )
-                                                                                                                                                                                                                )
-                                                                                                                                                                                                                ( Ctor Nothing SumType
-                                                                                                                                                                                                                  ( ModuleName "Data.Maybe" )
-                                                                                                                                                                                                                  ( TyName "Maybe" )
-                                                                                                                                                                                                                  ( CtorName "Just" )
-                                                                                                                                                                                                                  [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                                                                                    ( 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" )
-                                                                                                                                                                                                                        )
-                                                                                                                                                                                                                      )
-                                                                                                                                                                                                                      ( Ctor Nothing SumType
-                                                                                                                                                                                                                        ( ModuleName "Data.Maybe" )
-                                                                                                                                                                                                                        ( TyName "Maybe" )
-                                                                                                                                                                                                                        ( CtorName "Just" )
-                                                                                                                                                                                                                        [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                                                                                          ( 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" )
-                                                                                                                                                                                                                              )
-                                                                                                                                                                                                                            )
-                                                                                                                                                                                                                            ( Ctor Nothing SumType
-                                                                                                                                                                                                                              ( ModuleName "Data.Maybe" )
-                                                                                                                                                                                                                              ( TyName "Maybe" )
-                                                                                                                                                                                                                              ( CtorName "Just" )
-                                                                                                                                                                                                                              [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                                                                                                ( 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" )
-                                                                                                                                                                                                                                    )
-                                                                                                                                                                                                                                  )
-                                                                                                                                                                                                                                  ( Ctor Nothing SumType
-                                                                                                                                                                                                                                    ( ModuleName "Data.Maybe" )
-                                                                                                                                                                                                                                    ( TyName "Maybe" )
-                                                                                                                                                                                                                                    ( CtorName "Just" )
-                                                                                                                                                                                                                                    [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                                                                                                      ( 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" )
-                                                                                                                                                                                                                                          )
-                                                                                                                                                                                                                                        )
-                                                                                                                                                                                                                                        ( Ctor Nothing SumType
-                                                                                                                                                                                                                                          ( ModuleName "Data.Maybe" )
-                                                                                                                                                                                                                                          ( TyName "Maybe" )
-                                                                                                                                                                                                                                          ( CtorName "Just" )
-                                                                                                                                                                                                                                          [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                                                                                                            ( 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" )
-                                                                                                                                                                                                                                                )
-                                                                                                                                                                                                                                              )
-                                                                                                                                                                                                                                              ( Ctor Nothing SumType
-                                                                                                                                                                                                                                                ( ModuleName "Data.Maybe" )
-                                                                                                                                                                                                                                                ( TyName "Maybe" )
-                                                                                                                                                                                                                                                ( CtorName "Just" )
-                                                                                                                                                                                                                                                [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                                                                                                                  ( 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" )
-                                                                                                                                                                                                                                                      )
-                                                                                                                                                                                                                                                    )
-                                                                                                                                                                                                                                                    ( Ctor Nothing SumType
-                                                                                                                                                                                                                                                      ( ModuleName "Data.Maybe" )
-                                                                                                                                                                                                                                                      ( TyName "Maybe" )
-                                                                                                                                                                                                                                                      ( CtorName "Just" )
-                                                                                                                                                                                                                                                      [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                                                                                                                        ( 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" )
-                                                                                                                                                                                                                                                            )
-                                                                                                                                                                                                                                                          )
-                                                                                                                                                                                                                                                          ( Ctor Nothing SumType
-                                                                                                                                                                                                                                                            ( ModuleName "Data.Maybe" )
-                                                                                                                                                                                                                                                            ( TyName "Maybe" )
-                                                                                                                                                                                                                                                            ( CtorName "Just" )
-                                                                                                                                                                                                                                                            [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                                                                                                                              ( Ref Nothing
-                                                                                                                                                                                                                                                                ( Local
-                                                                                                                                                                                                                                                                  ( Name "x276" )
-                                                                                                                                                                                                                                                                )
-                                                                                                                                                                                                                                                              )
-                                                                                                                                                                                                                                                              ( LiteralInt Nothing 1 )
-                                                                                                                                                                                                                                                            ] :|
-                                                                                                                                                                                                                                                            [ AbsN Nothing
-                                                                                                                                                                                                                                                              ( ParamNamed Nothing
-                                                                                                                                                                                                                                                                ( Name "x277" ) :| []
-                                                                                                                                                                                                                                                              )
-                                                                                                                                                                                                                                                              ( AppN Nothing
-                                                                                                                                                                                                                                                                ( Ref Nothing
-                                                                                                                                                                                                                                                                  ( Local
-                                                                                                                                                                                                                                                                    ( Name "$kont1231$w" )
-                                                                                                                                                                                                                                                                  )
-                                                                                                                                                                                                                                                                )
-                                                                                                                                                                                                                                                                ( Ref Nothing
-                                                                                                                                                                                                                                                                  ( Local
-                                                                                                                                                                                                                                                                    ( Name "x1$1235" )
-                                                                                                                                                                                                                                                                  ) :|
-                                                                                                                                                                                                                                                                  [ Ref Nothing
-                                                                                                                                                                                                                                                                    ( Local
-                                                                                                                                                                                                                                                                      ( Name "x277" )
-                                                                                                                                                                                                                                                                    )
-                                                                                                                                                                                                                                                                  ]
-                                                                                                                                                                                                                                                                )
-                                                                                                                                                                                                                                                              )
-                                                                                                                                                                                                                                                            ]
-                                                                                                                                                                                                                                                          )
-                                                                                                                                                                                                                                                        )
-                                                                                                                                                                                                                                                      ]
-                                                                                                                                                                                                                                                    )
-                                                                                                                                                                                                                                                  )
-                                                                                                                                                                                                                                                ]
-                                                                                                                                                                                                                                              )
-                                                                                                                                                                                                                                            )
-                                                                                                                                                                                                                                          ]
-                                                                                                                                                                                                                                        )
-                                                                                                                                                                                                                                      )
-                                                                                                                                                                                                                                    ]
-                                                                                                                                                                                                                                  )
-                                                                                                                                                                                                                                )
-                                                                                                                                                                                                                              ]
-                                                                                                                                                                                                                            )
-                                                                                                                                                                                                                          )
-                                                                                                                                                                                                                        ]
-                                                                                                                                                                                                                      )
-                                                                                                                                                                                                                    )
-                                                                                                                                                                                                                  ]
-                                                                                                                                                                                                                )
-                                                                                                                                                                                                              )
-                                                                                                                                                                                                            ]
-                                                                                                                                                                                                          )
-                                                                                                                                                                                                        )
-                                                                                                                                                                                                      ]
-                                                                                                                                                                                                    )
-                                                                                                                                                                                                  )
-                                                                                                                                                                                                ]
-                                                                                                                                                                                              )
-                                                                                                                                                                                            )
-                                                                                                                                                                                          ]
-                                                                                                                                                                                        )
-                                                                                                                                                                                      )
-                                                                                                                                                                                    ]
-                                                                                                                                                                                  )
-                                                                                                                                                                                )
-                                                                                                                                                                              ]
-                                                                                                                                                                            )
-                                                                                                                                                                          )
-                                                                                                                                                                        ]
-                                                                                                                                                                      )
-                                                                                                                                                                    )
-                                                                                                                                                                  ]
-                                                                                                                                                                )
-                                                                                                                                                              )
-                                                                                                                                                            ]
-                                                                                                                                                          )
-                                                                                                                                                        )
-                                                                                                                                                      ]
-                                                                                                                                                    )
-                                                                                                                                                  )
-                                                                                                                                                ]
-                                                                                                                                              )
-                                                                                                                                            )
-                                                                                                                                          ]
-                                                                                                                                        )
-                                                                                                                                      )
-                                                                                                                                    ]
-                                                                                                                                  )
-                                                                                                                                )
-                                                                                                                              ]
-                                                                                                                            )
-                                                                                                                          )
-                                                                                                                        ]
-                                                                                                                      )
-                                                                                                                    )
-                                                                                                                  ]
-                                                                                                                )
-                                                                                                              )
-                                                                                                            ]
-                                                                                                          )
-                                                                                                        )
-                                                                                                      ]
-                                                                                                    )
-                                                                                                  )
-                                                                                                ]
-                                                                                              )
-                                                                                            )
-                                                                                          ]
-                                                                                        )
-                                                                                      )
-                                                                                    ]
-                                                                                  )
-                                                                                )
-                                                                              ]
-                                                                            )
-                                                                          )
-                                                                        ]
-                                                                      )
-                                                                    )
-                                                                  ]
-                                                                )
-                                                              )
-                                                            ]
-                                                          )
-                                                        )
-                                                      ]
-                                                    )
-                                                  )
-                                                ]
-                                              )
-                                            )
-                                          ]
-                                        )
-                                      )
-                                    ]
-                                  )
-                                )
-                              ]
-                            )
-                          )
-                        ]
-                      )
-                    )
-                  ]
-                )
-              )
-            ), Standalone
-            ( Nothing, Name "$kont1237$w", AbsN Nothing
-              ( ParamNamed Nothing
-                ( Name "x1$1238" ) :|
-                [ ParamNamed Nothing ( Name "x198$1239" ) ]
-              )
-              ( AppN Nothing
-                ( Ref Nothing
-                  ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind$w" ) )
-                )
-                ( Ctor Nothing SumType
-                  ( ModuleName "Data.Maybe" )
-                  ( TyName "Maybe" )
-                  ( CtorName "Just" )
-                  [ PrimBinOp Nothing PrimAdd
-                    ( Ref Nothing ( Local ( Name "x198$1239" ) ) )
-                    ( LiteralInt Nothing 1 )
-                  ] :|
-                  [ AbsN Nothing
-                    ( ParamNamed Nothing ( Name "x199" ) :| [] )
-                    ( AppN Nothing
-                      ( Ref Nothing
-                        ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind$w" ) )
-                      )
-                      ( Ctor Nothing SumType
-                        ( ModuleName "Data.Maybe" )
-                        ( TyName "Maybe" )
-                        ( CtorName "Just" )
-                        [ PrimBinOp Nothing PrimAdd
-                          ( 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" )
-                              )
-                            )
-                            ( Ctor Nothing SumType
-                              ( ModuleName "Data.Maybe" )
-                              ( TyName "Maybe" )
-                              ( CtorName "Just" )
-                              [ PrimBinOp Nothing PrimAdd
-                                ( 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" )
-                                    )
-                                  )
-                                  ( Ctor Nothing SumType
-                                    ( ModuleName "Data.Maybe" )
-                                    ( TyName "Maybe" )
-                                    ( CtorName "Just" )
-                                    [ PrimBinOp Nothing PrimAdd
-                                      ( 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" )
-                                          )
-                                        )
-                                        ( Ctor Nothing SumType
-                                          ( ModuleName "Data.Maybe" )
-                                          ( TyName "Maybe" )
-                                          ( CtorName "Just" )
-                                          [ PrimBinOp Nothing PrimAdd
-                                            ( 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" )
-                                                )
-                                              )
-                                              ( Ctor Nothing SumType
-                                                ( ModuleName "Data.Maybe" )
-                                                ( TyName "Maybe" )
-                                                ( CtorName "Just" )
-                                                [ PrimBinOp Nothing PrimAdd
-                                                  ( 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" )
-                                                      )
-                                                    )
-                                                    ( Ctor Nothing SumType
-                                                      ( ModuleName "Data.Maybe" )
-                                                      ( TyName "Maybe" )
-                                                      ( CtorName "Just" )
-                                                      [ PrimBinOp Nothing PrimAdd
-                                                        ( 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" )
-                                                            )
-                                                          )
-                                                          ( Ctor Nothing SumType
-                                                            ( ModuleName "Data.Maybe" )
-                                                            ( TyName "Maybe" )
-                                                            ( CtorName "Just" )
-                                                            [ PrimBinOp Nothing PrimAdd
-                                                              ( 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" )
-                                                                  )
-                                                                )
-                                                                ( Ctor Nothing SumType
-                                                                  ( ModuleName "Data.Maybe" )
-                                                                  ( TyName "Maybe" )
-                                                                  ( CtorName "Just" )
-                                                                  [ PrimBinOp Nothing PrimAdd
-                                                                    ( 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" )
-                                                                        )
-                                                                      )
-                                                                      ( Ctor Nothing SumType
-                                                                        ( ModuleName "Data.Maybe" )
-                                                                        ( TyName "Maybe" )
-                                                                        ( CtorName "Just" )
-                                                                        [ PrimBinOp Nothing PrimAdd
-                                                                          ( 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" )
-                                                                              )
-                                                                            )
-                                                                            ( Ctor Nothing SumType
-                                                                              ( ModuleName "Data.Maybe" )
-                                                                              ( TyName "Maybe" )
-                                                                              ( CtorName "Just" )
-                                                                              [ PrimBinOp Nothing PrimAdd
-                                                                                ( 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" )
-                                                                                    )
-                                                                                  )
-                                                                                  ( Ctor Nothing SumType
-                                                                                    ( ModuleName "Data.Maybe" )
-                                                                                    ( TyName "Maybe" )
-                                                                                    ( CtorName "Just" )
-                                                                                    [ PrimBinOp Nothing PrimAdd
-                                                                                      ( Ref Nothing
-                                                                                        ( Local
-                                                                                          ( Name "x209" )
-                                                                                        )
-                                                                                      )
-                                                                                      ( LiteralInt Nothing 1 )
-                                                                                    ] :|
-                                                                                    [ AbsN Nothing
-                                                                                      ( ParamNamed Nothing
-                                                                                        ( Name "x210" ) :| []
-                                                                                      )
-                                                                                      ( AppN Nothing
-                                                                                        ( Ref Nothing
-                                                                                          ( Imported
-                                                                                            ( ModuleName "Golden.LongMaybeBind.Test" )
-                                                                                            ( Name "bind$w" )
-                                                                                          )
-                                                                                        )
-                                                                                        ( Ctor Nothing SumType
-                                                                                          ( ModuleName "Data.Maybe" )
-                                                                                          ( TyName "Maybe" )
-                                                                                          ( CtorName "Just" )
-                                                                                          [ PrimBinOp Nothing PrimAdd
-                                                                                            ( 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" )
-                                                                                                )
-                                                                                              )
-                                                                                              ( Ctor Nothing SumType
-                                                                                                ( ModuleName "Data.Maybe" )
-                                                                                                ( TyName "Maybe" )
-                                                                                                ( CtorName "Just" )
-                                                                                                [ PrimBinOp Nothing PrimAdd
-                                                                                                  ( 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" )
-                                                                                                      )
-                                                                                                    )
-                                                                                                    ( Ctor Nothing SumType
-                                                                                                      ( ModuleName "Data.Maybe" )
-                                                                                                      ( TyName "Maybe" )
-                                                                                                      ( CtorName "Just" )
-                                                                                                      [ PrimBinOp Nothing PrimAdd
-                                                                                                        ( 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" )
-                                                                                                            )
-                                                                                                          )
-                                                                                                          ( Ctor Nothing SumType
-                                                                                                            ( ModuleName "Data.Maybe" )
-                                                                                                            ( TyName "Maybe" )
-                                                                                                            ( CtorName "Just" )
-                                                                                                            [ PrimBinOp Nothing PrimAdd
-                                                                                                              ( 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" )
-                                                                                                                  )
-                                                                                                                )
-                                                                                                                ( Ctor Nothing SumType
-                                                                                                                  ( ModuleName "Data.Maybe" )
-                                                                                                                  ( TyName "Maybe" )
-                                                                                                                  ( CtorName "Just" )
-                                                                                                                  [ PrimBinOp Nothing PrimAdd
-                                                                                                                    ( 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" )
-                                                                                                                        )
-                                                                                                                      )
-                                                                                                                      ( Ctor Nothing SumType
-                                                                                                                        ( ModuleName "Data.Maybe" )
-                                                                                                                        ( TyName "Maybe" )
-                                                                                                                        ( CtorName "Just" )
-                                                                                                                        [ PrimBinOp Nothing PrimAdd
-                                                                                                                          ( 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" )
-                                                                                                                              )
-                                                                                                                            )
-                                                                                                                            ( Ctor Nothing SumType
-                                                                                                                              ( ModuleName "Data.Maybe" )
-                                                                                                                              ( TyName "Maybe" )
-                                                                                                                              ( CtorName "Just" )
-                                                                                                                              [ PrimBinOp Nothing PrimAdd
-                                                                                                                                ( 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" )
-                                                                                                                                    )
-                                                                                                                                  )
-                                                                                                                                  ( Ctor Nothing SumType
-                                                                                                                                    ( ModuleName "Data.Maybe" )
-                                                                                                                                    ( TyName "Maybe" )
-                                                                                                                                    ( CtorName "Just" )
-                                                                                                                                    [ PrimBinOp Nothing PrimAdd
-                                                                                                                                      ( 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" )
-                                                                                                                                          )
-                                                                                                                                        )
-                                                                                                                                        ( Ctor Nothing SumType
-                                                                                                                                          ( ModuleName "Data.Maybe" )
-                                                                                                                                          ( TyName "Maybe" )
-                                                                                                                                          ( CtorName "Just" )
-                                                                                                                                          [ PrimBinOp Nothing PrimAdd
-                                                                                                                                            ( 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" )
-                                                                                                                                                )
-                                                                                                                                              )
-                                                                                                                                              ( Ctor Nothing SumType
-                                                                                                                                                ( ModuleName "Data.Maybe" )
-                                                                                                                                                ( TyName "Maybe" )
-                                                                                                                                                ( CtorName "Just" )
-                                                                                                                                                [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                  ( 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" )
-                                                                                                                                                      )
-                                                                                                                                                    )
-                                                                                                                                                    ( Ctor Nothing SumType
-                                                                                                                                                      ( ModuleName "Data.Maybe" )
-                                                                                                                                                      ( TyName "Maybe" )
-                                                                                                                                                      ( CtorName "Just" )
-                                                                                                                                                      [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                        ( 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" )
-                                                                                                                                                            )
-                                                                                                                                                          )
-                                                                                                                                                          ( Ctor Nothing SumType
-                                                                                                                                                            ( ModuleName "Data.Maybe" )
-                                                                                                                                                            ( TyName "Maybe" )
-                                                                                                                                                            ( CtorName "Just" )
-                                                                                                                                                            [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                              ( 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" )
-                                                                                                                                                                  )
-                                                                                                                                                                )
-                                                                                                                                                                ( Ctor Nothing SumType
-                                                                                                                                                                  ( ModuleName "Data.Maybe" )
-                                                                                                                                                                  ( TyName "Maybe" )
-                                                                                                                                                                  ( CtorName "Just" )
-                                                                                                                                                                  [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                                    ( 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" )
-                                                                                                                                                                        )
-                                                                                                                                                                      )
-                                                                                                                                                                      ( Ctor Nothing SumType
-                                                                                                                                                                        ( ModuleName "Data.Maybe" )
-                                                                                                                                                                        ( TyName "Maybe" )
-                                                                                                                                                                        ( CtorName "Just" )
-                                                                                                                                                                        [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                                          ( 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" )
-                                                                                                                                                                              )
-                                                                                                                                                                            )
-                                                                                                                                                                            ( Ctor Nothing SumType
-                                                                                                                                                                              ( ModuleName "Data.Maybe" )
-                                                                                                                                                                              ( TyName "Maybe" )
-                                                                                                                                                                              ( CtorName "Just" )
-                                                                                                                                                                              [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                                                ( 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" )
-                                                                                                                                                                                    )
-                                                                                                                                                                                  )
-                                                                                                                                                                                  ( Ctor Nothing SumType
-                                                                                                                                                                                    ( ModuleName "Data.Maybe" )
-                                                                                                                                                                                    ( TyName "Maybe" )
-                                                                                                                                                                                    ( CtorName "Just" )
-                                                                                                                                                                                    [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                                                      ( 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" )
-                                                                                                                                                                                          )
-                                                                                                                                                                                        )
-                                                                                                                                                                                        ( Ctor Nothing SumType
-                                                                                                                                                                                          ( ModuleName "Data.Maybe" )
-                                                                                                                                                                                          ( TyName "Maybe" )
-                                                                                                                                                                                          ( CtorName "Just" )
-                                                                                                                                                                                          [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                                                            ( 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" )
-                                                                                                                                                                                                )
-                                                                                                                                                                                              )
-                                                                                                                                                                                              ( Ctor Nothing SumType
-                                                                                                                                                                                                ( ModuleName "Data.Maybe" )
-                                                                                                                                                                                                ( TyName "Maybe" )
-                                                                                                                                                                                                ( CtorName "Just" )
-                                                                                                                                                                                                [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                                                                  ( 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" )
-                                                                                                                                                                                                      )
-                                                                                                                                                                                                    )
-                                                                                                                                                                                                    ( Ctor Nothing SumType
-                                                                                                                                                                                                      ( ModuleName "Data.Maybe" )
-                                                                                                                                                                                                      ( TyName "Maybe" )
-                                                                                                                                                                                                      ( CtorName "Just" )
-                                                                                                                                                                                                      [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                                                                        ( 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" )
-                                                                                                                                                                                                            )
-                                                                                                                                                                                                          )
-                                                                                                                                                                                                          ( Ctor Nothing SumType
-                                                                                                                                                                                                            ( ModuleName "Data.Maybe" )
-                                                                                                                                                                                                            ( TyName "Maybe" )
-                                                                                                                                                                                                            ( CtorName "Just" )
-                                                                                                                                                                                                            [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                                                                              ( 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" )
-                                                                                                                                                                                                                  )
-                                                                                                                                                                                                                )
-                                                                                                                                                                                                                ( Ctor Nothing SumType
-                                                                                                                                                                                                                  ( ModuleName "Data.Maybe" )
-                                                                                                                                                                                                                  ( TyName "Maybe" )
-                                                                                                                                                                                                                  ( CtorName "Just" )
-                                                                                                                                                                                                                  [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                                                                                    ( 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" )
-                                                                                                                                                                                                                        )
-                                                                                                                                                                                                                      )
-                                                                                                                                                                                                                      ( Ctor Nothing SumType
-                                                                                                                                                                                                                        ( ModuleName "Data.Maybe" )
-                                                                                                                                                                                                                        ( TyName "Maybe" )
-                                                                                                                                                                                                                        ( CtorName "Just" )
-                                                                                                                                                                                                                        [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                                                                                          ( 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" )
-                                                                                                                                                                                                                              )
-                                                                                                                                                                                                                            )
-                                                                                                                                                                                                                            ( Ctor Nothing SumType
-                                                                                                                                                                                                                              ( ModuleName "Data.Maybe" )
-                                                                                                                                                                                                                              ( TyName "Maybe" )
-                                                                                                                                                                                                                              ( CtorName "Just" )
-                                                                                                                                                                                                                              [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                                                                                                ( 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" )
-                                                                                                                                                                                                                                    )
-                                                                                                                                                                                                                                  )
-                                                                                                                                                                                                                                  ( Ctor Nothing SumType
-                                                                                                                                                                                                                                    ( ModuleName "Data.Maybe" )
-                                                                                                                                                                                                                                    ( TyName "Maybe" )
-                                                                                                                                                                                                                                    ( CtorName "Just" )
-                                                                                                                                                                                                                                    [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                                                                                                      ( 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" )
-                                                                                                                                                                                                                                          )
-                                                                                                                                                                                                                                        )
-                                                                                                                                                                                                                                        ( Ctor Nothing SumType
-                                                                                                                                                                                                                                          ( ModuleName "Data.Maybe" )
-                                                                                                                                                                                                                                          ( TyName "Maybe" )
-                                                                                                                                                                                                                                          ( CtorName "Just" )
-                                                                                                                                                                                                                                          [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                                                                                                            ( 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" )
-                                                                                                                                                                                                                                                )
-                                                                                                                                                                                                                                              )
-                                                                                                                                                                                                                                              ( Ctor Nothing SumType
-                                                                                                                                                                                                                                                ( ModuleName "Data.Maybe" )
-                                                                                                                                                                                                                                                ( TyName "Maybe" )
-                                                                                                                                                                                                                                                ( CtorName "Just" )
-                                                                                                                                                                                                                                                [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                                                                                                                  ( 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" )
-                                                                                                                                                                                                                                                      )
-                                                                                                                                                                                                                                                    )
-                                                                                                                                                                                                                                                    ( Ctor Nothing SumType
-                                                                                                                                                                                                                                                      ( ModuleName "Data.Maybe" )
-                                                                                                                                                                                                                                                      ( TyName "Maybe" )
-                                                                                                                                                                                                                                                      ( CtorName "Just" )
-                                                                                                                                                                                                                                                      [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                                                                                                                        ( 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" )
-                                                                                                                                                                                                                                                            )
-                                                                                                                                                                                                                                                          )
-                                                                                                                                                                                                                                                          ( Ctor Nothing SumType
-                                                                                                                                                                                                                                                            ( ModuleName "Data.Maybe" )
-                                                                                                                                                                                                                                                            ( TyName "Maybe" )
-                                                                                                                                                                                                                                                            ( CtorName "Just" )
-                                                                                                                                                                                                                                                            [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                                                                                                                              ( Ref Nothing
-                                                                                                                                                                                                                                                                ( Local
-                                                                                                                                                                                                                                                                  ( Name "x237" )
-                                                                                                                                                                                                                                                                )
-                                                                                                                                                                                                                                                              )
-                                                                                                                                                                                                                                                              ( LiteralInt Nothing 1 )
-                                                                                                                                                                                                                                                            ] :|
-                                                                                                                                                                                                                                                            [ AbsN Nothing
-                                                                                                                                                                                                                                                              ( ParamNamed Nothing
-                                                                                                                                                                                                                                                                ( Name "x238" ) :| []
-                                                                                                                                                                                                                                                              )
-                                                                                                                                                                                                                                                              ( AppN Nothing
-                                                                                                                                                                                                                                                                ( Ref Nothing
-                                                                                                                                                                                                                                                                  ( Local
-                                                                                                                                                                                                                                                                    ( Name "$kont1234$w" )
-                                                                                                                                                                                                                                                                  )
-                                                                                                                                                                                                                                                                )
-                                                                                                                                                                                                                                                                ( Ref Nothing
-                                                                                                                                                                                                                                                                  ( Local
-                                                                                                                                                                                                                                                                    ( Name "x1$1238" )
-                                                                                                                                                                                                                                                                  ) :|
-                                                                                                                                                                                                                                                                  [ Ref Nothing
-                                                                                                                                                                                                                                                                    ( Local
-                                                                                                                                                                                                                                                                      ( Name "x238" )
-                                                                                                                                                                                                                                                                    )
-                                                                                                                                                                                                                                                                  ]
-                                                                                                                                                                                                                                                                )
-                                                                                                                                                                                                                                                              )
-                                                                                                                                                                                                                                                            ]
-                                                                                                                                                                                                                                                          )
-                                                                                                                                                                                                                                                        )
-                                                                                                                                                                                                                                                      ]
-                                                                                                                                                                                                                                                    )
-                                                                                                                                                                                                                                                  )
-                                                                                                                                                                                                                                                ]
-                                                                                                                                                                                                                                              )
-                                                                                                                                                                                                                                            )
-                                                                                                                                                                                                                                          ]
-                                                                                                                                                                                                                                        )
-                                                                                                                                                                                                                                      )
-                                                                                                                                                                                                                                    ]
-                                                                                                                                                                                                                                  )
-                                                                                                                                                                                                                                )
-                                                                                                                                                                                                                              ]
-                                                                                                                                                                                                                            )
-                                                                                                                                                                                                                          )
-                                                                                                                                                                                                                        ]
-                                                                                                                                                                                                                      )
-                                                                                                                                                                                                                    )
-                                                                                                                                                                                                                  ]
-                                                                                                                                                                                                                )
-                                                                                                                                                                                                              )
-                                                                                                                                                                                                            ]
-                                                                                                                                                                                                          )
-                                                                                                                                                                                                        )
-                                                                                                                                                                                                      ]
-                                                                                                                                                                                                    )
-                                                                                                                                                                                                  )
-                                                                                                                                                                                                ]
-                                                                                                                                                                                              )
-                                                                                                                                                                                            )
-                                                                                                                                                                                          ]
-                                                                                                                                                                                        )
-                                                                                                                                                                                      )
-                                                                                                                                                                                    ]
-                                                                                                                                                                                  )
-                                                                                                                                                                                )
-                                                                                                                                                                              ]
-                                                                                                                                                                            )
-                                                                                                                                                                          )
-                                                                                                                                                                        ]
-                                                                                                                                                                      )
-                                                                                                                                                                    )
-                                                                                                                                                                  ]
-                                                                                                                                                                )
-                                                                                                                                                              )
-                                                                                                                                                            ]
-                                                                                                                                                          )
-                                                                                                                                                        )
-                                                                                                                                                      ]
-                                                                                                                                                    )
-                                                                                                                                                  )
-                                                                                                                                                ]
-                                                                                                                                              )
-                                                                                                                                            )
-                                                                                                                                          ]
-                                                                                                                                        )
-                                                                                                                                      )
-                                                                                                                                    ]
-                                                                                                                                  )
-                                                                                                                                )
-                                                                                                                              ]
-                                                                                                                            )
-                                                                                                                          )
-                                                                                                                        ]
-                                                                                                                      )
-                                                                                                                    )
-                                                                                                                  ]
-                                                                                                                )
-                                                                                                              )
-                                                                                                            ]
-                                                                                                          )
-                                                                                                        )
-                                                                                                      ]
-                                                                                                    )
-                                                                                                  )
-                                                                                                ]
-                                                                                              )
-                                                                                            )
-                                                                                          ]
-                                                                                        )
-                                                                                      )
-                                                                                    ]
-                                                                                  )
-                                                                                )
-                                                                              ]
-                                                                            )
-                                                                          )
-                                                                        ]
-                                                                      )
-                                                                    )
-                                                                  ]
-                                                                )
-                                                              )
-                                                            ]
-                                                          )
-                                                        )
-                                                      ]
-                                                    )
-                                                  )
-                                                ]
-                                              )
-                                            )
-                                          ]
-                                        )
-                                      )
-                                    ]
-                                  )
-                                )
-                              ]
-                            )
-                          )
-                        ]
-                      )
-                    )
-                  ]
-                )
-              )
-            ), Standalone
-            ( Nothing, Name "$kont1240$w", AbsN Nothing
-              ( ParamNamed Nothing
-                ( Name "x1$1241" ) :|
-                [ ParamNamed Nothing ( Name "x158$1242" ) ]
-              )
-              ( AppN Nothing
-                ( Ref Nothing
-                  ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind$w" ) )
-                )
-                ( Ctor Nothing SumType
-                  ( ModuleName "Data.Maybe" )
-                  ( TyName "Maybe" )
-                  ( CtorName "Just" )
-                  [ PrimBinOp Nothing PrimAdd
-                    ( Ref Nothing ( Local ( Name "x158$1242" ) ) )
-                    ( LiteralInt Nothing 1 )
-                  ] :|
-                  [ AbsN Nothing
-                    ( ParamNamed Nothing ( Name "x159" ) :| [] )
-                    ( AppN Nothing
-                      ( Ref Nothing
-                        ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind$w" ) )
-                      )
-                      ( Ctor Nothing SumType
-                        ( ModuleName "Data.Maybe" )
-                        ( TyName "Maybe" )
-                        ( CtorName "Just" )
-                        [ PrimBinOp Nothing PrimAdd
-                          ( 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" )
-                              )
-                            )
-                            ( Ctor Nothing SumType
-                              ( ModuleName "Data.Maybe" )
-                              ( TyName "Maybe" )
-                              ( CtorName "Just" )
-                              [ PrimBinOp Nothing PrimAdd
-                                ( 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" )
-                                    )
-                                  )
-                                  ( Ctor Nothing SumType
-                                    ( ModuleName "Data.Maybe" )
-                                    ( TyName "Maybe" )
-                                    ( CtorName "Just" )
-                                    [ PrimBinOp Nothing PrimAdd
-                                      ( 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" )
-                                          )
-                                        )
-                                        ( Ctor Nothing SumType
-                                          ( ModuleName "Data.Maybe" )
-                                          ( TyName "Maybe" )
-                                          ( CtorName "Just" )
-                                          [ PrimBinOp Nothing PrimAdd
-                                            ( 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" )
-                                                )
-                                              )
-                                              ( Ctor Nothing SumType
-                                                ( ModuleName "Data.Maybe" )
-                                                ( TyName "Maybe" )
-                                                ( CtorName "Just" )
-                                                [ PrimBinOp Nothing PrimAdd
-                                                  ( 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" )
-                                                      )
-                                                    )
-                                                    ( Ctor Nothing SumType
-                                                      ( ModuleName "Data.Maybe" )
-                                                      ( TyName "Maybe" )
-                                                      ( CtorName "Just" )
-                                                      [ PrimBinOp Nothing PrimAdd
-                                                        ( 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" )
-                                                            )
-                                                          )
-                                                          ( Ctor Nothing SumType
-                                                            ( ModuleName "Data.Maybe" )
-                                                            ( TyName "Maybe" )
-                                                            ( CtorName "Just" )
-                                                            [ PrimBinOp Nothing PrimAdd
-                                                              ( 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" )
-                                                                  )
-                                                                )
-                                                                ( Ctor Nothing SumType
-                                                                  ( ModuleName "Data.Maybe" )
-                                                                  ( TyName "Maybe" )
-                                                                  ( CtorName "Just" )
-                                                                  [ PrimBinOp Nothing PrimAdd
-                                                                    ( 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" )
-                                                                        )
-                                                                      )
-                                                                      ( Ctor Nothing SumType
-                                                                        ( ModuleName "Data.Maybe" )
-                                                                        ( TyName "Maybe" )
-                                                                        ( CtorName "Just" )
-                                                                        [ PrimBinOp Nothing PrimAdd
-                                                                          ( Ref Nothing
-                                                                            ( Local
-                                                                              ( Name "x167" )
-                                                                            )
-                                                                          )
-                                                                          ( LiteralInt Nothing 1 )
-                                                                        ] :|
-                                                                        [ AbsN Nothing
-                                                                          ( ParamNamed Nothing
-                                                                            ( Name "x168" ) :| []
-                                                                          )
-                                                                          ( AppN Nothing
-                                                                            ( Ref Nothing
-                                                                              ( Imported
-                                                                                ( ModuleName "Golden.LongMaybeBind.Test" )
-                                                                                ( Name "bind$w" )
-                                                                              )
-                                                                            )
-                                                                            ( Ctor Nothing SumType
-                                                                              ( ModuleName "Data.Maybe" )
-                                                                              ( TyName "Maybe" )
-                                                                              ( CtorName "Just" )
-                                                                              [ PrimBinOp Nothing PrimAdd
-                                                                                ( 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" )
-                                                                                    )
-                                                                                  )
-                                                                                  ( Ctor Nothing SumType
-                                                                                    ( ModuleName "Data.Maybe" )
-                                                                                    ( TyName "Maybe" )
-                                                                                    ( CtorName "Just" )
-                                                                                    [ PrimBinOp Nothing PrimAdd
-                                                                                      ( 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" )
-                                                                                          )
-                                                                                        )
-                                                                                        ( Ctor Nothing SumType
-                                                                                          ( ModuleName "Data.Maybe" )
-                                                                                          ( TyName "Maybe" )
-                                                                                          ( CtorName "Just" )
-                                                                                          [ PrimBinOp Nothing PrimAdd
-                                                                                            ( 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" )
-                                                                                                )
-                                                                                              )
-                                                                                              ( Ctor Nothing SumType
-                                                                                                ( ModuleName "Data.Maybe" )
-                                                                                                ( TyName "Maybe" )
-                                                                                                ( CtorName "Just" )
-                                                                                                [ PrimBinOp Nothing PrimAdd
-                                                                                                  ( 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" )
-                                                                                                      )
-                                                                                                    )
-                                                                                                    ( Ctor Nothing SumType
-                                                                                                      ( ModuleName "Data.Maybe" )
-                                                                                                      ( TyName "Maybe" )
-                                                                                                      ( CtorName "Just" )
-                                                                                                      [ PrimBinOp Nothing PrimAdd
-                                                                                                        ( 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" )
-                                                                                                            )
-                                                                                                          )
-                                                                                                          ( Ctor Nothing SumType
-                                                                                                            ( ModuleName "Data.Maybe" )
-                                                                                                            ( TyName "Maybe" )
-                                                                                                            ( CtorName "Just" )
-                                                                                                            [ PrimBinOp Nothing PrimAdd
-                                                                                                              ( 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" )
-                                                                                                                  )
-                                                                                                                )
-                                                                                                                ( Ctor Nothing SumType
-                                                                                                                  ( ModuleName "Data.Maybe" )
-                                                                                                                  ( TyName "Maybe" )
-                                                                                                                  ( CtorName "Just" )
-                                                                                                                  [ PrimBinOp Nothing PrimAdd
-                                                                                                                    ( 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" )
-                                                                                                                        )
-                                                                                                                      )
-                                                                                                                      ( Ctor Nothing SumType
-                                                                                                                        ( ModuleName "Data.Maybe" )
-                                                                                                                        ( TyName "Maybe" )
-                                                                                                                        ( CtorName "Just" )
-                                                                                                                        [ PrimBinOp Nothing PrimAdd
-                                                                                                                          ( 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" )
-                                                                                                                              )
-                                                                                                                            )
-                                                                                                                            ( Ctor Nothing SumType
-                                                                                                                              ( ModuleName "Data.Maybe" )
-                                                                                                                              ( TyName "Maybe" )
-                                                                                                                              ( CtorName "Just" )
-                                                                                                                              [ PrimBinOp Nothing PrimAdd
-                                                                                                                                ( 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" )
-                                                                                                                                    )
-                                                                                                                                  )
-                                                                                                                                  ( Ctor Nothing SumType
-                                                                                                                                    ( ModuleName "Data.Maybe" )
-                                                                                                                                    ( TyName "Maybe" )
-                                                                                                                                    ( CtorName "Just" )
-                                                                                                                                    [ PrimBinOp Nothing PrimAdd
-                                                                                                                                      ( 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" )
-                                                                                                                                          )
-                                                                                                                                        )
-                                                                                                                                        ( Ctor Nothing SumType
-                                                                                                                                          ( ModuleName "Data.Maybe" )
-                                                                                                                                          ( TyName "Maybe" )
-                                                                                                                                          ( CtorName "Just" )
-                                                                                                                                          [ PrimBinOp Nothing PrimAdd
-                                                                                                                                            ( 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" )
-                                                                                                                                                )
-                                                                                                                                              )
-                                                                                                                                              ( Ctor Nothing SumType
-                                                                                                                                                ( ModuleName "Data.Maybe" )
-                                                                                                                                                ( TyName "Maybe" )
-                                                                                                                                                ( CtorName "Just" )
-                                                                                                                                                [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                  ( 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" )
-                                                                                                                                                      )
-                                                                                                                                                    )
-                                                                                                                                                    ( Ctor Nothing SumType
-                                                                                                                                                      ( ModuleName "Data.Maybe" )
-                                                                                                                                                      ( TyName "Maybe" )
-                                                                                                                                                      ( CtorName "Just" )
-                                                                                                                                                      [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                        ( Ref Nothing
-                                                                                                                                                          ( Local
-                                                                                                                                                            ( Name "x180" )
-                                                                                                                                                          )
-                                                                                                                                                        )
-                                                                                                                                                        ( LiteralInt Nothing 1 )
-                                                                                                                                                      ] :|
-                                                                                                                                                      [ AbsN Nothing
-                                                                                                                                                        ( ParamNamed Nothing
-                                                                                                                                                          ( Name "x181" ) :| []
-                                                                                                                                                        )
-                                                                                                                                                        ( AppN Nothing
-                                                                                                                                                          ( Ref Nothing
-                                                                                                                                                            ( Imported
-                                                                                                                                                              ( ModuleName "Golden.LongMaybeBind.Test" )
-                                                                                                                                                              ( Name "bind$w" )
-                                                                                                                                                            )
-                                                                                                                                                          )
-                                                                                                                                                          ( Ctor Nothing SumType
-                                                                                                                                                            ( ModuleName "Data.Maybe" )
-                                                                                                                                                            ( TyName "Maybe" )
-                                                                                                                                                            ( CtorName "Just" )
-                                                                                                                                                            [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                              ( 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" )
-                                                                                                                                                                  )
-                                                                                                                                                                )
-                                                                                                                                                                ( Ctor Nothing SumType
-                                                                                                                                                                  ( ModuleName "Data.Maybe" )
-                                                                                                                                                                  ( TyName "Maybe" )
-                                                                                                                                                                  ( CtorName "Just" )
-                                                                                                                                                                  [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                                    ( 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" )
-                                                                                                                                                                        )
-                                                                                                                                                                      )
-                                                                                                                                                                      ( Ctor Nothing SumType
-                                                                                                                                                                        ( ModuleName "Data.Maybe" )
-                                                                                                                                                                        ( TyName "Maybe" )
-                                                                                                                                                                        ( CtorName "Just" )
-                                                                                                                                                                        [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                                          ( 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" )
-                                                                                                                                                                              )
-                                                                                                                                                                            )
-                                                                                                                                                                            ( Ctor Nothing SumType
-                                                                                                                                                                              ( ModuleName "Data.Maybe" )
-                                                                                                                                                                              ( TyName "Maybe" )
-                                                                                                                                                                              ( CtorName "Just" )
-                                                                                                                                                                              [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                                                ( 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" )
-                                                                                                                                                                                    )
-                                                                                                                                                                                  )
-                                                                                                                                                                                  ( Ctor Nothing SumType
-                                                                                                                                                                                    ( ModuleName "Data.Maybe" )
-                                                                                                                                                                                    ( TyName "Maybe" )
-                                                                                                                                                                                    ( CtorName "Just" )
-                                                                                                                                                                                    [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                                                      ( 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" )
-                                                                                                                                                                                          )
-                                                                                                                                                                                        )
-                                                                                                                                                                                        ( Ctor Nothing SumType
-                                                                                                                                                                                          ( ModuleName "Data.Maybe" )
-                                                                                                                                                                                          ( TyName "Maybe" )
-                                                                                                                                                                                          ( CtorName "Just" )
-                                                                                                                                                                                          [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                                                            ( 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" )
-                                                                                                                                                                                                )
-                                                                                                                                                                                              )
-                                                                                                                                                                                              ( Ctor Nothing SumType
-                                                                                                                                                                                                ( ModuleName "Data.Maybe" )
-                                                                                                                                                                                                ( TyName "Maybe" )
-                                                                                                                                                                                                ( CtorName "Just" )
-                                                                                                                                                                                                [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                                                                  ( 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" )
-                                                                                                                                                                                                      )
-                                                                                                                                                                                                    )
-                                                                                                                                                                                                    ( Ctor Nothing SumType
-                                                                                                                                                                                                      ( ModuleName "Data.Maybe" )
-                                                                                                                                                                                                      ( TyName "Maybe" )
-                                                                                                                                                                                                      ( CtorName "Just" )
-                                                                                                                                                                                                      [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                                                                        ( 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" )
-                                                                                                                                                                                                            )
-                                                                                                                                                                                                          )
-                                                                                                                                                                                                          ( Ctor Nothing SumType
-                                                                                                                                                                                                            ( ModuleName "Data.Maybe" )
-                                                                                                                                                                                                            ( TyName "Maybe" )
-                                                                                                                                                                                                            ( CtorName "Just" )
-                                                                                                                                                                                                            [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                                                                              ( 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" )
-                                                                                                                                                                                                                  )
-                                                                                                                                                                                                                )
-                                                                                                                                                                                                                ( Ctor Nothing SumType
-                                                                                                                                                                                                                  ( ModuleName "Data.Maybe" )
-                                                                                                                                                                                                                  ( TyName "Maybe" )
-                                                                                                                                                                                                                  ( CtorName "Just" )
-                                                                                                                                                                                                                  [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                                                                                    ( 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" )
-                                                                                                                                                                                                                        )
-                                                                                                                                                                                                                      )
-                                                                                                                                                                                                                      ( Ctor Nothing SumType
-                                                                                                                                                                                                                        ( ModuleName "Data.Maybe" )
-                                                                                                                                                                                                                        ( TyName "Maybe" )
-                                                                                                                                                                                                                        ( CtorName "Just" )
-                                                                                                                                                                                                                        [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                                                                                          ( 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" )
-                                                                                                                                                                                                                              )
-                                                                                                                                                                                                                            )
-                                                                                                                                                                                                                            ( Ctor Nothing SumType
-                                                                                                                                                                                                                              ( ModuleName "Data.Maybe" )
-                                                                                                                                                                                                                              ( TyName "Maybe" )
-                                                                                                                                                                                                                              ( CtorName "Just" )
-                                                                                                                                                                                                                              [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                                                                                                ( 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" )
-                                                                                                                                                                                                                                    )
-                                                                                                                                                                                                                                  )
-                                                                                                                                                                                                                                  ( Ctor Nothing SumType
-                                                                                                                                                                                                                                    ( ModuleName "Data.Maybe" )
-                                                                                                                                                                                                                                    ( TyName "Maybe" )
-                                                                                                                                                                                                                                    ( CtorName "Just" )
-                                                                                                                                                                                                                                    [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                                                                                                      ( 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" )
-                                                                                                                                                                                                                                          )
-                                                                                                                                                                                                                                        )
-                                                                                                                                                                                                                                        ( Ctor Nothing SumType
-                                                                                                                                                                                                                                          ( ModuleName "Data.Maybe" )
-                                                                                                                                                                                                                                          ( TyName "Maybe" )
-                                                                                                                                                                                                                                          ( CtorName "Just" )
-                                                                                                                                                                                                                                          [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                                                                                                            ( 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" )
-                                                                                                                                                                                                                                                )
-                                                                                                                                                                                                                                              )
-                                                                                                                                                                                                                                              ( Ctor Nothing SumType
-                                                                                                                                                                                                                                                ( ModuleName "Data.Maybe" )
-                                                                                                                                                                                                                                                ( TyName "Maybe" )
-                                                                                                                                                                                                                                                ( CtorName "Just" )
-                                                                                                                                                                                                                                                [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                                                                                                                  ( Ref Nothing
-                                                                                                                                                                                                                                                    ( Local
-                                                                                                                                                                                                                                                      ( Name "x195" )
-                                                                                                                                                                                                                                                    )
-                                                                                                                                                                                                                                                  )
-                                                                                                                                                                                                                                                  ( LiteralInt Nothing 1 )
-                                                                                                                                                                                                                                                ] :|
-                                                                                                                                                                                                                                                [ AbsN Nothing
-                                                                                                                                                                                                                                                  ( ParamNamed Nothing
-                                                                                                                                                                                                                                                    ( Name "x196" ) :| []
-                                                                                                                                                                                                                                                  )
-                                                                                                                                                                                                                                                  ( AppN Nothing
-                                                                                                                                                                                                                                                    ( Ref Nothing
-                                                                                                                                                                                                                                                      ( Imported
-                                                                                                                                                                                                                                                        ( ModuleName "Golden.LongMaybeBind.Test" )
-                                                                                                                                                                                                                                                        ( Name "bind$w" )
-                                                                                                                                                                                                                                                      )
-                                                                                                                                                                                                                                                    )
-                                                                                                                                                                                                                                                    ( Ctor Nothing SumType
-                                                                                                                                                                                                                                                      ( ModuleName "Data.Maybe" )
-                                                                                                                                                                                                                                                      ( TyName "Maybe" )
-                                                                                                                                                                                                                                                      ( CtorName "Just" )
-                                                                                                                                                                                                                                                      [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                                                                                                                        ( 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" )
-                                                                                                                                                                                                                                                            )
-                                                                                                                                                                                                                                                          )
-                                                                                                                                                                                                                                                          ( Ctor Nothing SumType
-                                                                                                                                                                                                                                                            ( ModuleName "Data.Maybe" )
-                                                                                                                                                                                                                                                            ( TyName "Maybe" )
-                                                                                                                                                                                                                                                            ( CtorName "Just" )
-                                                                                                                                                                                                                                                            [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                                                                                                                              ( Ref Nothing
-                                                                                                                                                                                                                                                                ( Local
-                                                                                                                                                                                                                                                                  ( Name "x197" )
-                                                                                                                                                                                                                                                                )
-                                                                                                                                                                                                                                                              )
-                                                                                                                                                                                                                                                              ( LiteralInt Nothing 1 )
-                                                                                                                                                                                                                                                            ] :|
-                                                                                                                                                                                                                                                            [ AbsN Nothing
-                                                                                                                                                                                                                                                              ( ParamNamed Nothing
-                                                                                                                                                                                                                                                                ( Name "x198" ) :| []
-                                                                                                                                                                                                                                                              )
-                                                                                                                                                                                                                                                              ( AppN Nothing
-                                                                                                                                                                                                                                                                ( Ref Nothing
-                                                                                                                                                                                                                                                                  ( Local
-                                                                                                                                                                                                                                                                    ( Name "$kont1237$w" )
-                                                                                                                                                                                                                                                                  )
-                                                                                                                                                                                                                                                                )
-                                                                                                                                                                                                                                                                ( Ref Nothing
-                                                                                                                                                                                                                                                                  ( Local
-                                                                                                                                                                                                                                                                    ( Name "x1$1241" )
-                                                                                                                                                                                                                                                                  ) :|
-                                                                                                                                                                                                                                                                  [ Ref Nothing
-                                                                                                                                                                                                                                                                    ( Local
-                                                                                                                                                                                                                                                                      ( Name "x198" )
-                                                                                                                                                                                                                                                                    )
-                                                                                                                                                                                                                                                                  ]
-                                                                                                                                                                                                                                                                )
-                                                                                                                                                                                                                                                              )
-                                                                                                                                                                                                                                                            ]
-                                                                                                                                                                                                                                                          )
-                                                                                                                                                                                                                                                        )
-                                                                                                                                                                                                                                                      ]
-                                                                                                                                                                                                                                                    )
-                                                                                                                                                                                                                                                  )
-                                                                                                                                                                                                                                                ]
-                                                                                                                                                                                                                                              )
-                                                                                                                                                                                                                                            )
-                                                                                                                                                                                                                                          ]
-                                                                                                                                                                                                                                        )
-                                                                                                                                                                                                                                      )
-                                                                                                                                                                                                                                    ]
-                                                                                                                                                                                                                                  )
-                                                                                                                                                                                                                                )
-                                                                                                                                                                                                                              ]
-                                                                                                                                                                                                                            )
-                                                                                                                                                                                                                          )
-                                                                                                                                                                                                                        ]
-                                                                                                                                                                                                                      )
-                                                                                                                                                                                                                    )
-                                                                                                                                                                                                                  ]
-                                                                                                                                                                                                                )
-                                                                                                                                                                                                              )
-                                                                                                                                                                                                            ]
-                                                                                                                                                                                                          )
-                                                                                                                                                                                                        )
-                                                                                                                                                                                                      ]
-                                                                                                                                                                                                    )
-                                                                                                                                                                                                  )
-                                                                                                                                                                                                ]
-                                                                                                                                                                                              )
-                                                                                                                                                                                            )
-                                                                                                                                                                                          ]
-                                                                                                                                                                                        )
-                                                                                                                                                                                      )
-                                                                                                                                                                                    ]
-                                                                                                                                                                                  )
-                                                                                                                                                                                )
-                                                                                                                                                                              ]
-                                                                                                                                                                            )
-                                                                                                                                                                          )
-                                                                                                                                                                        ]
-                                                                                                                                                                      )
-                                                                                                                                                                    )
-                                                                                                                                                                  ]
-                                                                                                                                                                )
-                                                                                                                                                              )
-                                                                                                                                                            ]
-                                                                                                                                                          )
-                                                                                                                                                        )
-                                                                                                                                                      ]
-                                                                                                                                                    )
-                                                                                                                                                  )
-                                                                                                                                                ]
-                                                                                                                                              )
-                                                                                                                                            )
-                                                                                                                                          ]
-                                                                                                                                        )
-                                                                                                                                      )
-                                                                                                                                    ]
-                                                                                                                                  )
-                                                                                                                                )
-                                                                                                                              ]
-                                                                                                                            )
-                                                                                                                          )
-                                                                                                                        ]
-                                                                                                                      )
-                                                                                                                    )
-                                                                                                                  ]
-                                                                                                                )
-                                                                                                              )
-                                                                                                            ]
-                                                                                                          )
-                                                                                                        )
-                                                                                                      ]
-                                                                                                    )
-                                                                                                  )
-                                                                                                ]
-                                                                                              )
-                                                                                            )
-                                                                                          ]
-                                                                                        )
-                                                                                      )
-                                                                                    ]
-                                                                                  )
-                                                                                )
-                                                                              ]
-                                                                            )
-                                                                          )
-                                                                        ]
-                                                                      )
-                                                                    )
-                                                                  ]
-                                                                )
-                                                              )
-                                                            ]
-                                                          )
-                                                        )
-                                                      ]
-                                                    )
-                                                  )
-                                                ]
-                                              )
-                                            )
-                                          ]
-                                        )
-                                      )
-                                    ]
-                                  )
-                                )
-                              ]
-                            )
-                          )
-                        ]
-                      )
-                    )
-                  ]
-                )
-              )
-            ), Standalone
-            ( Nothing, Name "$kont1243$w", AbsN Nothing
-              ( ParamNamed Nothing
-                ( Name "x1$1244" ) :|
-                [ ParamNamed Nothing ( Name "x119$1245" ) ]
-              )
-              ( AppN Nothing
-                ( Ref Nothing
-                  ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind$w" ) )
-                )
-                ( Ctor Nothing SumType
-                  ( ModuleName "Data.Maybe" )
-                  ( TyName "Maybe" )
-                  ( CtorName "Just" )
-                  [ PrimBinOp Nothing PrimAdd
-                    ( Ref Nothing ( Local ( Name "x119$1245" ) ) )
-                    ( LiteralInt Nothing 1 )
-                  ] :|
-                  [ AbsN Nothing
-                    ( ParamNamed Nothing ( Name "x120" ) :| [] )
-                    ( AppN Nothing
-                      ( Ref Nothing
-                        ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind$w" ) )
-                      )
-                      ( Ctor Nothing SumType
-                        ( ModuleName "Data.Maybe" )
-                        ( TyName "Maybe" )
-                        ( CtorName "Just" )
-                        [ PrimBinOp Nothing PrimAdd
-                          ( 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" )
-                              )
-                            )
-                            ( Ctor Nothing SumType
-                              ( ModuleName "Data.Maybe" )
-                              ( TyName "Maybe" )
-                              ( CtorName "Just" )
-                              [ PrimBinOp Nothing PrimAdd
-                                ( 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" )
-                                    )
-                                  )
-                                  ( Ctor Nothing SumType
-                                    ( ModuleName "Data.Maybe" )
-                                    ( TyName "Maybe" )
-                                    ( CtorName "Just" )
-                                    [ PrimBinOp Nothing PrimAdd
-                                      ( 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" )
-                                          )
-                                        )
-                                        ( Ctor Nothing SumType
-                                          ( ModuleName "Data.Maybe" )
-                                          ( TyName "Maybe" )
-                                          ( CtorName "Just" )
-                                          [ PrimBinOp Nothing PrimAdd
-                                            ( 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" )
-                                                )
-                                              )
-                                              ( Ctor Nothing SumType
-                                                ( ModuleName "Data.Maybe" )
-                                                ( TyName "Maybe" )
-                                                ( CtorName "Just" )
-                                                [ PrimBinOp Nothing PrimAdd
-                                                  ( 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" )
-                                                      )
-                                                    )
-                                                    ( Ctor Nothing SumType
-                                                      ( ModuleName "Data.Maybe" )
-                                                      ( TyName "Maybe" )
-                                                      ( CtorName "Just" )
-                                                      [ PrimBinOp Nothing PrimAdd
-                                                        ( 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" )
-                                                            )
-                                                          )
-                                                          ( Ctor Nothing SumType
-                                                            ( ModuleName "Data.Maybe" )
-                                                            ( TyName "Maybe" )
-                                                            ( CtorName "Just" )
-                                                            [ PrimBinOp Nothing PrimAdd
-                                                              ( 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" )
-                                                                  )
-                                                                )
-                                                                ( Ctor Nothing SumType
-                                                                  ( ModuleName "Data.Maybe" )
-                                                                  ( TyName "Maybe" )
-                                                                  ( CtorName "Just" )
-                                                                  [ PrimBinOp Nothing PrimAdd
-                                                                    ( 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" )
-                                                                        )
-                                                                      )
-                                                                      ( Ctor Nothing SumType
-                                                                        ( ModuleName "Data.Maybe" )
-                                                                        ( TyName "Maybe" )
-                                                                        ( CtorName "Just" )
-                                                                        [ PrimBinOp Nothing PrimAdd
-                                                                          ( 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" )
-                                                                              )
-                                                                            )
-                                                                            ( Ctor Nothing SumType
-                                                                              ( ModuleName "Data.Maybe" )
-                                                                              ( TyName "Maybe" )
-                                                                              ( CtorName "Just" )
-                                                                              [ PrimBinOp Nothing PrimAdd
-                                                                                ( 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" )
-                                                                                    )
-                                                                                  )
-                                                                                  ( Ctor Nothing SumType
-                                                                                    ( ModuleName "Data.Maybe" )
-                                                                                    ( TyName "Maybe" )
-                                                                                    ( CtorName "Just" )
-                                                                                    [ PrimBinOp Nothing PrimAdd
-                                                                                      ( 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" )
-                                                                                          )
-                                                                                        )
-                                                                                        ( Ctor Nothing SumType
-                                                                                          ( ModuleName "Data.Maybe" )
-                                                                                          ( TyName "Maybe" )
-                                                                                          ( CtorName "Just" )
-                                                                                          [ PrimBinOp Nothing PrimAdd
-                                                                                            ( 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" )
-                                                                                                )
-                                                                                              )
-                                                                                              ( Ctor Nothing SumType
-                                                                                                ( ModuleName "Data.Maybe" )
-                                                                                                ( TyName "Maybe" )
-                                                                                                ( CtorName "Just" )
-                                                                                                [ PrimBinOp Nothing PrimAdd
-                                                                                                  ( 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" )
-                                                                                                      )
-                                                                                                    )
-                                                                                                    ( Ctor Nothing SumType
-                                                                                                      ( ModuleName "Data.Maybe" )
-                                                                                                      ( TyName "Maybe" )
-                                                                                                      ( CtorName "Just" )
-                                                                                                      [ PrimBinOp Nothing PrimAdd
-                                                                                                        ( 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" )
-                                                                                                            )
-                                                                                                          )
-                                                                                                          ( Ctor Nothing SumType
-                                                                                                            ( ModuleName "Data.Maybe" )
-                                                                                                            ( TyName "Maybe" )
-                                                                                                            ( CtorName "Just" )
-                                                                                                            [ PrimBinOp Nothing PrimAdd
-                                                                                                              ( 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" )
-                                                                                                                  )
-                                                                                                                )
-                                                                                                                ( Ctor Nothing SumType
-                                                                                                                  ( ModuleName "Data.Maybe" )
-                                                                                                                  ( TyName "Maybe" )
-                                                                                                                  ( CtorName "Just" )
-                                                                                                                  [ PrimBinOp Nothing PrimAdd
-                                                                                                                    ( 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" )
-                                                                                                                        )
-                                                                                                                      )
-                                                                                                                      ( Ctor Nothing SumType
-                                                                                                                        ( ModuleName "Data.Maybe" )
-                                                                                                                        ( TyName "Maybe" )
-                                                                                                                        ( CtorName "Just" )
-                                                                                                                        [ PrimBinOp Nothing PrimAdd
-                                                                                                                          ( 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" )
-                                                                                                                              )
-                                                                                                                            )
-                                                                                                                            ( Ctor Nothing SumType
-                                                                                                                              ( ModuleName "Data.Maybe" )
-                                                                                                                              ( TyName "Maybe" )
-                                                                                                                              ( CtorName "Just" )
-                                                                                                                              [ PrimBinOp Nothing PrimAdd
-                                                                                                                                ( 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" )
-                                                                                                                                    )
-                                                                                                                                  )
-                                                                                                                                  ( Ctor Nothing SumType
-                                                                                                                                    ( ModuleName "Data.Maybe" )
-                                                                                                                                    ( TyName "Maybe" )
-                                                                                                                                    ( CtorName "Just" )
-                                                                                                                                    [ PrimBinOp Nothing PrimAdd
-                                                                                                                                      ( 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" )
-                                                                                                                                          )
-                                                                                                                                        )
-                                                                                                                                        ( Ctor Nothing SumType
-                                                                                                                                          ( ModuleName "Data.Maybe" )
-                                                                                                                                          ( TyName "Maybe" )
-                                                                                                                                          ( CtorName "Just" )
-                                                                                                                                          [ PrimBinOp Nothing PrimAdd
-                                                                                                                                            ( 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" )
-                                                                                                                                                )
-                                                                                                                                              )
-                                                                                                                                              ( Ctor Nothing SumType
-                                                                                                                                                ( ModuleName "Data.Maybe" )
-                                                                                                                                                ( TyName "Maybe" )
-                                                                                                                                                ( CtorName "Just" )
-                                                                                                                                                [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                  ( 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" )
-                                                                                                                                                      )
-                                                                                                                                                    )
-                                                                                                                                                    ( Ctor Nothing SumType
-                                                                                                                                                      ( ModuleName "Data.Maybe" )
-                                                                                                                                                      ( TyName "Maybe" )
-                                                                                                                                                      ( CtorName "Just" )
-                                                                                                                                                      [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                        ( 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" )
-                                                                                                                                                            )
-                                                                                                                                                          )
-                                                                                                                                                          ( Ctor Nothing SumType
-                                                                                                                                                            ( ModuleName "Data.Maybe" )
-                                                                                                                                                            ( TyName "Maybe" )
-                                                                                                                                                            ( CtorName "Just" )
-                                                                                                                                                            [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                              ( 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" )
-                                                                                                                                                                  )
-                                                                                                                                                                )
-                                                                                                                                                                ( Ctor Nothing SumType
-                                                                                                                                                                  ( ModuleName "Data.Maybe" )
-                                                                                                                                                                  ( TyName "Maybe" )
-                                                                                                                                                                  ( CtorName "Just" )
-                                                                                                                                                                  [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                                    ( 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" )
-                                                                                                                                                                        )
-                                                                                                                                                                      )
-                                                                                                                                                                      ( Ctor Nothing SumType
-                                                                                                                                                                        ( ModuleName "Data.Maybe" )
-                                                                                                                                                                        ( TyName "Maybe" )
-                                                                                                                                                                        ( CtorName "Just" )
-                                                                                                                                                                        [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                                          ( 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" )
-                                                                                                                                                                              )
-                                                                                                                                                                            )
-                                                                                                                                                                            ( Ctor Nothing SumType
-                                                                                                                                                                              ( ModuleName "Data.Maybe" )
-                                                                                                                                                                              ( TyName "Maybe" )
-                                                                                                                                                                              ( CtorName "Just" )
-                                                                                                                                                                              [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                                                ( 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" )
-                                                                                                                                                                                    )
-                                                                                                                                                                                  )
-                                                                                                                                                                                  ( Ctor Nothing SumType
-                                                                                                                                                                                    ( ModuleName "Data.Maybe" )
-                                                                                                                                                                                    ( TyName "Maybe" )
-                                                                                                                                                                                    ( CtorName "Just" )
-                                                                                                                                                                                    [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                                                      ( 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" )
-                                                                                                                                                                                          )
-                                                                                                                                                                                        )
-                                                                                                                                                                                        ( Ctor Nothing SumType
-                                                                                                                                                                                          ( ModuleName "Data.Maybe" )
-                                                                                                                                                                                          ( TyName "Maybe" )
-                                                                                                                                                                                          ( CtorName "Just" )
-                                                                                                                                                                                          [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                                                            ( 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" )
-                                                                                                                                                                                                )
-                                                                                                                                                                                              )
-                                                                                                                                                                                              ( Ctor Nothing SumType
-                                                                                                                                                                                                ( ModuleName "Data.Maybe" )
-                                                                                                                                                                                                ( TyName "Maybe" )
-                                                                                                                                                                                                ( CtorName "Just" )
-                                                                                                                                                                                                [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                                                                  ( 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" )
-                                                                                                                                                                                                      )
-                                                                                                                                                                                                    )
-                                                                                                                                                                                                    ( Ctor Nothing SumType
-                                                                                                                                                                                                      ( ModuleName "Data.Maybe" )
-                                                                                                                                                                                                      ( TyName "Maybe" )
-                                                                                                                                                                                                      ( CtorName "Just" )
-                                                                                                                                                                                                      [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                                                                        ( 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" )
-                                                                                                                                                                                                            )
-                                                                                                                                                                                                          )
-                                                                                                                                                                                                          ( Ctor Nothing SumType
-                                                                                                                                                                                                            ( ModuleName "Data.Maybe" )
-                                                                                                                                                                                                            ( TyName "Maybe" )
-                                                                                                                                                                                                            ( CtorName "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" )
-                                                                                                                                                                                                                  )
-                                                                                                                                                                                                                )
-                                                                                                                                                                                                                ( Ctor Nothing SumType
-                                                                                                                                                                                                                  ( ModuleName "Data.Maybe" )
-                                                                                                                                                                                                                  ( TyName "Maybe" )
-                                                                                                                                                                                                                  ( CtorName "Just" )
-                                                                                                                                                                                                                  [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                                                                                    ( 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" )
-                                                                                                                                                                                                                        )
-                                                                                                                                                                                                                      )
-                                                                                                                                                                                                                      ( Ctor Nothing SumType
-                                                                                                                                                                                                                        ( ModuleName "Data.Maybe" )
-                                                                                                                                                                                                                        ( TyName "Maybe" )
-                                                                                                                                                                                                                        ( CtorName "Just" )
-                                                                                                                                                                                                                        [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                                                                                          ( 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" )
-                                                                                                                                                                                                                              )
-                                                                                                                                                                                                                            )
-                                                                                                                                                                                                                            ( Ctor Nothing SumType
-                                                                                                                                                                                                                              ( ModuleName "Data.Maybe" )
-                                                                                                                                                                                                                              ( TyName "Maybe" )
-                                                                                                                                                                                                                              ( CtorName "Just" )
-                                                                                                                                                                                                                              [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                                                                                                ( 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" )
-                                                                                                                                                                                                                                    )
-                                                                                                                                                                                                                                  )
-                                                                                                                                                                                                                                  ( Ctor Nothing SumType
-                                                                                                                                                                                                                                    ( ModuleName "Data.Maybe" )
-                                                                                                                                                                                                                                    ( TyName "Maybe" )
-                                                                                                                                                                                                                                    ( CtorName "Just" )
-                                                                                                                                                                                                                                    [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                                                                                                      ( 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" )
-                                                                                                                                                                                                                                          )
-                                                                                                                                                                                                                                        )
-                                                                                                                                                                                                                                        ( Ctor Nothing SumType
-                                                                                                                                                                                                                                          ( ModuleName "Data.Maybe" )
-                                                                                                                                                                                                                                          ( TyName "Maybe" )
-                                                                                                                                                                                                                                          ( CtorName "Just" )
-                                                                                                                                                                                                                                          [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                                                                                                            ( 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" )
-                                                                                                                                                                                                                                                )
-                                                                                                                                                                                                                                              )
-                                                                                                                                                                                                                                              ( Ctor Nothing SumType
-                                                                                                                                                                                                                                                ( ModuleName "Data.Maybe" )
-                                                                                                                                                                                                                                                ( TyName "Maybe" )
-                                                                                                                                                                                                                                                ( CtorName "Just" )
-                                                                                                                                                                                                                                                [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                                                                                                                  ( 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" )
-                                                                                                                                                                                                                                                      )
-                                                                                                                                                                                                                                                    )
-                                                                                                                                                                                                                                                    ( Ctor Nothing SumType
-                                                                                                                                                                                                                                                      ( ModuleName "Data.Maybe" )
-                                                                                                                                                                                                                                                      ( TyName "Maybe" )
-                                                                                                                                                                                                                                                      ( CtorName "Just" )
-                                                                                                                                                                                                                                                      [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                                                                                                                        ( 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" )
-                                                                                                                                                                                                                                                            )
-                                                                                                                                                                                                                                                          )
-                                                                                                                                                                                                                                                          ( Ctor Nothing SumType
-                                                                                                                                                                                                                                                            ( ModuleName "Data.Maybe" )
-                                                                                                                                                                                                                                                            ( TyName "Maybe" )
-                                                                                                                                                                                                                                                            ( CtorName "Just" )
-                                                                                                                                                                                                                                                            [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                                                                                                                              ( Ref Nothing
-                                                                                                                                                                                                                                                                ( Local
-                                                                                                                                                                                                                                                                  ( Name "x157" )
-                                                                                                                                                                                                                                                                )
-                                                                                                                                                                                                                                                              )
-                                                                                                                                                                                                                                                              ( LiteralInt Nothing 1 )
-                                                                                                                                                                                                                                                            ] :|
-                                                                                                                                                                                                                                                            [ AbsN Nothing
-                                                                                                                                                                                                                                                              ( ParamNamed Nothing
-                                                                                                                                                                                                                                                                ( Name "x158" ) :| []
-                                                                                                                                                                                                                                                              )
-                                                                                                                                                                                                                                                              ( AppN Nothing
-                                                                                                                                                                                                                                                                ( Ref Nothing
-                                                                                                                                                                                                                                                                  ( Local
-                                                                                                                                                                                                                                                                    ( Name "$kont1240$w" )
-                                                                                                                                                                                                                                                                  )
-                                                                                                                                                                                                                                                                )
-                                                                                                                                                                                                                                                                ( Ref Nothing
-                                                                                                                                                                                                                                                                  ( Local
-                                                                                                                                                                                                                                                                    ( Name "x1$1244" )
-                                                                                                                                                                                                                                                                  ) :|
-                                                                                                                                                                                                                                                                  [ Ref Nothing
-                                                                                                                                                                                                                                                                    ( Local
-                                                                                                                                                                                                                                                                      ( Name "x158" )
-                                                                                                                                                                                                                                                                    )
-                                                                                                                                                                                                                                                                  ]
-                                                                                                                                                                                                                                                                )
-                                                                                                                                                                                                                                                              )
-                                                                                                                                                                                                                                                            ]
-                                                                                                                                                                                                                                                          )
-                                                                                                                                                                                                                                                        )
-                                                                                                                                                                                                                                                      ]
-                                                                                                                                                                                                                                                    )
-                                                                                                                                                                                                                                                  )
-                                                                                                                                                                                                                                                ]
-                                                                                                                                                                                                                                              )
-                                                                                                                                                                                                                                            )
-                                                                                                                                                                                                                                          ]
-                                                                                                                                                                                                                                        )
-                                                                                                                                                                                                                                      )
-                                                                                                                                                                                                                                    ]
-                                                                                                                                                                                                                                  )
-                                                                                                                                                                                                                                )
-                                                                                                                                                                                                                              ]
-                                                                                                                                                                                                                            )
-                                                                                                                                                                                                                          )
-                                                                                                                                                                                                                        ]
-                                                                                                                                                                                                                      )
-                                                                                                                                                                                                                    )
-                                                                                                                                                                                                                  ]
-                                                                                                                                                                                                                )
-                                                                                                                                                                                                              )
-                                                                                                                                                                                                            ]
-                                                                                                                                                                                                          )
-                                                                                                                                                                                                        )
-                                                                                                                                                                                                      ]
-                                                                                                                                                                                                    )
-                                                                                                                                                                                                  )
-                                                                                                                                                                                                ]
-                                                                                                                                                                                              )
-                                                                                                                                                                                            )
-                                                                                                                                                                                          ]
-                                                                                                                                                                                        )
-                                                                                                                                                                                      )
-                                                                                                                                                                                    ]
-                                                                                                                                                                                  )
-                                                                                                                                                                                )
-                                                                                                                                                                              ]
-                                                                                                                                                                            )
-                                                                                                                                                                          )
-                                                                                                                                                                        ]
-                                                                                                                                                                      )
-                                                                                                                                                                    )
-                                                                                                                                                                  ]
-                                                                                                                                                                )
-                                                                                                                                                              )
-                                                                                                                                                            ]
-                                                                                                                                                          )
-                                                                                                                                                        )
-                                                                                                                                                      ]
-                                                                                                                                                    )
-                                                                                                                                                  )
-                                                                                                                                                ]
-                                                                                                                                              )
-                                                                                                                                            )
-                                                                                                                                          ]
-                                                                                                                                        )
-                                                                                                                                      )
-                                                                                                                                    ]
-                                                                                                                                  )
-                                                                                                                                )
-                                                                                                                              ]
-                                                                                                                            )
-                                                                                                                          )
-                                                                                                                        ]
-                                                                                                                      )
-                                                                                                                    )
-                                                                                                                  ]
-                                                                                                                )
-                                                                                                              )
-                                                                                                            ]
-                                                                                                          )
-                                                                                                        )
-                                                                                                      ]
-                                                                                                    )
-                                                                                                  )
-                                                                                                ]
-                                                                                              )
-                                                                                            )
-                                                                                          ]
-                                                                                        )
-                                                                                      )
-                                                                                    ]
-                                                                                  )
-                                                                                )
-                                                                              ]
-                                                                            )
-                                                                          )
-                                                                        ]
-                                                                      )
-                                                                    )
-                                                                  ]
-                                                                )
-                                                              )
-                                                            ]
-                                                          )
-                                                        )
-                                                      ]
-                                                    )
-                                                  )
-                                                ]
-                                              )
-                                            )
-                                          ]
-                                        )
-                                      )
-                                    ]
-                                  )
-                                )
-                              ]
-                            )
-                          )
-                        ]
-                      )
-                    )
-                  ]
-                )
-              )
-            ), Standalone
-            ( Nothing, Name "$kont1246$w", AbsN Nothing
-              ( ParamNamed Nothing
-                ( Name "x1$1247" ) :|
-                [ ParamNamed Nothing ( Name "x79$1248" ) ]
-              )
-              ( AppN Nothing
-                ( Ref Nothing
-                  ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind$w" ) )
-                )
-                ( Ctor Nothing SumType
-                  ( ModuleName "Data.Maybe" )
-                  ( TyName "Maybe" )
-                  ( CtorName "Just" )
-                  [ PrimBinOp Nothing PrimAdd
-                    ( Ref Nothing ( Local ( Name "x79$1248" ) ) )
-                    ( LiteralInt Nothing 1 )
-                  ] :|
-                  [ AbsN Nothing
-                    ( ParamNamed Nothing ( Name "x80" ) :| [] )
-                    ( AppN Nothing
-                      ( Ref Nothing
-                        ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind$w" ) )
-                      )
-                      ( Ctor Nothing SumType
-                        ( ModuleName "Data.Maybe" )
-                        ( TyName "Maybe" )
-                        ( CtorName "Just" )
-                        [ PrimBinOp Nothing PrimAdd
-                          ( 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" )
-                              )
-                            )
-                            ( Ctor Nothing SumType
-                              ( ModuleName "Data.Maybe" )
-                              ( TyName "Maybe" )
-                              ( CtorName "Just" )
-                              [ PrimBinOp Nothing PrimAdd
-                                ( 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" )
-                                    )
-                                  )
-                                  ( Ctor Nothing SumType
-                                    ( ModuleName "Data.Maybe" )
-                                    ( TyName "Maybe" )
-                                    ( CtorName "Just" )
-                                    [ PrimBinOp Nothing PrimAdd
-                                      ( 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" )
-                                          )
-                                        )
-                                        ( Ctor Nothing SumType
-                                          ( ModuleName "Data.Maybe" )
-                                          ( TyName "Maybe" )
-                                          ( CtorName "Just" )
-                                          [ PrimBinOp Nothing PrimAdd
-                                            ( 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" )
-                                                )
-                                              )
-                                              ( Ctor Nothing SumType
-                                                ( ModuleName "Data.Maybe" )
-                                                ( TyName "Maybe" )
-                                                ( CtorName "Just" )
-                                                [ PrimBinOp Nothing PrimAdd
-                                                  ( 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" )
-                                                      )
-                                                    )
-                                                    ( Ctor Nothing SumType
-                                                      ( ModuleName "Data.Maybe" )
-                                                      ( TyName "Maybe" )
-                                                      ( CtorName "Just" )
-                                                      [ PrimBinOp Nothing PrimAdd
-                                                        ( 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" )
-                                                            )
-                                                          )
-                                                          ( Ctor Nothing SumType
-                                                            ( ModuleName "Data.Maybe" )
-                                                            ( TyName "Maybe" )
-                                                            ( CtorName "Just" )
-                                                            [ PrimBinOp Nothing PrimAdd
-                                                              ( 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" )
-                                                                  )
-                                                                )
-                                                                ( Ctor Nothing SumType
-                                                                  ( ModuleName "Data.Maybe" )
-                                                                  ( TyName "Maybe" )
-                                                                  ( CtorName "Just" )
-                                                                  [ PrimBinOp Nothing PrimAdd
-                                                                    ( 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" )
-                                                                        )
-                                                                      )
-                                                                      ( Ctor Nothing SumType
-                                                                        ( ModuleName "Data.Maybe" )
-                                                                        ( TyName "Maybe" )
-                                                                        ( CtorName "Just" )
-                                                                        [ PrimBinOp Nothing PrimAdd
-                                                                          ( 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" )
-                                                                              )
-                                                                            )
-                                                                            ( Ctor Nothing SumType
-                                                                              ( ModuleName "Data.Maybe" )
-                                                                              ( TyName "Maybe" )
-                                                                              ( CtorName "Just" )
-                                                                              [ PrimBinOp Nothing PrimAdd
-                                                                                ( 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" )
-                                                                                    )
-                                                                                  )
-                                                                                  ( Ctor Nothing SumType
-                                                                                    ( ModuleName "Data.Maybe" )
-                                                                                    ( TyName "Maybe" )
-                                                                                    ( CtorName "Just" )
-                                                                                    [ PrimBinOp Nothing PrimAdd
-                                                                                      ( 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" )
-                                                                                          )
-                                                                                        )
-                                                                                        ( Ctor Nothing SumType
-                                                                                          ( ModuleName "Data.Maybe" )
-                                                                                          ( TyName "Maybe" )
-                                                                                          ( CtorName "Just" )
-                                                                                          [ PrimBinOp Nothing PrimAdd
-                                                                                            ( 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" )
-                                                                                                )
-                                                                                              )
-                                                                                              ( Ctor Nothing SumType
-                                                                                                ( ModuleName "Data.Maybe" )
-                                                                                                ( TyName "Maybe" )
-                                                                                                ( CtorName "Just" )
-                                                                                                [ PrimBinOp Nothing PrimAdd
-                                                                                                  ( 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" )
-                                                                                                      )
-                                                                                                    )
-                                                                                                    ( Ctor Nothing SumType
-                                                                                                      ( ModuleName "Data.Maybe" )
-                                                                                                      ( TyName "Maybe" )
-                                                                                                      ( CtorName "Just" )
-                                                                                                      [ PrimBinOp Nothing PrimAdd
-                                                                                                        ( 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" )
-                                                                                                            )
-                                                                                                          )
-                                                                                                          ( Ctor Nothing SumType
-                                                                                                            ( ModuleName "Data.Maybe" )
-                                                                                                            ( TyName "Maybe" )
-                                                                                                            ( CtorName "Just" )
-                                                                                                            [ PrimBinOp Nothing PrimAdd
-                                                                                                              ( 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" )
-                                                                                                                  )
-                                                                                                                )
-                                                                                                                ( Ctor Nothing SumType
-                                                                                                                  ( ModuleName "Data.Maybe" )
-                                                                                                                  ( TyName "Maybe" )
-                                                                                                                  ( CtorName "Just" )
-                                                                                                                  [ PrimBinOp Nothing PrimAdd
-                                                                                                                    ( 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" )
-                                                                                                                        )
-                                                                                                                      )
-                                                                                                                      ( Ctor Nothing SumType
-                                                                                                                        ( ModuleName "Data.Maybe" )
-                                                                                                                        ( TyName "Maybe" )
-                                                                                                                        ( CtorName "Just" )
-                                                                                                                        [ PrimBinOp Nothing PrimAdd
-                                                                                                                          ( 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" )
-                                                                                                                              )
-                                                                                                                            )
-                                                                                                                            ( Ctor Nothing SumType
-                                                                                                                              ( ModuleName "Data.Maybe" )
-                                                                                                                              ( TyName "Maybe" )
-                                                                                                                              ( CtorName "Just" )
-                                                                                                                              [ PrimBinOp Nothing PrimAdd
-                                                                                                                                ( 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" )
-                                                                                                                                    )
-                                                                                                                                  )
-                                                                                                                                  ( Ctor Nothing SumType
-                                                                                                                                    ( ModuleName "Data.Maybe" )
-                                                                                                                                    ( TyName "Maybe" )
-                                                                                                                                    ( CtorName "Just" )
-                                                                                                                                    [ PrimBinOp Nothing PrimAdd
-                                                                                                                                      ( 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" )
-                                                                                                                                          )
-                                                                                                                                        )
-                                                                                                                                        ( Ctor Nothing SumType
-                                                                                                                                          ( ModuleName "Data.Maybe" )
-                                                                                                                                          ( TyName "Maybe" )
-                                                                                                                                          ( CtorName "Just" )
-                                                                                                                                          [ PrimBinOp Nothing PrimAdd
-                                                                                                                                            ( 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" )
-                                                                                                                                                )
-                                                                                                                                              )
-                                                                                                                                              ( Ctor Nothing SumType
-                                                                                                                                                ( ModuleName "Data.Maybe" )
-                                                                                                                                                ( TyName "Maybe" )
-                                                                                                                                                ( CtorName "Just" )
-                                                                                                                                                [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                  ( 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" )
-                                                                                                                                                      )
-                                                                                                                                                    )
-                                                                                                                                                    ( Ctor Nothing SumType
-                                                                                                                                                      ( ModuleName "Data.Maybe" )
-                                                                                                                                                      ( TyName "Maybe" )
-                                                                                                                                                      ( CtorName "Just" )
-                                                                                                                                                      [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                        ( 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" )
-                                                                                                                                                            )
-                                                                                                                                                          )
-                                                                                                                                                          ( Ctor Nothing SumType
-                                                                                                                                                            ( ModuleName "Data.Maybe" )
-                                                                                                                                                            ( TyName "Maybe" )
-                                                                                                                                                            ( CtorName "Just" )
-                                                                                                                                                            [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                              ( 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" )
-                                                                                                                                                                  )
-                                                                                                                                                                )
-                                                                                                                                                                ( Ctor Nothing SumType
-                                                                                                                                                                  ( ModuleName "Data.Maybe" )
-                                                                                                                                                                  ( TyName "Maybe" )
-                                                                                                                                                                  ( CtorName "Just" )
-                                                                                                                                                                  [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                                    ( 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" )
-                                                                                                                                                                        )
-                                                                                                                                                                      )
-                                                                                                                                                                      ( Ctor Nothing SumType
-                                                                                                                                                                        ( ModuleName "Data.Maybe" )
-                                                                                                                                                                        ( TyName "Maybe" )
-                                                                                                                                                                        ( CtorName "Just" )
-                                                                                                                                                                        [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                                          ( 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" )
-                                                                                                                                                                              )
-                                                                                                                                                                            )
-                                                                                                                                                                            ( Ctor Nothing SumType
-                                                                                                                                                                              ( ModuleName "Data.Maybe" )
-                                                                                                                                                                              ( TyName "Maybe" )
-                                                                                                                                                                              ( CtorName "Just" )
-                                                                                                                                                                              [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                                                ( 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" )
-                                                                                                                                                                                    )
-                                                                                                                                                                                  )
-                                                                                                                                                                                  ( Ctor Nothing SumType
-                                                                                                                                                                                    ( ModuleName "Data.Maybe" )
-                                                                                                                                                                                    ( TyName "Maybe" )
-                                                                                                                                                                                    ( CtorName "Just" )
-                                                                                                                                                                                    [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                                                      ( 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" )
-                                                                                                                                                                                          )
-                                                                                                                                                                                        )
-                                                                                                                                                                                        ( Ctor Nothing SumType
-                                                                                                                                                                                          ( ModuleName "Data.Maybe" )
-                                                                                                                                                                                          ( TyName "Maybe" )
-                                                                                                                                                                                          ( CtorName "Just" )
-                                                                                                                                                                                          [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                                                            ( 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" )
-                                                                                                                                                                                                )
-                                                                                                                                                                                              )
-                                                                                                                                                                                              ( Ctor Nothing SumType
-                                                                                                                                                                                                ( ModuleName "Data.Maybe" )
-                                                                                                                                                                                                ( TyName "Maybe" )
-                                                                                                                                                                                                ( CtorName "Just" )
-                                                                                                                                                                                                [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                                                                  ( 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" )
-                                                                                                                                                                                                      )
-                                                                                                                                                                                                    )
-                                                                                                                                                                                                    ( Ctor Nothing SumType
-                                                                                                                                                                                                      ( ModuleName "Data.Maybe" )
-                                                                                                                                                                                                      ( TyName "Maybe" )
-                                                                                                                                                                                                      ( CtorName "Just" )
-                                                                                                                                                                                                      [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                                                                        ( 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" )
-                                                                                                                                                                                                            )
-                                                                                                                                                                                                          )
-                                                                                                                                                                                                          ( Ctor Nothing SumType
-                                                                                                                                                                                                            ( ModuleName "Data.Maybe" )
-                                                                                                                                                                                                            ( TyName "Maybe" )
-                                                                                                                                                                                                            ( CtorName "Just" )
-                                                                                                                                                                                                            [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                                                                              ( 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" )
-                                                                                                                                                                                                                  )
-                                                                                                                                                                                                                )
-                                                                                                                                                                                                                ( Ctor Nothing SumType
-                                                                                                                                                                                                                  ( ModuleName "Data.Maybe" )
-                                                                                                                                                                                                                  ( TyName "Maybe" )
-                                                                                                                                                                                                                  ( CtorName "Just" )
-                                                                                                                                                                                                                  [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                                                                                    ( 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" )
-                                                                                                                                                                                                                        )
-                                                                                                                                                                                                                      )
-                                                                                                                                                                                                                      ( Ctor Nothing SumType
-                                                                                                                                                                                                                        ( ModuleName "Data.Maybe" )
-                                                                                                                                                                                                                        ( TyName "Maybe" )
-                                                                                                                                                                                                                        ( CtorName "Just" )
-                                                                                                                                                                                                                        [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                                                                                          ( 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" )
-                                                                                                                                                                                                                              )
-                                                                                                                                                                                                                            )
-                                                                                                                                                                                                                            ( Ctor Nothing SumType
-                                                                                                                                                                                                                              ( ModuleName "Data.Maybe" )
-                                                                                                                                                                                                                              ( TyName "Maybe" )
-                                                                                                                                                                                                                              ( CtorName "Just" )
-                                                                                                                                                                                                                              [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                                                                                                ( 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" )
-                                                                                                                                                                                                                                    )
-                                                                                                                                                                                                                                  )
-                                                                                                                                                                                                                                  ( Ctor Nothing SumType
-                                                                                                                                                                                                                                    ( ModuleName "Data.Maybe" )
-                                                                                                                                                                                                                                    ( TyName "Maybe" )
-                                                                                                                                                                                                                                    ( CtorName "Just" )
-                                                                                                                                                                                                                                    [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                                                                                                      ( 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" )
-                                                                                                                                                                                                                                          )
-                                                                                                                                                                                                                                        )
-                                                                                                                                                                                                                                        ( Ctor Nothing SumType
-                                                                                                                                                                                                                                          ( ModuleName "Data.Maybe" )
-                                                                                                                                                                                                                                          ( TyName "Maybe" )
-                                                                                                                                                                                                                                          ( CtorName "Just" )
-                                                                                                                                                                                                                                          [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                                                                                                            ( 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" )
-                                                                                                                                                                                                                                                )
-                                                                                                                                                                                                                                              )
-                                                                                                                                                                                                                                              ( Ctor Nothing SumType
-                                                                                                                                                                                                                                                ( ModuleName "Data.Maybe" )
-                                                                                                                                                                                                                                                ( TyName "Maybe" )
-                                                                                                                                                                                                                                                ( CtorName "Just" )
-                                                                                                                                                                                                                                                [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                                                                                                                  ( 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" )
-                                                                                                                                                                                                                                                      )
-                                                                                                                                                                                                                                                    )
-                                                                                                                                                                                                                                                    ( Ctor Nothing SumType
-                                                                                                                                                                                                                                                      ( ModuleName "Data.Maybe" )
-                                                                                                                                                                                                                                                      ( TyName "Maybe" )
-                                                                                                                                                                                                                                                      ( CtorName "Just" )
-                                                                                                                                                                                                                                                      [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                                                                                                                        ( 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" )
-                                                                                                                                                                                                                                                            )
-                                                                                                                                                                                                                                                          )
-                                                                                                                                                                                                                                                          ( Ctor Nothing SumType
-                                                                                                                                                                                                                                                            ( ModuleName "Data.Maybe" )
-                                                                                                                                                                                                                                                            ( TyName "Maybe" )
-                                                                                                                                                                                                                                                            ( CtorName "Just" )
-                                                                                                                                                                                                                                                            [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                                                                                                                              ( Ref Nothing
-                                                                                                                                                                                                                                                                ( Local
-                                                                                                                                                                                                                                                                  ( Name "x118" )
-                                                                                                                                                                                                                                                                )
-                                                                                                                                                                                                                                                              )
-                                                                                                                                                                                                                                                              ( LiteralInt Nothing 1 )
-                                                                                                                                                                                                                                                            ] :|
-                                                                                                                                                                                                                                                            [ AbsN Nothing
-                                                                                                                                                                                                                                                              ( ParamNamed Nothing
-                                                                                                                                                                                                                                                                ( Name "x119" ) :| []
-                                                                                                                                                                                                                                                              )
-                                                                                                                                                                                                                                                              ( AppN Nothing
-                                                                                                                                                                                                                                                                ( Ref Nothing
-                                                                                                                                                                                                                                                                  ( Local
-                                                                                                                                                                                                                                                                    ( Name "$kont1243$w" )
-                                                                                                                                                                                                                                                                  )
-                                                                                                                                                                                                                                                                )
-                                                                                                                                                                                                                                                                ( Ref Nothing
-                                                                                                                                                                                                                                                                  ( Local
-                                                                                                                                                                                                                                                                    ( Name "x1$1247" )
-                                                                                                                                                                                                                                                                  ) :|
-                                                                                                                                                                                                                                                                  [ Ref Nothing
-                                                                                                                                                                                                                                                                    ( Local
-                                                                                                                                                                                                                                                                      ( Name "x119" )
-                                                                                                                                                                                                                                                                    )
-                                                                                                                                                                                                                                                                  ]
-                                                                                                                                                                                                                                                                )
-                                                                                                                                                                                                                                                              )
-                                                                                                                                                                                                                                                            ]
-                                                                                                                                                                                                                                                          )
-                                                                                                                                                                                                                                                        )
-                                                                                                                                                                                                                                                      ]
-                                                                                                                                                                                                                                                    )
-                                                                                                                                                                                                                                                  )
-                                                                                                                                                                                                                                                ]
-                                                                                                                                                                                                                                              )
-                                                                                                                                                                                                                                            )
-                                                                                                                                                                                                                                          ]
-                                                                                                                                                                                                                                        )
-                                                                                                                                                                                                                                      )
-                                                                                                                                                                                                                                    ]
-                                                                                                                                                                                                                                  )
-                                                                                                                                                                                                                                )
-                                                                                                                                                                                                                              ]
-                                                                                                                                                                                                                            )
-                                                                                                                                                                                                                          )
-                                                                                                                                                                                                                        ]
-                                                                                                                                                                                                                      )
-                                                                                                                                                                                                                    )
-                                                                                                                                                                                                                  ]
-                                                                                                                                                                                                                )
-                                                                                                                                                                                                              )
-                                                                                                                                                                                                            ]
-                                                                                                                                                                                                          )
-                                                                                                                                                                                                        )
-                                                                                                                                                                                                      ]
-                                                                                                                                                                                                    )
-                                                                                                                                                                                                  )
-                                                                                                                                                                                                ]
-                                                                                                                                                                                              )
-                                                                                                                                                                                            )
-                                                                                                                                                                                          ]
-                                                                                                                                                                                        )
-                                                                                                                                                                                      )
-                                                                                                                                                                                    ]
-                                                                                                                                                                                  )
-                                                                                                                                                                                )
-                                                                                                                                                                              ]
-                                                                                                                                                                            )
-                                                                                                                                                                          )
-                                                                                                                                                                        ]
-                                                                                                                                                                      )
-                                                                                                                                                                    )
-                                                                                                                                                                  ]
-                                                                                                                                                                )
-                                                                                                                                                              )
-                                                                                                                                                            ]
-                                                                                                                                                          )
-                                                                                                                                                        )
-                                                                                                                                                      ]
-                                                                                                                                                    )
-                                                                                                                                                  )
-                                                                                                                                                ]
-                                                                                                                                              )
-                                                                                                                                            )
-                                                                                                                                          ]
-                                                                                                                                        )
-                                                                                                                                      )
-                                                                                                                                    ]
-                                                                                                                                  )
-                                                                                                                                )
-                                                                                                                              ]
-                                                                                                                            )
-                                                                                                                          )
-                                                                                                                        ]
-                                                                                                                      )
-                                                                                                                    )
-                                                                                                                  ]
-                                                                                                                )
-                                                                                                              )
-                                                                                                            ]
-                                                                                                          )
-                                                                                                        )
-                                                                                                      ]
-                                                                                                    )
-                                                                                                  )
-                                                                                                ]
-                                                                                              )
-                                                                                            )
-                                                                                          ]
-                                                                                        )
-                                                                                      )
-                                                                                    ]
-                                                                                  )
-                                                                                )
-                                                                              ]
-                                                                            )
-                                                                          )
-                                                                        ]
-                                                                      )
-                                                                    )
-                                                                  ]
-                                                                )
-                                                              )
-                                                            ]
-                                                          )
-                                                        )
-                                                      ]
-                                                    )
-                                                  )
-                                                ]
-                                              )
-                                            )
-                                          ]
-                                        )
-                                      )
-                                    ]
-                                  )
-                                )
-                              ]
-                            )
-                          )
-                        ]
-                      )
-                    )
-                  ]
-                )
-              )
-            ), Standalone
-            ( Nothing, Name "$kont1249$w", AbsN Nothing
-              ( ParamNamed Nothing
-                ( Name "x1$1250" ) :|
-                [ ParamNamed Nothing ( Name "x40$1251" ) ]
-              )
-              ( AppN Nothing
-                ( Ref Nothing
-                  ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind$w" ) )
-                )
-                ( Ctor Nothing SumType
-                  ( ModuleName "Data.Maybe" )
-                  ( TyName "Maybe" )
-                  ( CtorName "Just" )
-                  [ PrimBinOp Nothing PrimAdd
-                    ( Ref Nothing ( Local ( Name "x40$1251" ) ) )
-                    ( LiteralInt Nothing 1 )
-                  ] :|
-                  [ AbsN Nothing
-                    ( ParamNamed Nothing ( Name "x41" ) :| [] )
-                    ( AppN Nothing
-                      ( Ref Nothing
-                        ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind$w" ) )
-                      )
-                      ( Ctor Nothing SumType
-                        ( ModuleName "Data.Maybe" )
-                        ( TyName "Maybe" )
-                        ( CtorName "Just" )
-                        [ PrimBinOp Nothing PrimAdd
-                          ( 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" )
-                              )
-                            )
-                            ( Ctor Nothing SumType
-                              ( ModuleName "Data.Maybe" )
-                              ( TyName "Maybe" )
-                              ( CtorName "Just" )
-                              [ PrimBinOp Nothing PrimAdd
-                                ( 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" )
-                                    )
-                                  )
-                                  ( Ctor Nothing SumType
-                                    ( ModuleName "Data.Maybe" )
-                                    ( TyName "Maybe" )
-                                    ( CtorName "Just" )
-                                    [ PrimBinOp Nothing PrimAdd
-                                      ( 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" )
-                                          )
-                                        )
-                                        ( Ctor Nothing SumType
-                                          ( ModuleName "Data.Maybe" )
-                                          ( TyName "Maybe" )
-                                          ( CtorName "Just" )
-                                          [ PrimBinOp Nothing PrimAdd
-                                            ( 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" )
-                                                )
-                                              )
-                                              ( Ctor Nothing SumType
-                                                ( ModuleName "Data.Maybe" )
-                                                ( TyName "Maybe" )
-                                                ( CtorName "Just" )
-                                                [ PrimBinOp Nothing PrimAdd
-                                                  ( 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" )
-                                                      )
-                                                    )
-                                                    ( Ctor Nothing SumType
-                                                      ( ModuleName "Data.Maybe" )
-                                                      ( TyName "Maybe" )
-                                                      ( CtorName "Just" )
-                                                      [ PrimBinOp Nothing PrimAdd
-                                                        ( 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" )
-                                                            )
-                                                          )
-                                                          ( Ctor Nothing SumType
-                                                            ( ModuleName "Data.Maybe" )
-                                                            ( TyName "Maybe" )
-                                                            ( CtorName "Just" )
-                                                            [ PrimBinOp Nothing PrimAdd
-                                                              ( 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" )
-                                                                  )
-                                                                )
-                                                                ( Ctor Nothing SumType
-                                                                  ( ModuleName "Data.Maybe" )
-                                                                  ( TyName "Maybe" )
-                                                                  ( CtorName "Just" )
-                                                                  [ PrimBinOp Nothing PrimAdd
-                                                                    ( 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" )
-                                                                        )
-                                                                      )
-                                                                      ( Ctor Nothing SumType
-                                                                        ( ModuleName "Data.Maybe" )
-                                                                        ( TyName "Maybe" )
-                                                                        ( CtorName "Just" )
-                                                                        [ PrimBinOp Nothing PrimAdd
-                                                                          ( 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" )
-                                                                              )
-                                                                            )
-                                                                            ( Ctor Nothing SumType
-                                                                              ( ModuleName "Data.Maybe" )
-                                                                              ( TyName "Maybe" )
-                                                                              ( CtorName "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" )
-                                                                                    )
-                                                                                  )
-                                                                                  ( Ctor Nothing SumType
-                                                                                    ( ModuleName "Data.Maybe" )
-                                                                                    ( TyName "Maybe" )
-                                                                                    ( CtorName "Just" )
-                                                                                    [ PrimBinOp Nothing PrimAdd
-                                                                                      ( 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" )
-                                                                                          )
-                                                                                        )
-                                                                                        ( Ctor Nothing SumType
-                                                                                          ( ModuleName "Data.Maybe" )
-                                                                                          ( TyName "Maybe" )
-                                                                                          ( CtorName "Just" )
-                                                                                          [ PrimBinOp Nothing PrimAdd
-                                                                                            ( 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" )
-                                                                                                )
-                                                                                              )
-                                                                                              ( Ctor Nothing SumType
-                                                                                                ( ModuleName "Data.Maybe" )
-                                                                                                ( TyName "Maybe" )
-                                                                                                ( CtorName "Just" )
-                                                                                                [ PrimBinOp Nothing PrimAdd
-                                                                                                  ( 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" )
-                                                                                                      )
-                                                                                                    )
-                                                                                                    ( Ctor Nothing SumType
-                                                                                                      ( ModuleName "Data.Maybe" )
-                                                                                                      ( TyName "Maybe" )
-                                                                                                      ( CtorName "Just" )
-                                                                                                      [ PrimBinOp Nothing PrimAdd
-                                                                                                        ( 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" )
-                                                                                                            )
-                                                                                                          )
-                                                                                                          ( Ctor Nothing SumType
-                                                                                                            ( ModuleName "Data.Maybe" )
-                                                                                                            ( TyName "Maybe" )
-                                                                                                            ( CtorName "Just" )
-                                                                                                            [ PrimBinOp Nothing PrimAdd
-                                                                                                              ( 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" )
-                                                                                                                  )
-                                                                                                                )
-                                                                                                                ( Ctor Nothing SumType
-                                                                                                                  ( ModuleName "Data.Maybe" )
-                                                                                                                  ( TyName "Maybe" )
-                                                                                                                  ( CtorName "Just" )
-                                                                                                                  [ PrimBinOp Nothing PrimAdd
-                                                                                                                    ( 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" )
-                                                                                                                        )
-                                                                                                                      )
-                                                                                                                      ( Ctor Nothing SumType
-                                                                                                                        ( ModuleName "Data.Maybe" )
-                                                                                                                        ( TyName "Maybe" )
-                                                                                                                        ( CtorName "Just" )
-                                                                                                                        [ PrimBinOp Nothing PrimAdd
-                                                                                                                          ( 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" )
-                                                                                                                              )
-                                                                                                                            )
-                                                                                                                            ( Ctor Nothing SumType
-                                                                                                                              ( ModuleName "Data.Maybe" )
-                                                                                                                              ( TyName "Maybe" )
-                                                                                                                              ( CtorName "Just" )
-                                                                                                                              [ PrimBinOp Nothing PrimAdd
-                                                                                                                                ( 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" )
-                                                                                                                                    )
-                                                                                                                                  )
-                                                                                                                                  ( Ctor Nothing SumType
-                                                                                                                                    ( ModuleName "Data.Maybe" )
-                                                                                                                                    ( TyName "Maybe" )
-                                                                                                                                    ( CtorName "Just" )
-                                                                                                                                    [ PrimBinOp Nothing PrimAdd
-                                                                                                                                      ( 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" )
-                                                                                                                                          )
-                                                                                                                                        )
-                                                                                                                                        ( Ctor Nothing SumType
-                                                                                                                                          ( ModuleName "Data.Maybe" )
-                                                                                                                                          ( TyName "Maybe" )
-                                                                                                                                          ( CtorName "Just" )
-                                                                                                                                          [ PrimBinOp Nothing PrimAdd
-                                                                                                                                            ( 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" )
-                                                                                                                                                )
-                                                                                                                                              )
-                                                                                                                                              ( Ctor Nothing SumType
-                                                                                                                                                ( ModuleName "Data.Maybe" )
-                                                                                                                                                ( TyName "Maybe" )
-                                                                                                                                                ( CtorName "Just" )
-                                                                                                                                                [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                  ( 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" )
-                                                                                                                                                      )
-                                                                                                                                                    )
-                                                                                                                                                    ( Ctor Nothing SumType
-                                                                                                                                                      ( ModuleName "Data.Maybe" )
-                                                                                                                                                      ( TyName "Maybe" )
-                                                                                                                                                      ( CtorName "Just" )
-                                                                                                                                                      [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                        ( 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" )
-                                                                                                                                                            )
-                                                                                                                                                          )
-                                                                                                                                                          ( Ctor Nothing SumType
-                                                                                                                                                            ( ModuleName "Data.Maybe" )
-                                                                                                                                                            ( TyName "Maybe" )
-                                                                                                                                                            ( CtorName "Just" )
-                                                                                                                                                            [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                              ( 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" )
-                                                                                                                                                                  )
-                                                                                                                                                                )
-                                                                                                                                                                ( Ctor Nothing SumType
-                                                                                                                                                                  ( ModuleName "Data.Maybe" )
-                                                                                                                                                                  ( TyName "Maybe" )
-                                                                                                                                                                  ( CtorName "Just" )
-                                                                                                                                                                  [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                                    ( 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" )
-                                                                                                                                                                        )
-                                                                                                                                                                      )
-                                                                                                                                                                      ( Ctor Nothing SumType
-                                                                                                                                                                        ( ModuleName "Data.Maybe" )
-                                                                                                                                                                        ( TyName "Maybe" )
-                                                                                                                                                                        ( CtorName "Just" )
-                                                                                                                                                                        [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                                          ( 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" )
-                                                                                                                                                                              )
-                                                                                                                                                                            )
-                                                                                                                                                                            ( Ctor Nothing SumType
-                                                                                                                                                                              ( ModuleName "Data.Maybe" )
-                                                                                                                                                                              ( TyName "Maybe" )
-                                                                                                                                                                              ( CtorName "Just" )
-                                                                                                                                                                              [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                                                ( 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" )
-                                                                                                                                                                                    )
-                                                                                                                                                                                  )
-                                                                                                                                                                                  ( Ctor Nothing SumType
-                                                                                                                                                                                    ( ModuleName "Data.Maybe" )
-                                                                                                                                                                                    ( TyName "Maybe" )
-                                                                                                                                                                                    ( CtorName "Just" )
-                                                                                                                                                                                    [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                                                      ( 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" )
-                                                                                                                                                                                          )
-                                                                                                                                                                                        )
-                                                                                                                                                                                        ( Ctor Nothing SumType
-                                                                                                                                                                                          ( ModuleName "Data.Maybe" )
-                                                                                                                                                                                          ( TyName "Maybe" )
-                                                                                                                                                                                          ( CtorName "Just" )
-                                                                                                                                                                                          [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                                                            ( 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" )
-                                                                                                                                                                                                )
-                                                                                                                                                                                              )
-                                                                                                                                                                                              ( Ctor Nothing SumType
-                                                                                                                                                                                                ( ModuleName "Data.Maybe" )
-                                                                                                                                                                                                ( TyName "Maybe" )
-                                                                                                                                                                                                ( CtorName "Just" )
-                                                                                                                                                                                                [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                                                                  ( 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" )
-                                                                                                                                                                                                      )
-                                                                                                                                                                                                    )
-                                                                                                                                                                                                    ( Ctor Nothing SumType
-                                                                                                                                                                                                      ( ModuleName "Data.Maybe" )
-                                                                                                                                                                                                      ( TyName "Maybe" )
-                                                                                                                                                                                                      ( CtorName "Just" )
-                                                                                                                                                                                                      [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                                                                        ( 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" )
-                                                                                                                                                                                                            )
-                                                                                                                                                                                                          )
-                                                                                                                                                                                                          ( Ctor Nothing SumType
-                                                                                                                                                                                                            ( ModuleName "Data.Maybe" )
-                                                                                                                                                                                                            ( TyName "Maybe" )
-                                                                                                                                                                                                            ( CtorName "Just" )
-                                                                                                                                                                                                            [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                                                                              ( 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" )
-                                                                                                                                                                                                                  )
-                                                                                                                                                                                                                )
-                                                                                                                                                                                                                ( Ctor Nothing SumType
-                                                                                                                                                                                                                  ( ModuleName "Data.Maybe" )
-                                                                                                                                                                                                                  ( TyName "Maybe" )
-                                                                                                                                                                                                                  ( CtorName "Just" )
-                                                                                                                                                                                                                  [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                                                                                    ( 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" )
-                                                                                                                                                                                                                        )
-                                                                                                                                                                                                                      )
-                                                                                                                                                                                                                      ( Ctor Nothing SumType
-                                                                                                                                                                                                                        ( ModuleName "Data.Maybe" )
-                                                                                                                                                                                                                        ( TyName "Maybe" )
-                                                                                                                                                                                                                        ( CtorName "Just" )
-                                                                                                                                                                                                                        [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                                                                                          ( 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" )
-                                                                                                                                                                                                                              )
-                                                                                                                                                                                                                            )
-                                                                                                                                                                                                                            ( Ctor Nothing SumType
-                                                                                                                                                                                                                              ( ModuleName "Data.Maybe" )
-                                                                                                                                                                                                                              ( TyName "Maybe" )
-                                                                                                                                                                                                                              ( CtorName "Just" )
-                                                                                                                                                                                                                              [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                                                                                                ( 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" )
-                                                                                                                                                                                                                                    )
-                                                                                                                                                                                                                                  )
-                                                                                                                                                                                                                                  ( Ctor Nothing SumType
-                                                                                                                                                                                                                                    ( ModuleName "Data.Maybe" )
-                                                                                                                                                                                                                                    ( TyName "Maybe" )
-                                                                                                                                                                                                                                    ( CtorName "Just" )
-                                                                                                                                                                                                                                    [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                                                                                                      ( 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" )
-                                                                                                                                                                                                                                          )
-                                                                                                                                                                                                                                        )
-                                                                                                                                                                                                                                        ( Ctor Nothing SumType
-                                                                                                                                                                                                                                          ( ModuleName "Data.Maybe" )
-                                                                                                                                                                                                                                          ( TyName "Maybe" )
-                                                                                                                                                                                                                                          ( CtorName "Just" )
-                                                                                                                                                                                                                                          [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                                                                                                            ( 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" )
-                                                                                                                                                                                                                                                )
-                                                                                                                                                                                                                                              )
-                                                                                                                                                                                                                                              ( Ctor Nothing SumType
-                                                                                                                                                                                                                                                ( ModuleName "Data.Maybe" )
-                                                                                                                                                                                                                                                ( TyName "Maybe" )
-                                                                                                                                                                                                                                                ( CtorName "Just" )
-                                                                                                                                                                                                                                                [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                                                                                                                  ( 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" )
-                                                                                                                                                                                                                                                      )
-                                                                                                                                                                                                                                                    )
-                                                                                                                                                                                                                                                    ( Ctor Nothing SumType
-                                                                                                                                                                                                                                                      ( ModuleName "Data.Maybe" )
-                                                                                                                                                                                                                                                      ( TyName "Maybe" )
-                                                                                                                                                                                                                                                      ( CtorName "Just" )
-                                                                                                                                                                                                                                                      [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                                                                                                                        ( 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" )
-                                                                                                                                                                                                                                                            )
-                                                                                                                                                                                                                                                          )
-                                                                                                                                                                                                                                                          ( Ctor Nothing SumType
-                                                                                                                                                                                                                                                            ( ModuleName "Data.Maybe" )
-                                                                                                                                                                                                                                                            ( TyName "Maybe" )
-                                                                                                                                                                                                                                                            ( CtorName "Just" )
-                                                                                                                                                                                                                                                            [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                                                                                                                              ( Ref Nothing
-                                                                                                                                                                                                                                                                ( Local
-                                                                                                                                                                                                                                                                  ( Name "x78" )
-                                                                                                                                                                                                                                                                )
-                                                                                                                                                                                                                                                              )
-                                                                                                                                                                                                                                                              ( LiteralInt Nothing 1 )
-                                                                                                                                                                                                                                                            ] :|
-                                                                                                                                                                                                                                                            [ AbsN Nothing
-                                                                                                                                                                                                                                                              ( ParamNamed Nothing
-                                                                                                                                                                                                                                                                ( Name "x79" ) :| []
-                                                                                                                                                                                                                                                              )
-                                                                                                                                                                                                                                                              ( AppN Nothing
-                                                                                                                                                                                                                                                                ( Ref Nothing
-                                                                                                                                                                                                                                                                  ( Local
-                                                                                                                                                                                                                                                                    ( Name "$kont1246$w" )
-                                                                                                                                                                                                                                                                  )
-                                                                                                                                                                                                                                                                )
-                                                                                                                                                                                                                                                                ( Ref Nothing
-                                                                                                                                                                                                                                                                  ( Local
-                                                                                                                                                                                                                                                                    ( Name "x1$1250" )
-                                                                                                                                                                                                                                                                  ) :|
-                                                                                                                                                                                                                                                                  [ Ref Nothing
-                                                                                                                                                                                                                                                                    ( Local
-                                                                                                                                                                                                                                                                      ( Name "x79" )
-                                                                                                                                                                                                                                                                    )
-                                                                                                                                                                                                                                                                  ]
-                                                                                                                                                                                                                                                                )
-                                                                                                                                                                                                                                                              )
-                                                                                                                                                                                                                                                            ]
-                                                                                                                                                                                                                                                          )
-                                                                                                                                                                                                                                                        )
-                                                                                                                                                                                                                                                      ]
-                                                                                                                                                                                                                                                    )
-                                                                                                                                                                                                                                                  )
-                                                                                                                                                                                                                                                ]
-                                                                                                                                                                                                                                              )
-                                                                                                                                                                                                                                            )
-                                                                                                                                                                                                                                          ]
-                                                                                                                                                                                                                                        )
-                                                                                                                                                                                                                                      )
-                                                                                                                                                                                                                                    ]
-                                                                                                                                                                                                                                  )
-                                                                                                                                                                                                                                )
-                                                                                                                                                                                                                              ]
-                                                                                                                                                                                                                            )
-                                                                                                                                                                                                                          )
-                                                                                                                                                                                                                        ]
-                                                                                                                                                                                                                      )
-                                                                                                                                                                                                                    )
-                                                                                                                                                                                                                  ]
-                                                                                                                                                                                                                )
-                                                                                                                                                                                                              )
-                                                                                                                                                                                                            ]
-                                                                                                                                                                                                          )
-                                                                                                                                                                                                        )
-                                                                                                                                                                                                      ]
-                                                                                                                                                                                                    )
-                                                                                                                                                                                                  )
-                                                                                                                                                                                                ]
-                                                                                                                                                                                              )
-                                                                                                                                                                                            )
-                                                                                                                                                                                          ]
-                                                                                                                                                                                        )
-                                                                                                                                                                                      )
-                                                                                                                                                                                    ]
-                                                                                                                                                                                  )
-                                                                                                                                                                                )
-                                                                                                                                                                              ]
-                                                                                                                                                                            )
-                                                                                                                                                                          )
-                                                                                                                                                                        ]
-                                                                                                                                                                      )
-                                                                                                                                                                    )
-                                                                                                                                                                  ]
-                                                                                                                                                                )
-                                                                                                                                                              )
-                                                                                                                                                            ]
-                                                                                                                                                          )
-                                                                                                                                                        )
-                                                                                                                                                      ]
-                                                                                                                                                    )
-                                                                                                                                                  )
-                                                                                                                                                ]
-                                                                                                                                              )
-                                                                                                                                            )
-                                                                                                                                          ]
-                                                                                                                                        )
-                                                                                                                                      )
-                                                                                                                                    ]
-                                                                                                                                  )
-                                                                                                                                )
-                                                                                                                              ]
-                                                                                                                            )
-                                                                                                                          )
-                                                                                                                        ]
-                                                                                                                      )
-                                                                                                                    )
-                                                                                                                  ]
-                                                                                                                )
-                                                                                                              )
-                                                                                                            ]
-                                                                                                          )
-                                                                                                        )
-                                                                                                      ]
-                                                                                                    )
-                                                                                                  )
-                                                                                                ]
-                                                                                              )
-                                                                                            )
-                                                                                          ]
-                                                                                        )
-                                                                                      )
-                                                                                    ]
-                                                                                  )
-                                                                                )
-                                                                              ]
-                                                                            )
-                                                                          )
-                                                                        ]
-                                                                      )
-                                                                    )
-                                                                  ]
-                                                                )
-                                                              )
-                                                            ]
-                                                          )
-                                                        )
-                                                      ]
-                                                    )
-                                                  )
-                                                ]
-                                              )
-                                            )
-                                          ]
-                                        )
-                                      )
-                                    ]
-                                  )
-                                )
-                              ]
-                            )
-                          )
-                        ]
-                      )
-                    )
-                  ]
-                )
-              )
-            )
-          ]
-        )
-        ( AppN Nothing
-          ( Ref Nothing ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind$w" ) ) )
-          ( Ctor Nothing SumType
-            ( ModuleName "Data.Maybe" )
-            ( TyName "Maybe" )
-            ( CtorName "Just" )
-            [ LiteralInt Nothing 1 ] :|
-            [ AbsN Nothing
-              ( ParamNamed Nothing ( Name "x1" ) :| [] )
-              ( AppN Nothing
-                ( Ref Nothing
-                  ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind$w" ) )
-                )
-                ( Ctor Nothing SumType
-                  ( ModuleName "Data.Maybe" )
-                  ( TyName "Maybe" )
-                  ( CtorName "Just" )
-                  [ PrimBinOp Nothing PrimAdd
-                    ( Ref Nothing ( Local ( Name "x1" ) ) )
-                    ( LiteralInt Nothing 1 )
-                  ] :|
-                  [ AbsN Nothing
-                    ( ParamNamed Nothing ( Name "x2" ) :| [] )
-                    ( AppN Nothing
-                      ( Ref Nothing
-                        ( Imported ( ModuleName "Golden.LongMaybeBind.Test" ) ( Name "bind$w" ) )
-                      )
-                      ( Ctor Nothing SumType
-                        ( ModuleName "Data.Maybe" )
-                        ( TyName "Maybe" )
-                        ( CtorName "Just" )
-                        [ PrimBinOp Nothing PrimAdd
-                          ( Ref Nothing ( Local ( Name "x2" ) ) )
-                          ( LiteralInt Nothing 1 )
-                        ] :|
-                        [ AbsN Nothing
-                          ( ParamNamed Nothing ( Name "x3" ) :| [] )
-                          ( AppN Nothing
-                            ( Ref Nothing
-                              ( Imported
-                                ( ModuleName "Golden.LongMaybeBind.Test" )
-                                ( Name "bind$w" )
-                              )
-                            )
-                            ( Ctor Nothing SumType
-                              ( ModuleName "Data.Maybe" )
-                              ( TyName "Maybe" )
-                              ( CtorName "Just" )
-                              [ PrimBinOp Nothing PrimAdd
-                                ( Ref Nothing ( Local ( Name "x3" ) ) )
-                                ( LiteralInt Nothing 1 )
-                              ] :|
-                              [ AbsN Nothing
-                                ( ParamNamed Nothing ( Name "x4" ) :| [] )
-                                ( AppN Nothing
-                                  ( Ref Nothing
-                                    ( Imported
-                                      ( ModuleName "Golden.LongMaybeBind.Test" )
-                                      ( Name "bind$w" )
-                                    )
-                                  )
-                                  ( Ctor Nothing SumType
-                                    ( ModuleName "Data.Maybe" )
-                                    ( TyName "Maybe" )
-                                    ( CtorName "Just" )
-                                    [ PrimBinOp Nothing PrimAdd
-                                      ( Ref Nothing ( Local ( Name "x4" ) ) )
-                                      ( LiteralInt Nothing 1 )
-                                    ] :|
-                                    [ AbsN Nothing
-                                      ( ParamNamed Nothing ( Name "x5" ) :| [] )
-                                      ( AppN Nothing
-                                        ( Ref Nothing
-                                          ( Imported
-                                            ( ModuleName "Golden.LongMaybeBind.Test" )
-                                            ( Name "bind$w" )
-                                          )
-                                        )
-                                        ( Ctor Nothing SumType
-                                          ( ModuleName "Data.Maybe" )
-                                          ( TyName "Maybe" )
-                                          ( CtorName "Just" )
-                                          [ PrimBinOp Nothing PrimAdd
-                                            ( Ref Nothing ( Local ( Name "x5" ) ) )
-                                            ( LiteralInt Nothing 1 )
-                                          ] :|
-                                          [ AbsN Nothing
-                                            ( ParamNamed Nothing ( Name "x6" ) :| [] )
-                                            ( AppN Nothing
-                                              ( Ref Nothing
-                                                ( Imported
-                                                  ( ModuleName "Golden.LongMaybeBind.Test" )
-                                                  ( Name "bind$w" )
-                                                )
-                                              )
-                                              ( Ctor Nothing SumType
-                                                ( ModuleName "Data.Maybe" )
-                                                ( TyName "Maybe" )
-                                                ( CtorName "Just" )
-                                                [ PrimBinOp Nothing PrimAdd
-                                                  ( Ref Nothing ( Local ( Name "x6" ) ) )
-                                                  ( LiteralInt Nothing 1 )
-                                                ] :|
-                                                [ AbsN Nothing
-                                                  ( ParamNamed Nothing ( Name "x7" ) :| [] )
-                                                  ( AppN Nothing
-                                                    ( Ref Nothing
-                                                      ( Imported
-                                                        ( ModuleName "Golden.LongMaybeBind.Test" )
-                                                        ( Name "bind$w" )
-                                                      )
-                                                    )
-                                                    ( Ctor Nothing SumType
-                                                      ( ModuleName "Data.Maybe" )
-                                                      ( TyName "Maybe" )
-                                                      ( CtorName "Just" )
-                                                      [ PrimBinOp Nothing PrimAdd
-                                                        ( Ref Nothing ( Local ( Name "x7" ) ) )
-                                                        ( LiteralInt Nothing 1 )
-                                                      ] :|
-                                                      [ AbsN Nothing
-                                                        ( ParamNamed Nothing ( Name "x8" ) :| [] )
-                                                        ( AppN Nothing
-                                                          ( Ref Nothing
-                                                            ( Imported
-                                                              ( ModuleName "Golden.LongMaybeBind.Test" )
-                                                              ( Name "bind$w" )
-                                                            )
-                                                          )
-                                                          ( Ctor Nothing SumType
-                                                            ( ModuleName "Data.Maybe" )
-                                                            ( TyName "Maybe" )
-                                                            ( CtorName "Just" )
-                                                            [ PrimBinOp Nothing PrimAdd
-                                                              ( Ref Nothing
-                                                                ( Local ( Name "x8" ) )
-                                                              )
-                                                              ( LiteralInt Nothing 1 )
-                                                            ] :|
-                                                            [ AbsN Nothing
-                                                              ( ParamNamed Nothing
-                                                                ( Name "x9" ) :| []
-                                                              )
-                                                              ( AppN Nothing
-                                                                ( Ref Nothing
-                                                                  ( Imported
-                                                                    ( ModuleName "Golden.LongMaybeBind.Test" )
-                                                                    ( Name "bind$w" )
-                                                                  )
-                                                                )
-                                                                ( Ctor Nothing SumType
-                                                                  ( ModuleName "Data.Maybe" )
-                                                                  ( TyName "Maybe" )
-                                                                  ( CtorName "Just" )
-                                                                  [ PrimBinOp Nothing PrimAdd
-                                                                    ( Ref Nothing
-                                                                      ( Local ( Name "x9" ) )
-                                                                    )
-                                                                    ( LiteralInt Nothing 1 )
-                                                                  ] :|
-                                                                  [ AbsN Nothing
-                                                                    ( ParamNamed Nothing
-                                                                      ( Name "x10" ) :| []
-                                                                    )
-                                                                    ( AppN Nothing
-                                                                      ( Ref Nothing
-                                                                        ( Imported
-                                                                          ( ModuleName "Golden.LongMaybeBind.Test" )
-                                                                          ( Name "bind$w" )
-                                                                        )
-                                                                      )
-                                                                      ( Ctor Nothing SumType
-                                                                        ( ModuleName "Data.Maybe" )
-                                                                        ( TyName "Maybe" )
-                                                                        ( CtorName "Just" )
-                                                                        [ PrimBinOp Nothing PrimAdd
-                                                                          ( Ref Nothing
-                                                                            ( Local ( Name "x10" ) )
-                                                                          )
-                                                                          ( LiteralInt Nothing 1 )
-                                                                        ] :|
-                                                                        [ AbsN Nothing
-                                                                          ( ParamNamed Nothing
-                                                                            ( Name "x11" ) :| []
-                                                                          )
-                                                                          ( AppN Nothing
-                                                                            ( Ref Nothing
-                                                                              ( Imported
-                                                                                ( ModuleName "Golden.LongMaybeBind.Test" )
-                                                                                ( Name "bind$w" )
-                                                                              )
-                                                                            )
-                                                                            ( Ctor Nothing SumType
-                                                                              ( ModuleName "Data.Maybe" )
-                                                                              ( TyName "Maybe" )
-                                                                              ( CtorName "Just" )
-                                                                              [ PrimBinOp Nothing PrimAdd
-                                                                                ( Ref Nothing
-                                                                                  ( Local
-                                                                                    ( Name "x11" )
-                                                                                  )
-                                                                                )
-                                                                                ( LiteralInt Nothing 1 )
-                                                                              ] :|
-                                                                              [ AbsN Nothing
-                                                                                ( ParamNamed Nothing
-                                                                                  ( Name "x12" ) :| []
-                                                                                )
-                                                                                ( AppN Nothing
-                                                                                  ( Ref Nothing
-                                                                                    ( Imported
-                                                                                      ( ModuleName "Golden.LongMaybeBind.Test" )
-                                                                                      ( Name "bind$w" )
-                                                                                    )
-                                                                                  )
-                                                                                  ( Ctor Nothing SumType
-                                                                                    ( ModuleName "Data.Maybe" )
-                                                                                    ( TyName "Maybe" )
-                                                                                    ( CtorName "Just" )
-                                                                                    [ PrimBinOp Nothing PrimAdd
-                                                                                      ( Ref Nothing
-                                                                                        ( Local
-                                                                                          ( Name "x12" )
-                                                                                        )
-                                                                                      )
-                                                                                      ( LiteralInt Nothing 1 )
-                                                                                    ] :|
-                                                                                    [ AbsN Nothing
-                                                                                      ( ParamNamed Nothing
-                                                                                        ( Name "x13" ) :| []
-                                                                                      )
-                                                                                      ( AppN Nothing
-                                                                                        ( Ref Nothing
-                                                                                          ( Imported
-                                                                                            ( ModuleName "Golden.LongMaybeBind.Test" )
-                                                                                            ( Name "bind$w" )
-                                                                                          )
-                                                                                        )
-                                                                                        ( Ctor Nothing SumType
-                                                                                          ( ModuleName "Data.Maybe" )
-                                                                                          ( TyName "Maybe" )
-                                                                                          ( CtorName "Just" )
-                                                                                          [ PrimBinOp Nothing PrimAdd
-                                                                                            ( Ref Nothing
-                                                                                              ( Local
-                                                                                                ( Name "x13" )
-                                                                                              )
-                                                                                            )
-                                                                                            ( LiteralInt Nothing 1 )
-                                                                                          ] :|
-                                                                                          [ AbsN Nothing
-                                                                                            ( ParamNamed Nothing
-                                                                                              ( Name "x14" ) :| []
-                                                                                            )
-                                                                                            ( AppN Nothing
-                                                                                              ( Ref Nothing
-                                                                                                ( Imported
-                                                                                                  ( ModuleName "Golden.LongMaybeBind.Test" )
-                                                                                                  ( Name "bind$w" )
-                                                                                                )
-                                                                                              )
-                                                                                              ( Ctor Nothing SumType
-                                                                                                ( ModuleName "Data.Maybe" )
-                                                                                                ( TyName "Maybe" )
-                                                                                                ( CtorName "Just" )
-                                                                                                [ PrimBinOp Nothing PrimAdd
-                                                                                                  ( Ref Nothing
-                                                                                                    ( Local
-                                                                                                      ( Name "x14" )
-                                                                                                    )
-                                                                                                  )
-                                                                                                  ( LiteralInt Nothing 1 )
-                                                                                                ] :|
-                                                                                                [ AbsN Nothing
-                                                                                                  ( ParamNamed Nothing
-                                                                                                    ( Name "x15" ) :| []
-                                                                                                  )
-                                                                                                  ( AppN Nothing
-                                                                                                    ( Ref Nothing
-                                                                                                      ( Imported
-                                                                                                        ( ModuleName "Golden.LongMaybeBind.Test" )
-                                                                                                        ( Name "bind$w" )
-                                                                                                      )
-                                                                                                    )
-                                                                                                    ( Ctor Nothing SumType
-                                                                                                      ( ModuleName "Data.Maybe" )
-                                                                                                      ( TyName "Maybe" )
-                                                                                                      ( CtorName "Just" )
-                                                                                                      [ PrimBinOp Nothing PrimAdd
-                                                                                                        ( Ref Nothing
-                                                                                                          ( Local
-                                                                                                            ( Name "x15" )
-                                                                                                          )
-                                                                                                        )
-                                                                                                        ( LiteralInt Nothing 1 )
-                                                                                                      ] :|
-                                                                                                      [ AbsN Nothing
-                                                                                                        ( ParamNamed Nothing
-                                                                                                          ( Name "x16" ) :| []
-                                                                                                        )
-                                                                                                        ( AppN Nothing
-                                                                                                          ( Ref Nothing
-                                                                                                            ( Imported
-                                                                                                              ( ModuleName "Golden.LongMaybeBind.Test" )
-                                                                                                              ( Name "bind$w" )
-                                                                                                            )
-                                                                                                          )
-                                                                                                          ( Ctor Nothing SumType
-                                                                                                            ( ModuleName "Data.Maybe" )
-                                                                                                            ( TyName "Maybe" )
-                                                                                                            ( CtorName "Just" )
-                                                                                                            [ PrimBinOp Nothing PrimAdd
-                                                                                                              ( Ref Nothing
-                                                                                                                ( Local
-                                                                                                                  ( Name "x16" )
-                                                                                                                )
-                                                                                                              )
-                                                                                                              ( LiteralInt Nothing 1 )
-                                                                                                            ] :|
-                                                                                                            [ AbsN Nothing
-                                                                                                              ( ParamNamed Nothing
-                                                                                                                ( Name "x17" ) :| []
-                                                                                                              )
-                                                                                                              ( AppN Nothing
-                                                                                                                ( Ref Nothing
-                                                                                                                  ( Imported
-                                                                                                                    ( ModuleName "Golden.LongMaybeBind.Test" )
-                                                                                                                    ( Name "bind$w" )
-                                                                                                                  )
-                                                                                                                )
-                                                                                                                ( Ctor Nothing SumType
-                                                                                                                  ( ModuleName "Data.Maybe" )
-                                                                                                                  ( TyName "Maybe" )
-                                                                                                                  ( CtorName "Just" )
-                                                                                                                  [ PrimBinOp Nothing PrimAdd
-                                                                                                                    ( Ref Nothing
-                                                                                                                      ( Local
-                                                                                                                        ( Name "x17" )
-                                                                                                                      )
-                                                                                                                    )
-                                                                                                                    ( LiteralInt Nothing 1 )
-                                                                                                                  ] :|
-                                                                                                                  [ AbsN Nothing
-                                                                                                                    ( ParamNamed Nothing
-                                                                                                                      ( Name "x18" ) :| []
-                                                                                                                    )
-                                                                                                                    ( AppN Nothing
-                                                                                                                      ( Ref Nothing
-                                                                                                                        ( Imported
-                                                                                                                          ( ModuleName "Golden.LongMaybeBind.Test" )
-                                                                                                                          ( Name "bind$w" )
-                                                                                                                        )
-                                                                                                                      )
-                                                                                                                      ( Ctor Nothing SumType
-                                                                                                                        ( ModuleName "Data.Maybe" )
-                                                                                                                        ( TyName "Maybe" )
-                                                                                                                        ( CtorName "Just" )
-                                                                                                                        [ PrimBinOp Nothing PrimAdd
-                                                                                                                          ( Ref Nothing
-                                                                                                                            ( Local
-                                                                                                                              ( Name "x18" )
-                                                                                                                            )
-                                                                                                                          )
-                                                                                                                          ( LiteralInt Nothing 1 )
-                                                                                                                        ] :|
-                                                                                                                        [ AbsN Nothing
-                                                                                                                          ( ParamNamed Nothing
-                                                                                                                            ( Name "x19" ) :| []
-                                                                                                                          )
-                                                                                                                          ( AppN Nothing
-                                                                                                                            ( Ref Nothing
-                                                                                                                              ( Imported
-                                                                                                                                ( ModuleName "Golden.LongMaybeBind.Test" )
-                                                                                                                                ( Name "bind$w" )
-                                                                                                                              )
-                                                                                                                            )
-                                                                                                                            ( Ctor Nothing SumType
-                                                                                                                              ( ModuleName "Data.Maybe" )
-                                                                                                                              ( TyName "Maybe" )
-                                                                                                                              ( CtorName "Just" )
-                                                                                                                              [ PrimBinOp Nothing PrimAdd
-                                                                                                                                ( Ref Nothing
-                                                                                                                                  ( Local
-                                                                                                                                    ( Name "x19" )
-                                                                                                                                  )
-                                                                                                                                )
-                                                                                                                                ( LiteralInt Nothing 1 )
-                                                                                                                              ] :|
-                                                                                                                              [ AbsN Nothing
-                                                                                                                                ( ParamNamed Nothing
-                                                                                                                                  ( Name "x20" ) :| []
-                                                                                                                                )
-                                                                                                                                ( AppN Nothing
-                                                                                                                                  ( Ref Nothing
-                                                                                                                                    ( Imported
-                                                                                                                                      ( ModuleName "Golden.LongMaybeBind.Test" )
-                                                                                                                                      ( Name "bind$w" )
-                                                                                                                                    )
-                                                                                                                                  )
-                                                                                                                                  ( Ctor Nothing SumType
-                                                                                                                                    ( ModuleName "Data.Maybe" )
-                                                                                                                                    ( TyName "Maybe" )
-                                                                                                                                    ( CtorName "Just" )
-                                                                                                                                    [ PrimBinOp Nothing PrimAdd
-                                                                                                                                      ( Ref Nothing
-                                                                                                                                        ( Local
-                                                                                                                                          ( Name "x20" )
-                                                                                                                                        )
-                                                                                                                                      )
-                                                                                                                                      ( LiteralInt Nothing 1 )
-                                                                                                                                    ] :|
-                                                                                                                                    [ AbsN Nothing
-                                                                                                                                      ( ParamNamed Nothing
-                                                                                                                                        ( Name "x21" ) :| []
-                                                                                                                                      )
-                                                                                                                                      ( AppN Nothing
-                                                                                                                                        ( Ref Nothing
-                                                                                                                                          ( Imported
-                                                                                                                                            ( ModuleName "Golden.LongMaybeBind.Test" )
-                                                                                                                                            ( Name "bind$w" )
-                                                                                                                                          )
-                                                                                                                                        )
-                                                                                                                                        ( Ctor Nothing SumType
-                                                                                                                                          ( ModuleName "Data.Maybe" )
-                                                                                                                                          ( TyName "Maybe" )
-                                                                                                                                          ( CtorName "Just" )
-                                                                                                                                          [ PrimBinOp Nothing PrimAdd
-                                                                                                                                            ( Ref Nothing
-                                                                                                                                              ( Local
-                                                                                                                                                ( Name "x21" )
-                                                                                                                                              )
-                                                                                                                                            )
-                                                                                                                                            ( LiteralInt Nothing 1 )
-                                                                                                                                          ] :|
-                                                                                                                                          [ AbsN Nothing
-                                                                                                                                            ( ParamNamed Nothing
-                                                                                                                                              ( Name "x22" ) :| []
-                                                                                                                                            )
-                                                                                                                                            ( AppN Nothing
-                                                                                                                                              ( Ref Nothing
-                                                                                                                                                ( Imported
-                                                                                                                                                  ( ModuleName "Golden.LongMaybeBind.Test" )
-                                                                                                                                                  ( Name "bind$w" )
-                                                                                                                                                )
-                                                                                                                                              )
-                                                                                                                                              ( Ctor Nothing SumType
-                                                                                                                                                ( ModuleName "Data.Maybe" )
-                                                                                                                                                ( TyName "Maybe" )
-                                                                                                                                                ( CtorName "Just" )
-                                                                                                                                                [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                  ( Ref Nothing
-                                                                                                                                                    ( Local
-                                                                                                                                                      ( Name "x22" )
-                                                                                                                                                    )
-                                                                                                                                                  )
-                                                                                                                                                  ( LiteralInt Nothing 1 )
-                                                                                                                                                ] :|
-                                                                                                                                                [ AbsN Nothing
-                                                                                                                                                  ( ParamNamed Nothing
-                                                                                                                                                    ( Name "x23" ) :| []
-                                                                                                                                                  )
-                                                                                                                                                  ( AppN Nothing
-                                                                                                                                                    ( Ref Nothing
-                                                                                                                                                      ( Imported
-                                                                                                                                                        ( ModuleName "Golden.LongMaybeBind.Test" )
-                                                                                                                                                        ( Name "bind$w" )
-                                                                                                                                                      )
-                                                                                                                                                    )
-                                                                                                                                                    ( Ctor Nothing SumType
-                                                                                                                                                      ( ModuleName "Data.Maybe" )
-                                                                                                                                                      ( TyName "Maybe" )
-                                                                                                                                                      ( CtorName "Just" )
-                                                                                                                                                      [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                        ( Ref Nothing
-                                                                                                                                                          ( Local
-                                                                                                                                                            ( Name "x23" )
-                                                                                                                                                          )
-                                                                                                                                                        )
-                                                                                                                                                        ( LiteralInt Nothing 1 )
-                                                                                                                                                      ] :|
-                                                                                                                                                      [ AbsN Nothing
-                                                                                                                                                        ( ParamNamed Nothing
-                                                                                                                                                          ( Name "x24" ) :| []
-                                                                                                                                                        )
-                                                                                                                                                        ( AppN Nothing
-                                                                                                                                                          ( Ref Nothing
-                                                                                                                                                            ( Imported
-                                                                                                                                                              ( ModuleName "Golden.LongMaybeBind.Test" )
-                                                                                                                                                              ( Name "bind$w" )
-                                                                                                                                                            )
-                                                                                                                                                          )
-                                                                                                                                                          ( Ctor Nothing SumType
-                                                                                                                                                            ( ModuleName "Data.Maybe" )
-                                                                                                                                                            ( TyName "Maybe" )
-                                                                                                                                                            ( CtorName "Just" )
-                                                                                                                                                            [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                              ( Ref Nothing
-                                                                                                                                                                ( Local
-                                                                                                                                                                  ( Name "x24" )
-                                                                                                                                                                )
-                                                                                                                                                              )
-                                                                                                                                                              ( LiteralInt Nothing 1 )
-                                                                                                                                                            ] :|
-                                                                                                                                                            [ AbsN Nothing
-                                                                                                                                                              ( ParamNamed Nothing
-                                                                                                                                                                ( Name "x25" ) :| []
-                                                                                                                                                              )
-                                                                                                                                                              ( AppN Nothing
-                                                                                                                                                                ( Ref Nothing
-                                                                                                                                                                  ( Imported
-                                                                                                                                                                    ( ModuleName "Golden.LongMaybeBind.Test" )
-                                                                                                                                                                    ( Name "bind$w" )
-                                                                                                                                                                  )
-                                                                                                                                                                )
-                                                                                                                                                                ( Ctor Nothing SumType
-                                                                                                                                                                  ( ModuleName "Data.Maybe" )
-                                                                                                                                                                  ( TyName "Maybe" )
-                                                                                                                                                                  ( CtorName "Just" )
-                                                                                                                                                                  [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                                    ( Ref Nothing
-                                                                                                                                                                      ( Local
-                                                                                                                                                                        ( Name "x25" )
-                                                                                                                                                                      )
-                                                                                                                                                                    )
-                                                                                                                                                                    ( LiteralInt Nothing 1 )
-                                                                                                                                                                  ] :|
-                                                                                                                                                                  [ AbsN Nothing
-                                                                                                                                                                    ( ParamNamed Nothing
-                                                                                                                                                                      ( Name "x26" ) :| []
-                                                                                                                                                                    )
-                                                                                                                                                                    ( AppN Nothing
-                                                                                                                                                                      ( Ref Nothing
-                                                                                                                                                                        ( Imported
-                                                                                                                                                                          ( ModuleName "Golden.LongMaybeBind.Test" )
-                                                                                                                                                                          ( Name "bind$w" )
-                                                                                                                                                                        )
-                                                                                                                                                                      )
-                                                                                                                                                                      ( Ctor Nothing SumType
-                                                                                                                                                                        ( ModuleName "Data.Maybe" )
-                                                                                                                                                                        ( TyName "Maybe" )
-                                                                                                                                                                        ( CtorName "Just" )
-                                                                                                                                                                        [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                                          ( Ref Nothing
-                                                                                                                                                                            ( Local
-                                                                                                                                                                              ( Name "x26" )
-                                                                                                                                                                            )
-                                                                                                                                                                          )
-                                                                                                                                                                          ( LiteralInt Nothing 1 )
-                                                                                                                                                                        ] :|
-                                                                                                                                                                        [ AbsN Nothing
-                                                                                                                                                                          ( ParamNamed Nothing
-                                                                                                                                                                            ( Name "x27" ) :| []
-                                                                                                                                                                          )
-                                                                                                                                                                          ( AppN Nothing
-                                                                                                                                                                            ( Ref Nothing
-                                                                                                                                                                              ( Imported
-                                                                                                                                                                                ( ModuleName "Golden.LongMaybeBind.Test" )
-                                                                                                                                                                                ( Name "bind$w" )
-                                                                                                                                                                              )
-                                                                                                                                                                            )
-                                                                                                                                                                            ( Ctor Nothing SumType
-                                                                                                                                                                              ( ModuleName "Data.Maybe" )
-                                                                                                                                                                              ( TyName "Maybe" )
-                                                                                                                                                                              ( CtorName "Just" )
-                                                                                                                                                                              [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                                                ( Ref Nothing
-                                                                                                                                                                                  ( Local
-                                                                                                                                                                                    ( Name "x27" )
-                                                                                                                                                                                  )
-                                                                                                                                                                                )
-                                                                                                                                                                                ( LiteralInt Nothing 1 )
-                                                                                                                                                                              ] :|
-                                                                                                                                                                              [ AbsN Nothing
-                                                                                                                                                                                ( ParamNamed Nothing
-                                                                                                                                                                                  ( Name "x28" ) :| []
-                                                                                                                                                                                )
-                                                                                                                                                                                ( AppN Nothing
-                                                                                                                                                                                  ( Ref Nothing
-                                                                                                                                                                                    ( Imported
-                                                                                                                                                                                      ( ModuleName "Golden.LongMaybeBind.Test" )
-                                                                                                                                                                                      ( Name "bind$w" )
-                                                                                                                                                                                    )
-                                                                                                                                                                                  )
-                                                                                                                                                                                  ( Ctor Nothing SumType
-                                                                                                                                                                                    ( ModuleName "Data.Maybe" )
-                                                                                                                                                                                    ( TyName "Maybe" )
-                                                                                                                                                                                    ( CtorName "Just" )
-                                                                                                                                                                                    [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                                                      ( Ref Nothing
-                                                                                                                                                                                        ( Local
-                                                                                                                                                                                          ( Name "x28" )
-                                                                                                                                                                                        )
-                                                                                                                                                                                      )
-                                                                                                                                                                                      ( LiteralInt Nothing 1 )
-                                                                                                                                                                                    ] :|
-                                                                                                                                                                                    [ AbsN Nothing
-                                                                                                                                                                                      ( ParamNamed Nothing
-                                                                                                                                                                                        ( Name "x29" ) :| []
-                                                                                                                                                                                      )
-                                                                                                                                                                                      ( AppN Nothing
-                                                                                                                                                                                        ( Ref Nothing
-                                                                                                                                                                                          ( Imported
-                                                                                                                                                                                            ( ModuleName "Golden.LongMaybeBind.Test" )
-                                                                                                                                                                                            ( Name "bind$w" )
-                                                                                                                                                                                          )
-                                                                                                                                                                                        )
-                                                                                                                                                                                        ( Ctor Nothing SumType
-                                                                                                                                                                                          ( ModuleName "Data.Maybe" )
-                                                                                                                                                                                          ( TyName "Maybe" )
-                                                                                                                                                                                          ( CtorName "Just" )
-                                                                                                                                                                                          [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                                                            ( Ref Nothing
-                                                                                                                                                                                              ( Local
-                                                                                                                                                                                                ( Name "x29" )
-                                                                                                                                                                                              )
-                                                                                                                                                                                            )
-                                                                                                                                                                                            ( LiteralInt Nothing 1 )
-                                                                                                                                                                                          ] :|
-                                                                                                                                                                                          [ AbsN Nothing
-                                                                                                                                                                                            ( ParamNamed Nothing
-                                                                                                                                                                                              ( Name "x30" ) :| []
-                                                                                                                                                                                            )
-                                                                                                                                                                                            ( AppN Nothing
-                                                                                                                                                                                              ( Ref Nothing
-                                                                                                                                                                                                ( Imported
-                                                                                                                                                                                                  ( ModuleName "Golden.LongMaybeBind.Test" )
-                                                                                                                                                                                                  ( Name "bind$w" )
-                                                                                                                                                                                                )
-                                                                                                                                                                                              )
-                                                                                                                                                                                              ( Ctor Nothing SumType
-                                                                                                                                                                                                ( ModuleName "Data.Maybe" )
-                                                                                                                                                                                                ( TyName "Maybe" )
-                                                                                                                                                                                                ( CtorName "Just" )
-                                                                                                                                                                                                [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                                                                  ( Ref Nothing
-                                                                                                                                                                                                    ( Local
-                                                                                                                                                                                                      ( Name "x30" )
-                                                                                                                                                                                                    )
-                                                                                                                                                                                                  )
-                                                                                                                                                                                                  ( LiteralInt Nothing 1 )
-                                                                                                                                                                                                ] :|
-                                                                                                                                                                                                [ AbsN Nothing
-                                                                                                                                                                                                  ( ParamNamed Nothing
-                                                                                                                                                                                                    ( Name "x31" ) :| []
-                                                                                                                                                                                                  )
-                                                                                                                                                                                                  ( AppN Nothing
-                                                                                                                                                                                                    ( Ref Nothing
-                                                                                                                                                                                                      ( Imported
-                                                                                                                                                                                                        ( ModuleName "Golden.LongMaybeBind.Test" )
-                                                                                                                                                                                                        ( Name "bind$w" )
-                                                                                                                                                                                                      )
-                                                                                                                                                                                                    )
-                                                                                                                                                                                                    ( Ctor Nothing SumType
-                                                                                                                                                                                                      ( ModuleName "Data.Maybe" )
-                                                                                                                                                                                                      ( TyName "Maybe" )
-                                                                                                                                                                                                      ( CtorName "Just" )
-                                                                                                                                                                                                      [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                                                                        ( Ref Nothing
-                                                                                                                                                                                                          ( Local
-                                                                                                                                                                                                            ( Name "x31" )
-                                                                                                                                                                                                          )
-                                                                                                                                                                                                        )
-                                                                                                                                                                                                        ( LiteralInt Nothing 1 )
-                                                                                                                                                                                                      ] :|
-                                                                                                                                                                                                      [ AbsN Nothing
-                                                                                                                                                                                                        ( ParamNamed Nothing
-                                                                                                                                                                                                          ( Name "x32" ) :| []
-                                                                                                                                                                                                        )
-                                                                                                                                                                                                        ( AppN Nothing
-                                                                                                                                                                                                          ( Ref Nothing
-                                                                                                                                                                                                            ( Imported
-                                                                                                                                                                                                              ( ModuleName "Golden.LongMaybeBind.Test" )
-                                                                                                                                                                                                              ( Name "bind$w" )
-                                                                                                                                                                                                            )
-                                                                                                                                                                                                          )
-                                                                                                                                                                                                          ( Ctor Nothing SumType
-                                                                                                                                                                                                            ( ModuleName "Data.Maybe" )
-                                                                                                                                                                                                            ( TyName "Maybe" )
-                                                                                                                                                                                                            ( CtorName "Just" )
-                                                                                                                                                                                                            [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                                                                              ( Ref Nothing
-                                                                                                                                                                                                                ( Local
-                                                                                                                                                                                                                  ( Name "x32" )
-                                                                                                                                                                                                                )
-                                                                                                                                                                                                              )
-                                                                                                                                                                                                              ( LiteralInt Nothing 1 )
-                                                                                                                                                                                                            ] :|
-                                                                                                                                                                                                            [ AbsN Nothing
-                                                                                                                                                                                                              ( ParamNamed Nothing
-                                                                                                                                                                                                                ( Name "x33" ) :| []
-                                                                                                                                                                                                              )
-                                                                                                                                                                                                              ( AppN Nothing
-                                                                                                                                                                                                                ( Ref Nothing
-                                                                                                                                                                                                                  ( Imported
-                                                                                                                                                                                                                    ( ModuleName "Golden.LongMaybeBind.Test" )
-                                                                                                                                                                                                                    ( Name "bind$w" )
-                                                                                                                                                                                                                  )
-                                                                                                                                                                                                                )
-                                                                                                                                                                                                                ( Ctor Nothing SumType
-                                                                                                                                                                                                                  ( ModuleName "Data.Maybe" )
-                                                                                                                                                                                                                  ( TyName "Maybe" )
-                                                                                                                                                                                                                  ( CtorName "Just" )
-                                                                                                                                                                                                                  [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                                                                                    ( Ref Nothing
-                                                                                                                                                                                                                      ( Local
-                                                                                                                                                                                                                        ( Name "x33" )
-                                                                                                                                                                                                                      )
-                                                                                                                                                                                                                    )
-                                                                                                                                                                                                                    ( LiteralInt Nothing 1 )
-                                                                                                                                                                                                                  ] :|
-                                                                                                                                                                                                                  [ AbsN Nothing
-                                                                                                                                                                                                                    ( ParamNamed Nothing
-                                                                                                                                                                                                                      ( Name "x34" ) :| []
-                                                                                                                                                                                                                    )
-                                                                                                                                                                                                                    ( AppN Nothing
-                                                                                                                                                                                                                      ( Ref Nothing
-                                                                                                                                                                                                                        ( Imported
-                                                                                                                                                                                                                          ( ModuleName "Golden.LongMaybeBind.Test" )
-                                                                                                                                                                                                                          ( Name "bind$w" )
-                                                                                                                                                                                                                        )
-                                                                                                                                                                                                                      )
-                                                                                                                                                                                                                      ( Ctor Nothing SumType
-                                                                                                                                                                                                                        ( ModuleName "Data.Maybe" )
-                                                                                                                                                                                                                        ( TyName "Maybe" )
-                                                                                                                                                                                                                        ( CtorName "Just" )
-                                                                                                                                                                                                                        [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                                                                                          ( Ref Nothing
-                                                                                                                                                                                                                            ( Local
-                                                                                                                                                                                                                              ( Name "x34" )
-                                                                                                                                                                                                                            )
-                                                                                                                                                                                                                          )
-                                                                                                                                                                                                                          ( LiteralInt Nothing 1 )
-                                                                                                                                                                                                                        ] :|
-                                                                                                                                                                                                                        [ AbsN Nothing
-                                                                                                                                                                                                                          ( ParamNamed Nothing
-                                                                                                                                                                                                                            ( Name "x35" ) :| []
-                                                                                                                                                                                                                          )
-                                                                                                                                                                                                                          ( AppN Nothing
-                                                                                                                                                                                                                            ( Ref Nothing
-                                                                                                                                                                                                                              ( Imported
-                                                                                                                                                                                                                                ( ModuleName "Golden.LongMaybeBind.Test" )
-                                                                                                                                                                                                                                ( Name "bind$w" )
-                                                                                                                                                                                                                              )
-                                                                                                                                                                                                                            )
-                                                                                                                                                                                                                            ( Ctor Nothing SumType
-                                                                                                                                                                                                                              ( ModuleName "Data.Maybe" )
-                                                                                                                                                                                                                              ( TyName "Maybe" )
-                                                                                                                                                                                                                              ( CtorName "Just" )
-                                                                                                                                                                                                                              [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                                                                                                ( Ref Nothing
-                                                                                                                                                                                                                                  ( Local
-                                                                                                                                                                                                                                    ( Name "x35" )
-                                                                                                                                                                                                                                  )
-                                                                                                                                                                                                                                )
-                                                                                                                                                                                                                                ( LiteralInt Nothing 1 )
-                                                                                                                                                                                                                              ] :|
-                                                                                                                                                                                                                              [ AbsN Nothing
-                                                                                                                                                                                                                                ( ParamNamed Nothing
-                                                                                                                                                                                                                                  ( Name "x36" ) :| []
-                                                                                                                                                                                                                                )
-                                                                                                                                                                                                                                ( AppN Nothing
-                                                                                                                                                                                                                                  ( Ref Nothing
-                                                                                                                                                                                                                                    ( Imported
-                                                                                                                                                                                                                                      ( ModuleName "Golden.LongMaybeBind.Test" )
-                                                                                                                                                                                                                                      ( Name "bind$w" )
-                                                                                                                                                                                                                                    )
-                                                                                                                                                                                                                                  )
-                                                                                                                                                                                                                                  ( Ctor Nothing SumType
-                                                                                                                                                                                                                                    ( ModuleName "Data.Maybe" )
-                                                                                                                                                                                                                                    ( TyName "Maybe" )
-                                                                                                                                                                                                                                    ( CtorName "Just" )
-                                                                                                                                                                                                                                    [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                                                                                                      ( Ref Nothing
-                                                                                                                                                                                                                                        ( Local
-                                                                                                                                                                                                                                          ( Name "x36" )
-                                                                                                                                                                                                                                        )
-                                                                                                                                                                                                                                      )
-                                                                                                                                                                                                                                      ( LiteralInt Nothing 1 )
-                                                                                                                                                                                                                                    ] :|
-                                                                                                                                                                                                                                    [ AbsN Nothing
-                                                                                                                                                                                                                                      ( ParamNamed Nothing
-                                                                                                                                                                                                                                        ( Name "x37" ) :| []
-                                                                                                                                                                                                                                      )
-                                                                                                                                                                                                                                      ( AppN Nothing
-                                                                                                                                                                                                                                        ( Ref Nothing
-                                                                                                                                                                                                                                          ( Imported
-                                                                                                                                                                                                                                            ( ModuleName "Golden.LongMaybeBind.Test" )
-                                                                                                                                                                                                                                            ( Name "bind$w" )
-                                                                                                                                                                                                                                          )
-                                                                                                                                                                                                                                        )
-                                                                                                                                                                                                                                        ( Ctor Nothing SumType
-                                                                                                                                                                                                                                          ( ModuleName "Data.Maybe" )
-                                                                                                                                                                                                                                          ( TyName "Maybe" )
-                                                                                                                                                                                                                                          ( CtorName "Just" )
-                                                                                                                                                                                                                                          [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                                                                                                            ( Ref Nothing
-                                                                                                                                                                                                                                              ( Local
-                                                                                                                                                                                                                                                ( Name "x37" )
-                                                                                                                                                                                                                                              )
-                                                                                                                                                                                                                                            )
-                                                                                                                                                                                                                                            ( LiteralInt Nothing 1 )
-                                                                                                                                                                                                                                          ] :|
-                                                                                                                                                                                                                                          [ AbsN Nothing
-                                                                                                                                                                                                                                            ( ParamNamed Nothing
-                                                                                                                                                                                                                                              ( Name "x38" ) :| []
-                                                                                                                                                                                                                                            )
-                                                                                                                                                                                                                                            ( AppN Nothing
-                                                                                                                                                                                                                                              ( Ref Nothing
-                                                                                                                                                                                                                                                ( Imported
-                                                                                                                                                                                                                                                  ( ModuleName "Golden.LongMaybeBind.Test" )
-                                                                                                                                                                                                                                                  ( Name "bind$w" )
-                                                                                                                                                                                                                                                )
-                                                                                                                                                                                                                                              )
-                                                                                                                                                                                                                                              ( Ctor Nothing SumType
-                                                                                                                                                                                                                                                ( ModuleName "Data.Maybe" )
-                                                                                                                                                                                                                                                ( TyName "Maybe" )
-                                                                                                                                                                                                                                                ( CtorName "Just" )
-                                                                                                                                                                                                                                                [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                                                                                                                  ( Ref Nothing
-                                                                                                                                                                                                                                                    ( Local
-                                                                                                                                                                                                                                                      ( Name "x38" )
-                                                                                                                                                                                                                                                    )
-                                                                                                                                                                                                                                                  )
-                                                                                                                                                                                                                                                  ( LiteralInt Nothing 1 )
-                                                                                                                                                                                                                                                ] :|
-                                                                                                                                                                                                                                                [ AbsN Nothing
-                                                                                                                                                                                                                                                  ( ParamNamed Nothing
-                                                                                                                                                                                                                                                    ( Name "x39" ) :| []
-                                                                                                                                                                                                                                                  )
-                                                                                                                                                                                                                                                  ( AppN Nothing
-                                                                                                                                                                                                                                                    ( Ref Nothing
-                                                                                                                                                                                                                                                      ( Imported
-                                                                                                                                                                                                                                                        ( ModuleName "Golden.LongMaybeBind.Test" )
-                                                                                                                                                                                                                                                        ( Name "bind$w" )
-                                                                                                                                                                                                                                                      )
-                                                                                                                                                                                                                                                    )
-                                                                                                                                                                                                                                                    ( Ctor Nothing SumType
-                                                                                                                                                                                                                                                      ( ModuleName "Data.Maybe" )
-                                                                                                                                                                                                                                                      ( TyName "Maybe" )
-                                                                                                                                                                                                                                                      ( CtorName "Just" )
-                                                                                                                                                                                                                                                      [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                                                                                                                        ( Ref Nothing
-                                                                                                                                                                                                                                                          ( Local
-                                                                                                                                                                                                                                                            ( Name "x39" )
-                                                                                                                                                                                                                                                          )
-                                                                                                                                                                                                                                                        )
-                                                                                                                                                                                                                                                        ( LiteralInt Nothing 1 )
-                                                                                                                                                                                                                                                      ] :|
-                                                                                                                                                                                                                                                      [ AbsN Nothing
-                                                                                                                                                                                                                                                        ( ParamNamed Nothing
-                                                                                                                                                                                                                                                          ( Name "x40" ) :| []
-                                                                                                                                                                                                                                                        )
-                                                                                                                                                                                                                                                        ( AppN Nothing
-                                                                                                                                                                                                                                                          ( Ref Nothing
-                                                                                                                                                                                                                                                            ( Local
-                                                                                                                                                                                                                                                              ( Name "$kont1249$w" )
-                                                                                                                                                                                                                                                            )
-                                                                                                                                                                                                                                                          )
-                                                                                                                                                                                                                                                          ( Ref Nothing
-                                                                                                                                                                                                                                                            ( Local
-                                                                                                                                                                                                                                                              ( Name "x1" )
-                                                                                                                                                                                                                                                            ) :|
-                                                                                                                                                                                                                                                            [ Ref Nothing
-                                                                                                                                                                                                                                                              ( Local
-                                                                                                                                                                                                                                                                ( Name "x40" )
-                                                                                                                                                                                                                                                              )
-                                                                                                                                                                                                                                                            ]
-                                                                                                                                                                                                                                                          )
-                                                                                                                                                                                                                                                        )
-                                                                                                                                                                                                                                                      ]
-                                                                                                                                                                                                                                                    )
-                                                                                                                                                                                                                                                  )
-                                                                                                                                                                                                                                                ]
-                                                                                                                                                                                                                                              )
-                                                                                                                                                                                                                                            )
-                                                                                                                                                                                                                                          ]
-                                                                                                                                                                                                                                        )
-                                                                                                                                                                                                                                      )
-                                                                                                                                                                                                                                    ]
-                                                                                                                                                                                                                                  )
-                                                                                                                                                                                                                                )
-                                                                                                                                                                                                                              ]
-                                                                                                                                                                                                                            )
-                                                                                                                                                                                                                          )
-                                                                                                                                                                                                                        ]
-                                                                                                                                                                                                                      )
-                                                                                                                                                                                                                    )
-                                                                                                                                                                                                                  ]
-                                                                                                                                                                                                                )
-                                                                                                                                                                                                              )
-                                                                                                                                                                                                            ]
-                                                                                                                                                                                                          )
-                                                                                                                                                                                                        )
-                                                                                                                                                                                                      ]
-                                                                                                                                                                                                    )
-                                                                                                                                                                                                  )
-                                                                                                                                                                                                ]
-                                                                                                                                                                                              )
-                                                                                                                                                                                            )
-                                                                                                                                                                                          ]
-                                                                                                                                                                                        )
-                                                                                                                                                                                      )
-                                                                                                                                                                                    ]
-                                                                                                                                                                                  )
-                                                                                                                                                                                )
-                                                                                                                                                                              ]
-                                                                                                                                                                            )
-                                                                                                                                                                          )
-                                                                                                                                                                        ]
-                                                                                                                                                                      )
-                                                                                                                                                                    )
-                                                                                                                                                                  ]
-                                                                                                                                                                )
-                                                                                                                                                              )
-                                                                                                                                                            ]
-                                                                                                                                                          )
-                                                                                                                                                        )
-                                                                                                                                                      ]
-                                                                                                                                                    )
-                                                                                                                                                  )
-                                                                                                                                                ]
-                                                                                                                                              )
-                                                                                                                                            )
-                                                                                                                                          ]
-                                                                                                                                        )
-                                                                                                                                      )
-                                                                                                                                    ]
-                                                                                                                                  )
-                                                                                                                                )
-                                                                                                                              ]
-                                                                                                                            )
-                                                                                                                          )
-                                                                                                                        ]
-                                                                                                                      )
-                                                                                                                    )
-                                                                                                                  ]
-                                                                                                                )
-                                                                                                              )
-                                                                                                            ]
-                                                                                                          )
-                                                                                                        )
-                                                                                                      ]
-                                                                                                    )
-                                                                                                  )
-                                                                                                ]
-                                                                                              )
-                                                                                            )
-                                                                                          ]
-                                                                                        )
-                                                                                      )
-                                                                                    ]
-                                                                                  )
-                                                                                )
-                                                                              ]
-                                                                            )
-                                                                          )
-                                                                        ]
-                                                                      )
-                                                                    )
-                                                                  ]
-                                                                )
-                                                              )
-                                                            ]
-                                                          )
-                                                        )
-                                                      ]
-                                                    )
-                                                  )
-                                                ]
-                                              )
-                                            )
-                                          ]
-                                        )
-                                      )
-                                    ]
-                                  )
-                                )
-                              ]
-                            )
-                          )
-                        ]
-                      )
-                    )
-                  ]
-                )
-              )
-            ]
-          )
-        )
+        }, Ctor Nothing SumType
+        ( ModuleName "Data.Maybe" )
+        ( TyName "Maybe" )
+        ( CtorName "Just" )
+        [ LiteralInt Nothing 301 ]
       )
     ], uberModuleForeigns = [], uberModuleExports =
     [
diff --git a/test/ps/output/Golden.LongMaybeBind.Test/golden.lua b/test/ps/output/Golden.LongMaybeBind.Test/golden.lua
index f47cc70c..85c49452 100644
--- a/test/ps/output/Golden.LongMaybeBind.Test/golden.lua
+++ b/test/ps/output/Golden.LongMaybeBind.Test/golden.lua
@@ -1,1558 +1,8 @@
-local Data_Unit_foreign = { unit = {} }
-local Data_Unit_unit = Data_Unit_foreign.unit
 local Data_Show_foreign = { showIntImpl = function(n) return tostring(n) end }
 local Effect_Console_foreign = {
   log = function(s) return function() print(s) end end
 }
-local Golden_LongMaybeBind_Test_bind_S_w = function(v_S_0, v1_S_0)
-  if "Data.Maybe∷Maybe.Just" == v_S_0[1] then
-    return v1_S_0(v_S_0[2])
-  else
-    return { "Data.Maybe∷Maybe.Nothing" }
-  end
-end
-local Golden_LongMaybeBind_Test_compute = (function()
-  local _S_kont0_S_w = function(x1_S_0, x277_S_0)
-    return Golden_LongMaybeBind_Test_bind_S_w({
-      "Data.Maybe∷Maybe.Just",
-      x277_S_0 + 1
-    }, function(x278)
-      return Golden_LongMaybeBind_Test_bind_S_w({
-        "Data.Maybe∷Maybe.Just",
-        x278 + 1
-      }, function(x279)
-        return Golden_LongMaybeBind_Test_bind_S_w({
-          "Data.Maybe∷Maybe.Just",
-          x279 + 1
-        }, function(x280)
-          return Golden_LongMaybeBind_Test_bind_S_w({
-            "Data.Maybe∷Maybe.Just",
-            x280 + 1
-          }, function(x281)
-            return Golden_LongMaybeBind_Test_bind_S_w({
-              "Data.Maybe∷Maybe.Just",
-              x281 + 1
-            }, function(x282)
-              return Golden_LongMaybeBind_Test_bind_S_w({
-                "Data.Maybe∷Maybe.Just",
-                x282 + 1
-              }, function(x283)
-                return Golden_LongMaybeBind_Test_bind_S_w({
-                  "Data.Maybe∷Maybe.Just",
-                  x283 + 1
-                }, function(x284)
-                  return Golden_LongMaybeBind_Test_bind_S_w({
-                    "Data.Maybe∷Maybe.Just",
-                    x284 + 1
-                  }, function(x285)
-                    return Golden_LongMaybeBind_Test_bind_S_w({
-                      "Data.Maybe∷Maybe.Just",
-                      x285 + 1
-                    }, function(x286)
-                      return Golden_LongMaybeBind_Test_bind_S_w({
-                        "Data.Maybe∷Maybe.Just",
-                        x286 + 1
-                      }, function(x287)
-                        return Golden_LongMaybeBind_Test_bind_S_w({
-                          "Data.Maybe∷Maybe.Just",
-                          x287 + 1
-                        }, function(x288)
-                          return Golden_LongMaybeBind_Test_bind_S_w({
-                            "Data.Maybe∷Maybe.Just",
-                            x288 + 1
-                          }, function(x289)
-                            return Golden_LongMaybeBind_Test_bind_S_w({
-                              "Data.Maybe∷Maybe.Just",
-                              x289 + 1
-                            }, function(x290)
-                              return Golden_LongMaybeBind_Test_bind_S_w({
-                                "Data.Maybe∷Maybe.Just",
-                                x290 + 1
-                              }, function(x291)
-                                return Golden_LongMaybeBind_Test_bind_S_w({
-                                  "Data.Maybe∷Maybe.Just",
-                                  x291 + 1
-                                }, function(x292)
-                                  return Golden_LongMaybeBind_Test_bind_S_w({
-                                    "Data.Maybe∷Maybe.Just",
-                                    x292 + 1
-                                  }, function(x293)
-                                    return Golden_LongMaybeBind_Test_bind_S_w({
-                                      "Data.Maybe∷Maybe.Just",
-                                      x293 + 1
-                                    }, function(x294)
-                                      return Golden_LongMaybeBind_Test_bind_S_w({
-                                        "Data.Maybe∷Maybe.Just",
-                                        x294 + 1
-                                      }, function(x295)
-                                        return Golden_LongMaybeBind_Test_bind_S_w({
-                                          "Data.Maybe∷Maybe.Just",
-                                          x295 + 1
-                                        }, function(x296)
-                                          return Golden_LongMaybeBind_Test_bind_S_w({
-                                            "Data.Maybe∷Maybe.Just",
-                                            x296 + 1
-                                          }, function(x297)
-                                            return Golden_LongMaybeBind_Test_bind_S_w({
-                                              "Data.Maybe∷Maybe.Just",
-                                              x297 + 1
-                                            }, function(x298)
-                                              return Golden_LongMaybeBind_Test_bind_S_w({
-                                                "Data.Maybe∷Maybe.Just",
-                                                x298 + 1
-                                              }, function(x299)
-                                                return Golden_LongMaybeBind_Test_bind_S_w({
-                                                  "Data.Maybe∷Maybe.Just",
-                                                  x299 + 1
-                                                }, function(x300)
-                                                  return {
-                                                    "Data.Maybe∷Maybe.Just",
-                                                    x1_S_0 + x300
-                                                  }
-                                                end)
-                                              end)
-                                            end)
-                                          end)
-                                        end)
-                                      end)
-                                    end)
-                                  end)
-                                end)
-                              end)
-                            end)
-                          end)
-                        end)
-                      end)
-                    end)
-                  end)
-                end)
-              end)
-            end)
-          end)
-        end)
-      end)
-    end)
-  end
-  local _S_kont1_S_w = function(x1_S_1, x238_S_0)
-    return Golden_LongMaybeBind_Test_bind_S_w({
-      "Data.Maybe∷Maybe.Just",
-      x238_S_0 + 1
-    }, function(x239)
-      return Golden_LongMaybeBind_Test_bind_S_w({
-        "Data.Maybe∷Maybe.Just",
-        x239 + 1
-      }, function(x240)
-        return Golden_LongMaybeBind_Test_bind_S_w({
-          "Data.Maybe∷Maybe.Just",
-          x240 + 1
-        }, function(x241)
-          return Golden_LongMaybeBind_Test_bind_S_w({
-            "Data.Maybe∷Maybe.Just",
-            x241 + 1
-          }, function(x242)
-            return Golden_LongMaybeBind_Test_bind_S_w({
-              "Data.Maybe∷Maybe.Just",
-              x242 + 1
-            }, function(x243)
-              return Golden_LongMaybeBind_Test_bind_S_w({
-                "Data.Maybe∷Maybe.Just",
-                x243 + 1
-              }, function(x244)
-                return Golden_LongMaybeBind_Test_bind_S_w({
-                  "Data.Maybe∷Maybe.Just",
-                  x244 + 1
-                }, function(x245)
-                  return Golden_LongMaybeBind_Test_bind_S_w({
-                    "Data.Maybe∷Maybe.Just",
-                    x245 + 1
-                  }, function(x246)
-                    return Golden_LongMaybeBind_Test_bind_S_w({
-                      "Data.Maybe∷Maybe.Just",
-                      x246 + 1
-                    }, function(x247)
-                      return Golden_LongMaybeBind_Test_bind_S_w({
-                        "Data.Maybe∷Maybe.Just",
-                        x247 + 1
-                      }, function(x248)
-                        return Golden_LongMaybeBind_Test_bind_S_w({
-                          "Data.Maybe∷Maybe.Just",
-                          x248 + 1
-                        }, function(x249)
-                          return Golden_LongMaybeBind_Test_bind_S_w({
-                            "Data.Maybe∷Maybe.Just",
-                            x249 + 1
-                          }, function(x250)
-                            return Golden_LongMaybeBind_Test_bind_S_w({
-                              "Data.Maybe∷Maybe.Just",
-                              Data_Unit_unit
-                            }, function()
-                              return Golden_LongMaybeBind_Test_bind_S_w({
-                                "Data.Maybe∷Maybe.Just",
-                                x250 + 1
-                              }, function(x251)
-                                return Golden_LongMaybeBind_Test_bind_S_w({
-                                  "Data.Maybe∷Maybe.Just",
-                                  x251 + 1
-                                }, function(x252)
-                                  return Golden_LongMaybeBind_Test_bind_S_w({
-                                    "Data.Maybe∷Maybe.Just",
-                                    x252 + 1
-                                  }, function(x253)
-                                    return Golden_LongMaybeBind_Test_bind_S_w({
-                                      "Data.Maybe∷Maybe.Just",
-                                      x253 + 1
-                                    }, function(x254)
-                                      return Golden_LongMaybeBind_Test_bind_S_w({
-                                        "Data.Maybe∷Maybe.Just",
-                                        x254 + 1
-                                      }, function(x255)
-                                        return Golden_LongMaybeBind_Test_bind_S_w({
-                                          "Data.Maybe∷Maybe.Just",
-                                          x255 + 1
-                                        }, function(x256)
-                                          return Golden_LongMaybeBind_Test_bind_S_w({
-                                            "Data.Maybe∷Maybe.Just",
-                                            x256 + 1
-                                          }, function(x257)
-                                            return Golden_LongMaybeBind_Test_bind_S_w({
-                                              "Data.Maybe∷Maybe.Just",
-                                              x257 + 1
-                                            }, function(x258)
-                                              return Golden_LongMaybeBind_Test_bind_S_w({
-                                                "Data.Maybe∷Maybe.Just",
-                                                x258 + 1
-                                              }, function(x259)
-                                                return Golden_LongMaybeBind_Test_bind_S_w({
-                                                  "Data.Maybe∷Maybe.Just",
-                                                  x259 + 1
-                                                }, function(x260)
-                                                  return Golden_LongMaybeBind_Test_bind_S_w({
-                                                    "Data.Maybe∷Maybe.Just",
-                                                    x260 + 1
-                                                  }, function(x261)
-                                                    return Golden_LongMaybeBind_Test_bind_S_w({
-                                                      "Data.Maybe∷Maybe.Just",
-                                                      x261 + 1
-                                                    }, function(x262)
-                                                      return Golden_LongMaybeBind_Test_bind_S_w({
-                                                        "Data.Maybe∷Maybe.Just",
-                                                        x262 + 1
-                                                      }, function(x263)
-                                                        return Golden_LongMaybeBind_Test_bind_S_w({
-                                                          "Data.Maybe∷Maybe.Just",
-                                                          x263 + 1
-                                                        }, function(x264)
-                                                          return Golden_LongMaybeBind_Test_bind_S_w({
-                                                            "Data.Maybe∷Maybe.Just",
-                                                            x264 + 1
-                                                          }, function(x265)
-                                                            return Golden_LongMaybeBind_Test_bind_S_w({
-                                                              "Data.Maybe∷Maybe.Just",
-                                                              x265 + 1
-                                                            }, function(x266)
-                                                              return Golden_LongMaybeBind_Test_bind_S_w({
-                                                                "Data.Maybe∷Maybe.Just",
-                                                                x266 + 1
-                                                              }, function(x267)
-                                                                return Golden_LongMaybeBind_Test_bind_S_w({
-                                                                  "Data.Maybe∷Maybe.Just",
-                                                                  x267 + 1
-                                                                }, function( x268 )
-                                                                  return Golden_LongMaybeBind_Test_bind_S_w({
-                                                                    "Data.Maybe∷Maybe.Just",
-                                                                    x268 + 1
-                                                                  }, function( x269 )
-                                                                    return Golden_LongMaybeBind_Test_bind_S_w({
-                                                                      "Data.Maybe∷Maybe.Just",
-                                                                      x269 + 1
-                                                                    }, function( x270 )
-                                                                      return Golden_LongMaybeBind_Test_bind_S_w({
-                                                                        "Data.Maybe∷Maybe.Just",
-                                                                        x270 + 1
-                                                                      }, function( x271 )
-                                                                        return Golden_LongMaybeBind_Test_bind_S_w({
-                                                                          "Data.Maybe∷Maybe.Just",
-                                                                          x271 + 1
-                                                                        }, function( x272 )
-                                                                          return Golden_LongMaybeBind_Test_bind_S_w({
-                                                                            "Data.Maybe∷Maybe.Just",
-                                                                            x272 + 1
-                                                                          }, function( x273 )
-                                                                            return Golden_LongMaybeBind_Test_bind_S_w({
-                                                                              "Data.Maybe∷Maybe.Just",
-                                                                              x273 + 1
-                                                                            }, function( x274 )
-                                                                              return Golden_LongMaybeBind_Test_bind_S_w({
-                                                                                "Data.Maybe∷Maybe.Just",
-                                                                                x274 + 1
-                                                                              }, function( x275 )
-                                                                                return Golden_LongMaybeBind_Test_bind_S_w({
-                                                                                  "Data.Maybe∷Maybe.Just",
-                                                                                  x275 + 1
-                                                                                }, function( x276 )
-                                                                                  return Golden_LongMaybeBind_Test_bind_S_w({
-                                                                                    "Data.Maybe∷Maybe.Just",
-                                                                                    x276 + 1
-                                                                                  }, function( x277 )
-                                                                                    return _S_kont0_S_w(x1_S_1, x277)
-                                                                                  end)
-                                                                                end)
-                                                                              end)
-                                                                            end)
-                                                                          end)
-                                                                        end)
-                                                                      end)
-                                                                    end)
-                                                                  end)
-                                                                end)
-                                                              end)
-                                                            end)
-                                                          end)
-                                                        end)
-                                                      end)
-                                                    end)
-                                                  end)
-                                                end)
-                                              end)
-                                            end)
-                                          end)
-                                        end)
-                                      end)
-                                    end)
-                                  end)
-                                end)
-                              end)
-                            end)
-                          end)
-                        end)
-                      end)
-                    end)
-                  end)
-                end)
-              end)
-            end)
-          end)
-        end)
-      end)
-    end)
-  end
-  local _S_kont2_S_w = function(x1_S_2, x198_S_0)
-    return Golden_LongMaybeBind_Test_bind_S_w({
-      "Data.Maybe∷Maybe.Just",
-      x198_S_0 + 1
-    }, function(x199)
-      return Golden_LongMaybeBind_Test_bind_S_w({
-        "Data.Maybe∷Maybe.Just",
-        x199 + 1
-      }, function(x200)
-        return Golden_LongMaybeBind_Test_bind_S_w({
-          "Data.Maybe∷Maybe.Just",
-          x200 + 1
-        }, function(x201)
-          return Golden_LongMaybeBind_Test_bind_S_w({
-            "Data.Maybe∷Maybe.Just",
-            x201 + 1
-          }, function(x202)
-            return Golden_LongMaybeBind_Test_bind_S_w({
-              "Data.Maybe∷Maybe.Just",
-              x202 + 1
-            }, function(x203)
-              return Golden_LongMaybeBind_Test_bind_S_w({
-                "Data.Maybe∷Maybe.Just",
-                x203 + 1
-              }, function(x204)
-                return Golden_LongMaybeBind_Test_bind_S_w({
-                  "Data.Maybe∷Maybe.Just",
-                  x204 + 1
-                }, function(x205)
-                  return Golden_LongMaybeBind_Test_bind_S_w({
-                    "Data.Maybe∷Maybe.Just",
-                    x205 + 1
-                  }, function(x206)
-                    return Golden_LongMaybeBind_Test_bind_S_w({
-                      "Data.Maybe∷Maybe.Just",
-                      x206 + 1
-                    }, function(x207)
-                      return Golden_LongMaybeBind_Test_bind_S_w({
-                        "Data.Maybe∷Maybe.Just",
-                        x207 + 1
-                      }, function(x208)
-                        return Golden_LongMaybeBind_Test_bind_S_w({
-                          "Data.Maybe∷Maybe.Just",
-                          x208 + 1
-                        }, function(x209)
-                          return Golden_LongMaybeBind_Test_bind_S_w({
-                            "Data.Maybe∷Maybe.Just",
-                            x209 + 1
-                          }, function(x210)
-                            return Golden_LongMaybeBind_Test_bind_S_w({
-                              "Data.Maybe∷Maybe.Just",
-                              x210 + 1
-                            }, function(x211)
-                              return Golden_LongMaybeBind_Test_bind_S_w({
-                                "Data.Maybe∷Maybe.Just",
-                                x211 + 1
-                              }, function(x212)
-                                return Golden_LongMaybeBind_Test_bind_S_w({
-                                  "Data.Maybe∷Maybe.Just",
-                                  x212 + 1
-                                }, function(x213)
-                                  return Golden_LongMaybeBind_Test_bind_S_w({
-                                    "Data.Maybe∷Maybe.Just",
-                                    x213 + 1
-                                  }, function(x214)
-                                    return Golden_LongMaybeBind_Test_bind_S_w({
-                                      "Data.Maybe∷Maybe.Just",
-                                      x214 + 1
-                                    }, function(x215)
-                                      return Golden_LongMaybeBind_Test_bind_S_w({
-                                        "Data.Maybe∷Maybe.Just",
-                                        x215 + 1
-                                      }, function(x216)
-                                        return Golden_LongMaybeBind_Test_bind_S_w({
-                                          "Data.Maybe∷Maybe.Just",
-                                          x216 + 1
-                                        }, function(x217)
-                                          return Golden_LongMaybeBind_Test_bind_S_w({
-                                            "Data.Maybe∷Maybe.Just",
-                                            x217 + 1
-                                          }, function(x218)
-                                            return Golden_LongMaybeBind_Test_bind_S_w({
-                                              "Data.Maybe∷Maybe.Just",
-                                              x218 + 1
-                                            }, function(x219)
-                                              return Golden_LongMaybeBind_Test_bind_S_w({
-                                                "Data.Maybe∷Maybe.Just",
-                                                x219 + 1
-                                              }, function(x220)
-                                                return Golden_LongMaybeBind_Test_bind_S_w({
-                                                  "Data.Maybe∷Maybe.Just",
-                                                  x220 + 1
-                                                }, function(x221)
-                                                  return Golden_LongMaybeBind_Test_bind_S_w({
-                                                    "Data.Maybe∷Maybe.Just",
-                                                    x221 + 1
-                                                  }, function(x222)
-                                                    return Golden_LongMaybeBind_Test_bind_S_w({
-                                                      "Data.Maybe∷Maybe.Just",
-                                                      x222 + 1
-                                                    }, function(x223)
-                                                      return Golden_LongMaybeBind_Test_bind_S_w({
-                                                        "Data.Maybe∷Maybe.Just",
-                                                        x223 + 1
-                                                      }, function(x224)
-                                                        return Golden_LongMaybeBind_Test_bind_S_w({
-                                                          "Data.Maybe∷Maybe.Just",
-                                                          x224 + 1
-                                                        }, function(x225)
-                                                          return Golden_LongMaybeBind_Test_bind_S_w({
-                                                            "Data.Maybe∷Maybe.Just",
-                                                            x225 + 1
-                                                          }, function(x226)
-                                                            return Golden_LongMaybeBind_Test_bind_S_w({
-                                                              "Data.Maybe∷Maybe.Just",
-                                                              x226 + 1
-                                                            }, function(x227)
-                                                              return Golden_LongMaybeBind_Test_bind_S_w({
-                                                                "Data.Maybe∷Maybe.Just",
-                                                                x227 + 1
-                                                              }, function(x228)
-                                                                return Golden_LongMaybeBind_Test_bind_S_w({
-                                                                  "Data.Maybe∷Maybe.Just",
-                                                                  x228 + 1
-                                                                }, function( x229 )
-                                                                  return Golden_LongMaybeBind_Test_bind_S_w({
-                                                                    "Data.Maybe∷Maybe.Just",
-                                                                    x229 + 1
-                                                                  }, function( x230 )
-                                                                    return Golden_LongMaybeBind_Test_bind_S_w({
-                                                                      "Data.Maybe∷Maybe.Just",
-                                                                      x230 + 1
-                                                                    }, function( x231 )
-                                                                      return Golden_LongMaybeBind_Test_bind_S_w({
-                                                                        "Data.Maybe∷Maybe.Just",
-                                                                        x231 + 1
-                                                                      }, function( x232 )
-                                                                        return Golden_LongMaybeBind_Test_bind_S_w({
-                                                                          "Data.Maybe∷Maybe.Just",
-                                                                          x232 + 1
-                                                                        }, function( x233 )
-                                                                          return Golden_LongMaybeBind_Test_bind_S_w({
-                                                                            "Data.Maybe∷Maybe.Just",
-                                                                            x233 + 1
-                                                                          }, function( x234 )
-                                                                            return Golden_LongMaybeBind_Test_bind_S_w({
-                                                                              "Data.Maybe∷Maybe.Just",
-                                                                              x234 + 1
-                                                                            }, function( x235 )
-                                                                              return Golden_LongMaybeBind_Test_bind_S_w({
-                                                                                "Data.Maybe∷Maybe.Just",
-                                                                                x235 + 1
-                                                                              }, function( x236 )
-                                                                                return Golden_LongMaybeBind_Test_bind_S_w({
-                                                                                  "Data.Maybe∷Maybe.Just",
-                                                                                  x236 + 1
-                                                                                }, function( x237 )
-                                                                                  return Golden_LongMaybeBind_Test_bind_S_w({
-                                                                                    "Data.Maybe∷Maybe.Just",
-                                                                                    x237 + 1
-                                                                                  }, function( x238 )
-                                                                                    return _S_kont1_S_w(x1_S_2, x238)
-                                                                                  end)
-                                                                                end)
-                                                                              end)
-                                                                            end)
-                                                                          end)
-                                                                        end)
-                                                                      end)
-                                                                    end)
-                                                                  end)
-                                                                end)
-                                                              end)
-                                                            end)
-                                                          end)
-                                                        end)
-                                                      end)
-                                                    end)
-                                                  end)
-                                                end)
-                                              end)
-                                            end)
-                                          end)
-                                        end)
-                                      end)
-                                    end)
-                                  end)
-                                end)
-                              end)
-                            end)
-                          end)
-                        end)
-                      end)
-                    end)
-                  end)
-                end)
-              end)
-            end)
-          end)
-        end)
-      end)
-    end)
-  end
-  local _S_kont3_S_w = function(x1_S_3, x158_S_0)
-    return Golden_LongMaybeBind_Test_bind_S_w({
-      "Data.Maybe∷Maybe.Just",
-      x158_S_0 + 1
-    }, function(x159)
-      return Golden_LongMaybeBind_Test_bind_S_w({
-        "Data.Maybe∷Maybe.Just",
-        x159 + 1
-      }, function(x160)
-        return Golden_LongMaybeBind_Test_bind_S_w({
-          "Data.Maybe∷Maybe.Just",
-          x160 + 1
-        }, function(x161)
-          return Golden_LongMaybeBind_Test_bind_S_w({
-            "Data.Maybe∷Maybe.Just",
-            x161 + 1
-          }, function(x162)
-            return Golden_LongMaybeBind_Test_bind_S_w({
-              "Data.Maybe∷Maybe.Just",
-              x162 + 1
-            }, function(x163)
-              return Golden_LongMaybeBind_Test_bind_S_w({
-                "Data.Maybe∷Maybe.Just",
-                x163 + 1
-              }, function(x164)
-                return Golden_LongMaybeBind_Test_bind_S_w({
-                  "Data.Maybe∷Maybe.Just",
-                  x164 + 1
-                }, function(x165)
-                  return Golden_LongMaybeBind_Test_bind_S_w({
-                    "Data.Maybe∷Maybe.Just",
-                    x165 + 1
-                  }, function(x166)
-                    return Golden_LongMaybeBind_Test_bind_S_w({
-                      "Data.Maybe∷Maybe.Just",
-                      x166 + 1
-                    }, function(x167)
-                      return Golden_LongMaybeBind_Test_bind_S_w({
-                        "Data.Maybe∷Maybe.Just",
-                        x167 + 1
-                      }, function(x168)
-                        return Golden_LongMaybeBind_Test_bind_S_w({
-                          "Data.Maybe∷Maybe.Just",
-                          x168 + 1
-                        }, function(x169)
-                          return Golden_LongMaybeBind_Test_bind_S_w({
-                            "Data.Maybe∷Maybe.Just",
-                            x169 + 1
-                          }, function(x170)
-                            return Golden_LongMaybeBind_Test_bind_S_w({
-                              "Data.Maybe∷Maybe.Just",
-                              x170 + 1
-                            }, function(x171)
-                              return Golden_LongMaybeBind_Test_bind_S_w({
-                                "Data.Maybe∷Maybe.Just",
-                                x171 + 1
-                              }, function(x172)
-                                return Golden_LongMaybeBind_Test_bind_S_w({
-                                  "Data.Maybe∷Maybe.Just",
-                                  x172 + 1
-                                }, function(x173)
-                                  return Golden_LongMaybeBind_Test_bind_S_w({
-                                    "Data.Maybe∷Maybe.Just",
-                                    x173 + 1
-                                  }, function(x174)
-                                    return Golden_LongMaybeBind_Test_bind_S_w({
-                                      "Data.Maybe∷Maybe.Just",
-                                      x174 + 1
-                                    }, function(x175)
-                                      return Golden_LongMaybeBind_Test_bind_S_w({
-                                        "Data.Maybe∷Maybe.Just",
-                                        x175 + 1
-                                      }, function(x176)
-                                        return Golden_LongMaybeBind_Test_bind_S_w({
-                                          "Data.Maybe∷Maybe.Just",
-                                          x176 + 1
-                                        }, function(x177)
-                                          return Golden_LongMaybeBind_Test_bind_S_w({
-                                            "Data.Maybe∷Maybe.Just",
-                                            x177 + 1
-                                          }, function(x178)
-                                            return Golden_LongMaybeBind_Test_bind_S_w({
-                                              "Data.Maybe∷Maybe.Just",
-                                              x178 + 1
-                                            }, function(x179)
-                                              return Golden_LongMaybeBind_Test_bind_S_w({
-                                                "Data.Maybe∷Maybe.Just",
-                                                x179 + 1
-                                              }, function(x180)
-                                                return Golden_LongMaybeBind_Test_bind_S_w({
-                                                  "Data.Maybe∷Maybe.Just",
-                                                  x180 + 1
-                                                }, function(x181)
-                                                  return Golden_LongMaybeBind_Test_bind_S_w({
-                                                    "Data.Maybe∷Maybe.Just",
-                                                    x181 + 1
-                                                  }, function(x182)
-                                                    return Golden_LongMaybeBind_Test_bind_S_w({
-                                                      "Data.Maybe∷Maybe.Just",
-                                                      x182 + 1
-                                                    }, function(x183)
-                                                      return Golden_LongMaybeBind_Test_bind_S_w({
-                                                        "Data.Maybe∷Maybe.Just",
-                                                        x183 + 1
-                                                      }, function(x184)
-                                                        return Golden_LongMaybeBind_Test_bind_S_w({
-                                                          "Data.Maybe∷Maybe.Just",
-                                                          x184 + 1
-                                                        }, function(x185)
-                                                          return Golden_LongMaybeBind_Test_bind_S_w({
-                                                            "Data.Maybe∷Maybe.Just",
-                                                            x185 + 1
-                                                          }, function(x186)
-                                                            return Golden_LongMaybeBind_Test_bind_S_w({
-                                                              "Data.Maybe∷Maybe.Just",
-                                                              x186 + 1
-                                                            }, function(x187)
-                                                              return Golden_LongMaybeBind_Test_bind_S_w({
-                                                                "Data.Maybe∷Maybe.Just",
-                                                                x187 + 1
-                                                              }, function(x188)
-                                                                return Golden_LongMaybeBind_Test_bind_S_w({
-                                                                  "Data.Maybe∷Maybe.Just",
-                                                                  x188 + 1
-                                                                }, function( x189 )
-                                                                  return Golden_LongMaybeBind_Test_bind_S_w({
-                                                                    "Data.Maybe∷Maybe.Just",
-                                                                    x189 + 1
-                                                                  }, function( x190 )
-                                                                    return Golden_LongMaybeBind_Test_bind_S_w({
-                                                                      "Data.Maybe∷Maybe.Just",
-                                                                      x190 + 1
-                                                                    }, function( x191 )
-                                                                      return Golden_LongMaybeBind_Test_bind_S_w({
-                                                                        "Data.Maybe∷Maybe.Just",
-                                                                        x191 + 1
-                                                                      }, function( x192 )
-                                                                        return Golden_LongMaybeBind_Test_bind_S_w({
-                                                                          "Data.Maybe∷Maybe.Just",
-                                                                          x192 + 1
-                                                                        }, function( x193 )
-                                                                          return Golden_LongMaybeBind_Test_bind_S_w({
-                                                                            "Data.Maybe∷Maybe.Just",
-                                                                            x193 + 1
-                                                                          }, function( x194 )
-                                                                            return Golden_LongMaybeBind_Test_bind_S_w({
-                                                                              "Data.Maybe∷Maybe.Just",
-                                                                              x194 + 1
-                                                                            }, function( x195 )
-                                                                              return Golden_LongMaybeBind_Test_bind_S_w({
-                                                                                "Data.Maybe∷Maybe.Just",
-                                                                                x195 + 1
-                                                                              }, function( x196 )
-                                                                                return Golden_LongMaybeBind_Test_bind_S_w({
-                                                                                  "Data.Maybe∷Maybe.Just",
-                                                                                  x196 + 1
-                                                                                }, function( x197 )
-                                                                                  return Golden_LongMaybeBind_Test_bind_S_w({
-                                                                                    "Data.Maybe∷Maybe.Just",
-                                                                                    x197 + 1
-                                                                                  }, function( x198 )
-                                                                                    return _S_kont2_S_w(x1_S_3, x198)
-                                                                                  end)
-                                                                                end)
-                                                                              end)
-                                                                            end)
-                                                                          end)
-                                                                        end)
-                                                                      end)
-                                                                    end)
-                                                                  end)
-                                                                end)
-                                                              end)
-                                                            end)
-                                                          end)
-                                                        end)
-                                                      end)
-                                                    end)
-                                                  end)
-                                                end)
-                                              end)
-                                            end)
-                                          end)
-                                        end)
-                                      end)
-                                    end)
-                                  end)
-                                end)
-                              end)
-                            end)
-                          end)
-                        end)
-                      end)
-                    end)
-                  end)
-                end)
-              end)
-            end)
-          end)
-        end)
-      end)
-    end)
-  end
-  local _S_kont4_S_w = function(x1_S_4, x119_S_0)
-    return Golden_LongMaybeBind_Test_bind_S_w({
-      "Data.Maybe∷Maybe.Just",
-      x119_S_0 + 1
-    }, function(x120)
-      return Golden_LongMaybeBind_Test_bind_S_w({
-        "Data.Maybe∷Maybe.Just",
-        x120 + 1
-      }, function(x121)
-        return Golden_LongMaybeBind_Test_bind_S_w({
-          "Data.Maybe∷Maybe.Just",
-          x121 + 1
-        }, function(x122)
-          return Golden_LongMaybeBind_Test_bind_S_w({
-            "Data.Maybe∷Maybe.Just",
-            x122 + 1
-          }, function(x123)
-            return Golden_LongMaybeBind_Test_bind_S_w({
-              "Data.Maybe∷Maybe.Just",
-              x123 + 1
-            }, function(x124)
-              return Golden_LongMaybeBind_Test_bind_S_w({
-                "Data.Maybe∷Maybe.Just",
-                x124 + 1
-              }, function(x125)
-                return Golden_LongMaybeBind_Test_bind_S_w({
-                  "Data.Maybe∷Maybe.Just",
-                  x125 + 1
-                }, function(x126)
-                  return Golden_LongMaybeBind_Test_bind_S_w({
-                    "Data.Maybe∷Maybe.Just",
-                    x126 + 1
-                  }, function(x127)
-                    return Golden_LongMaybeBind_Test_bind_S_w({
-                      "Data.Maybe∷Maybe.Just",
-                      x127 + 1
-                    }, function(x128)
-                      return Golden_LongMaybeBind_Test_bind_S_w({
-                        "Data.Maybe∷Maybe.Just",
-                        x128 + 1
-                      }, function(x129)
-                        return Golden_LongMaybeBind_Test_bind_S_w({
-                          "Data.Maybe∷Maybe.Just",
-                          x129 + 1
-                        }, function(x130)
-                          return Golden_LongMaybeBind_Test_bind_S_w({
-                            "Data.Maybe∷Maybe.Just",
-                            x130 + 1
-                          }, function(x131)
-                            return Golden_LongMaybeBind_Test_bind_S_w({
-                              "Data.Maybe∷Maybe.Just",
-                              x131 + 1
-                            }, function(x132)
-                              return Golden_LongMaybeBind_Test_bind_S_w({
-                                "Data.Maybe∷Maybe.Just",
-                                x132 + 1
-                              }, function(x133)
-                                return Golden_LongMaybeBind_Test_bind_S_w({
-                                  "Data.Maybe∷Maybe.Just",
-                                  x133 + 1
-                                }, function(x134)
-                                  return Golden_LongMaybeBind_Test_bind_S_w({
-                                    "Data.Maybe∷Maybe.Just",
-                                    x134 + 1
-                                  }, function(x135)
-                                    return Golden_LongMaybeBind_Test_bind_S_w({
-                                      "Data.Maybe∷Maybe.Just",
-                                      x135 + 1
-                                    }, function(x136)
-                                      return Golden_LongMaybeBind_Test_bind_S_w({
-                                        "Data.Maybe∷Maybe.Just",
-                                        x136 + 1
-                                      }, function(x137)
-                                        return Golden_LongMaybeBind_Test_bind_S_w({
-                                          "Data.Maybe∷Maybe.Just",
-                                          x137 + 1
-                                        }, function(x138)
-                                          return Golden_LongMaybeBind_Test_bind_S_w({
-                                            "Data.Maybe∷Maybe.Just",
-                                            x138 + 1
-                                          }, function(x139)
-                                            return Golden_LongMaybeBind_Test_bind_S_w({
-                                              "Data.Maybe∷Maybe.Just",
-                                              x139 + 1
-                                            }, function(x140)
-                                              return Golden_LongMaybeBind_Test_bind_S_w({
-                                                "Data.Maybe∷Maybe.Just",
-                                                x140 + 1
-                                              }, function(x141)
-                                                return Golden_LongMaybeBind_Test_bind_S_w({
-                                                  "Data.Maybe∷Maybe.Just",
-                                                  x141 + 1
-                                                }, function(x142)
-                                                  return Golden_LongMaybeBind_Test_bind_S_w({
-                                                    "Data.Maybe∷Maybe.Just",
-                                                    x142 + 1
-                                                  }, function(x143)
-                                                    return Golden_LongMaybeBind_Test_bind_S_w({
-                                                      "Data.Maybe∷Maybe.Just",
-                                                      x143 + 1
-                                                    }, function(x144)
-                                                      return Golden_LongMaybeBind_Test_bind_S_w({
-                                                        "Data.Maybe∷Maybe.Just",
-                                                        x144 + 1
-                                                      }, function(x145)
-                                                        return Golden_LongMaybeBind_Test_bind_S_w({
-                                                          "Data.Maybe∷Maybe.Just",
-                                                          x145 + 1
-                                                        }, function(x146)
-                                                          return Golden_LongMaybeBind_Test_bind_S_w({
-                                                            "Data.Maybe∷Maybe.Just",
-                                                            x146 + 1
-                                                          }, function(x147)
-                                                            return Golden_LongMaybeBind_Test_bind_S_w({
-                                                              "Data.Maybe∷Maybe.Just",
-                                                              x147 + 1
-                                                            }, function(x148)
-                                                              return Golden_LongMaybeBind_Test_bind_S_w({
-                                                                "Data.Maybe∷Maybe.Just",
-                                                                x148 + 1
-                                                              }, function(x149)
-                                                                return Golden_LongMaybeBind_Test_bind_S_w({
-                                                                  "Data.Maybe∷Maybe.Just",
-                                                                  x149 + 1
-                                                                }, function( x150 )
-                                                                  return Golden_LongMaybeBind_Test_bind_S_w({
-                                                                    "Data.Maybe∷Maybe.Just",
-                                                                    Data_Unit_unit
-                                                                  }, function()
-                                                                    return Golden_LongMaybeBind_Test_bind_S_w({
-                                                                      "Data.Maybe∷Maybe.Just",
-                                                                      x150 + 1
-                                                                    }, function( x151 )
-                                                                      return Golden_LongMaybeBind_Test_bind_S_w({
-                                                                        "Data.Maybe∷Maybe.Just",
-                                                                        x151 + 1
-                                                                      }, function( x152 )
-                                                                        return Golden_LongMaybeBind_Test_bind_S_w({
-                                                                          "Data.Maybe∷Maybe.Just",
-                                                                          x152 + 1
-                                                                        }, function( x153 )
-                                                                          return Golden_LongMaybeBind_Test_bind_S_w({
-                                                                            "Data.Maybe∷Maybe.Just",
-                                                                            x153 + 1
-                                                                          }, function( x154 )
-                                                                            return Golden_LongMaybeBind_Test_bind_S_w({
-                                                                              "Data.Maybe∷Maybe.Just",
-                                                                              x154 + 1
-                                                                            }, function( x155 )
-                                                                              return Golden_LongMaybeBind_Test_bind_S_w({
-                                                                                "Data.Maybe∷Maybe.Just",
-                                                                                x155 + 1
-                                                                              }, function( x156 )
-                                                                                return Golden_LongMaybeBind_Test_bind_S_w({
-                                                                                  "Data.Maybe∷Maybe.Just",
-                                                                                  x156 + 1
-                                                                                }, function( x157 )
-                                                                                  return Golden_LongMaybeBind_Test_bind_S_w({
-                                                                                    "Data.Maybe∷Maybe.Just",
-                                                                                    x157 + 1
-                                                                                  }, function( x158 )
-                                                                                    return _S_kont3_S_w(x1_S_4, x158)
-                                                                                  end)
-                                                                                end)
-                                                                              end)
-                                                                            end)
-                                                                          end)
-                                                                        end)
-                                                                      end)
-                                                                    end)
-                                                                  end)
-                                                                end)
-                                                              end)
-                                                            end)
-                                                          end)
-                                                        end)
-                                                      end)
-                                                    end)
-                                                  end)
-                                                end)
-                                              end)
-                                            end)
-                                          end)
-                                        end)
-                                      end)
-                                    end)
-                                  end)
-                                end)
-                              end)
-                            end)
-                          end)
-                        end)
-                      end)
-                    end)
-                  end)
-                end)
-              end)
-            end)
-          end)
-        end)
-      end)
-    end)
-  end
-  local _S_kont5_S_w = function(x1_S_5, x79_S_0)
-    return Golden_LongMaybeBind_Test_bind_S_w({
-      "Data.Maybe∷Maybe.Just",
-      x79_S_0 + 1
-    }, function(x80)
-      return Golden_LongMaybeBind_Test_bind_S_w({
-        "Data.Maybe∷Maybe.Just",
-        x80 + 1
-      }, function(x81)
-        return Golden_LongMaybeBind_Test_bind_S_w({
-          "Data.Maybe∷Maybe.Just",
-          x81 + 1
-        }, function(x82)
-          return Golden_LongMaybeBind_Test_bind_S_w({
-            "Data.Maybe∷Maybe.Just",
-            x82 + 1
-          }, function(x83)
-            return Golden_LongMaybeBind_Test_bind_S_w({
-              "Data.Maybe∷Maybe.Just",
-              x83 + 1
-            }, function(x84)
-              return Golden_LongMaybeBind_Test_bind_S_w({
-                "Data.Maybe∷Maybe.Just",
-                x84 + 1
-              }, function(x85)
-                return Golden_LongMaybeBind_Test_bind_S_w({
-                  "Data.Maybe∷Maybe.Just",
-                  x85 + 1
-                }, function(x86)
-                  return Golden_LongMaybeBind_Test_bind_S_w({
-                    "Data.Maybe∷Maybe.Just",
-                    x86 + 1
-                  }, function(x87)
-                    return Golden_LongMaybeBind_Test_bind_S_w({
-                      "Data.Maybe∷Maybe.Just",
-                      x87 + 1
-                    }, function(x88)
-                      return Golden_LongMaybeBind_Test_bind_S_w({
-                        "Data.Maybe∷Maybe.Just",
-                        x88 + 1
-                      }, function(x89)
-                        return Golden_LongMaybeBind_Test_bind_S_w({
-                          "Data.Maybe∷Maybe.Just",
-                          x89 + 1
-                        }, function(x90)
-                          return Golden_LongMaybeBind_Test_bind_S_w({
-                            "Data.Maybe∷Maybe.Just",
-                            x90 + 1
-                          }, function(x91)
-                            return Golden_LongMaybeBind_Test_bind_S_w({
-                              "Data.Maybe∷Maybe.Just",
-                              x91 + 1
-                            }, function(x92)
-                              return Golden_LongMaybeBind_Test_bind_S_w({
-                                "Data.Maybe∷Maybe.Just",
-                                x92 + 1
-                              }, function(x93)
-                                return Golden_LongMaybeBind_Test_bind_S_w({
-                                  "Data.Maybe∷Maybe.Just",
-                                  x93 + 1
-                                }, function(x94)
-                                  return Golden_LongMaybeBind_Test_bind_S_w({
-                                    "Data.Maybe∷Maybe.Just",
-                                    x94 + 1
-                                  }, function(x95)
-                                    return Golden_LongMaybeBind_Test_bind_S_w({
-                                      "Data.Maybe∷Maybe.Just",
-                                      x95 + 1
-                                    }, function(x96)
-                                      return Golden_LongMaybeBind_Test_bind_S_w({
-                                        "Data.Maybe∷Maybe.Just",
-                                        x96 + 1
-                                      }, function(x97)
-                                        return Golden_LongMaybeBind_Test_bind_S_w({
-                                          "Data.Maybe∷Maybe.Just",
-                                          x97 + 1
-                                        }, function(x98)
-                                          return Golden_LongMaybeBind_Test_bind_S_w({
-                                            "Data.Maybe∷Maybe.Just",
-                                            x98 + 1
-                                          }, function(x99)
-                                            return Golden_LongMaybeBind_Test_bind_S_w({
-                                              "Data.Maybe∷Maybe.Just",
-                                              x99 + 1
-                                            }, function(x100)
-                                              return Golden_LongMaybeBind_Test_bind_S_w({
-                                                "Data.Maybe∷Maybe.Just",
-                                                x100 + 1
-                                              }, function(x101)
-                                                return Golden_LongMaybeBind_Test_bind_S_w({
-                                                  "Data.Maybe∷Maybe.Just",
-                                                  x101 + 1
-                                                }, function(x102)
-                                                  return Golden_LongMaybeBind_Test_bind_S_w({
-                                                    "Data.Maybe∷Maybe.Just",
-                                                    x102 + 1
-                                                  }, function(x103)
-                                                    return Golden_LongMaybeBind_Test_bind_S_w({
-                                                      "Data.Maybe∷Maybe.Just",
-                                                      x103 + 1
-                                                    }, function(x104)
-                                                      return Golden_LongMaybeBind_Test_bind_S_w({
-                                                        "Data.Maybe∷Maybe.Just",
-                                                        x104 + 1
-                                                      }, function(x105)
-                                                        return Golden_LongMaybeBind_Test_bind_S_w({
-                                                          "Data.Maybe∷Maybe.Just",
-                                                          x105 + 1
-                                                        }, function(x106)
-                                                          return Golden_LongMaybeBind_Test_bind_S_w({
-                                                            "Data.Maybe∷Maybe.Just",
-                                                            x106 + 1
-                                                          }, function(x107)
-                                                            return Golden_LongMaybeBind_Test_bind_S_w({
-                                                              "Data.Maybe∷Maybe.Just",
-                                                              x107 + 1
-                                                            }, function(x108)
-                                                              return Golden_LongMaybeBind_Test_bind_S_w({
-                                                                "Data.Maybe∷Maybe.Just",
-                                                                x108 + 1
-                                                              }, function(x109)
-                                                                return Golden_LongMaybeBind_Test_bind_S_w({
-                                                                  "Data.Maybe∷Maybe.Just",
-                                                                  x109 + 1
-                                                                }, function( x110 )
-                                                                  return Golden_LongMaybeBind_Test_bind_S_w({
-                                                                    "Data.Maybe∷Maybe.Just",
-                                                                    x110 + 1
-                                                                  }, function( x111 )
-                                                                    return Golden_LongMaybeBind_Test_bind_S_w({
-                                                                      "Data.Maybe∷Maybe.Just",
-                                                                      x111 + 1
-                                                                    }, function( x112 )
-                                                                      return Golden_LongMaybeBind_Test_bind_S_w({
-                                                                        "Data.Maybe∷Maybe.Just",
-                                                                        x112 + 1
-                                                                      }, function( x113 )
-                                                                        return Golden_LongMaybeBind_Test_bind_S_w({
-                                                                          "Data.Maybe∷Maybe.Just",
-                                                                          x113 + 1
-                                                                        }, function( x114 )
-                                                                          return Golden_LongMaybeBind_Test_bind_S_w({
-                                                                            "Data.Maybe∷Maybe.Just",
-                                                                            x114 + 1
-                                                                          }, function( x115 )
-                                                                            return Golden_LongMaybeBind_Test_bind_S_w({
-                                                                              "Data.Maybe∷Maybe.Just",
-                                                                              x115 + 1
-                                                                            }, function( x116 )
-                                                                              return Golden_LongMaybeBind_Test_bind_S_w({
-                                                                                "Data.Maybe∷Maybe.Just",
-                                                                                x116 + 1
-                                                                              }, function( x117 )
-                                                                                return Golden_LongMaybeBind_Test_bind_S_w({
-                                                                                  "Data.Maybe∷Maybe.Just",
-                                                                                  x117 + 1
-                                                                                }, function( x118 )
-                                                                                  return Golden_LongMaybeBind_Test_bind_S_w({
-                                                                                    "Data.Maybe∷Maybe.Just",
-                                                                                    x118 + 1
-                                                                                  }, function( x119 )
-                                                                                    return _S_kont4_S_w(x1_S_5, x119)
-                                                                                  end)
-                                                                                end)
-                                                                              end)
-                                                                            end)
-                                                                          end)
-                                                                        end)
-                                                                      end)
-                                                                    end)
-                                                                  end)
-                                                                end)
-                                                              end)
-                                                            end)
-                                                          end)
-                                                        end)
-                                                      end)
-                                                    end)
-                                                  end)
-                                                end)
-                                              end)
-                                            end)
-                                          end)
-                                        end)
-                                      end)
-                                    end)
-                                  end)
-                                end)
-                              end)
-                            end)
-                          end)
-                        end)
-                      end)
-                    end)
-                  end)
-                end)
-              end)
-            end)
-          end)
-        end)
-      end)
-    end)
-  end
-  local _S_kont6_S_w = function(x1_S_6, x40_S_0)
-    return Golden_LongMaybeBind_Test_bind_S_w({
-      "Data.Maybe∷Maybe.Just",
-      x40_S_0 + 1
-    }, function(x41)
-      return Golden_LongMaybeBind_Test_bind_S_w({
-        "Data.Maybe∷Maybe.Just",
-        x41 + 1
-      }, function(x42)
-        return Golden_LongMaybeBind_Test_bind_S_w({
-          "Data.Maybe∷Maybe.Just",
-          x42 + 1
-        }, function(x43)
-          return Golden_LongMaybeBind_Test_bind_S_w({
-            "Data.Maybe∷Maybe.Just",
-            x43 + 1
-          }, function(x44)
-            return Golden_LongMaybeBind_Test_bind_S_w({
-              "Data.Maybe∷Maybe.Just",
-              x44 + 1
-            }, function(x45)
-              return Golden_LongMaybeBind_Test_bind_S_w({
-                "Data.Maybe∷Maybe.Just",
-                x45 + 1
-              }, function(x46)
-                return Golden_LongMaybeBind_Test_bind_S_w({
-                  "Data.Maybe∷Maybe.Just",
-                  x46 + 1
-                }, function(x47)
-                  return Golden_LongMaybeBind_Test_bind_S_w({
-                    "Data.Maybe∷Maybe.Just",
-                    x47 + 1
-                  }, function(x48)
-                    return Golden_LongMaybeBind_Test_bind_S_w({
-                      "Data.Maybe∷Maybe.Just",
-                      x48 + 1
-                    }, function(x49)
-                      return Golden_LongMaybeBind_Test_bind_S_w({
-                        "Data.Maybe∷Maybe.Just",
-                        x49 + 1
-                      }, function(x50)
-                        return Golden_LongMaybeBind_Test_bind_S_w({
-                          "Data.Maybe∷Maybe.Just",
-                          Data_Unit_unit
-                        }, function()
-                          return Golden_LongMaybeBind_Test_bind_S_w({
-                            "Data.Maybe∷Maybe.Just",
-                            x50 + 1
-                          }, function(x51)
-                            return Golden_LongMaybeBind_Test_bind_S_w({
-                              "Data.Maybe∷Maybe.Just",
-                              x51 + 1
-                            }, function(x52)
-                              return Golden_LongMaybeBind_Test_bind_S_w({
-                                "Data.Maybe∷Maybe.Just",
-                                x52 + 1
-                              }, function(x53)
-                                return Golden_LongMaybeBind_Test_bind_S_w({
-                                  "Data.Maybe∷Maybe.Just",
-                                  x53 + 1
-                                }, function(x54)
-                                  return Golden_LongMaybeBind_Test_bind_S_w({
-                                    "Data.Maybe∷Maybe.Just",
-                                    x54 + 1
-                                  }, function(x55)
-                                    return Golden_LongMaybeBind_Test_bind_S_w({
-                                      "Data.Maybe∷Maybe.Just",
-                                      x55 + 1
-                                    }, function(x56)
-                                      return Golden_LongMaybeBind_Test_bind_S_w({
-                                        "Data.Maybe∷Maybe.Just",
-                                        x56 + 1
-                                      }, function(x57)
-                                        return Golden_LongMaybeBind_Test_bind_S_w({
-                                          "Data.Maybe∷Maybe.Just",
-                                          x57 + 1
-                                        }, function(x58)
-                                          return Golden_LongMaybeBind_Test_bind_S_w({
-                                            "Data.Maybe∷Maybe.Just",
-                                            x58 + 1
-                                          }, function(x59)
-                                            return Golden_LongMaybeBind_Test_bind_S_w({
-                                              "Data.Maybe∷Maybe.Just",
-                                              x59 + 1
-                                            }, function(x60)
-                                              return Golden_LongMaybeBind_Test_bind_S_w({
-                                                "Data.Maybe∷Maybe.Just",
-                                                x60 + 1
-                                              }, function(x61)
-                                                return Golden_LongMaybeBind_Test_bind_S_w({
-                                                  "Data.Maybe∷Maybe.Just",
-                                                  x61 + 1
-                                                }, function(x62)
-                                                  return Golden_LongMaybeBind_Test_bind_S_w({
-                                                    "Data.Maybe∷Maybe.Just",
-                                                    x62 + 1
-                                                  }, function(x63)
-                                                    return Golden_LongMaybeBind_Test_bind_S_w({
-                                                      "Data.Maybe∷Maybe.Just",
-                                                      x63 + 1
-                                                    }, function(x64)
-                                                      return Golden_LongMaybeBind_Test_bind_S_w({
-                                                        "Data.Maybe∷Maybe.Just",
-                                                        x64 + 1
-                                                      }, function(x65)
-                                                        return Golden_LongMaybeBind_Test_bind_S_w({
-                                                          "Data.Maybe∷Maybe.Just",
-                                                          x65 + 1
-                                                        }, function(x66)
-                                                          return Golden_LongMaybeBind_Test_bind_S_w({
-                                                            "Data.Maybe∷Maybe.Just",
-                                                            x66 + 1
-                                                          }, function(x67)
-                                                            return Golden_LongMaybeBind_Test_bind_S_w({
-                                                              "Data.Maybe∷Maybe.Just",
-                                                              x67 + 1
-                                                            }, function(x68)
-                                                              return Golden_LongMaybeBind_Test_bind_S_w({
-                                                                "Data.Maybe∷Maybe.Just",
-                                                                x68 + 1
-                                                              }, function(x69)
-                                                                return Golden_LongMaybeBind_Test_bind_S_w({
-                                                                  "Data.Maybe∷Maybe.Just",
-                                                                  x69 + 1
-                                                                }, function(x70)
-                                                                  return Golden_LongMaybeBind_Test_bind_S_w({
-                                                                    "Data.Maybe∷Maybe.Just",
-                                                                    x70 + 1
-                                                                  }, function( x71 )
-                                                                    return Golden_LongMaybeBind_Test_bind_S_w({
-                                                                      "Data.Maybe∷Maybe.Just",
-                                                                      x71 + 1
-                                                                    }, function( x72 )
-                                                                      return Golden_LongMaybeBind_Test_bind_S_w({
-                                                                        "Data.Maybe∷Maybe.Just",
-                                                                        x72 + 1
-                                                                      }, function( x73 )
-                                                                        return Golden_LongMaybeBind_Test_bind_S_w({
-                                                                          "Data.Maybe∷Maybe.Just",
-                                                                          x73 + 1
-                                                                        }, function( x74 )
-                                                                          return Golden_LongMaybeBind_Test_bind_S_w({
-                                                                            "Data.Maybe∷Maybe.Just",
-                                                                            x74 + 1
-                                                                          }, function( x75 )
-                                                                            return Golden_LongMaybeBind_Test_bind_S_w({
-                                                                              "Data.Maybe∷Maybe.Just",
-                                                                              x75 + 1
-                                                                            }, function( x76 )
-                                                                              return Golden_LongMaybeBind_Test_bind_S_w({
-                                                                                "Data.Maybe∷Maybe.Just",
-                                                                                x76 + 1
-                                                                              }, function( x77 )
-                                                                                return Golden_LongMaybeBind_Test_bind_S_w({
-                                                                                  "Data.Maybe∷Maybe.Just",
-                                                                                  x77 + 1
-                                                                                }, function( x78 )
-                                                                                  return Golden_LongMaybeBind_Test_bind_S_w({
-                                                                                    "Data.Maybe∷Maybe.Just",
-                                                                                    x78 + 1
-                                                                                  }, function( x79 )
-                                                                                    return _S_kont5_S_w(x1_S_6, x79)
-                                                                                  end)
-                                                                                end)
-                                                                              end)
-                                                                            end)
-                                                                          end)
-                                                                        end)
-                                                                      end)
-                                                                    end)
-                                                                  end)
-                                                                end)
-                                                              end)
-                                                            end)
-                                                          end)
-                                                        end)
-                                                      end)
-                                                    end)
-                                                  end)
-                                                end)
-                                              end)
-                                            end)
-                                          end)
-                                        end)
-                                      end)
-                                    end)
-                                  end)
-                                end)
-                              end)
-                            end)
-                          end)
-                        end)
-                      end)
-                    end)
-                  end)
-                end)
-              end)
-            end)
-          end)
-        end)
-      end)
-    end)
-  end
-  return Golden_LongMaybeBind_Test_bind_S_w({
-    "Data.Maybe∷Maybe.Just",
-    1
-  }, function(x1)
-    return Golden_LongMaybeBind_Test_bind_S_w({
-      "Data.Maybe∷Maybe.Just",
-      x1 + 1
-    }, function(x2)
-      return Golden_LongMaybeBind_Test_bind_S_w({
-        "Data.Maybe∷Maybe.Just",
-        x2 + 1
-      }, function(x3)
-        return Golden_LongMaybeBind_Test_bind_S_w({
-          "Data.Maybe∷Maybe.Just",
-          x3 + 1
-        }, function(x4)
-          return Golden_LongMaybeBind_Test_bind_S_w({
-            "Data.Maybe∷Maybe.Just",
-            x4 + 1
-          }, function(x5)
-            return Golden_LongMaybeBind_Test_bind_S_w({
-              "Data.Maybe∷Maybe.Just",
-              x5 + 1
-            }, function(x6)
-              return Golden_LongMaybeBind_Test_bind_S_w({
-                "Data.Maybe∷Maybe.Just",
-                x6 + 1
-              }, function(x7)
-                return Golden_LongMaybeBind_Test_bind_S_w({
-                  "Data.Maybe∷Maybe.Just",
-                  x7 + 1
-                }, function(x8)
-                  return Golden_LongMaybeBind_Test_bind_S_w({
-                    "Data.Maybe∷Maybe.Just",
-                    x8 + 1
-                  }, function(x9)
-                    return Golden_LongMaybeBind_Test_bind_S_w({
-                      "Data.Maybe∷Maybe.Just",
-                      x9 + 1
-                    }, function(x10)
-                      return Golden_LongMaybeBind_Test_bind_S_w({
-                        "Data.Maybe∷Maybe.Just",
-                        x10 + 1
-                      }, function(x11)
-                        return Golden_LongMaybeBind_Test_bind_S_w({
-                          "Data.Maybe∷Maybe.Just",
-                          x11 + 1
-                        }, function(x12)
-                          return Golden_LongMaybeBind_Test_bind_S_w({
-                            "Data.Maybe∷Maybe.Just",
-                            x12 + 1
-                          }, function(x13)
-                            return Golden_LongMaybeBind_Test_bind_S_w({
-                              "Data.Maybe∷Maybe.Just",
-                              x13 + 1
-                            }, function(x14)
-                              return Golden_LongMaybeBind_Test_bind_S_w({
-                                "Data.Maybe∷Maybe.Just",
-                                x14 + 1
-                              }, function(x15)
-                                return Golden_LongMaybeBind_Test_bind_S_w({
-                                  "Data.Maybe∷Maybe.Just",
-                                  x15 + 1
-                                }, function(x16)
-                                  return Golden_LongMaybeBind_Test_bind_S_w({
-                                    "Data.Maybe∷Maybe.Just",
-                                    x16 + 1
-                                  }, function(x17)
-                                    return Golden_LongMaybeBind_Test_bind_S_w({
-                                      "Data.Maybe∷Maybe.Just",
-                                      x17 + 1
-                                    }, function(x18)
-                                      return Golden_LongMaybeBind_Test_bind_S_w({
-                                        "Data.Maybe∷Maybe.Just",
-                                        x18 + 1
-                                      }, function(x19)
-                                        return Golden_LongMaybeBind_Test_bind_S_w({
-                                          "Data.Maybe∷Maybe.Just",
-                                          x19 + 1
-                                        }, function(x20)
-                                          return Golden_LongMaybeBind_Test_bind_S_w({
-                                            "Data.Maybe∷Maybe.Just",
-                                            x20 + 1
-                                          }, function(x21)
-                                            return Golden_LongMaybeBind_Test_bind_S_w({
-                                              "Data.Maybe∷Maybe.Just",
-                                              x21 + 1
-                                            }, function(x22)
-                                              return Golden_LongMaybeBind_Test_bind_S_w({
-                                                "Data.Maybe∷Maybe.Just",
-                                                x22 + 1
-                                              }, function(x23)
-                                                return Golden_LongMaybeBind_Test_bind_S_w({
-                                                  "Data.Maybe∷Maybe.Just",
-                                                  x23 + 1
-                                                }, function(x24)
-                                                  return Golden_LongMaybeBind_Test_bind_S_w({
-                                                    "Data.Maybe∷Maybe.Just",
-                                                    x24 + 1
-                                                  }, function(x25)
-                                                    return Golden_LongMaybeBind_Test_bind_S_w({
-                                                      "Data.Maybe∷Maybe.Just",
-                                                      x25 + 1
-                                                    }, function(x26)
-                                                      return Golden_LongMaybeBind_Test_bind_S_w({
-                                                        "Data.Maybe∷Maybe.Just",
-                                                        x26 + 1
-                                                      }, function(x27)
-                                                        return Golden_LongMaybeBind_Test_bind_S_w({
-                                                          "Data.Maybe∷Maybe.Just",
-                                                          x27 + 1
-                                                        }, function(x28)
-                                                          return Golden_LongMaybeBind_Test_bind_S_w({
-                                                            "Data.Maybe∷Maybe.Just",
-                                                            x28 + 1
-                                                          }, function(x29)
-                                                            return Golden_LongMaybeBind_Test_bind_S_w({
-                                                              "Data.Maybe∷Maybe.Just",
-                                                              x29 + 1
-                                                            }, function(x30)
-                                                              return Golden_LongMaybeBind_Test_bind_S_w({
-                                                                "Data.Maybe∷Maybe.Just",
-                                                                x30 + 1
-                                                              }, function(x31)
-                                                                return Golden_LongMaybeBind_Test_bind_S_w({
-                                                                  "Data.Maybe∷Maybe.Just",
-                                                                  x31 + 1
-                                                                }, function(x32)
-                                                                  return Golden_LongMaybeBind_Test_bind_S_w({
-                                                                    "Data.Maybe∷Maybe.Just",
-                                                                    x32 + 1
-                                                                  }, function( x33 )
-                                                                    return Golden_LongMaybeBind_Test_bind_S_w({
-                                                                      "Data.Maybe∷Maybe.Just",
-                                                                      x33 + 1
-                                                                    }, function( x34 )
-                                                                      return Golden_LongMaybeBind_Test_bind_S_w({
-                                                                        "Data.Maybe∷Maybe.Just",
-                                                                        x34 + 1
-                                                                      }, function( x35 )
-                                                                        return Golden_LongMaybeBind_Test_bind_S_w({
-                                                                          "Data.Maybe∷Maybe.Just",
-                                                                          x35 + 1
-                                                                        }, function( x36 )
-                                                                          return Golden_LongMaybeBind_Test_bind_S_w({
-                                                                            "Data.Maybe∷Maybe.Just",
-                                                                            x36 + 1
-                                                                          }, function( x37 )
-                                                                            return Golden_LongMaybeBind_Test_bind_S_w({
-                                                                              "Data.Maybe∷Maybe.Just",
-                                                                              x37 + 1
-                                                                            }, function( x38 )
-                                                                              return Golden_LongMaybeBind_Test_bind_S_w({
-                                                                                "Data.Maybe∷Maybe.Just",
-                                                                                x38 + 1
-                                                                              }, function( x39 )
-                                                                                return Golden_LongMaybeBind_Test_bind_S_w({
-                                                                                  "Data.Maybe∷Maybe.Just",
-                                                                                  x39 + 1
-                                                                                }, function( x40 )
-                                                                                  return _S_kont6_S_w(x1, x40)
-                                                                                end)
-                                                                              end)
-                                                                            end)
-                                                                          end)
-                                                                        end)
-                                                                      end)
-                                                                    end)
-                                                                  end)
-                                                                end)
-                                                              end)
-                                                            end)
-                                                          end)
-                                                        end)
-                                                      end)
-                                                    end)
-                                                  end)
-                                                end)
-                                              end)
-                                            end)
-                                          end)
-                                        end)
-                                      end)
-                                    end)
-                                  end)
-                                end)
-                              end)
-                            end)
-                          end)
-                        end)
-                      end)
-                    end)
-                  end)
-                end)
-              end)
-            end)
-          end)
-        end)
-      end)
-    end)
-  end)
-end)()
+local Golden_LongMaybeBind_Test_compute = { "Data.Maybe∷Maybe.Just", 301 }
 return Effect_Console_foreign.log((function()
   if "Data.Maybe∷Maybe.Just" == Golden_LongMaybeBind_Test_compute[1] then
     return "(Just " .. Data_Show_foreign.showIntImpl(Golden_LongMaybeBind_Test_compute[2]) .. ")"
diff --git a/test/ps/output/Golden.LongMaybeBindModule.Test/golden.ir b/test/ps/output/Golden.LongMaybeBindModule.Test/golden.ir
index 2ec97f69..189bd00e 100644
--- a/test/ps/output/Golden.LongMaybeBindModule.Test/golden.ir
+++ b/test/ps/output/Golden.LongMaybeBindModule.Test/golden.ir
@@ -1,7711 +1,11 @@
 UberModule
-  { uberModuleBindings =
-    [ Standalone
-      ( QName
-        { qnameModuleName = ModuleName "Data.Unit", qnameName = Name "foreign"
-        }, ForeignImport Nothing
-        ( ModuleName "Data.Unit" ) ".spago/p/prelude/5718c84fdde6247749cb053e816df696c30fe691/src/Data/Unit.purs"
-        [ ( Just Never, Name "unit" ) ]
-      ), Standalone
-      ( QName
-        { qnameModuleName = ModuleName "Data.Unit", qnameName = Name "unit"
-        }, ObjectProp ( Just Never )
-        ( Ref Nothing ( Imported ( ModuleName "Data.Unit" ) ( Name "foreign" ) ) )
-        ( PropName "unit" )
-      ), Standalone
-      ( QName
-        { qnameModuleName = ModuleName "Golden.LongMaybeBindModule.Test", qnameName = Name "bind$w"
-        }, AbsN Nothing
-        ( ParamNamed Nothing ( Name "v$581" ) :| [ ParamNamed Nothing ( Name "v1$582" ) ] )
-        ( IfThenElse Nothing
-          ( Eq Nothing
-            ( LiteralString Nothing "Data.Maybe∷Maybe.Just" )
-            ( ReflectCtor Nothing ( Ref Nothing ( Local ( Name "v$581" ) ) ) )
-          )
-          ( AppN Nothing
-            ( Ref Nothing ( Local ( Name "v1$582" ) ) )
-            ( DataArgumentByIndex Nothing SumType 0
-              ( Ref Nothing ( Local ( Name "v$581" ) ) ) :| []
-            )
-          )
-          ( Ctor Nothing SumType
-            ( ModuleName "Data.Maybe" )
-            ( TyName "Maybe" )
-            ( CtorName "Nothing" ) []
-          )
-        )
-      )
-    ], uberModuleForeigns = [], uberModuleExports =
+  { uberModuleBindings = [], uberModuleForeigns = [], uberModuleExports =
     [
-      ( Name "compute", Let Nothing
-        ( Standalone
-          ( Nothing, Name "$kont1495$w", AbsN Nothing
-            ( ParamNamed Nothing
-              ( Name "x1$0$1496" ) :|
-              [ ParamNamed Nothing ( Name "x277$276$1497" ) ]
-            )
-            ( AppN Nothing
-              ( Ref Nothing
-                ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind$w" ) )
-              )
-              ( Ctor Nothing SumType
-                ( ModuleName "Data.Maybe" )
-                ( TyName "Maybe" )
-                ( CtorName "Just" )
-                [ PrimBinOp Nothing PrimAdd
-                  ( Ref Nothing ( Local ( Name "x277$276$1497" ) ) )
-                  ( LiteralInt Nothing 1 )
-                ] :|
-                [ AbsN Nothing
-                  ( ParamNamed Nothing ( Name "x278$277" ) :| [] )
-                  ( AppN Nothing
-                    ( Ref Nothing
-                      ( Imported
-                        ( ModuleName "Golden.LongMaybeBindModule.Test" )
-                        ( Name "bind$w" )
-                      )
-                    )
-                    ( Ctor Nothing SumType
-                      ( ModuleName "Data.Maybe" )
-                      ( TyName "Maybe" )
-                      ( CtorName "Just" )
-                      [ PrimBinOp Nothing PrimAdd
-                        ( 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" )
-                            )
-                          )
-                          ( Ctor Nothing SumType
-                            ( ModuleName "Data.Maybe" )
-                            ( TyName "Maybe" )
-                            ( CtorName "Just" )
-                            [ PrimBinOp Nothing PrimAdd
-                              ( 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" )
-                                  )
-                                )
-                                ( Ctor Nothing SumType
-                                  ( ModuleName "Data.Maybe" )
-                                  ( TyName "Maybe" )
-                                  ( CtorName "Just" )
-                                  [ PrimBinOp Nothing PrimAdd
-                                    ( 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" )
-                                        )
-                                      )
-                                      ( Ctor Nothing SumType
-                                        ( ModuleName "Data.Maybe" )
-                                        ( TyName "Maybe" )
-                                        ( CtorName "Just" )
-                                        [ PrimBinOp Nothing PrimAdd
-                                          ( 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" )
-                                              )
-                                            )
-                                            ( Ctor Nothing SumType
-                                              ( ModuleName "Data.Maybe" )
-                                              ( TyName "Maybe" )
-                                              ( CtorName "Just" )
-                                              [ PrimBinOp Nothing PrimAdd
-                                                ( 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" )
-                                                    )
-                                                  )
-                                                  ( Ctor Nothing SumType
-                                                    ( ModuleName "Data.Maybe" )
-                                                    ( TyName "Maybe" )
-                                                    ( CtorName "Just" )
-                                                    [ PrimBinOp Nothing PrimAdd
-                                                      ( 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" )
-                                                          )
-                                                        )
-                                                        ( Ctor Nothing SumType
-                                                          ( ModuleName "Data.Maybe" )
-                                                          ( TyName "Maybe" )
-                                                          ( CtorName "Just" )
-                                                          [ PrimBinOp Nothing PrimAdd
-                                                            ( 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" )
-                                                                )
-                                                              )
-                                                              ( Ctor Nothing SumType
-                                                                ( ModuleName "Data.Maybe" )
-                                                                ( TyName "Maybe" )
-                                                                ( CtorName "Just" )
-                                                                [ PrimBinOp Nothing PrimAdd
-                                                                  ( 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" )
-                                                                      )
-                                                                    )
-                                                                    ( Ctor Nothing SumType
-                                                                      ( ModuleName "Data.Maybe" )
-                                                                      ( TyName "Maybe" )
-                                                                      ( CtorName "Just" )
-                                                                      [ PrimBinOp Nothing PrimAdd
-                                                                        ( 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" )
-                                                                            )
-                                                                          )
-                                                                          ( Ctor Nothing SumType
-                                                                            ( ModuleName "Data.Maybe" )
-                                                                            ( TyName "Maybe" )
-                                                                            ( CtorName "Just" )
-                                                                            [ PrimBinOp Nothing PrimAdd
-                                                                              ( 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" )
-                                                                                  )
-                                                                                )
-                                                                                ( Ctor Nothing SumType
-                                                                                  ( ModuleName "Data.Maybe" )
-                                                                                  ( TyName "Maybe" )
-                                                                                  ( CtorName "Just" )
-                                                                                  [ PrimBinOp Nothing PrimAdd
-                                                                                    ( 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" )
-                                                                                        )
-                                                                                      )
-                                                                                      ( Ctor Nothing SumType
-                                                                                        ( ModuleName "Data.Maybe" )
-                                                                                        ( TyName "Maybe" )
-                                                                                        ( CtorName "Just" )
-                                                                                        [ PrimBinOp Nothing PrimAdd
-                                                                                          ( 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" )
-                                                                                              )
-                                                                                            )
-                                                                                            ( Ctor Nothing SumType
-                                                                                              ( ModuleName "Data.Maybe" )
-                                                                                              ( TyName "Maybe" )
-                                                                                              ( CtorName "Just" )
-                                                                                              [ PrimBinOp Nothing PrimAdd
-                                                                                                ( 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" )
-                                                                                                    )
-                                                                                                  )
-                                                                                                  ( Ctor Nothing SumType
-                                                                                                    ( ModuleName "Data.Maybe" )
-                                                                                                    ( TyName "Maybe" )
-                                                                                                    ( CtorName "Just" )
-                                                                                                    [ PrimBinOp Nothing PrimAdd
-                                                                                                      ( 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" )
-                                                                                                          )
-                                                                                                        )
-                                                                                                        ( Ctor Nothing SumType
-                                                                                                          ( ModuleName "Data.Maybe" )
-                                                                                                          ( TyName "Maybe" )
-                                                                                                          ( CtorName "Just" )
-                                                                                                          [ PrimBinOp Nothing PrimAdd
-                                                                                                            ( 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" )
-                                                                                                                )
-                                                                                                              )
-                                                                                                              ( Ctor Nothing SumType
-                                                                                                                ( ModuleName "Data.Maybe" )
-                                                                                                                ( TyName "Maybe" )
-                                                                                                                ( CtorName "Just" )
-                                                                                                                [ PrimBinOp Nothing PrimAdd
-                                                                                                                  ( 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" )
-                                                                                                                      )
-                                                                                                                    )
-                                                                                                                    ( Ctor Nothing SumType
-                                                                                                                      ( ModuleName "Data.Maybe" )
-                                                                                                                      ( TyName "Maybe" )
-                                                                                                                      ( CtorName "Just" )
-                                                                                                                      [ PrimBinOp Nothing PrimAdd
-                                                                                                                        ( 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" )
-                                                                                                                            )
-                                                                                                                          )
-                                                                                                                          ( Ctor Nothing SumType
-                                                                                                                            ( ModuleName "Data.Maybe" )
-                                                                                                                            ( TyName "Maybe" )
-                                                                                                                            ( CtorName "Just" )
-                                                                                                                            [ PrimBinOp Nothing PrimAdd
-                                                                                                                              ( 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" )
-                                                                                                                                  )
-                                                                                                                                )
-                                                                                                                                ( Ctor Nothing SumType
-                                                                                                                                  ( ModuleName "Data.Maybe" )
-                                                                                                                                  ( TyName "Maybe" )
-                                                                                                                                  ( CtorName "Just" )
-                                                                                                                                  [ PrimBinOp Nothing PrimAdd
-                                                                                                                                    ( 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" )
-                                                                                                                                        )
-                                                                                                                                      )
-                                                                                                                                      ( Ctor Nothing SumType
-                                                                                                                                        ( ModuleName "Data.Maybe" )
-                                                                                                                                        ( TyName "Maybe" )
-                                                                                                                                        ( CtorName "Just" )
-                                                                                                                                        [ PrimBinOp Nothing PrimAdd
-                                                                                                                                          ( 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" )
-                                                                                                                                              )
-                                                                                                                                            )
-                                                                                                                                            ( Ctor Nothing SumType
-                                                                                                                                              ( ModuleName "Data.Maybe" )
-                                                                                                                                              ( TyName "Maybe" )
-                                                                                                                                              ( CtorName "Just" )
-                                                                                                                                              [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                ( 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" )
-                                                                                                                                                    )
-                                                                                                                                                  )
-                                                                                                                                                  ( Ctor Nothing SumType
-                                                                                                                                                    ( ModuleName "Data.Maybe" )
-                                                                                                                                                    ( TyName "Maybe" )
-                                                                                                                                                    ( CtorName "Just" )
-                                                                                                                                                    [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                      ( Ref Nothing
-                                                                                                                                                        ( Local
-                                                                                                                                                          ( Name "x299$298" )
-                                                                                                                                                        )
-                                                                                                                                                      )
-                                                                                                                                                      ( LiteralInt Nothing 1 )
-                                                                                                                                                    ] :|
-                                                                                                                                                    [ AbsN Nothing
-                                                                                                                                                      ( ParamNamed Nothing
-                                                                                                                                                        ( Name "x300$299" ) :| []
-                                                                                                                                                      )
-                                                                                                                                                      ( Ctor Nothing SumType
-                                                                                                                                                        ( ModuleName "Data.Maybe" )
-                                                                                                                                                        ( TyName "Maybe" )
-                                                                                                                                                        ( CtorName "Just" )
-                                                                                                                                                        [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                          ( Ref Nothing
-                                                                                                                                                            ( Local
-                                                                                                                                                              ( Name "x1$0$1496" )
-                                                                                                                                                            )
-                                                                                                                                                          )
-                                                                                                                                                          ( Ref Nothing
-                                                                                                                                                            ( Local
-                                                                                                                                                              ( Name "x300$299" )
-                                                                                                                                                            )
-                                                                                                                                                          )
-                                                                                                                                                        ]
-                                                                                                                                                      )
-                                                                                                                                                    ]
-                                                                                                                                                  )
-                                                                                                                                                )
-                                                                                                                                              ]
-                                                                                                                                            )
-                                                                                                                                          )
-                                                                                                                                        ]
-                                                                                                                                      )
-                                                                                                                                    )
-                                                                                                                                  ]
-                                                                                                                                )
-                                                                                                                              )
-                                                                                                                            ]
-                                                                                                                          )
-                                                                                                                        )
-                                                                                                                      ]
-                                                                                                                    )
-                                                                                                                  )
-                                                                                                                ]
-                                                                                                              )
-                                                                                                            )
-                                                                                                          ]
-                                                                                                        )
-                                                                                                      )
-                                                                                                    ]
-                                                                                                  )
-                                                                                                )
-                                                                                              ]
-                                                                                            )
-                                                                                          )
-                                                                                        ]
-                                                                                      )
-                                                                                    )
-                                                                                  ]
-                                                                                )
-                                                                              )
-                                                                            ]
-                                                                          )
-                                                                        )
-                                                                      ]
-                                                                    )
-                                                                  )
-                                                                ]
-                                                              )
-                                                            )
-                                                          ]
-                                                        )
-                                                      )
-                                                    ]
-                                                  )
-                                                )
-                                              ]
-                                            )
-                                          )
-                                        ]
-                                      )
-                                    )
-                                  ]
-                                )
-                              )
-                            ]
-                          )
-                        )
-                      ]
-                    )
-                  )
-                ]
-              )
-            )
-          ) :|
-          [ Standalone
-            ( Nothing, Name "$kont1498$w", AbsN Nothing
-              ( ParamNamed Nothing
-                ( Name "x1$0$1499" ) :|
-                [ ParamNamed Nothing ( Name "x238$237$1500" ) ]
-              )
-              ( AppN Nothing
-                ( Ref Nothing
-                  ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind$w" ) )
-                )
-                ( Ctor Nothing SumType
-                  ( ModuleName "Data.Maybe" )
-                  ( TyName "Maybe" )
-                  ( CtorName "Just" )
-                  [ PrimBinOp Nothing PrimAdd
-                    ( Ref Nothing ( Local ( Name "x238$237$1500" ) ) )
-                    ( LiteralInt Nothing 1 )
-                  ] :|
-                  [ AbsN Nothing
-                    ( ParamNamed Nothing ( Name "x239$238" ) :| [] )
-                    ( AppN Nothing
-                      ( Ref Nothing
-                        ( Imported
-                          ( ModuleName "Golden.LongMaybeBindModule.Test" )
-                          ( Name "bind$w" )
-                        )
-                      )
-                      ( Ctor Nothing SumType
-                        ( ModuleName "Data.Maybe" )
-                        ( TyName "Maybe" )
-                        ( CtorName "Just" )
-                        [ PrimBinOp Nothing PrimAdd
-                          ( 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" )
-                              )
-                            )
-                            ( Ctor Nothing SumType
-                              ( ModuleName "Data.Maybe" )
-                              ( TyName "Maybe" )
-                              ( CtorName "Just" )
-                              [ PrimBinOp Nothing PrimAdd
-                                ( 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" )
-                                    )
-                                  )
-                                  ( Ctor Nothing SumType
-                                    ( ModuleName "Data.Maybe" )
-                                    ( TyName "Maybe" )
-                                    ( CtorName "Just" )
-                                    [ PrimBinOp Nothing PrimAdd
-                                      ( 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" )
-                                          )
-                                        )
-                                        ( Ctor Nothing SumType
-                                          ( ModuleName "Data.Maybe" )
-                                          ( TyName "Maybe" )
-                                          ( CtorName "Just" )
-                                          [ PrimBinOp Nothing PrimAdd
-                                            ( 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" )
-                                                )
-                                              )
-                                              ( Ctor Nothing SumType
-                                                ( ModuleName "Data.Maybe" )
-                                                ( TyName "Maybe" )
-                                                ( CtorName "Just" )
-                                                [ PrimBinOp Nothing PrimAdd
-                                                  ( 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" )
-                                                      )
-                                                    )
-                                                    ( Ctor Nothing SumType
-                                                      ( ModuleName "Data.Maybe" )
-                                                      ( TyName "Maybe" )
-                                                      ( CtorName "Just" )
-                                                      [ PrimBinOp Nothing PrimAdd
-                                                        ( 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" )
-                                                            )
-                                                          )
-                                                          ( Ctor Nothing SumType
-                                                            ( ModuleName "Data.Maybe" )
-                                                            ( TyName "Maybe" )
-                                                            ( CtorName "Just" )
-                                                            [ PrimBinOp Nothing PrimAdd
-                                                              ( 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" )
-                                                                  )
-                                                                )
-                                                                ( Ctor Nothing SumType
-                                                                  ( ModuleName "Data.Maybe" )
-                                                                  ( TyName "Maybe" )
-                                                                  ( CtorName "Just" )
-                                                                  [ PrimBinOp Nothing PrimAdd
-                                                                    ( 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" )
-                                                                        )
-                                                                      )
-                                                                      ( Ctor Nothing SumType
-                                                                        ( ModuleName "Data.Maybe" )
-                                                                        ( TyName "Maybe" )
-                                                                        ( CtorName "Just" )
-                                                                        [ PrimBinOp Nothing PrimAdd
-                                                                          ( 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" )
-                                                                              )
-                                                                            )
-                                                                            ( Ctor Nothing SumType
-                                                                              ( ModuleName "Data.Maybe" )
-                                                                              ( TyName "Maybe" )
-                                                                              ( CtorName "Just" )
-                                                                              [ PrimBinOp Nothing PrimAdd
-                                                                                ( 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" )
-                                                                                    )
-                                                                                  )
-                                                                                  ( Ctor Nothing SumType
-                                                                                    ( ModuleName "Data.Maybe" )
-                                                                                    ( TyName "Maybe" )
-                                                                                    ( CtorName "Just" )
-                                                                                    [ PrimBinOp Nothing PrimAdd
-                                                                                      ( 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" )
-                                                                                          )
-                                                                                        )
-                                                                                        ( Ctor Nothing SumType
-                                                                                          ( ModuleName "Data.Maybe" )
-                                                                                          ( TyName "Maybe" )
-                                                                                          ( CtorName "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" )
-                                                                                                )
-                                                                                              )
-                                                                                              ( Ctor Nothing SumType
-                                                                                                ( ModuleName "Data.Maybe" )
-                                                                                                ( TyName "Maybe" )
-                                                                                                ( CtorName "Just" )
-                                                                                                [ PrimBinOp Nothing PrimAdd
-                                                                                                  ( 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" )
-                                                                                                      )
-                                                                                                    )
-                                                                                                    ( Ctor Nothing SumType
-                                                                                                      ( ModuleName "Data.Maybe" )
-                                                                                                      ( TyName "Maybe" )
-                                                                                                      ( CtorName "Just" )
-                                                                                                      [ PrimBinOp Nothing PrimAdd
-                                                                                                        ( 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" )
-                                                                                                            )
-                                                                                                          )
-                                                                                                          ( Ctor Nothing SumType
-                                                                                                            ( ModuleName "Data.Maybe" )
-                                                                                                            ( TyName "Maybe" )
-                                                                                                            ( CtorName "Just" )
-                                                                                                            [ PrimBinOp Nothing PrimAdd
-                                                                                                              ( 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" )
-                                                                                                                  )
-                                                                                                                )
-                                                                                                                ( Ctor Nothing SumType
-                                                                                                                  ( ModuleName "Data.Maybe" )
-                                                                                                                  ( TyName "Maybe" )
-                                                                                                                  ( CtorName "Just" )
-                                                                                                                  [ PrimBinOp Nothing PrimAdd
-                                                                                                                    ( 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" )
-                                                                                                                        )
-                                                                                                                      )
-                                                                                                                      ( Ctor Nothing SumType
-                                                                                                                        ( ModuleName "Data.Maybe" )
-                                                                                                                        ( TyName "Maybe" )
-                                                                                                                        ( CtorName "Just" )
-                                                                                                                        [ PrimBinOp Nothing PrimAdd
-                                                                                                                          ( 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" )
-                                                                                                                              )
-                                                                                                                            )
-                                                                                                                            ( Ctor Nothing SumType
-                                                                                                                              ( ModuleName "Data.Maybe" )
-                                                                                                                              ( TyName "Maybe" )
-                                                                                                                              ( CtorName "Just" )
-                                                                                                                              [ PrimBinOp Nothing PrimAdd
-                                                                                                                                ( 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" )
-                                                                                                                                    )
-                                                                                                                                  )
-                                                                                                                                  ( Ctor Nothing SumType
-                                                                                                                                    ( ModuleName "Data.Maybe" )
-                                                                                                                                    ( TyName "Maybe" )
-                                                                                                                                    ( CtorName "Just" )
-                                                                                                                                    [ PrimBinOp Nothing PrimAdd
-                                                                                                                                      ( 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" )
-                                                                                                                                          )
-                                                                                                                                        )
-                                                                                                                                        ( Ctor Nothing SumType
-                                                                                                                                          ( ModuleName "Data.Maybe" )
-                                                                                                                                          ( TyName "Maybe" )
-                                                                                                                                          ( CtorName "Just" )
-                                                                                                                                          [ PrimBinOp Nothing PrimAdd
-                                                                                                                                            ( 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" )
-                                                                                                                                                )
-                                                                                                                                              )
-                                                                                                                                              ( Ctor Nothing SumType
-                                                                                                                                                ( ModuleName "Data.Maybe" )
-                                                                                                                                                ( TyName "Maybe" )
-                                                                                                                                                ( CtorName "Just" )
-                                                                                                                                                [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                  ( 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" )
-                                                                                                                                                      )
-                                                                                                                                                    )
-                                                                                                                                                    ( Ctor Nothing SumType
-                                                                                                                                                      ( ModuleName "Data.Maybe" )
-                                                                                                                                                      ( TyName "Maybe" )
-                                                                                                                                                      ( CtorName "Just" )
-                                                                                                                                                      [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                        ( 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" )
-                                                                                                                                                            )
-                                                                                                                                                          )
-                                                                                                                                                          ( Ctor Nothing SumType
-                                                                                                                                                            ( ModuleName "Data.Maybe" )
-                                                                                                                                                            ( TyName "Maybe" )
-                                                                                                                                                            ( CtorName "Just" )
-                                                                                                                                                            [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                              ( 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" )
-                                                                                                                                                                  )
-                                                                                                                                                                )
-                                                                                                                                                                ( Ctor Nothing SumType
-                                                                                                                                                                  ( ModuleName "Data.Maybe" )
-                                                                                                                                                                  ( TyName "Maybe" )
-                                                                                                                                                                  ( CtorName "Just" )
-                                                                                                                                                                  [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                                    ( 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" )
-                                                                                                                                                                        )
-                                                                                                                                                                      )
-                                                                                                                                                                      ( Ctor Nothing SumType
-                                                                                                                                                                        ( ModuleName "Data.Maybe" )
-                                                                                                                                                                        ( TyName "Maybe" )
-                                                                                                                                                                        ( CtorName "Just" )
-                                                                                                                                                                        [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                                          ( 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" )
-                                                                                                                                                                              )
-                                                                                                                                                                            )
-                                                                                                                                                                            ( Ctor Nothing SumType
-                                                                                                                                                                              ( ModuleName "Data.Maybe" )
-                                                                                                                                                                              ( TyName "Maybe" )
-                                                                                                                                                                              ( CtorName "Just" )
-                                                                                                                                                                              [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                                                ( 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" )
-                                                                                                                                                                                    )
-                                                                                                                                                                                  )
-                                                                                                                                                                                  ( Ctor Nothing SumType
-                                                                                                                                                                                    ( ModuleName "Data.Maybe" )
-                                                                                                                                                                                    ( TyName "Maybe" )
-                                                                                                                                                                                    ( CtorName "Just" )
-                                                                                                                                                                                    [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                                                      ( 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" )
-                                                                                                                                                                                          )
-                                                                                                                                                                                        )
-                                                                                                                                                                                        ( Ctor Nothing SumType
-                                                                                                                                                                                          ( ModuleName "Data.Maybe" )
-                                                                                                                                                                                          ( TyName "Maybe" )
-                                                                                                                                                                                          ( CtorName "Just" )
-                                                                                                                                                                                          [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                                                            ( 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" )
-                                                                                                                                                                                                )
-                                                                                                                                                                                              )
-                                                                                                                                                                                              ( Ctor Nothing SumType
-                                                                                                                                                                                                ( ModuleName "Data.Maybe" )
-                                                                                                                                                                                                ( TyName "Maybe" )
-                                                                                                                                                                                                ( CtorName "Just" )
-                                                                                                                                                                                                [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                                                                  ( 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" )
-                                                                                                                                                                                                      )
-                                                                                                                                                                                                    )
-                                                                                                                                                                                                    ( Ctor Nothing SumType
-                                                                                                                                                                                                      ( ModuleName "Data.Maybe" )
-                                                                                                                                                                                                      ( TyName "Maybe" )
-                                                                                                                                                                                                      ( CtorName "Just" )
-                                                                                                                                                                                                      [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                                                                        ( 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" )
-                                                                                                                                                                                                            )
-                                                                                                                                                                                                          )
-                                                                                                                                                                                                          ( Ctor Nothing SumType
-                                                                                                                                                                                                            ( ModuleName "Data.Maybe" )
-                                                                                                                                                                                                            ( TyName "Maybe" )
-                                                                                                                                                                                                            ( CtorName "Just" )
-                                                                                                                                                                                                            [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                                                                              ( 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" )
-                                                                                                                                                                                                                  )
-                                                                                                                                                                                                                )
-                                                                                                                                                                                                                ( Ctor Nothing SumType
-                                                                                                                                                                                                                  ( ModuleName "Data.Maybe" )
-                                                                                                                                                                                                                  ( TyName "Maybe" )
-                                                                                                                                                                                                                  ( CtorName "Just" )
-                                                                                                                                                                                                                  [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                                                                                    ( 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" )
-                                                                                                                                                                                                                        )
-                                                                                                                                                                                                                      )
-                                                                                                                                                                                                                      ( Ctor Nothing SumType
-                                                                                                                                                                                                                        ( ModuleName "Data.Maybe" )
-                                                                                                                                                                                                                        ( TyName "Maybe" )
-                                                                                                                                                                                                                        ( CtorName "Just" )
-                                                                                                                                                                                                                        [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                                                                                          ( 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" )
-                                                                                                                                                                                                                              )
-                                                                                                                                                                                                                            )
-                                                                                                                                                                                                                            ( Ctor Nothing SumType
-                                                                                                                                                                                                                              ( ModuleName "Data.Maybe" )
-                                                                                                                                                                                                                              ( TyName "Maybe" )
-                                                                                                                                                                                                                              ( CtorName "Just" )
-                                                                                                                                                                                                                              [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                                                                                                ( 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" )
-                                                                                                                                                                                                                                    )
-                                                                                                                                                                                                                                  )
-                                                                                                                                                                                                                                  ( Ctor Nothing SumType
-                                                                                                                                                                                                                                    ( ModuleName "Data.Maybe" )
-                                                                                                                                                                                                                                    ( TyName "Maybe" )
-                                                                                                                                                                                                                                    ( CtorName "Just" )
-                                                                                                                                                                                                                                    [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                                                                                                      ( 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" )
-                                                                                                                                                                                                                                          )
-                                                                                                                                                                                                                                        )
-                                                                                                                                                                                                                                        ( Ctor Nothing SumType
-                                                                                                                                                                                                                                          ( ModuleName "Data.Maybe" )
-                                                                                                                                                                                                                                          ( TyName "Maybe" )
-                                                                                                                                                                                                                                          ( CtorName "Just" )
-                                                                                                                                                                                                                                          [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                                                                                                            ( 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" )
-                                                                                                                                                                                                                                                )
-                                                                                                                                                                                                                                              )
-                                                                                                                                                                                                                                              ( Ctor Nothing SumType
-                                                                                                                                                                                                                                                ( ModuleName "Data.Maybe" )
-                                                                                                                                                                                                                                                ( TyName "Maybe" )
-                                                                                                                                                                                                                                                ( CtorName "Just" )
-                                                                                                                                                                                                                                                [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                                                                                                                  ( 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" )
-                                                                                                                                                                                                                                                      )
-                                                                                                                                                                                                                                                    )
-                                                                                                                                                                                                                                                    ( Ctor Nothing SumType
-                                                                                                                                                                                                                                                      ( ModuleName "Data.Maybe" )
-                                                                                                                                                                                                                                                      ( TyName "Maybe" )
-                                                                                                                                                                                                                                                      ( CtorName "Just" )
-                                                                                                                                                                                                                                                      [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                                                                                                                        ( 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" )
-                                                                                                                                                                                                                                                            )
-                                                                                                                                                                                                                                                          )
-                                                                                                                                                                                                                                                          ( Ctor Nothing SumType
-                                                                                                                                                                                                                                                            ( ModuleName "Data.Maybe" )
-                                                                                                                                                                                                                                                            ( TyName "Maybe" )
-                                                                                                                                                                                                                                                            ( CtorName "Just" )
-                                                                                                                                                                                                                                                            [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                                                                                                                              ( Ref Nothing
-                                                                                                                                                                                                                                                                ( Local
-                                                                                                                                                                                                                                                                  ( Name "x276$275" )
-                                                                                                                                                                                                                                                                )
-                                                                                                                                                                                                                                                              )
-                                                                                                                                                                                                                                                              ( LiteralInt Nothing 1 )
-                                                                                                                                                                                                                                                            ] :|
-                                                                                                                                                                                                                                                            [ AbsN Nothing
-                                                                                                                                                                                                                                                              ( ParamNamed Nothing
-                                                                                                                                                                                                                                                                ( Name "x277$276" ) :| []
-                                                                                                                                                                                                                                                              )
-                                                                                                                                                                                                                                                              ( AppN Nothing
-                                                                                                                                                                                                                                                                ( Ref Nothing
-                                                                                                                                                                                                                                                                  ( Local
-                                                                                                                                                                                                                                                                    ( Name "$kont1495$w" )
-                                                                                                                                                                                                                                                                  )
-                                                                                                                                                                                                                                                                )
-                                                                                                                                                                                                                                                                ( Ref Nothing
-                                                                                                                                                                                                                                                                  ( Local
-                                                                                                                                                                                                                                                                    ( Name "x1$0$1499" )
-                                                                                                                                                                                                                                                                  ) :|
-                                                                                                                                                                                                                                                                  [ Ref Nothing
-                                                                                                                                                                                                                                                                    ( Local
-                                                                                                                                                                                                                                                                      ( Name "x277$276" )
-                                                                                                                                                                                                                                                                    )
-                                                                                                                                                                                                                                                                  ]
-                                                                                                                                                                                                                                                                )
-                                                                                                                                                                                                                                                              )
-                                                                                                                                                                                                                                                            ]
-                                                                                                                                                                                                                                                          )
-                                                                                                                                                                                                                                                        )
-                                                                                                                                                                                                                                                      ]
-                                                                                                                                                                                                                                                    )
-                                                                                                                                                                                                                                                  )
-                                                                                                                                                                                                                                                ]
-                                                                                                                                                                                                                                              )
-                                                                                                                                                                                                                                            )
-                                                                                                                                                                                                                                          ]
-                                                                                                                                                                                                                                        )
-                                                                                                                                                                                                                                      )
-                                                                                                                                                                                                                                    ]
-                                                                                                                                                                                                                                  )
-                                                                                                                                                                                                                                )
-                                                                                                                                                                                                                              ]
-                                                                                                                                                                                                                            )
-                                                                                                                                                                                                                          )
-                                                                                                                                                                                                                        ]
-                                                                                                                                                                                                                      )
-                                                                                                                                                                                                                    )
-                                                                                                                                                                                                                  ]
-                                                                                                                                                                                                                )
-                                                                                                                                                                                                              )
-                                                                                                                                                                                                            ]
-                                                                                                                                                                                                          )
-                                                                                                                                                                                                        )
-                                                                                                                                                                                                      ]
-                                                                                                                                                                                                    )
-                                                                                                                                                                                                  )
-                                                                                                                                                                                                ]
-                                                                                                                                                                                              )
-                                                                                                                                                                                            )
-                                                                                                                                                                                          ]
-                                                                                                                                                                                        )
-                                                                                                                                                                                      )
-                                                                                                                                                                                    ]
-                                                                                                                                                                                  )
-                                                                                                                                                                                )
-                                                                                                                                                                              ]
-                                                                                                                                                                            )
-                                                                                                                                                                          )
-                                                                                                                                                                        ]
-                                                                                                                                                                      )
-                                                                                                                                                                    )
-                                                                                                                                                                  ]
-                                                                                                                                                                )
-                                                                                                                                                              )
-                                                                                                                                                            ]
-                                                                                                                                                          )
-                                                                                                                                                        )
-                                                                                                                                                      ]
-                                                                                                                                                    )
-                                                                                                                                                  )
-                                                                                                                                                ]
-                                                                                                                                              )
-                                                                                                                                            )
-                                                                                                                                          ]
-                                                                                                                                        )
-                                                                                                                                      )
-                                                                                                                                    ]
-                                                                                                                                  )
-                                                                                                                                )
-                                                                                                                              ]
-                                                                                                                            )
-                                                                                                                          )
-                                                                                                                        ]
-                                                                                                                      )
-                                                                                                                    )
-                                                                                                                  ]
-                                                                                                                )
-                                                                                                              )
-                                                                                                            ]
-                                                                                                          )
-                                                                                                        )
-                                                                                                      ]
-                                                                                                    )
-                                                                                                  )
-                                                                                                ]
-                                                                                              )
-                                                                                            )
-                                                                                          ]
-                                                                                        )
-                                                                                      )
-                                                                                    ]
-                                                                                  )
-                                                                                )
-                                                                              ]
-                                                                            )
-                                                                          )
-                                                                        ]
-                                                                      )
-                                                                    )
-                                                                  ]
-                                                                )
-                                                              )
-                                                            ]
-                                                          )
-                                                        )
-                                                      ]
-                                                    )
-                                                  )
-                                                ]
-                                              )
-                                            )
-                                          ]
-                                        )
-                                      )
-                                    ]
-                                  )
-                                )
-                              ]
-                            )
-                          )
-                        ]
-                      )
-                    )
-                  ]
-                )
-              )
-            ), Standalone
-            ( Nothing, Name "$kont1501$w", AbsN Nothing
-              ( ParamNamed Nothing
-                ( Name "x1$0$1502" ) :|
-                [ ParamNamed Nothing ( Name "x198$197$1503" ) ]
-              )
-              ( AppN Nothing
-                ( Ref Nothing
-                  ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind$w" ) )
-                )
-                ( Ctor Nothing SumType
-                  ( ModuleName "Data.Maybe" )
-                  ( TyName "Maybe" )
-                  ( CtorName "Just" )
-                  [ PrimBinOp Nothing PrimAdd
-                    ( Ref Nothing ( Local ( Name "x198$197$1503" ) ) )
-                    ( LiteralInt Nothing 1 )
-                  ] :|
-                  [ AbsN Nothing
-                    ( ParamNamed Nothing ( Name "x199$198" ) :| [] )
-                    ( AppN Nothing
-                      ( Ref Nothing
-                        ( Imported
-                          ( ModuleName "Golden.LongMaybeBindModule.Test" )
-                          ( Name "bind$w" )
-                        )
-                      )
-                      ( Ctor Nothing SumType
-                        ( ModuleName "Data.Maybe" )
-                        ( TyName "Maybe" )
-                        ( CtorName "Just" )
-                        [ PrimBinOp Nothing PrimAdd
-                          ( 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" )
-                              )
-                            )
-                            ( Ctor Nothing SumType
-                              ( ModuleName "Data.Maybe" )
-                              ( TyName "Maybe" )
-                              ( CtorName "Just" )
-                              [ PrimBinOp Nothing PrimAdd
-                                ( 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" )
-                                    )
-                                  )
-                                  ( Ctor Nothing SumType
-                                    ( ModuleName "Data.Maybe" )
-                                    ( TyName "Maybe" )
-                                    ( CtorName "Just" )
-                                    [ PrimBinOp Nothing PrimAdd
-                                      ( 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" )
-                                          )
-                                        )
-                                        ( Ctor Nothing SumType
-                                          ( ModuleName "Data.Maybe" )
-                                          ( TyName "Maybe" )
-                                          ( CtorName "Just" )
-                                          [ PrimBinOp Nothing PrimAdd
-                                            ( 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" )
-                                                )
-                                              )
-                                              ( Ctor Nothing SumType
-                                                ( ModuleName "Data.Maybe" )
-                                                ( TyName "Maybe" )
-                                                ( CtorName "Just" )
-                                                [ PrimBinOp Nothing PrimAdd
-                                                  ( 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" )
-                                                      )
-                                                    )
-                                                    ( Ctor Nothing SumType
-                                                      ( ModuleName "Data.Maybe" )
-                                                      ( TyName "Maybe" )
-                                                      ( CtorName "Just" )
-                                                      [ PrimBinOp Nothing PrimAdd
-                                                        ( 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" )
-                                                            )
-                                                          )
-                                                          ( Ctor Nothing SumType
-                                                            ( ModuleName "Data.Maybe" )
-                                                            ( TyName "Maybe" )
-                                                            ( CtorName "Just" )
-                                                            [ PrimBinOp Nothing PrimAdd
-                                                              ( 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" )
-                                                                  )
-                                                                )
-                                                                ( Ctor Nothing SumType
-                                                                  ( ModuleName "Data.Maybe" )
-                                                                  ( TyName "Maybe" )
-                                                                  ( CtorName "Just" )
-                                                                  [ PrimBinOp Nothing PrimAdd
-                                                                    ( 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" )
-                                                                        )
-                                                                      )
-                                                                      ( Ctor Nothing SumType
-                                                                        ( ModuleName "Data.Maybe" )
-                                                                        ( TyName "Maybe" )
-                                                                        ( CtorName "Just" )
-                                                                        [ PrimBinOp Nothing PrimAdd
-                                                                          ( 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" )
-                                                                              )
-                                                                            )
-                                                                            ( Ctor Nothing SumType
-                                                                              ( ModuleName "Data.Maybe" )
-                                                                              ( TyName "Maybe" )
-                                                                              ( CtorName "Just" )
-                                                                              [ PrimBinOp Nothing PrimAdd
-                                                                                ( 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" )
-                                                                                    )
-                                                                                  )
-                                                                                  ( Ctor Nothing SumType
-                                                                                    ( ModuleName "Data.Maybe" )
-                                                                                    ( TyName "Maybe" )
-                                                                                    ( CtorName "Just" )
-                                                                                    [ PrimBinOp Nothing PrimAdd
-                                                                                      ( 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" )
-                                                                                          )
-                                                                                        )
-                                                                                        ( Ctor Nothing SumType
-                                                                                          ( ModuleName "Data.Maybe" )
-                                                                                          ( TyName "Maybe" )
-                                                                                          ( CtorName "Just" )
-                                                                                          [ PrimBinOp Nothing PrimAdd
-                                                                                            ( 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" )
-                                                                                                )
-                                                                                              )
-                                                                                              ( Ctor Nothing SumType
-                                                                                                ( ModuleName "Data.Maybe" )
-                                                                                                ( TyName "Maybe" )
-                                                                                                ( CtorName "Just" )
-                                                                                                [ PrimBinOp Nothing PrimAdd
-                                                                                                  ( 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" )
-                                                                                                      )
-                                                                                                    )
-                                                                                                    ( Ctor Nothing SumType
-                                                                                                      ( ModuleName "Data.Maybe" )
-                                                                                                      ( TyName "Maybe" )
-                                                                                                      ( CtorName "Just" )
-                                                                                                      [ PrimBinOp Nothing PrimAdd
-                                                                                                        ( 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" )
-                                                                                                            )
-                                                                                                          )
-                                                                                                          ( Ctor Nothing SumType
-                                                                                                            ( ModuleName "Data.Maybe" )
-                                                                                                            ( TyName "Maybe" )
-                                                                                                            ( CtorName "Just" )
-                                                                                                            [ PrimBinOp Nothing PrimAdd
-                                                                                                              ( 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" )
-                                                                                                                  )
-                                                                                                                )
-                                                                                                                ( Ctor Nothing SumType
-                                                                                                                  ( ModuleName "Data.Maybe" )
-                                                                                                                  ( TyName "Maybe" )
-                                                                                                                  ( CtorName "Just" )
-                                                                                                                  [ PrimBinOp Nothing PrimAdd
-                                                                                                                    ( 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" )
-                                                                                                                        )
-                                                                                                                      )
-                                                                                                                      ( Ctor Nothing SumType
-                                                                                                                        ( ModuleName "Data.Maybe" )
-                                                                                                                        ( TyName "Maybe" )
-                                                                                                                        ( CtorName "Just" )
-                                                                                                                        [ PrimBinOp Nothing PrimAdd
-                                                                                                                          ( 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" )
-                                                                                                                              )
-                                                                                                                            )
-                                                                                                                            ( Ctor Nothing SumType
-                                                                                                                              ( ModuleName "Data.Maybe" )
-                                                                                                                              ( TyName "Maybe" )
-                                                                                                                              ( CtorName "Just" )
-                                                                                                                              [ PrimBinOp Nothing PrimAdd
-                                                                                                                                ( 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" )
-                                                                                                                                    )
-                                                                                                                                  )
-                                                                                                                                  ( Ctor Nothing SumType
-                                                                                                                                    ( ModuleName "Data.Maybe" )
-                                                                                                                                    ( TyName "Maybe" )
-                                                                                                                                    ( CtorName "Just" )
-                                                                                                                                    [ PrimBinOp Nothing PrimAdd
-                                                                                                                                      ( 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" )
-                                                                                                                                          )
-                                                                                                                                        )
-                                                                                                                                        ( Ctor Nothing SumType
-                                                                                                                                          ( ModuleName "Data.Maybe" )
-                                                                                                                                          ( TyName "Maybe" )
-                                                                                                                                          ( CtorName "Just" )
-                                                                                                                                          [ PrimBinOp Nothing PrimAdd
-                                                                                                                                            ( 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" )
-                                                                                                                                                )
-                                                                                                                                              )
-                                                                                                                                              ( Ctor Nothing SumType
-                                                                                                                                                ( ModuleName "Data.Maybe" )
-                                                                                                                                                ( TyName "Maybe" )
-                                                                                                                                                ( CtorName "Just" )
-                                                                                                                                                [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                  ( 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" )
-                                                                                                                                                      )
-                                                                                                                                                    )
-                                                                                                                                                    ( Ctor Nothing SumType
-                                                                                                                                                      ( ModuleName "Data.Maybe" )
-                                                                                                                                                      ( TyName "Maybe" )
-                                                                                                                                                      ( CtorName "Just" )
-                                                                                                                                                      [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                        ( 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" )
-                                                                                                                                                            )
-                                                                                                                                                          )
-                                                                                                                                                          ( Ctor Nothing SumType
-                                                                                                                                                            ( ModuleName "Data.Maybe" )
-                                                                                                                                                            ( TyName "Maybe" )
-                                                                                                                                                            ( CtorName "Just" )
-                                                                                                                                                            [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                              ( 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" )
-                                                                                                                                                                  )
-                                                                                                                                                                )
-                                                                                                                                                                ( Ctor Nothing SumType
-                                                                                                                                                                  ( ModuleName "Data.Maybe" )
-                                                                                                                                                                  ( TyName "Maybe" )
-                                                                                                                                                                  ( CtorName "Just" )
-                                                                                                                                                                  [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                                    ( 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" )
-                                                                                                                                                                        )
-                                                                                                                                                                      )
-                                                                                                                                                                      ( Ctor Nothing SumType
-                                                                                                                                                                        ( ModuleName "Data.Maybe" )
-                                                                                                                                                                        ( TyName "Maybe" )
-                                                                                                                                                                        ( CtorName "Just" )
-                                                                                                                                                                        [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                                          ( Ref Nothing
-                                                                                                                                                                            ( Local
-                                                                                                                                                                              ( Name "x223$222" )
-                                                                                                                                                                            )
-                                                                                                                                                                          )
-                                                                                                                                                                          ( LiteralInt Nothing 1 )
-                                                                                                                                                                        ] :|
-                                                                                                                                                                        [ AbsN Nothing
-                                                                                                                                                                          ( ParamNamed Nothing
-                                                                                                                                                                            ( Name "x224$223" ) :| []
-                                                                                                                                                                          )
-                                                                                                                                                                          ( AppN Nothing
-                                                                                                                                                                            ( Ref Nothing
-                                                                                                                                                                              ( Imported
-                                                                                                                                                                                ( ModuleName "Golden.LongMaybeBindModule.Test" )
-                                                                                                                                                                                ( Name "bind$w" )
-                                                                                                                                                                              )
-                                                                                                                                                                            )
-                                                                                                                                                                            ( Ctor Nothing SumType
-                                                                                                                                                                              ( ModuleName "Data.Maybe" )
-                                                                                                                                                                              ( TyName "Maybe" )
-                                                                                                                                                                              ( CtorName "Just" )
-                                                                                                                                                                              [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                                                ( 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" )
-                                                                                                                                                                                    )
-                                                                                                                                                                                  )
-                                                                                                                                                                                  ( Ctor Nothing SumType
-                                                                                                                                                                                    ( ModuleName "Data.Maybe" )
-                                                                                                                                                                                    ( TyName "Maybe" )
-                                                                                                                                                                                    ( CtorName "Just" )
-                                                                                                                                                                                    [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                                                      ( 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" )
-                                                                                                                                                                                          )
-                                                                                                                                                                                        )
-                                                                                                                                                                                        ( Ctor Nothing SumType
-                                                                                                                                                                                          ( ModuleName "Data.Maybe" )
-                                                                                                                                                                                          ( TyName "Maybe" )
-                                                                                                                                                                                          ( CtorName "Just" )
-                                                                                                                                                                                          [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                                                            ( 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" )
-                                                                                                                                                                                                )
-                                                                                                                                                                                              )
-                                                                                                                                                                                              ( Ctor Nothing SumType
-                                                                                                                                                                                                ( ModuleName "Data.Maybe" )
-                                                                                                                                                                                                ( TyName "Maybe" )
-                                                                                                                                                                                                ( CtorName "Just" )
-                                                                                                                                                                                                [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                                                                  ( 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" )
-                                                                                                                                                                                                      )
-                                                                                                                                                                                                    )
-                                                                                                                                                                                                    ( Ctor Nothing SumType
-                                                                                                                                                                                                      ( ModuleName "Data.Maybe" )
-                                                                                                                                                                                                      ( TyName "Maybe" )
-                                                                                                                                                                                                      ( CtorName "Just" )
-                                                                                                                                                                                                      [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                                                                        ( 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" )
-                                                                                                                                                                                                            )
-                                                                                                                                                                                                          )
-                                                                                                                                                                                                          ( Ctor Nothing SumType
-                                                                                                                                                                                                            ( ModuleName "Data.Maybe" )
-                                                                                                                                                                                                            ( TyName "Maybe" )
-                                                                                                                                                                                                            ( CtorName "Just" )
-                                                                                                                                                                                                            [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                                                                              ( 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" )
-                                                                                                                                                                                                                  )
-                                                                                                                                                                                                                )
-                                                                                                                                                                                                                ( Ctor Nothing SumType
-                                                                                                                                                                                                                  ( ModuleName "Data.Maybe" )
-                                                                                                                                                                                                                  ( TyName "Maybe" )
-                                                                                                                                                                                                                  ( CtorName "Just" )
-                                                                                                                                                                                                                  [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                                                                                    ( 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" )
-                                                                                                                                                                                                                        )
-                                                                                                                                                                                                                      )
-                                                                                                                                                                                                                      ( Ctor Nothing SumType
-                                                                                                                                                                                                                        ( ModuleName "Data.Maybe" )
-                                                                                                                                                                                                                        ( TyName "Maybe" )
-                                                                                                                                                                                                                        ( CtorName "Just" )
-                                                                                                                                                                                                                        [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                                                                                          ( 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" )
-                                                                                                                                                                                                                              )
-                                                                                                                                                                                                                            )
-                                                                                                                                                                                                                            ( Ctor Nothing SumType
-                                                                                                                                                                                                                              ( ModuleName "Data.Maybe" )
-                                                                                                                                                                                                                              ( TyName "Maybe" )
-                                                                                                                                                                                                                              ( CtorName "Just" )
-                                                                                                                                                                                                                              [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                                                                                                ( 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" )
-                                                                                                                                                                                                                                    )
-                                                                                                                                                                                                                                  )
-                                                                                                                                                                                                                                  ( Ctor Nothing SumType
-                                                                                                                                                                                                                                    ( ModuleName "Data.Maybe" )
-                                                                                                                                                                                                                                    ( TyName "Maybe" )
-                                                                                                                                                                                                                                    ( CtorName "Just" )
-                                                                                                                                                                                                                                    [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                                                                                                      ( 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" )
-                                                                                                                                                                                                                                          )
-                                                                                                                                                                                                                                        )
-                                                                                                                                                                                                                                        ( Ctor Nothing SumType
-                                                                                                                                                                                                                                          ( ModuleName "Data.Maybe" )
-                                                                                                                                                                                                                                          ( TyName "Maybe" )
-                                                                                                                                                                                                                                          ( CtorName "Just" )
-                                                                                                                                                                                                                                          [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                                                                                                            ( 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" )
-                                                                                                                                                                                                                                                )
-                                                                                                                                                                                                                                              )
-                                                                                                                                                                                                                                              ( Ctor Nothing SumType
-                                                                                                                                                                                                                                                ( ModuleName "Data.Maybe" )
-                                                                                                                                                                                                                                                ( TyName "Maybe" )
-                                                                                                                                                                                                                                                ( CtorName "Just" )
-                                                                                                                                                                                                                                                [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                                                                                                                  ( 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" )
-                                                                                                                                                                                                                                                      )
-                                                                                                                                                                                                                                                    )
-                                                                                                                                                                                                                                                    ( Ctor Nothing SumType
-                                                                                                                                                                                                                                                      ( ModuleName "Data.Maybe" )
-                                                                                                                                                                                                                                                      ( TyName "Maybe" )
-                                                                                                                                                                                                                                                      ( CtorName "Just" )
-                                                                                                                                                                                                                                                      [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                                                                                                                        ( 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" )
-                                                                                                                                                                                                                                                            )
-                                                                                                                                                                                                                                                          )
-                                                                                                                                                                                                                                                          ( Ctor Nothing SumType
-                                                                                                                                                                                                                                                            ( ModuleName "Data.Maybe" )
-                                                                                                                                                                                                                                                            ( TyName "Maybe" )
-                                                                                                                                                                                                                                                            ( CtorName "Just" )
-                                                                                                                                                                                                                                                            [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                                                                                                                              ( Ref Nothing
-                                                                                                                                                                                                                                                                ( Local
-                                                                                                                                                                                                                                                                  ( Name "x237$236" )
-                                                                                                                                                                                                                                                                )
-                                                                                                                                                                                                                                                              )
-                                                                                                                                                                                                                                                              ( LiteralInt Nothing 1 )
-                                                                                                                                                                                                                                                            ] :|
-                                                                                                                                                                                                                                                            [ AbsN Nothing
-                                                                                                                                                                                                                                                              ( ParamNamed Nothing
-                                                                                                                                                                                                                                                                ( Name "x238$237" ) :| []
-                                                                                                                                                                                                                                                              )
-                                                                                                                                                                                                                                                              ( AppN Nothing
-                                                                                                                                                                                                                                                                ( Ref Nothing
-                                                                                                                                                                                                                                                                  ( Local
-                                                                                                                                                                                                                                                                    ( Name "$kont1498$w" )
-                                                                                                                                                                                                                                                                  )
-                                                                                                                                                                                                                                                                )
-                                                                                                                                                                                                                                                                ( Ref Nothing
-                                                                                                                                                                                                                                                                  ( Local
-                                                                                                                                                                                                                                                                    ( Name "x1$0$1502" )
-                                                                                                                                                                                                                                                                  ) :|
-                                                                                                                                                                                                                                                                  [ Ref Nothing
-                                                                                                                                                                                                                                                                    ( Local
-                                                                                                                                                                                                                                                                      ( Name "x238$237" )
-                                                                                                                                                                                                                                                                    )
-                                                                                                                                                                                                                                                                  ]
-                                                                                                                                                                                                                                                                )
-                                                                                                                                                                                                                                                              )
-                                                                                                                                                                                                                                                            ]
-                                                                                                                                                                                                                                                          )
-                                                                                                                                                                                                                                                        )
-                                                                                                                                                                                                                                                      ]
-                                                                                                                                                                                                                                                    )
-                                                                                                                                                                                                                                                  )
-                                                                                                                                                                                                                                                ]
-                                                                                                                                                                                                                                              )
-                                                                                                                                                                                                                                            )
-                                                                                                                                                                                                                                          ]
-                                                                                                                                                                                                                                        )
-                                                                                                                                                                                                                                      )
-                                                                                                                                                                                                                                    ]
-                                                                                                                                                                                                                                  )
-                                                                                                                                                                                                                                )
-                                                                                                                                                                                                                              ]
-                                                                                                                                                                                                                            )
-                                                                                                                                                                                                                          )
-                                                                                                                                                                                                                        ]
-                                                                                                                                                                                                                      )
-                                                                                                                                                                                                                    )
-                                                                                                                                                                                                                  ]
-                                                                                                                                                                                                                )
-                                                                                                                                                                                                              )
-                                                                                                                                                                                                            ]
-                                                                                                                                                                                                          )
-                                                                                                                                                                                                        )
-                                                                                                                                                                                                      ]
-                                                                                                                                                                                                    )
-                                                                                                                                                                                                  )
-                                                                                                                                                                                                ]
-                                                                                                                                                                                              )
-                                                                                                                                                                                            )
-                                                                                                                                                                                          ]
-                                                                                                                                                                                        )
-                                                                                                                                                                                      )
-                                                                                                                                                                                    ]
-                                                                                                                                                                                  )
-                                                                                                                                                                                )
-                                                                                                                                                                              ]
-                                                                                                                                                                            )
-                                                                                                                                                                          )
-                                                                                                                                                                        ]
-                                                                                                                                                                      )
-                                                                                                                                                                    )
-                                                                                                                                                                  ]
-                                                                                                                                                                )
-                                                                                                                                                              )
-                                                                                                                                                            ]
-                                                                                                                                                          )
-                                                                                                                                                        )
-                                                                                                                                                      ]
-                                                                                                                                                    )
-                                                                                                                                                  )
-                                                                                                                                                ]
-                                                                                                                                              )
-                                                                                                                                            )
-                                                                                                                                          ]
-                                                                                                                                        )
-                                                                                                                                      )
-                                                                                                                                    ]
-                                                                                                                                  )
-                                                                                                                                )
-                                                                                                                              ]
-                                                                                                                            )
-                                                                                                                          )
-                                                                                                                        ]
-                                                                                                                      )
-                                                                                                                    )
-                                                                                                                  ]
-                                                                                                                )
-                                                                                                              )
-                                                                                                            ]
-                                                                                                          )
-                                                                                                        )
-                                                                                                      ]
-                                                                                                    )
-                                                                                                  )
-                                                                                                ]
-                                                                                              )
-                                                                                            )
-                                                                                          ]
-                                                                                        )
-                                                                                      )
-                                                                                    ]
-                                                                                  )
-                                                                                )
-                                                                              ]
-                                                                            )
-                                                                          )
-                                                                        ]
-                                                                      )
-                                                                    )
-                                                                  ]
-                                                                )
-                                                              )
-                                                            ]
-                                                          )
-                                                        )
-                                                      ]
-                                                    )
-                                                  )
-                                                ]
-                                              )
-                                            )
-                                          ]
-                                        )
-                                      )
-                                    ]
-                                  )
-                                )
-                              ]
-                            )
-                          )
-                        ]
-                      )
-                    )
-                  ]
-                )
-              )
-            ), Standalone
-            ( Nothing, Name "$kont1504$w", AbsN Nothing
-              ( ParamNamed Nothing
-                ( Name "x1$0$1505" ) :|
-                [ ParamNamed Nothing ( Name "x158$157$1506" ) ]
-              )
-              ( AppN Nothing
-                ( Ref Nothing
-                  ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind$w" ) )
-                )
-                ( Ctor Nothing SumType
-                  ( ModuleName "Data.Maybe" )
-                  ( TyName "Maybe" )
-                  ( CtorName "Just" )
-                  [ PrimBinOp Nothing PrimAdd
-                    ( Ref Nothing ( Local ( Name "x158$157$1506" ) ) )
-                    ( LiteralInt Nothing 1 )
-                  ] :|
-                  [ AbsN Nothing
-                    ( ParamNamed Nothing ( Name "x159$158" ) :| [] )
-                    ( AppN Nothing
-                      ( Ref Nothing
-                        ( Imported
-                          ( ModuleName "Golden.LongMaybeBindModule.Test" )
-                          ( Name "bind$w" )
-                        )
-                      )
-                      ( Ctor Nothing SumType
-                        ( ModuleName "Data.Maybe" )
-                        ( TyName "Maybe" )
-                        ( CtorName "Just" )
-                        [ PrimBinOp Nothing PrimAdd
-                          ( 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" )
-                              )
-                            )
-                            ( Ctor Nothing SumType
-                              ( ModuleName "Data.Maybe" )
-                              ( TyName "Maybe" )
-                              ( CtorName "Just" )
-                              [ PrimBinOp Nothing PrimAdd
-                                ( 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" )
-                                    )
-                                  )
-                                  ( Ctor Nothing SumType
-                                    ( ModuleName "Data.Maybe" )
-                                    ( TyName "Maybe" )
-                                    ( CtorName "Just" )
-                                    [ PrimBinOp Nothing PrimAdd
-                                      ( 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" )
-                                          )
-                                        )
-                                        ( Ctor Nothing SumType
-                                          ( ModuleName "Data.Maybe" )
-                                          ( TyName "Maybe" )
-                                          ( CtorName "Just" )
-                                          [ PrimBinOp Nothing PrimAdd
-                                            ( 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" )
-                                                )
-                                              )
-                                              ( Ctor Nothing SumType
-                                                ( ModuleName "Data.Maybe" )
-                                                ( TyName "Maybe" )
-                                                ( CtorName "Just" )
-                                                [ PrimBinOp Nothing PrimAdd
-                                                  ( 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" )
-                                                      )
-                                                    )
-                                                    ( Ctor Nothing SumType
-                                                      ( ModuleName "Data.Maybe" )
-                                                      ( TyName "Maybe" )
-                                                      ( CtorName "Just" )
-                                                      [ PrimBinOp Nothing PrimAdd
-                                                        ( 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" )
-                                                            )
-                                                          )
-                                                          ( Ctor Nothing SumType
-                                                            ( ModuleName "Data.Maybe" )
-                                                            ( TyName "Maybe" )
-                                                            ( CtorName "Just" )
-                                                            [ PrimBinOp Nothing PrimAdd
-                                                              ( 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" )
-                                                                  )
-                                                                )
-                                                                ( Ctor Nothing SumType
-                                                                  ( ModuleName "Data.Maybe" )
-                                                                  ( TyName "Maybe" )
-                                                                  ( CtorName "Just" )
-                                                                  [ PrimBinOp Nothing PrimAdd
-                                                                    ( 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" )
-                                                                        )
-                                                                      )
-                                                                      ( Ctor Nothing SumType
-                                                                        ( ModuleName "Data.Maybe" )
-                                                                        ( TyName "Maybe" )
-                                                                        ( CtorName "Just" )
-                                                                        [ PrimBinOp Nothing PrimAdd
-                                                                          ( 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" )
-                                                                              )
-                                                                            )
-                                                                            ( Ctor Nothing SumType
-                                                                              ( ModuleName "Data.Maybe" )
-                                                                              ( TyName "Maybe" )
-                                                                              ( CtorName "Just" )
-                                                                              [ PrimBinOp Nothing PrimAdd
-                                                                                ( 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" )
-                                                                                    )
-                                                                                  )
-                                                                                  ( Ctor Nothing SumType
-                                                                                    ( ModuleName "Data.Maybe" )
-                                                                                    ( TyName "Maybe" )
-                                                                                    ( CtorName "Just" )
-                                                                                    [ PrimBinOp Nothing PrimAdd
-                                                                                      ( 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" )
-                                                                                          )
-                                                                                        )
-                                                                                        ( Ctor Nothing SumType
-                                                                                          ( ModuleName "Data.Maybe" )
-                                                                                          ( TyName "Maybe" )
-                                                                                          ( CtorName "Just" )
-                                                                                          [ PrimBinOp Nothing PrimAdd
-                                                                                            ( 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" )
-                                                                                                )
-                                                                                              )
-                                                                                              ( Ctor Nothing SumType
-                                                                                                ( ModuleName "Data.Maybe" )
-                                                                                                ( TyName "Maybe" )
-                                                                                                ( CtorName "Just" )
-                                                                                                [ PrimBinOp Nothing PrimAdd
-                                                                                                  ( 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" )
-                                                                                                      )
-                                                                                                    )
-                                                                                                    ( Ctor Nothing SumType
-                                                                                                      ( ModuleName "Data.Maybe" )
-                                                                                                      ( TyName "Maybe" )
-                                                                                                      ( CtorName "Just" )
-                                                                                                      [ PrimBinOp Nothing PrimAdd
-                                                                                                        ( 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" )
-                                                                                                            )
-                                                                                                          )
-                                                                                                          ( Ctor Nothing SumType
-                                                                                                            ( ModuleName "Data.Maybe" )
-                                                                                                            ( TyName "Maybe" )
-                                                                                                            ( CtorName "Just" )
-                                                                                                            [ PrimBinOp Nothing PrimAdd
-                                                                                                              ( 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" )
-                                                                                                                  )
-                                                                                                                )
-                                                                                                                ( Ctor Nothing SumType
-                                                                                                                  ( ModuleName "Data.Maybe" )
-                                                                                                                  ( TyName "Maybe" )
-                                                                                                                  ( CtorName "Just" )
-                                                                                                                  [ PrimBinOp Nothing PrimAdd
-                                                                                                                    ( 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" )
-                                                                                                                        )
-                                                                                                                      )
-                                                                                                                      ( Ctor Nothing SumType
-                                                                                                                        ( ModuleName "Data.Maybe" )
-                                                                                                                        ( TyName "Maybe" )
-                                                                                                                        ( CtorName "Just" )
-                                                                                                                        [ PrimBinOp Nothing PrimAdd
-                                                                                                                          ( 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" )
-                                                                                                                              )
-                                                                                                                            )
-                                                                                                                            ( Ctor Nothing SumType
-                                                                                                                              ( ModuleName "Data.Maybe" )
-                                                                                                                              ( TyName "Maybe" )
-                                                                                                                              ( CtorName "Just" )
-                                                                                                                              [ PrimBinOp Nothing PrimAdd
-                                                                                                                                ( 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" )
-                                                                                                                                    )
-                                                                                                                                  )
-                                                                                                                                  ( Ctor Nothing SumType
-                                                                                                                                    ( ModuleName "Data.Maybe" )
-                                                                                                                                    ( TyName "Maybe" )
-                                                                                                                                    ( CtorName "Just" )
-                                                                                                                                    [ PrimBinOp Nothing PrimAdd
-                                                                                                                                      ( 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" )
-                                                                                                                                          )
-                                                                                                                                        )
-                                                                                                                                        ( Ctor Nothing SumType
-                                                                                                                                          ( ModuleName "Data.Maybe" )
-                                                                                                                                          ( TyName "Maybe" )
-                                                                                                                                          ( CtorName "Just" )
-                                                                                                                                          [ PrimBinOp Nothing PrimAdd
-                                                                                                                                            ( 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" )
-                                                                                                                                                )
-                                                                                                                                              )
-                                                                                                                                              ( Ctor Nothing SumType
-                                                                                                                                                ( ModuleName "Data.Maybe" )
-                                                                                                                                                ( TyName "Maybe" )
-                                                                                                                                                ( CtorName "Just" )
-                                                                                                                                                [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                  ( 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" )
-                                                                                                                                                      )
-                                                                                                                                                    )
-                                                                                                                                                    ( Ctor Nothing SumType
-                                                                                                                                                      ( ModuleName "Data.Maybe" )
-                                                                                                                                                      ( TyName "Maybe" )
-                                                                                                                                                      ( CtorName "Just" )
-                                                                                                                                                      [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                        ( Ref Nothing
-                                                                                                                                                          ( Local
-                                                                                                                                                            ( Name "x180$179" )
-                                                                                                                                                          )
-                                                                                                                                                        )
-                                                                                                                                                        ( LiteralInt Nothing 1 )
-                                                                                                                                                      ] :|
-                                                                                                                                                      [ AbsN Nothing
-                                                                                                                                                        ( ParamNamed Nothing
-                                                                                                                                                          ( Name "x181$180" ) :| []
-                                                                                                                                                        )
-                                                                                                                                                        ( AppN Nothing
-                                                                                                                                                          ( Ref Nothing
-                                                                                                                                                            ( Imported
-                                                                                                                                                              ( ModuleName "Golden.LongMaybeBindModule.Test" )
-                                                                                                                                                              ( Name "bind$w" )
-                                                                                                                                                            )
-                                                                                                                                                          )
-                                                                                                                                                          ( Ctor Nothing SumType
-                                                                                                                                                            ( ModuleName "Data.Maybe" )
-                                                                                                                                                            ( TyName "Maybe" )
-                                                                                                                                                            ( CtorName "Just" )
-                                                                                                                                                            [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                              ( 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" )
-                                                                                                                                                                  )
-                                                                                                                                                                )
-                                                                                                                                                                ( Ctor Nothing SumType
-                                                                                                                                                                  ( ModuleName "Data.Maybe" )
-                                                                                                                                                                  ( TyName "Maybe" )
-                                                                                                                                                                  ( CtorName "Just" )
-                                                                                                                                                                  [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                                    ( 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" )
-                                                                                                                                                                        )
-                                                                                                                                                                      )
-                                                                                                                                                                      ( Ctor Nothing SumType
-                                                                                                                                                                        ( ModuleName "Data.Maybe" )
-                                                                                                                                                                        ( TyName "Maybe" )
-                                                                                                                                                                        ( CtorName "Just" )
-                                                                                                                                                                        [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                                          ( 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" )
-                                                                                                                                                                              )
-                                                                                                                                                                            )
-                                                                                                                                                                            ( Ctor Nothing SumType
-                                                                                                                                                                              ( ModuleName "Data.Maybe" )
-                                                                                                                                                                              ( TyName "Maybe" )
-                                                                                                                                                                              ( CtorName "Just" )
-                                                                                                                                                                              [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                                                ( 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" )
-                                                                                                                                                                                    )
-                                                                                                                                                                                  )
-                                                                                                                                                                                  ( Ctor Nothing SumType
-                                                                                                                                                                                    ( ModuleName "Data.Maybe" )
-                                                                                                                                                                                    ( TyName "Maybe" )
-                                                                                                                                                                                    ( CtorName "Just" )
-                                                                                                                                                                                    [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                                                      ( 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" )
-                                                                                                                                                                                          )
-                                                                                                                                                                                        )
-                                                                                                                                                                                        ( Ctor Nothing SumType
-                                                                                                                                                                                          ( ModuleName "Data.Maybe" )
-                                                                                                                                                                                          ( TyName "Maybe" )
-                                                                                                                                                                                          ( CtorName "Just" )
-                                                                                                                                                                                          [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                                                            ( 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" )
-                                                                                                                                                                                                )
-                                                                                                                                                                                              )
-                                                                                                                                                                                              ( Ctor Nothing SumType
-                                                                                                                                                                                                ( ModuleName "Data.Maybe" )
-                                                                                                                                                                                                ( TyName "Maybe" )
-                                                                                                                                                                                                ( CtorName "Just" )
-                                                                                                                                                                                                [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                                                                  ( 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" )
-                                                                                                                                                                                                      )
-                                                                                                                                                                                                    )
-                                                                                                                                                                                                    ( Ctor Nothing SumType
-                                                                                                                                                                                                      ( ModuleName "Data.Maybe" )
-                                                                                                                                                                                                      ( TyName "Maybe" )
-                                                                                                                                                                                                      ( CtorName "Just" )
-                                                                                                                                                                                                      [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                                                                        ( 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" )
-                                                                                                                                                                                                            )
-                                                                                                                                                                                                          )
-                                                                                                                                                                                                          ( Ctor Nothing SumType
-                                                                                                                                                                                                            ( ModuleName "Data.Maybe" )
-                                                                                                                                                                                                            ( TyName "Maybe" )
-                                                                                                                                                                                                            ( CtorName "Just" )
-                                                                                                                                                                                                            [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                                                                              ( 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" )
-                                                                                                                                                                                                                  )
-                                                                                                                                                                                                                )
-                                                                                                                                                                                                                ( Ctor Nothing SumType
-                                                                                                                                                                                                                  ( ModuleName "Data.Maybe" )
-                                                                                                                                                                                                                  ( TyName "Maybe" )
-                                                                                                                                                                                                                  ( CtorName "Just" )
-                                                                                                                                                                                                                  [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                                                                                    ( 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" )
-                                                                                                                                                                                                                        )
-                                                                                                                                                                                                                      )
-                                                                                                                                                                                                                      ( Ctor Nothing SumType
-                                                                                                                                                                                                                        ( ModuleName "Data.Maybe" )
-                                                                                                                                                                                                                        ( TyName "Maybe" )
-                                                                                                                                                                                                                        ( CtorName "Just" )
-                                                                                                                                                                                                                        [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                                                                                          ( 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" )
-                                                                                                                                                                                                                              )
-                                                                                                                                                                                                                            )
-                                                                                                                                                                                                                            ( Ctor Nothing SumType
-                                                                                                                                                                                                                              ( ModuleName "Data.Maybe" )
-                                                                                                                                                                                                                              ( TyName "Maybe" )
-                                                                                                                                                                                                                              ( CtorName "Just" )
-                                                                                                                                                                                                                              [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                                                                                                ( 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" )
-                                                                                                                                                                                                                                    )
-                                                                                                                                                                                                                                  )
-                                                                                                                                                                                                                                  ( Ctor Nothing SumType
-                                                                                                                                                                                                                                    ( ModuleName "Data.Maybe" )
-                                                                                                                                                                                                                                    ( TyName "Maybe" )
-                                                                                                                                                                                                                                    ( CtorName "Just" )
-                                                                                                                                                                                                                                    [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                                                                                                      ( 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" )
-                                                                                                                                                                                                                                          )
-                                                                                                                                                                                                                                        )
-                                                                                                                                                                                                                                        ( Ctor Nothing SumType
-                                                                                                                                                                                                                                          ( ModuleName "Data.Maybe" )
-                                                                                                                                                                                                                                          ( TyName "Maybe" )
-                                                                                                                                                                                                                                          ( CtorName "Just" )
-                                                                                                                                                                                                                                          [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                                                                                                            ( 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" )
-                                                                                                                                                                                                                                                )
-                                                                                                                                                                                                                                              )
-                                                                                                                                                                                                                                              ( Ctor Nothing SumType
-                                                                                                                                                                                                                                                ( ModuleName "Data.Maybe" )
-                                                                                                                                                                                                                                                ( TyName "Maybe" )
-                                                                                                                                                                                                                                                ( CtorName "Just" )
-                                                                                                                                                                                                                                                [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                                                                                                                  ( 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" )
-                                                                                                                                                                                                                                                      )
-                                                                                                                                                                                                                                                    )
-                                                                                                                                                                                                                                                    ( Ctor Nothing SumType
-                                                                                                                                                                                                                                                      ( ModuleName "Data.Maybe" )
-                                                                                                                                                                                                                                                      ( TyName "Maybe" )
-                                                                                                                                                                                                                                                      ( CtorName "Just" )
-                                                                                                                                                                                                                                                      [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                                                                                                                        ( 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" )
-                                                                                                                                                                                                                                                            )
-                                                                                                                                                                                                                                                          )
-                                                                                                                                                                                                                                                          ( Ctor Nothing SumType
-                                                                                                                                                                                                                                                            ( ModuleName "Data.Maybe" )
-                                                                                                                                                                                                                                                            ( TyName "Maybe" )
-                                                                                                                                                                                                                                                            ( CtorName "Just" )
-                                                                                                                                                                                                                                                            [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                                                                                                                              ( Ref Nothing
-                                                                                                                                                                                                                                                                ( Local
-                                                                                                                                                                                                                                                                  ( Name "x197$196" )
-                                                                                                                                                                                                                                                                )
-                                                                                                                                                                                                                                                              )
-                                                                                                                                                                                                                                                              ( LiteralInt Nothing 1 )
-                                                                                                                                                                                                                                                            ] :|
-                                                                                                                                                                                                                                                            [ AbsN Nothing
-                                                                                                                                                                                                                                                              ( ParamNamed Nothing
-                                                                                                                                                                                                                                                                ( Name "x198$197" ) :| []
-                                                                                                                                                                                                                                                              )
-                                                                                                                                                                                                                                                              ( AppN Nothing
-                                                                                                                                                                                                                                                                ( Ref Nothing
-                                                                                                                                                                                                                                                                  ( Local
-                                                                                                                                                                                                                                                                    ( Name "$kont1501$w" )
-                                                                                                                                                                                                                                                                  )
-                                                                                                                                                                                                                                                                )
-                                                                                                                                                                                                                                                                ( Ref Nothing
-                                                                                                                                                                                                                                                                  ( Local
-                                                                                                                                                                                                                                                                    ( Name "x1$0$1505" )
-                                                                                                                                                                                                                                                                  ) :|
-                                                                                                                                                                                                                                                                  [ Ref Nothing
-                                                                                                                                                                                                                                                                    ( Local
-                                                                                                                                                                                                                                                                      ( Name "x198$197" )
-                                                                                                                                                                                                                                                                    )
-                                                                                                                                                                                                                                                                  ]
-                                                                                                                                                                                                                                                                )
-                                                                                                                                                                                                                                                              )
-                                                                                                                                                                                                                                                            ]
-                                                                                                                                                                                                                                                          )
-                                                                                                                                                                                                                                                        )
-                                                                                                                                                                                                                                                      ]
-                                                                                                                                                                                                                                                    )
-                                                                                                                                                                                                                                                  )
-                                                                                                                                                                                                                                                ]
-                                                                                                                                                                                                                                              )
-                                                                                                                                                                                                                                            )
-                                                                                                                                                                                                                                          ]
-                                                                                                                                                                                                                                        )
-                                                                                                                                                                                                                                      )
-                                                                                                                                                                                                                                    ]
-                                                                                                                                                                                                                                  )
-                                                                                                                                                                                                                                )
-                                                                                                                                                                                                                              ]
-                                                                                                                                                                                                                            )
-                                                                                                                                                                                                                          )
-                                                                                                                                                                                                                        ]
-                                                                                                                                                                                                                      )
-                                                                                                                                                                                                                    )
-                                                                                                                                                                                                                  ]
-                                                                                                                                                                                                                )
-                                                                                                                                                                                                              )
-                                                                                                                                                                                                            ]
-                                                                                                                                                                                                          )
-                                                                                                                                                                                                        )
-                                                                                                                                                                                                      ]
-                                                                                                                                                                                                    )
-                                                                                                                                                                                                  )
-                                                                                                                                                                                                ]
-                                                                                                                                                                                              )
-                                                                                                                                                                                            )
-                                                                                                                                                                                          ]
-                                                                                                                                                                                        )
-                                                                                                                                                                                      )
-                                                                                                                                                                                    ]
-                                                                                                                                                                                  )
-                                                                                                                                                                                )
-                                                                                                                                                                              ]
-                                                                                                                                                                            )
-                                                                                                                                                                          )
-                                                                                                                                                                        ]
-                                                                                                                                                                      )
-                                                                                                                                                                    )
-                                                                                                                                                                  ]
-                                                                                                                                                                )
-                                                                                                                                                              )
-                                                                                                                                                            ]
-                                                                                                                                                          )
-                                                                                                                                                        )
-                                                                                                                                                      ]
-                                                                                                                                                    )
-                                                                                                                                                  )
-                                                                                                                                                ]
-                                                                                                                                              )
-                                                                                                                                            )
-                                                                                                                                          ]
-                                                                                                                                        )
-                                                                                                                                      )
-                                                                                                                                    ]
-                                                                                                                                  )
-                                                                                                                                )
-                                                                                                                              ]
-                                                                                                                            )
-                                                                                                                          )
-                                                                                                                        ]
-                                                                                                                      )
-                                                                                                                    )
-                                                                                                                  ]
-                                                                                                                )
-                                                                                                              )
-                                                                                                            ]
-                                                                                                          )
-                                                                                                        )
-                                                                                                      ]
-                                                                                                    )
-                                                                                                  )
-                                                                                                ]
-                                                                                              )
-                                                                                            )
-                                                                                          ]
-                                                                                        )
-                                                                                      )
-                                                                                    ]
-                                                                                  )
-                                                                                )
-                                                                              ]
-                                                                            )
-                                                                          )
-                                                                        ]
-                                                                      )
-                                                                    )
-                                                                  ]
-                                                                )
-                                                              )
-                                                            ]
-                                                          )
-                                                        )
-                                                      ]
-                                                    )
-                                                  )
-                                                ]
-                                              )
-                                            )
-                                          ]
-                                        )
-                                      )
-                                    ]
-                                  )
-                                )
-                              ]
-                            )
-                          )
-                        ]
-                      )
-                    )
-                  ]
-                )
-              )
-            ), Standalone
-            ( Nothing, Name "$kont1507$w", AbsN Nothing
-              ( ParamNamed Nothing
-                ( Name "x1$0$1508" ) :|
-                [ ParamNamed Nothing ( Name "x119$118$1509" ) ]
-              )
-              ( AppN Nothing
-                ( Ref Nothing
-                  ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind$w" ) )
-                )
-                ( Ctor Nothing SumType
-                  ( ModuleName "Data.Maybe" )
-                  ( TyName "Maybe" )
-                  ( CtorName "Just" )
-                  [ PrimBinOp Nothing PrimAdd
-                    ( Ref Nothing ( Local ( Name "x119$118$1509" ) ) )
-                    ( LiteralInt Nothing 1 )
-                  ] :|
-                  [ AbsN Nothing
-                    ( ParamNamed Nothing ( Name "x120$119" ) :| [] )
-                    ( AppN Nothing
-                      ( Ref Nothing
-                        ( Imported
-                          ( ModuleName "Golden.LongMaybeBindModule.Test" )
-                          ( Name "bind$w" )
-                        )
-                      )
-                      ( Ctor Nothing SumType
-                        ( ModuleName "Data.Maybe" )
-                        ( TyName "Maybe" )
-                        ( CtorName "Just" )
-                        [ PrimBinOp Nothing PrimAdd
-                          ( 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" )
-                              )
-                            )
-                            ( Ctor Nothing SumType
-                              ( ModuleName "Data.Maybe" )
-                              ( TyName "Maybe" )
-                              ( CtorName "Just" )
-                              [ PrimBinOp Nothing PrimAdd
-                                ( 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" )
-                                    )
-                                  )
-                                  ( Ctor Nothing SumType
-                                    ( ModuleName "Data.Maybe" )
-                                    ( TyName "Maybe" )
-                                    ( CtorName "Just" )
-                                    [ PrimBinOp Nothing PrimAdd
-                                      ( 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" )
-                                          )
-                                        )
-                                        ( Ctor Nothing SumType
-                                          ( ModuleName "Data.Maybe" )
-                                          ( TyName "Maybe" )
-                                          ( CtorName "Just" )
-                                          [ PrimBinOp Nothing PrimAdd
-                                            ( 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" )
-                                                )
-                                              )
-                                              ( Ctor Nothing SumType
-                                                ( ModuleName "Data.Maybe" )
-                                                ( TyName "Maybe" )
-                                                ( CtorName "Just" )
-                                                [ PrimBinOp Nothing PrimAdd
-                                                  ( Ref Nothing ( Local ( Name "x124$123" ) ) )
-                                                  ( LiteralInt Nothing 1 )
-                                                ] :|
-                                                [ AbsN Nothing
-                                                  ( ParamNamed Nothing ( Name "x125$124" ) :| [] )
-                                                  ( AppN Nothing
-                                                    ( Ref Nothing
-                                                      ( Imported
-                                                        ( ModuleName "Golden.LongMaybeBindModule.Test" )
-                                                        ( Name "bind$w" )
-                                                      )
-                                                    )
-                                                    ( Ctor Nothing SumType
-                                                      ( ModuleName "Data.Maybe" )
-                                                      ( TyName "Maybe" )
-                                                      ( CtorName "Just" )
-                                                      [ PrimBinOp Nothing PrimAdd
-                                                        ( 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" )
-                                                            )
-                                                          )
-                                                          ( Ctor Nothing SumType
-                                                            ( ModuleName "Data.Maybe" )
-                                                            ( TyName "Maybe" )
-                                                            ( CtorName "Just" )
-                                                            [ PrimBinOp Nothing PrimAdd
-                                                              ( 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" )
-                                                                  )
-                                                                )
-                                                                ( Ctor Nothing SumType
-                                                                  ( ModuleName "Data.Maybe" )
-                                                                  ( TyName "Maybe" )
-                                                                  ( CtorName "Just" )
-                                                                  [ PrimBinOp Nothing PrimAdd
-                                                                    ( 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" )
-                                                                        )
-                                                                      )
-                                                                      ( Ctor Nothing SumType
-                                                                        ( ModuleName "Data.Maybe" )
-                                                                        ( TyName "Maybe" )
-                                                                        ( CtorName "Just" )
-                                                                        [ PrimBinOp Nothing PrimAdd
-                                                                          ( 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" )
-                                                                              )
-                                                                            )
-                                                                            ( Ctor Nothing SumType
-                                                                              ( ModuleName "Data.Maybe" )
-                                                                              ( TyName "Maybe" )
-                                                                              ( CtorName "Just" )
-                                                                              [ PrimBinOp Nothing PrimAdd
-                                                                                ( 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" )
-                                                                                    )
-                                                                                  )
-                                                                                  ( Ctor Nothing SumType
-                                                                                    ( ModuleName "Data.Maybe" )
-                                                                                    ( TyName "Maybe" )
-                                                                                    ( CtorName "Just" )
-                                                                                    [ PrimBinOp Nothing PrimAdd
-                                                                                      ( 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" )
-                                                                                          )
-                                                                                        )
-                                                                                        ( Ctor Nothing SumType
-                                                                                          ( ModuleName "Data.Maybe" )
-                                                                                          ( TyName "Maybe" )
-                                                                                          ( CtorName "Just" )
-                                                                                          [ PrimBinOp Nothing PrimAdd
-                                                                                            ( 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" )
-                                                                                                )
-                                                                                              )
-                                                                                              ( Ctor Nothing SumType
-                                                                                                ( ModuleName "Data.Maybe" )
-                                                                                                ( TyName "Maybe" )
-                                                                                                ( CtorName "Just" )
-                                                                                                [ PrimBinOp Nothing PrimAdd
-                                                                                                  ( 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" )
-                                                                                                      )
-                                                                                                    )
-                                                                                                    ( Ctor Nothing SumType
-                                                                                                      ( ModuleName "Data.Maybe" )
-                                                                                                      ( TyName "Maybe" )
-                                                                                                      ( CtorName "Just" )
-                                                                                                      [ PrimBinOp Nothing PrimAdd
-                                                                                                        ( 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" )
-                                                                                                            )
-                                                                                                          )
-                                                                                                          ( Ctor Nothing SumType
-                                                                                                            ( ModuleName "Data.Maybe" )
-                                                                                                            ( TyName "Maybe" )
-                                                                                                            ( CtorName "Just" )
-                                                                                                            [ PrimBinOp Nothing PrimAdd
-                                                                                                              ( 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" )
-                                                                                                                  )
-                                                                                                                )
-                                                                                                                ( Ctor Nothing SumType
-                                                                                                                  ( ModuleName "Data.Maybe" )
-                                                                                                                  ( TyName "Maybe" )
-                                                                                                                  ( CtorName "Just" )
-                                                                                                                  [ PrimBinOp Nothing PrimAdd
-                                                                                                                    ( 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" )
-                                                                                                                        )
-                                                                                                                      )
-                                                                                                                      ( Ctor Nothing SumType
-                                                                                                                        ( ModuleName "Data.Maybe" )
-                                                                                                                        ( TyName "Maybe" )
-                                                                                                                        ( CtorName "Just" )
-                                                                                                                        [ PrimBinOp Nothing PrimAdd
-                                                                                                                          ( 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" )
-                                                                                                                              )
-                                                                                                                            )
-                                                                                                                            ( Ctor Nothing SumType
-                                                                                                                              ( ModuleName "Data.Maybe" )
-                                                                                                                              ( TyName "Maybe" )
-                                                                                                                              ( CtorName "Just" )
-                                                                                                                              [ PrimBinOp Nothing PrimAdd
-                                                                                                                                ( 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" )
-                                                                                                                                    )
-                                                                                                                                  )
-                                                                                                                                  ( Ctor Nothing SumType
-                                                                                                                                    ( ModuleName "Data.Maybe" )
-                                                                                                                                    ( TyName "Maybe" )
-                                                                                                                                    ( CtorName "Just" )
-                                                                                                                                    [ PrimBinOp Nothing PrimAdd
-                                                                                                                                      ( 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" )
-                                                                                                                                          )
-                                                                                                                                        )
-                                                                                                                                        ( Ctor Nothing SumType
-                                                                                                                                          ( ModuleName "Data.Maybe" )
-                                                                                                                                          ( TyName "Maybe" )
-                                                                                                                                          ( CtorName "Just" )
-                                                                                                                                          [ PrimBinOp Nothing PrimAdd
-                                                                                                                                            ( 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" )
-                                                                                                                                                )
-                                                                                                                                              )
-                                                                                                                                              ( Ctor Nothing SumType
-                                                                                                                                                ( ModuleName "Data.Maybe" )
-                                                                                                                                                ( TyName "Maybe" )
-                                                                                                                                                ( CtorName "Just" )
-                                                                                                                                                [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                  ( 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" )
-                                                                                                                                                      )
-                                                                                                                                                    )
-                                                                                                                                                    ( Ctor Nothing SumType
-                                                                                                                                                      ( ModuleName "Data.Maybe" )
-                                                                                                                                                      ( TyName "Maybe" )
-                                                                                                                                                      ( CtorName "Just" )
-                                                                                                                                                      [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                        ( 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" )
-                                                                                                                                                            )
-                                                                                                                                                          )
-                                                                                                                                                          ( Ctor Nothing SumType
-                                                                                                                                                            ( ModuleName "Data.Maybe" )
-                                                                                                                                                            ( TyName "Maybe" )
-                                                                                                                                                            ( CtorName "Just" )
-                                                                                                                                                            [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                              ( 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" )
-                                                                                                                                                                  )
-                                                                                                                                                                )
-                                                                                                                                                                ( Ctor Nothing SumType
-                                                                                                                                                                  ( ModuleName "Data.Maybe" )
-                                                                                                                                                                  ( TyName "Maybe" )
-                                                                                                                                                                  ( CtorName "Just" )
-                                                                                                                                                                  [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                                    ( 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" )
-                                                                                                                                                                        )
-                                                                                                                                                                      )
-                                                                                                                                                                      ( Ctor Nothing SumType
-                                                                                                                                                                        ( ModuleName "Data.Maybe" )
-                                                                                                                                                                        ( TyName "Maybe" )
-                                                                                                                                                                        ( CtorName "Just" )
-                                                                                                                                                                        [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                                          ( 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" )
-                                                                                                                                                                              )
-                                                                                                                                                                            )
-                                                                                                                                                                            ( Ctor Nothing SumType
-                                                                                                                                                                              ( ModuleName "Data.Maybe" )
-                                                                                                                                                                              ( TyName "Maybe" )
-                                                                                                                                                                              ( CtorName "Just" )
-                                                                                                                                                                              [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                                                ( 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" )
-                                                                                                                                                                                    )
-                                                                                                                                                                                  )
-                                                                                                                                                                                  ( Ctor Nothing SumType
-                                                                                                                                                                                    ( ModuleName "Data.Maybe" )
-                                                                                                                                                                                    ( TyName "Maybe" )
-                                                                                                                                                                                    ( CtorName "Just" )
-                                                                                                                                                                                    [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                                                      ( 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" )
-                                                                                                                                                                                          )
-                                                                                                                                                                                        )
-                                                                                                                                                                                        ( Ctor Nothing SumType
-                                                                                                                                                                                          ( ModuleName "Data.Maybe" )
-                                                                                                                                                                                          ( TyName "Maybe" )
-                                                                                                                                                                                          ( CtorName "Just" )
-                                                                                                                                                                                          [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                                                            ( 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" )
-                                                                                                                                                                                                )
-                                                                                                                                                                                              )
-                                                                                                                                                                                              ( Ctor Nothing SumType
-                                                                                                                                                                                                ( ModuleName "Data.Maybe" )
-                                                                                                                                                                                                ( TyName "Maybe" )
-                                                                                                                                                                                                ( CtorName "Just" )
-                                                                                                                                                                                                [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                                                                  ( 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" )
-                                                                                                                                                                                                      )
-                                                                                                                                                                                                    )
-                                                                                                                                                                                                    ( Ctor Nothing SumType
-                                                                                                                                                                                                      ( ModuleName "Data.Maybe" )
-                                                                                                                                                                                                      ( TyName "Maybe" )
-                                                                                                                                                                                                      ( CtorName "Just" )
-                                                                                                                                                                                                      [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                                                                        ( 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" )
-                                                                                                                                                                                                            )
-                                                                                                                                                                                                          )
-                                                                                                                                                                                                          ( Ctor Nothing SumType
-                                                                                                                                                                                                            ( ModuleName "Data.Maybe" )
-                                                                                                                                                                                                            ( TyName "Maybe" )
-                                                                                                                                                                                                            ( CtorName "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" )
-                                                                                                                                                                                                                  )
-                                                                                                                                                                                                                )
-                                                                                                                                                                                                                ( Ctor Nothing SumType
-                                                                                                                                                                                                                  ( ModuleName "Data.Maybe" )
-                                                                                                                                                                                                                  ( TyName "Maybe" )
-                                                                                                                                                                                                                  ( CtorName "Just" )
-                                                                                                                                                                                                                  [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                                                                                    ( 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" )
-                                                                                                                                                                                                                        )
-                                                                                                                                                                                                                      )
-                                                                                                                                                                                                                      ( Ctor Nothing SumType
-                                                                                                                                                                                                                        ( ModuleName "Data.Maybe" )
-                                                                                                                                                                                                                        ( TyName "Maybe" )
-                                                                                                                                                                                                                        ( CtorName "Just" )
-                                                                                                                                                                                                                        [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                                                                                          ( Ref Nothing
-                                                                                                                                                                                                                            ( Local
-                                                                                                                                                                                                                              ( Name "x151$150" )
-                                                                                                                                                                                                                            )
-                                                                                                                                                                                                                          )
-                                                                                                                                                                                                                          ( LiteralInt Nothing 1 )
-                                                                                                                                                                                                                        ] :|
-                                                                                                                                                                                                                        [ AbsN Nothing
-                                                                                                                                                                                                                          ( ParamNamed Nothing
-                                                                                                                                                                                                                            ( Name "x152$151" ) :| []
-                                                                                                                                                                                                                          )
-                                                                                                                                                                                                                          ( AppN Nothing
-                                                                                                                                                                                                                            ( Ref Nothing
-                                                                                                                                                                                                                              ( Imported
-                                                                                                                                                                                                                                ( ModuleName "Golden.LongMaybeBindModule.Test" )
-                                                                                                                                                                                                                                ( Name "bind$w" )
-                                                                                                                                                                                                                              )
-                                                                                                                                                                                                                            )
-                                                                                                                                                                                                                            ( Ctor Nothing SumType
-                                                                                                                                                                                                                              ( ModuleName "Data.Maybe" )
-                                                                                                                                                                                                                              ( TyName "Maybe" )
-                                                                                                                                                                                                                              ( CtorName "Just" )
-                                                                                                                                                                                                                              [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                                                                                                ( 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" )
-                                                                                                                                                                                                                                    )
-                                                                                                                                                                                                                                  )
-                                                                                                                                                                                                                                  ( Ctor Nothing SumType
-                                                                                                                                                                                                                                    ( ModuleName "Data.Maybe" )
-                                                                                                                                                                                                                                    ( TyName "Maybe" )
-                                                                                                                                                                                                                                    ( CtorName "Just" )
-                                                                                                                                                                                                                                    [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                                                                                                      ( 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" )
-                                                                                                                                                                                                                                          )
-                                                                                                                                                                                                                                        )
-                                                                                                                                                                                                                                        ( Ctor Nothing SumType
-                                                                                                                                                                                                                                          ( ModuleName "Data.Maybe" )
-                                                                                                                                                                                                                                          ( TyName "Maybe" )
-                                                                                                                                                                                                                                          ( CtorName "Just" )
-                                                                                                                                                                                                                                          [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                                                                                                            ( 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" )
-                                                                                                                                                                                                                                                )
-                                                                                                                                                                                                                                              )
-                                                                                                                                                                                                                                              ( Ctor Nothing SumType
-                                                                                                                                                                                                                                                ( ModuleName "Data.Maybe" )
-                                                                                                                                                                                                                                                ( TyName "Maybe" )
-                                                                                                                                                                                                                                                ( CtorName "Just" )
-                                                                                                                                                                                                                                                [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                                                                                                                  ( 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" )
-                                                                                                                                                                                                                                                      )
-                                                                                                                                                                                                                                                    )
-                                                                                                                                                                                                                                                    ( Ctor Nothing SumType
-                                                                                                                                                                                                                                                      ( ModuleName "Data.Maybe" )
-                                                                                                                                                                                                                                                      ( TyName "Maybe" )
-                                                                                                                                                                                                                                                      ( CtorName "Just" )
-                                                                                                                                                                                                                                                      [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                                                                                                                        ( 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" )
-                                                                                                                                                                                                                                                            )
-                                                                                                                                                                                                                                                          )
-                                                                                                                                                                                                                                                          ( Ctor Nothing SumType
-                                                                                                                                                                                                                                                            ( ModuleName "Data.Maybe" )
-                                                                                                                                                                                                                                                            ( TyName "Maybe" )
-                                                                                                                                                                                                                                                            ( CtorName "Just" )
-                                                                                                                                                                                                                                                            [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                                                                                                                              ( Ref Nothing
-                                                                                                                                                                                                                                                                ( Local
-                                                                                                                                                                                                                                                                  ( Name "x157$156" )
-                                                                                                                                                                                                                                                                )
-                                                                                                                                                                                                                                                              )
-                                                                                                                                                                                                                                                              ( LiteralInt Nothing 1 )
-                                                                                                                                                                                                                                                            ] :|
-                                                                                                                                                                                                                                                            [ AbsN Nothing
-                                                                                                                                                                                                                                                              ( ParamNamed Nothing
-                                                                                                                                                                                                                                                                ( Name "x158$157" ) :| []
-                                                                                                                                                                                                                                                              )
-                                                                                                                                                                                                                                                              ( AppN Nothing
-                                                                                                                                                                                                                                                                ( Ref Nothing
-                                                                                                                                                                                                                                                                  ( Local
-                                                                                                                                                                                                                                                                    ( Name "$kont1504$w" )
-                                                                                                                                                                                                                                                                  )
-                                                                                                                                                                                                                                                                )
-                                                                                                                                                                                                                                                                ( Ref Nothing
-                                                                                                                                                                                                                                                                  ( Local
-                                                                                                                                                                                                                                                                    ( Name "x1$0$1508" )
-                                                                                                                                                                                                                                                                  ) :|
-                                                                                                                                                                                                                                                                  [ Ref Nothing
-                                                                                                                                                                                                                                                                    ( Local
-                                                                                                                                                                                                                                                                      ( Name "x158$157" )
-                                                                                                                                                                                                                                                                    )
-                                                                                                                                                                                                                                                                  ]
-                                                                                                                                                                                                                                                                )
-                                                                                                                                                                                                                                                              )
-                                                                                                                                                                                                                                                            ]
-                                                                                                                                                                                                                                                          )
-                                                                                                                                                                                                                                                        )
-                                                                                                                                                                                                                                                      ]
-                                                                                                                                                                                                                                                    )
-                                                                                                                                                                                                                                                  )
-                                                                                                                                                                                                                                                ]
-                                                                                                                                                                                                                                              )
-                                                                                                                                                                                                                                            )
-                                                                                                                                                                                                                                          ]
-                                                                                                                                                                                                                                        )
-                                                                                                                                                                                                                                      )
-                                                                                                                                                                                                                                    ]
-                                                                                                                                                                                                                                  )
-                                                                                                                                                                                                                                )
-                                                                                                                                                                                                                              ]
-                                                                                                                                                                                                                            )
-                                                                                                                                                                                                                          )
-                                                                                                                                                                                                                        ]
-                                                                                                                                                                                                                      )
-                                                                                                                                                                                                                    )
-                                                                                                                                                                                                                  ]
-                                                                                                                                                                                                                )
-                                                                                                                                                                                                              )
-                                                                                                                                                                                                            ]
-                                                                                                                                                                                                          )
-                                                                                                                                                                                                        )
-                                                                                                                                                                                                      ]
-                                                                                                                                                                                                    )
-                                                                                                                                                                                                  )
-                                                                                                                                                                                                ]
-                                                                                                                                                                                              )
-                                                                                                                                                                                            )
-                                                                                                                                                                                          ]
-                                                                                                                                                                                        )
-                                                                                                                                                                                      )
-                                                                                                                                                                                    ]
-                                                                                                                                                                                  )
-                                                                                                                                                                                )
-                                                                                                                                                                              ]
-                                                                                                                                                                            )
-                                                                                                                                                                          )
-                                                                                                                                                                        ]
-                                                                                                                                                                      )
-                                                                                                                                                                    )
-                                                                                                                                                                  ]
-                                                                                                                                                                )
-                                                                                                                                                              )
-                                                                                                                                                            ]
-                                                                                                                                                          )
-                                                                                                                                                        )
-                                                                                                                                                      ]
-                                                                                                                                                    )
-                                                                                                                                                  )
-                                                                                                                                                ]
-                                                                                                                                              )
-                                                                                                                                            )
-                                                                                                                                          ]
-                                                                                                                                        )
-                                                                                                                                      )
-                                                                                                                                    ]
-                                                                                                                                  )
-                                                                                                                                )
-                                                                                                                              ]
-                                                                                                                            )
-                                                                                                                          )
-                                                                                                                        ]
-                                                                                                                      )
-                                                                                                                    )
-                                                                                                                  ]
-                                                                                                                )
-                                                                                                              )
-                                                                                                            ]
-                                                                                                          )
-                                                                                                        )
-                                                                                                      ]
-                                                                                                    )
-                                                                                                  )
-                                                                                                ]
-                                                                                              )
-                                                                                            )
-                                                                                          ]
-                                                                                        )
-                                                                                      )
-                                                                                    ]
-                                                                                  )
-                                                                                )
-                                                                              ]
-                                                                            )
-                                                                          )
-                                                                        ]
-                                                                      )
-                                                                    )
-                                                                  ]
-                                                                )
-                                                              )
-                                                            ]
-                                                          )
-                                                        )
-                                                      ]
-                                                    )
-                                                  )
-                                                ]
-                                              )
-                                            )
-                                          ]
-                                        )
-                                      )
-                                    ]
-                                  )
-                                )
-                              ]
-                            )
-                          )
-                        ]
-                      )
-                    )
-                  ]
-                )
-              )
-            ), Standalone
-            ( Nothing, Name "$kont1510$w", AbsN Nothing
-              ( ParamNamed Nothing
-                ( Name "x1$0$1511" ) :|
-                [ ParamNamed Nothing ( Name "x79$78$1512" ) ]
-              )
-              ( AppN Nothing
-                ( Ref Nothing
-                  ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind$w" ) )
-                )
-                ( Ctor Nothing SumType
-                  ( ModuleName "Data.Maybe" )
-                  ( TyName "Maybe" )
-                  ( CtorName "Just" )
-                  [ PrimBinOp Nothing PrimAdd
-                    ( Ref Nothing ( Local ( Name "x79$78$1512" ) ) )
-                    ( LiteralInt Nothing 1 )
-                  ] :|
-                  [ AbsN Nothing
-                    ( ParamNamed Nothing ( Name "x80$79" ) :| [] )
-                    ( AppN Nothing
-                      ( Ref Nothing
-                        ( Imported
-                          ( ModuleName "Golden.LongMaybeBindModule.Test" )
-                          ( Name "bind$w" )
-                        )
-                      )
-                      ( Ctor Nothing SumType
-                        ( ModuleName "Data.Maybe" )
-                        ( TyName "Maybe" )
-                        ( CtorName "Just" )
-                        [ PrimBinOp Nothing PrimAdd
-                          ( 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" )
-                              )
-                            )
-                            ( Ctor Nothing SumType
-                              ( ModuleName "Data.Maybe" )
-                              ( TyName "Maybe" )
-                              ( CtorName "Just" )
-                              [ PrimBinOp Nothing PrimAdd
-                                ( 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" )
-                                    )
-                                  )
-                                  ( Ctor Nothing SumType
-                                    ( ModuleName "Data.Maybe" )
-                                    ( TyName "Maybe" )
-                                    ( CtorName "Just" )
-                                    [ PrimBinOp Nothing PrimAdd
-                                      ( 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" )
-                                          )
-                                        )
-                                        ( Ctor Nothing SumType
-                                          ( ModuleName "Data.Maybe" )
-                                          ( TyName "Maybe" )
-                                          ( CtorName "Just" )
-                                          [ PrimBinOp Nothing PrimAdd
-                                            ( 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" )
-                                                )
-                                              )
-                                              ( Ctor Nothing SumType
-                                                ( ModuleName "Data.Maybe" )
-                                                ( TyName "Maybe" )
-                                                ( CtorName "Just" )
-                                                [ PrimBinOp Nothing PrimAdd
-                                                  ( 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" )
-                                                      )
-                                                    )
-                                                    ( Ctor Nothing SumType
-                                                      ( ModuleName "Data.Maybe" )
-                                                      ( TyName "Maybe" )
-                                                      ( CtorName "Just" )
-                                                      [ PrimBinOp Nothing PrimAdd
-                                                        ( 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" )
-                                                            )
-                                                          )
-                                                          ( Ctor Nothing SumType
-                                                            ( ModuleName "Data.Maybe" )
-                                                            ( TyName "Maybe" )
-                                                            ( CtorName "Just" )
-                                                            [ PrimBinOp Nothing PrimAdd
-                                                              ( 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" )
-                                                                  )
-                                                                )
-                                                                ( Ctor Nothing SumType
-                                                                  ( ModuleName "Data.Maybe" )
-                                                                  ( TyName "Maybe" )
-                                                                  ( CtorName "Just" )
-                                                                  [ PrimBinOp Nothing PrimAdd
-                                                                    ( 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" )
-                                                                        )
-                                                                      )
-                                                                      ( Ctor Nothing SumType
-                                                                        ( ModuleName "Data.Maybe" )
-                                                                        ( TyName "Maybe" )
-                                                                        ( CtorName "Just" )
-                                                                        [ PrimBinOp Nothing PrimAdd
-                                                                          ( 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" )
-                                                                              )
-                                                                            )
-                                                                            ( Ctor Nothing SumType
-                                                                              ( ModuleName "Data.Maybe" )
-                                                                              ( TyName "Maybe" )
-                                                                              ( CtorName "Just" )
-                                                                              [ PrimBinOp Nothing PrimAdd
-                                                                                ( 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" )
-                                                                                    )
-                                                                                  )
-                                                                                  ( Ctor Nothing SumType
-                                                                                    ( ModuleName "Data.Maybe" )
-                                                                                    ( TyName "Maybe" )
-                                                                                    ( CtorName "Just" )
-                                                                                    [ PrimBinOp Nothing PrimAdd
-                                                                                      ( 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" )
-                                                                                          )
-                                                                                        )
-                                                                                        ( Ctor Nothing SumType
-                                                                                          ( ModuleName "Data.Maybe" )
-                                                                                          ( TyName "Maybe" )
-                                                                                          ( CtorName "Just" )
-                                                                                          [ PrimBinOp Nothing PrimAdd
-                                                                                            ( 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" )
-                                                                                                )
-                                                                                              )
-                                                                                              ( Ctor Nothing SumType
-                                                                                                ( ModuleName "Data.Maybe" )
-                                                                                                ( TyName "Maybe" )
-                                                                                                ( CtorName "Just" )
-                                                                                                [ PrimBinOp Nothing PrimAdd
-                                                                                                  ( 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" )
-                                                                                                      )
-                                                                                                    )
-                                                                                                    ( Ctor Nothing SumType
-                                                                                                      ( ModuleName "Data.Maybe" )
-                                                                                                      ( TyName "Maybe" )
-                                                                                                      ( CtorName "Just" )
-                                                                                                      [ PrimBinOp Nothing PrimAdd
-                                                                                                        ( 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" )
-                                                                                                            )
-                                                                                                          )
-                                                                                                          ( Ctor Nothing SumType
-                                                                                                            ( ModuleName "Data.Maybe" )
-                                                                                                            ( TyName "Maybe" )
-                                                                                                            ( CtorName "Just" )
-                                                                                                            [ PrimBinOp Nothing PrimAdd
-                                                                                                              ( 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" )
-                                                                                                                  )
-                                                                                                                )
-                                                                                                                ( Ctor Nothing SumType
-                                                                                                                  ( ModuleName "Data.Maybe" )
-                                                                                                                  ( TyName "Maybe" )
-                                                                                                                  ( CtorName "Just" )
-                                                                                                                  [ PrimBinOp Nothing PrimAdd
-                                                                                                                    ( 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" )
-                                                                                                                        )
-                                                                                                                      )
-                                                                                                                      ( Ctor Nothing SumType
-                                                                                                                        ( ModuleName "Data.Maybe" )
-                                                                                                                        ( TyName "Maybe" )
-                                                                                                                        ( CtorName "Just" )
-                                                                                                                        [ PrimBinOp Nothing PrimAdd
-                                                                                                                          ( 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" )
-                                                                                                                              )
-                                                                                                                            )
-                                                                                                                            ( Ctor Nothing SumType
-                                                                                                                              ( ModuleName "Data.Maybe" )
-                                                                                                                              ( TyName "Maybe" )
-                                                                                                                              ( CtorName "Just" )
-                                                                                                                              [ PrimBinOp Nothing PrimAdd
-                                                                                                                                ( 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" )
-                                                                                                                                    )
-                                                                                                                                  )
-                                                                                                                                  ( Ctor Nothing SumType
-                                                                                                                                    ( ModuleName "Data.Maybe" )
-                                                                                                                                    ( TyName "Maybe" )
-                                                                                                                                    ( CtorName "Just" )
-                                                                                                                                    [ PrimBinOp Nothing PrimAdd
-                                                                                                                                      ( 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" )
-                                                                                                                                          )
-                                                                                                                                        )
-                                                                                                                                        ( Ctor Nothing SumType
-                                                                                                                                          ( ModuleName "Data.Maybe" )
-                                                                                                                                          ( TyName "Maybe" )
-                                                                                                                                          ( CtorName "Just" )
-                                                                                                                                          [ PrimBinOp Nothing PrimAdd
-                                                                                                                                            ( 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" )
-                                                                                                                                                )
-                                                                                                                                              )
-                                                                                                                                              ( Ctor Nothing SumType
-                                                                                                                                                ( ModuleName "Data.Maybe" )
-                                                                                                                                                ( TyName "Maybe" )
-                                                                                                                                                ( CtorName "Just" )
-                                                                                                                                                [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                  ( 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" )
-                                                                                                                                                      )
-                                                                                                                                                    )
-                                                                                                                                                    ( Ctor Nothing SumType
-                                                                                                                                                      ( ModuleName "Data.Maybe" )
-                                                                                                                                                      ( TyName "Maybe" )
-                                                                                                                                                      ( CtorName "Just" )
-                                                                                                                                                      [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                        ( 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" )
-                                                                                                                                                            )
-                                                                                                                                                          )
-                                                                                                                                                          ( Ctor Nothing SumType
-                                                                                                                                                            ( ModuleName "Data.Maybe" )
-                                                                                                                                                            ( TyName "Maybe" )
-                                                                                                                                                            ( CtorName "Just" )
-                                                                                                                                                            [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                              ( 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" )
-                                                                                                                                                                  )
-                                                                                                                                                                )
-                                                                                                                                                                ( Ctor Nothing SumType
-                                                                                                                                                                  ( ModuleName "Data.Maybe" )
-                                                                                                                                                                  ( TyName "Maybe" )
-                                                                                                                                                                  ( CtorName "Just" )
-                                                                                                                                                                  [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                                    ( 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" )
-                                                                                                                                                                        )
-                                                                                                                                                                      )
-                                                                                                                                                                      ( Ctor Nothing SumType
-                                                                                                                                                                        ( ModuleName "Data.Maybe" )
-                                                                                                                                                                        ( TyName "Maybe" )
-                                                                                                                                                                        ( CtorName "Just" )
-                                                                                                                                                                        [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                                          ( 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" )
-                                                                                                                                                                              )
-                                                                                                                                                                            )
-                                                                                                                                                                            ( Ctor Nothing SumType
-                                                                                                                                                                              ( ModuleName "Data.Maybe" )
-                                                                                                                                                                              ( TyName "Maybe" )
-                                                                                                                                                                              ( CtorName "Just" )
-                                                                                                                                                                              [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                                                ( 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" )
-                                                                                                                                                                                    )
-                                                                                                                                                                                  )
-                                                                                                                                                                                  ( Ctor Nothing SumType
-                                                                                                                                                                                    ( ModuleName "Data.Maybe" )
-                                                                                                                                                                                    ( TyName "Maybe" )
-                                                                                                                                                                                    ( CtorName "Just" )
-                                                                                                                                                                                    [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                                                      ( 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" )
-                                                                                                                                                                                          )
-                                                                                                                                                                                        )
-                                                                                                                                                                                        ( Ctor Nothing SumType
-                                                                                                                                                                                          ( ModuleName "Data.Maybe" )
-                                                                                                                                                                                          ( TyName "Maybe" )
-                                                                                                                                                                                          ( CtorName "Just" )
-                                                                                                                                                                                          [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                                                            ( 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" )
-                                                                                                                                                                                                )
-                                                                                                                                                                                              )
-                                                                                                                                                                                              ( Ctor Nothing SumType
-                                                                                                                                                                                                ( ModuleName "Data.Maybe" )
-                                                                                                                                                                                                ( TyName "Maybe" )
-                                                                                                                                                                                                ( CtorName "Just" )
-                                                                                                                                                                                                [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                                                                  ( 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" )
-                                                                                                                                                                                                      )
-                                                                                                                                                                                                    )
-                                                                                                                                                                                                    ( Ctor Nothing SumType
-                                                                                                                                                                                                      ( ModuleName "Data.Maybe" )
-                                                                                                                                                                                                      ( TyName "Maybe" )
-                                                                                                                                                                                                      ( CtorName "Just" )
-                                                                                                                                                                                                      [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                                                                        ( 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" )
-                                                                                                                                                                                                            )
-                                                                                                                                                                                                          )
-                                                                                                                                                                                                          ( Ctor Nothing SumType
-                                                                                                                                                                                                            ( ModuleName "Data.Maybe" )
-                                                                                                                                                                                                            ( TyName "Maybe" )
-                                                                                                                                                                                                            ( CtorName "Just" )
-                                                                                                                                                                                                            [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                                                                              ( 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" )
-                                                                                                                                                                                                                  )
-                                                                                                                                                                                                                )
-                                                                                                                                                                                                                ( Ctor Nothing SumType
-                                                                                                                                                                                                                  ( ModuleName "Data.Maybe" )
-                                                                                                                                                                                                                  ( TyName "Maybe" )
-                                                                                                                                                                                                                  ( CtorName "Just" )
-                                                                                                                                                                                                                  [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                                                                                    ( 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" )
-                                                                                                                                                                                                                        )
-                                                                                                                                                                                                                      )
-                                                                                                                                                                                                                      ( Ctor Nothing SumType
-                                                                                                                                                                                                                        ( ModuleName "Data.Maybe" )
-                                                                                                                                                                                                                        ( TyName "Maybe" )
-                                                                                                                                                                                                                        ( CtorName "Just" )
-                                                                                                                                                                                                                        [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                                                                                          ( 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" )
-                                                                                                                                                                                                                              )
-                                                                                                                                                                                                                            )
-                                                                                                                                                                                                                            ( Ctor Nothing SumType
-                                                                                                                                                                                                                              ( ModuleName "Data.Maybe" )
-                                                                                                                                                                                                                              ( TyName "Maybe" )
-                                                                                                                                                                                                                              ( CtorName "Just" )
-                                                                                                                                                                                                                              [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                                                                                                ( 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" )
-                                                                                                                                                                                                                                    )
-                                                                                                                                                                                                                                  )
-                                                                                                                                                                                                                                  ( Ctor Nothing SumType
-                                                                                                                                                                                                                                    ( ModuleName "Data.Maybe" )
-                                                                                                                                                                                                                                    ( TyName "Maybe" )
-                                                                                                                                                                                                                                    ( CtorName "Just" )
-                                                                                                                                                                                                                                    [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                                                                                                      ( 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" )
-                                                                                                                                                                                                                                          )
-                                                                                                                                                                                                                                        )
-                                                                                                                                                                                                                                        ( Ctor Nothing SumType
-                                                                                                                                                                                                                                          ( ModuleName "Data.Maybe" )
-                                                                                                                                                                                                                                          ( TyName "Maybe" )
-                                                                                                                                                                                                                                          ( CtorName "Just" )
-                                                                                                                                                                                                                                          [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                                                                                                            ( 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" )
-                                                                                                                                                                                                                                                )
-                                                                                                                                                                                                                                              )
-                                                                                                                                                                                                                                              ( Ctor Nothing SumType
-                                                                                                                                                                                                                                                ( ModuleName "Data.Maybe" )
-                                                                                                                                                                                                                                                ( TyName "Maybe" )
-                                                                                                                                                                                                                                                ( CtorName "Just" )
-                                                                                                                                                                                                                                                [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                                                                                                                  ( 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" )
-                                                                                                                                                                                                                                                      )
-                                                                                                                                                                                                                                                    )
-                                                                                                                                                                                                                                                    ( Ctor Nothing SumType
-                                                                                                                                                                                                                                                      ( ModuleName "Data.Maybe" )
-                                                                                                                                                                                                                                                      ( TyName "Maybe" )
-                                                                                                                                                                                                                                                      ( CtorName "Just" )
-                                                                                                                                                                                                                                                      [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                                                                                                                        ( 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" )
-                                                                                                                                                                                                                                                            )
-                                                                                                                                                                                                                                                          )
-                                                                                                                                                                                                                                                          ( Ctor Nothing SumType
-                                                                                                                                                                                                                                                            ( ModuleName "Data.Maybe" )
-                                                                                                                                                                                                                                                            ( TyName "Maybe" )
-                                                                                                                                                                                                                                                            ( CtorName "Just" )
-                                                                                                                                                                                                                                                            [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                                                                                                                              ( Ref Nothing
-                                                                                                                                                                                                                                                                ( Local
-                                                                                                                                                                                                                                                                  ( Name "x118$117" )
-                                                                                                                                                                                                                                                                )
-                                                                                                                                                                                                                                                              )
-                                                                                                                                                                                                                                                              ( LiteralInt Nothing 1 )
-                                                                                                                                                                                                                                                            ] :|
-                                                                                                                                                                                                                                                            [ AbsN Nothing
-                                                                                                                                                                                                                                                              ( ParamNamed Nothing
-                                                                                                                                                                                                                                                                ( Name "x119$118" ) :| []
-                                                                                                                                                                                                                                                              )
-                                                                                                                                                                                                                                                              ( AppN Nothing
-                                                                                                                                                                                                                                                                ( Ref Nothing
-                                                                                                                                                                                                                                                                  ( Local
-                                                                                                                                                                                                                                                                    ( Name "$kont1507$w" )
-                                                                                                                                                                                                                                                                  )
-                                                                                                                                                                                                                                                                )
-                                                                                                                                                                                                                                                                ( Ref Nothing
-                                                                                                                                                                                                                                                                  ( Local
-                                                                                                                                                                                                                                                                    ( Name "x1$0$1511" )
-                                                                                                                                                                                                                                                                  ) :|
-                                                                                                                                                                                                                                                                  [ Ref Nothing
-                                                                                                                                                                                                                                                                    ( Local
-                                                                                                                                                                                                                                                                      ( Name "x119$118" )
-                                                                                                                                                                                                                                                                    )
-                                                                                                                                                                                                                                                                  ]
-                                                                                                                                                                                                                                                                )
-                                                                                                                                                                                                                                                              )
-                                                                                                                                                                                                                                                            ]
-                                                                                                                                                                                                                                                          )
-                                                                                                                                                                                                                                                        )
-                                                                                                                                                                                                                                                      ]
-                                                                                                                                                                                                                                                    )
-                                                                                                                                                                                                                                                  )
-                                                                                                                                                                                                                                                ]
-                                                                                                                                                                                                                                              )
-                                                                                                                                                                                                                                            )
-                                                                                                                                                                                                                                          ]
-                                                                                                                                                                                                                                        )
-                                                                                                                                                                                                                                      )
-                                                                                                                                                                                                                                    ]
-                                                                                                                                                                                                                                  )
-                                                                                                                                                                                                                                )
-                                                                                                                                                                                                                              ]
-                                                                                                                                                                                                                            )
-                                                                                                                                                                                                                          )
-                                                                                                                                                                                                                        ]
-                                                                                                                                                                                                                      )
-                                                                                                                                                                                                                    )
-                                                                                                                                                                                                                  ]
-                                                                                                                                                                                                                )
-                                                                                                                                                                                                              )
-                                                                                                                                                                                                            ]
-                                                                                                                                                                                                          )
-                                                                                                                                                                                                        )
-                                                                                                                                                                                                      ]
-                                                                                                                                                                                                    )
-                                                                                                                                                                                                  )
-                                                                                                                                                                                                ]
-                                                                                                                                                                                              )
-                                                                                                                                                                                            )
-                                                                                                                                                                                          ]
-                                                                                                                                                                                        )
-                                                                                                                                                                                      )
-                                                                                                                                                                                    ]
-                                                                                                                                                                                  )
-                                                                                                                                                                                )
-                                                                                                                                                                              ]
-                                                                                                                                                                            )
-                                                                                                                                                                          )
-                                                                                                                                                                        ]
-                                                                                                                                                                      )
-                                                                                                                                                                    )
-                                                                                                                                                                  ]
-                                                                                                                                                                )
-                                                                                                                                                              )
-                                                                                                                                                            ]
-                                                                                                                                                          )
-                                                                                                                                                        )
-                                                                                                                                                      ]
-                                                                                                                                                    )
-                                                                                                                                                  )
-                                                                                                                                                ]
-                                                                                                                                              )
-                                                                                                                                            )
-                                                                                                                                          ]
-                                                                                                                                        )
-                                                                                                                                      )
-                                                                                                                                    ]
-                                                                                                                                  )
-                                                                                                                                )
-                                                                                                                              ]
-                                                                                                                            )
-                                                                                                                          )
-                                                                                                                        ]
-                                                                                                                      )
-                                                                                                                    )
-                                                                                                                  ]
-                                                                                                                )
-                                                                                                              )
-                                                                                                            ]
-                                                                                                          )
-                                                                                                        )
-                                                                                                      ]
-                                                                                                    )
-                                                                                                  )
-                                                                                                ]
-                                                                                              )
-                                                                                            )
-                                                                                          ]
-                                                                                        )
-                                                                                      )
-                                                                                    ]
-                                                                                  )
-                                                                                )
-                                                                              ]
-                                                                            )
-                                                                          )
-                                                                        ]
-                                                                      )
-                                                                    )
-                                                                  ]
-                                                                )
-                                                              )
-                                                            ]
-                                                          )
-                                                        )
-                                                      ]
-                                                    )
-                                                  )
-                                                ]
-                                              )
-                                            )
-                                          ]
-                                        )
-                                      )
-                                    ]
-                                  )
-                                )
-                              ]
-                            )
-                          )
-                        ]
-                      )
-                    )
-                  ]
-                )
-              )
-            ), Standalone
-            ( Nothing, Name "$kont1513$w", AbsN Nothing
-              ( ParamNamed Nothing
-                ( Name "x1$0$1514" ) :|
-                [ ParamNamed Nothing ( Name "x40$39$1515" ) ]
-              )
-              ( AppN Nothing
-                ( Ref Nothing
-                  ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind$w" ) )
-                )
-                ( Ctor Nothing SumType
-                  ( ModuleName "Data.Maybe" )
-                  ( TyName "Maybe" )
-                  ( CtorName "Just" )
-                  [ PrimBinOp Nothing PrimAdd
-                    ( Ref Nothing ( Local ( Name "x40$39$1515" ) ) )
-                    ( LiteralInt Nothing 1 )
-                  ] :|
-                  [ AbsN Nothing
-                    ( ParamNamed Nothing ( Name "x41$40" ) :| [] )
-                    ( AppN Nothing
-                      ( Ref Nothing
-                        ( Imported
-                          ( ModuleName "Golden.LongMaybeBindModule.Test" )
-                          ( Name "bind$w" )
-                        )
-                      )
-                      ( Ctor Nothing SumType
-                        ( ModuleName "Data.Maybe" )
-                        ( TyName "Maybe" )
-                        ( CtorName "Just" )
-                        [ PrimBinOp Nothing PrimAdd
-                          ( 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" )
-                              )
-                            )
-                            ( Ctor Nothing SumType
-                              ( ModuleName "Data.Maybe" )
-                              ( TyName "Maybe" )
-                              ( CtorName "Just" )
-                              [ PrimBinOp Nothing PrimAdd
-                                ( 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" )
-                                    )
-                                  )
-                                  ( Ctor Nothing SumType
-                                    ( ModuleName "Data.Maybe" )
-                                    ( TyName "Maybe" )
-                                    ( CtorName "Just" )
-                                    [ PrimBinOp Nothing PrimAdd
-                                      ( 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" )
-                                          )
-                                        )
-                                        ( Ctor Nothing SumType
-                                          ( ModuleName "Data.Maybe" )
-                                          ( TyName "Maybe" )
-                                          ( CtorName "Just" )
-                                          [ PrimBinOp Nothing PrimAdd
-                                            ( 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" )
-                                                )
-                                              )
-                                              ( Ctor Nothing SumType
-                                                ( ModuleName "Data.Maybe" )
-                                                ( TyName "Maybe" )
-                                                ( CtorName "Just" )
-                                                [ PrimBinOp Nothing PrimAdd
-                                                  ( 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" )
-                                                      )
-                                                    )
-                                                    ( Ctor Nothing SumType
-                                                      ( ModuleName "Data.Maybe" )
-                                                      ( TyName "Maybe" )
-                                                      ( CtorName "Just" )
-                                                      [ PrimBinOp Nothing PrimAdd
-                                                        ( 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" )
-                                                            )
-                                                          )
-                                                          ( Ctor Nothing SumType
-                                                            ( ModuleName "Data.Maybe" )
-                                                            ( TyName "Maybe" )
-                                                            ( CtorName "Just" )
-                                                            [ PrimBinOp Nothing PrimAdd
-                                                              ( 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" )
-                                                                  )
-                                                                )
-                                                                ( Ctor Nothing SumType
-                                                                  ( ModuleName "Data.Maybe" )
-                                                                  ( TyName "Maybe" )
-                                                                  ( CtorName "Just" )
-                                                                  [ PrimBinOp Nothing PrimAdd
-                                                                    ( 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" )
-                                                                        )
-                                                                      )
-                                                                      ( Ctor Nothing SumType
-                                                                        ( ModuleName "Data.Maybe" )
-                                                                        ( TyName "Maybe" )
-                                                                        ( CtorName "Just" )
-                                                                        [ PrimBinOp Nothing PrimAdd
-                                                                          ( 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" )
-                                                                              )
-                                                                            )
-                                                                            ( Ctor Nothing SumType
-                                                                              ( ModuleName "Data.Maybe" )
-                                                                              ( TyName "Maybe" )
-                                                                              ( CtorName "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" )
-                                                                                    )
-                                                                                  )
-                                                                                  ( Ctor Nothing SumType
-                                                                                    ( ModuleName "Data.Maybe" )
-                                                                                    ( TyName "Maybe" )
-                                                                                    ( CtorName "Just" )
-                                                                                    [ PrimBinOp Nothing PrimAdd
-                                                                                      ( 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" )
-                                                                                          )
-                                                                                        )
-                                                                                        ( Ctor Nothing SumType
-                                                                                          ( ModuleName "Data.Maybe" )
-                                                                                          ( TyName "Maybe" )
-                                                                                          ( CtorName "Just" )
-                                                                                          [ PrimBinOp Nothing PrimAdd
-                                                                                            ( 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" )
-                                                                                                )
-                                                                                              )
-                                                                                              ( Ctor Nothing SumType
-                                                                                                ( ModuleName "Data.Maybe" )
-                                                                                                ( TyName "Maybe" )
-                                                                                                ( CtorName "Just" )
-                                                                                                [ PrimBinOp Nothing PrimAdd
-                                                                                                  ( 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" )
-                                                                                                      )
-                                                                                                    )
-                                                                                                    ( Ctor Nothing SumType
-                                                                                                      ( ModuleName "Data.Maybe" )
-                                                                                                      ( TyName "Maybe" )
-                                                                                                      ( CtorName "Just" )
-                                                                                                      [ PrimBinOp Nothing PrimAdd
-                                                                                                        ( 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" )
-                                                                                                            )
-                                                                                                          )
-                                                                                                          ( Ctor Nothing SumType
-                                                                                                            ( ModuleName "Data.Maybe" )
-                                                                                                            ( TyName "Maybe" )
-                                                                                                            ( CtorName "Just" )
-                                                                                                            [ PrimBinOp Nothing PrimAdd
-                                                                                                              ( 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" )
-                                                                                                                  )
-                                                                                                                )
-                                                                                                                ( Ctor Nothing SumType
-                                                                                                                  ( ModuleName "Data.Maybe" )
-                                                                                                                  ( TyName "Maybe" )
-                                                                                                                  ( CtorName "Just" )
-                                                                                                                  [ PrimBinOp Nothing PrimAdd
-                                                                                                                    ( 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" )
-                                                                                                                        )
-                                                                                                                      )
-                                                                                                                      ( Ctor Nothing SumType
-                                                                                                                        ( ModuleName "Data.Maybe" )
-                                                                                                                        ( TyName "Maybe" )
-                                                                                                                        ( CtorName "Just" )
-                                                                                                                        [ PrimBinOp Nothing PrimAdd
-                                                                                                                          ( 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" )
-                                                                                                                              )
-                                                                                                                            )
-                                                                                                                            ( Ctor Nothing SumType
-                                                                                                                              ( ModuleName "Data.Maybe" )
-                                                                                                                              ( TyName "Maybe" )
-                                                                                                                              ( CtorName "Just" )
-                                                                                                                              [ PrimBinOp Nothing PrimAdd
-                                                                                                                                ( 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" )
-                                                                                                                                    )
-                                                                                                                                  )
-                                                                                                                                  ( Ctor Nothing SumType
-                                                                                                                                    ( ModuleName "Data.Maybe" )
-                                                                                                                                    ( TyName "Maybe" )
-                                                                                                                                    ( CtorName "Just" )
-                                                                                                                                    [ PrimBinOp Nothing PrimAdd
-                                                                                                                                      ( 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" )
-                                                                                                                                          )
-                                                                                                                                        )
-                                                                                                                                        ( Ctor Nothing SumType
-                                                                                                                                          ( ModuleName "Data.Maybe" )
-                                                                                                                                          ( TyName "Maybe" )
-                                                                                                                                          ( CtorName "Just" )
-                                                                                                                                          [ PrimBinOp Nothing PrimAdd
-                                                                                                                                            ( 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" )
-                                                                                                                                                )
-                                                                                                                                              )
-                                                                                                                                              ( Ctor Nothing SumType
-                                                                                                                                                ( ModuleName "Data.Maybe" )
-                                                                                                                                                ( TyName "Maybe" )
-                                                                                                                                                ( CtorName "Just" )
-                                                                                                                                                [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                  ( 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" )
-                                                                                                                                                      )
-                                                                                                                                                    )
-                                                                                                                                                    ( Ctor Nothing SumType
-                                                                                                                                                      ( ModuleName "Data.Maybe" )
-                                                                                                                                                      ( TyName "Maybe" )
-                                                                                                                                                      ( CtorName "Just" )
-                                                                                                                                                      [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                        ( 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" )
-                                                                                                                                                            )
-                                                                                                                                                          )
-                                                                                                                                                          ( Ctor Nothing SumType
-                                                                                                                                                            ( ModuleName "Data.Maybe" )
-                                                                                                                                                            ( TyName "Maybe" )
-                                                                                                                                                            ( CtorName "Just" )
-                                                                                                                                                            [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                              ( 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" )
-                                                                                                                                                                  )
-                                                                                                                                                                )
-                                                                                                                                                                ( Ctor Nothing SumType
-                                                                                                                                                                  ( ModuleName "Data.Maybe" )
-                                                                                                                                                                  ( TyName "Maybe" )
-                                                                                                                                                                  ( CtorName "Just" )
-                                                                                                                                                                  [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                                    ( 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" )
-                                                                                                                                                                        )
-                                                                                                                                                                      )
-                                                                                                                                                                      ( Ctor Nothing SumType
-                                                                                                                                                                        ( ModuleName "Data.Maybe" )
-                                                                                                                                                                        ( TyName "Maybe" )
-                                                                                                                                                                        ( CtorName "Just" )
-                                                                                                                                                                        [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                                          ( 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" )
-                                                                                                                                                                              )
-                                                                                                                                                                            )
-                                                                                                                                                                            ( Ctor Nothing SumType
-                                                                                                                                                                              ( ModuleName "Data.Maybe" )
-                                                                                                                                                                              ( TyName "Maybe" )
-                                                                                                                                                                              ( CtorName "Just" )
-                                                                                                                                                                              [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                                                ( 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" )
-                                                                                                                                                                                    )
-                                                                                                                                                                                  )
-                                                                                                                                                                                  ( Ctor Nothing SumType
-                                                                                                                                                                                    ( ModuleName "Data.Maybe" )
-                                                                                                                                                                                    ( TyName "Maybe" )
-                                                                                                                                                                                    ( CtorName "Just" )
-                                                                                                                                                                                    [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                                                      ( 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" )
-                                                                                                                                                                                          )
-                                                                                                                                                                                        )
-                                                                                                                                                                                        ( Ctor Nothing SumType
-                                                                                                                                                                                          ( ModuleName "Data.Maybe" )
-                                                                                                                                                                                          ( TyName "Maybe" )
-                                                                                                                                                                                          ( CtorName "Just" )
-                                                                                                                                                                                          [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                                                            ( 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" )
-                                                                                                                                                                                                )
-                                                                                                                                                                                              )
-                                                                                                                                                                                              ( Ctor Nothing SumType
-                                                                                                                                                                                                ( ModuleName "Data.Maybe" )
-                                                                                                                                                                                                ( TyName "Maybe" )
-                                                                                                                                                                                                ( CtorName "Just" )
-                                                                                                                                                                                                [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                                                                  ( 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" )
-                                                                                                                                                                                                      )
-                                                                                                                                                                                                    )
-                                                                                                                                                                                                    ( Ctor Nothing SumType
-                                                                                                                                                                                                      ( ModuleName "Data.Maybe" )
-                                                                                                                                                                                                      ( TyName "Maybe" )
-                                                                                                                                                                                                      ( CtorName "Just" )
-                                                                                                                                                                                                      [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                                                                        ( 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" )
-                                                                                                                                                                                                            )
-                                                                                                                                                                                                          )
-                                                                                                                                                                                                          ( Ctor Nothing SumType
-                                                                                                                                                                                                            ( ModuleName "Data.Maybe" )
-                                                                                                                                                                                                            ( TyName "Maybe" )
-                                                                                                                                                                                                            ( CtorName "Just" )
-                                                                                                                                                                                                            [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                                                                              ( 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" )
-                                                                                                                                                                                                                  )
-                                                                                                                                                                                                                )
-                                                                                                                                                                                                                ( Ctor Nothing SumType
-                                                                                                                                                                                                                  ( ModuleName "Data.Maybe" )
-                                                                                                                                                                                                                  ( TyName "Maybe" )
-                                                                                                                                                                                                                  ( CtorName "Just" )
-                                                                                                                                                                                                                  [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                                                                                    ( 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" )
-                                                                                                                                                                                                                        )
-                                                                                                                                                                                                                      )
-                                                                                                                                                                                                                      ( Ctor Nothing SumType
-                                                                                                                                                                                                                        ( ModuleName "Data.Maybe" )
-                                                                                                                                                                                                                        ( TyName "Maybe" )
-                                                                                                                                                                                                                        ( CtorName "Just" )
-                                                                                                                                                                                                                        [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                                                                                          ( 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" )
-                                                                                                                                                                                                                              )
-                                                                                                                                                                                                                            )
-                                                                                                                                                                                                                            ( Ctor Nothing SumType
-                                                                                                                                                                                                                              ( ModuleName "Data.Maybe" )
-                                                                                                                                                                                                                              ( TyName "Maybe" )
-                                                                                                                                                                                                                              ( CtorName "Just" )
-                                                                                                                                                                                                                              [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                                                                                                ( 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" )
-                                                                                                                                                                                                                                    )
-                                                                                                                                                                                                                                  )
-                                                                                                                                                                                                                                  ( Ctor Nothing SumType
-                                                                                                                                                                                                                                    ( ModuleName "Data.Maybe" )
-                                                                                                                                                                                                                                    ( TyName "Maybe" )
-                                                                                                                                                                                                                                    ( CtorName "Just" )
-                                                                                                                                                                                                                                    [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                                                                                                      ( 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" )
-                                                                                                                                                                                                                                          )
-                                                                                                                                                                                                                                        )
-                                                                                                                                                                                                                                        ( Ctor Nothing SumType
-                                                                                                                                                                                                                                          ( ModuleName "Data.Maybe" )
-                                                                                                                                                                                                                                          ( TyName "Maybe" )
-                                                                                                                                                                                                                                          ( CtorName "Just" )
-                                                                                                                                                                                                                                          [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                                                                                                            ( 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" )
-                                                                                                                                                                                                                                                )
-                                                                                                                                                                                                                                              )
-                                                                                                                                                                                                                                              ( Ctor Nothing SumType
-                                                                                                                                                                                                                                                ( ModuleName "Data.Maybe" )
-                                                                                                                                                                                                                                                ( TyName "Maybe" )
-                                                                                                                                                                                                                                                ( CtorName "Just" )
-                                                                                                                                                                                                                                                [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                                                                                                                  ( 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" )
-                                                                                                                                                                                                                                                      )
-                                                                                                                                                                                                                                                    )
-                                                                                                                                                                                                                                                    ( Ctor Nothing SumType
-                                                                                                                                                                                                                                                      ( ModuleName "Data.Maybe" )
-                                                                                                                                                                                                                                                      ( TyName "Maybe" )
-                                                                                                                                                                                                                                                      ( CtorName "Just" )
-                                                                                                                                                                                                                                                      [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                                                                                                                        ( 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" )
-                                                                                                                                                                                                                                                            )
-                                                                                                                                                                                                                                                          )
-                                                                                                                                                                                                                                                          ( Ctor Nothing SumType
-                                                                                                                                                                                                                                                            ( ModuleName "Data.Maybe" )
-                                                                                                                                                                                                                                                            ( TyName "Maybe" )
-                                                                                                                                                                                                                                                            ( CtorName "Just" )
-                                                                                                                                                                                                                                                            [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                                                                                                                              ( Ref Nothing
-                                                                                                                                                                                                                                                                ( Local
-                                                                                                                                                                                                                                                                  ( Name "x78$77" )
-                                                                                                                                                                                                                                                                )
-                                                                                                                                                                                                                                                              )
-                                                                                                                                                                                                                                                              ( LiteralInt Nothing 1 )
-                                                                                                                                                                                                                                                            ] :|
-                                                                                                                                                                                                                                                            [ AbsN Nothing
-                                                                                                                                                                                                                                                              ( ParamNamed Nothing
-                                                                                                                                                                                                                                                                ( Name "x79$78" ) :| []
-                                                                                                                                                                                                                                                              )
-                                                                                                                                                                                                                                                              ( AppN Nothing
-                                                                                                                                                                                                                                                                ( Ref Nothing
-                                                                                                                                                                                                                                                                  ( Local
-                                                                                                                                                                                                                                                                    ( Name "$kont1510$w" )
-                                                                                                                                                                                                                                                                  )
-                                                                                                                                                                                                                                                                )
-                                                                                                                                                                                                                                                                ( Ref Nothing
-                                                                                                                                                                                                                                                                  ( Local
-                                                                                                                                                                                                                                                                    ( Name "x1$0$1514" )
-                                                                                                                                                                                                                                                                  ) :|
-                                                                                                                                                                                                                                                                  [ Ref Nothing
-                                                                                                                                                                                                                                                                    ( Local
-                                                                                                                                                                                                                                                                      ( Name "x79$78" )
-                                                                                                                                                                                                                                                                    )
-                                                                                                                                                                                                                                                                  ]
-                                                                                                                                                                                                                                                                )
-                                                                                                                                                                                                                                                              )
-                                                                                                                                                                                                                                                            ]
-                                                                                                                                                                                                                                                          )
-                                                                                                                                                                                                                                                        )
-                                                                                                                                                                                                                                                      ]
-                                                                                                                                                                                                                                                    )
-                                                                                                                                                                                                                                                  )
-                                                                                                                                                                                                                                                ]
-                                                                                                                                                                                                                                              )
-                                                                                                                                                                                                                                            )
-                                                                                                                                                                                                                                          ]
-                                                                                                                                                                                                                                        )
-                                                                                                                                                                                                                                      )
-                                                                                                                                                                                                                                    ]
-                                                                                                                                                                                                                                  )
-                                                                                                                                                                                                                                )
-                                                                                                                                                                                                                              ]
-                                                                                                                                                                                                                            )
-                                                                                                                                                                                                                          )
-                                                                                                                                                                                                                        ]
-                                                                                                                                                                                                                      )
-                                                                                                                                                                                                                    )
-                                                                                                                                                                                                                  ]
-                                                                                                                                                                                                                )
-                                                                                                                                                                                                              )
-                                                                                                                                                                                                            ]
-                                                                                                                                                                                                          )
-                                                                                                                                                                                                        )
-                                                                                                                                                                                                      ]
-                                                                                                                                                                                                    )
-                                                                                                                                                                                                  )
-                                                                                                                                                                                                ]
-                                                                                                                                                                                              )
-                                                                                                                                                                                            )
-                                                                                                                                                                                          ]
-                                                                                                                                                                                        )
-                                                                                                                                                                                      )
-                                                                                                                                                                                    ]
-                                                                                                                                                                                  )
-                                                                                                                                                                                )
-                                                                                                                                                                              ]
-                                                                                                                                                                            )
-                                                                                                                                                                          )
-                                                                                                                                                                        ]
-                                                                                                                                                                      )
-                                                                                                                                                                    )
-                                                                                                                                                                  ]
-                                                                                                                                                                )
-                                                                                                                                                              )
-                                                                                                                                                            ]
-                                                                                                                                                          )
-                                                                                                                                                        )
-                                                                                                                                                      ]
-                                                                                                                                                    )
-                                                                                                                                                  )
-                                                                                                                                                ]
-                                                                                                                                              )
-                                                                                                                                            )
-                                                                                                                                          ]
-                                                                                                                                        )
-                                                                                                                                      )
-                                                                                                                                    ]
-                                                                                                                                  )
-                                                                                                                                )
-                                                                                                                              ]
-                                                                                                                            )
-                                                                                                                          )
-                                                                                                                        ]
-                                                                                                                      )
-                                                                                                                    )
-                                                                                                                  ]
-                                                                                                                )
-                                                                                                              )
-                                                                                                            ]
-                                                                                                          )
-                                                                                                        )
-                                                                                                      ]
-                                                                                                    )
-                                                                                                  )
-                                                                                                ]
-                                                                                              )
-                                                                                            )
-                                                                                          ]
-                                                                                        )
-                                                                                      )
-                                                                                    ]
-                                                                                  )
-                                                                                )
-                                                                              ]
-                                                                            )
-                                                                          )
-                                                                        ]
-                                                                      )
-                                                                    )
-                                                                  ]
-                                                                )
-                                                              )
-                                                            ]
-                                                          )
-                                                        )
-                                                      ]
-                                                    )
-                                                  )
-                                                ]
-                                              )
-                                            )
-                                          ]
-                                        )
-                                      )
-                                    ]
-                                  )
-                                )
-                              ]
-                            )
-                          )
-                        ]
-                      )
-                    )
-                  ]
-                )
-              )
-            )
-          ]
-        )
-        ( AppN Nothing
-          ( Ref Nothing
-            ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind$w" ) )
-          )
-          ( Ctor Nothing SumType
-            ( ModuleName "Data.Maybe" )
-            ( TyName "Maybe" )
-            ( CtorName "Just" )
-            [ LiteralInt Nothing 1 ] :|
-            [ AbsN Nothing
-              ( ParamNamed Nothing ( Name "x1$0" ) :| [] )
-              ( AppN Nothing
-                ( Ref Nothing
-                  ( Imported ( ModuleName "Golden.LongMaybeBindModule.Test" ) ( Name "bind$w" ) )
-                )
-                ( Ctor Nothing SumType
-                  ( ModuleName "Data.Maybe" )
-                  ( TyName "Maybe" )
-                  ( CtorName "Just" )
-                  [ PrimBinOp Nothing PrimAdd
-                    ( Ref Nothing ( Local ( Name "x1$0" ) ) )
-                    ( LiteralInt Nothing 1 )
-                  ] :|
-                  [ AbsN Nothing
-                    ( ParamNamed Nothing ( Name "x2$1" ) :| [] )
-                    ( AppN Nothing
-                      ( Ref Nothing
-                        ( Imported
-                          ( ModuleName "Golden.LongMaybeBindModule.Test" )
-                          ( Name "bind$w" )
-                        )
-                      )
-                      ( Ctor Nothing SumType
-                        ( ModuleName "Data.Maybe" )
-                        ( TyName "Maybe" )
-                        ( CtorName "Just" )
-                        [ PrimBinOp Nothing PrimAdd
-                          ( Ref Nothing ( Local ( Name "x2$1" ) ) )
-                          ( LiteralInt Nothing 1 )
-                        ] :|
-                        [ AbsN Nothing
-                          ( ParamNamed Nothing ( Name "x3$2" ) :| [] )
-                          ( AppN Nothing
-                            ( Ref Nothing
-                              ( Imported
-                                ( ModuleName "Golden.LongMaybeBindModule.Test" )
-                                ( Name "bind$w" )
-                              )
-                            )
-                            ( Ctor Nothing SumType
-                              ( ModuleName "Data.Maybe" )
-                              ( TyName "Maybe" )
-                              ( CtorName "Just" )
-                              [ PrimBinOp Nothing PrimAdd
-                                ( Ref Nothing ( Local ( Name "x3$2" ) ) )
-                                ( LiteralInt Nothing 1 )
-                              ] :|
-                              [ AbsN Nothing
-                                ( ParamNamed Nothing ( Name "x4$3" ) :| [] )
-                                ( AppN Nothing
-                                  ( Ref Nothing
-                                    ( Imported
-                                      ( ModuleName "Golden.LongMaybeBindModule.Test" )
-                                      ( Name "bind$w" )
-                                    )
-                                  )
-                                  ( Ctor Nothing SumType
-                                    ( ModuleName "Data.Maybe" )
-                                    ( TyName "Maybe" )
-                                    ( CtorName "Just" )
-                                    [ PrimBinOp Nothing PrimAdd
-                                      ( Ref Nothing ( Local ( Name "x4$3" ) ) )
-                                      ( LiteralInt Nothing 1 )
-                                    ] :|
-                                    [ AbsN Nothing
-                                      ( ParamNamed Nothing ( Name "x5$4" ) :| [] )
-                                      ( AppN Nothing
-                                        ( Ref Nothing
-                                          ( Imported
-                                            ( ModuleName "Golden.LongMaybeBindModule.Test" )
-                                            ( Name "bind$w" )
-                                          )
-                                        )
-                                        ( Ctor Nothing SumType
-                                          ( ModuleName "Data.Maybe" )
-                                          ( TyName "Maybe" )
-                                          ( CtorName "Just" )
-                                          [ PrimBinOp Nothing PrimAdd
-                                            ( Ref Nothing ( Local ( Name "x5$4" ) ) )
-                                            ( LiteralInt Nothing 1 )
-                                          ] :|
-                                          [ AbsN Nothing
-                                            ( ParamNamed Nothing ( Name "x6$5" ) :| [] )
-                                            ( AppN Nothing
-                                              ( Ref Nothing
-                                                ( Imported
-                                                  ( ModuleName "Golden.LongMaybeBindModule.Test" )
-                                                  ( Name "bind$w" )
-                                                )
-                                              )
-                                              ( Ctor Nothing SumType
-                                                ( ModuleName "Data.Maybe" )
-                                                ( TyName "Maybe" )
-                                                ( CtorName "Just" )
-                                                [ PrimBinOp Nothing PrimAdd
-                                                  ( Ref Nothing ( Local ( Name "x6$5" ) ) )
-                                                  ( LiteralInt Nothing 1 )
-                                                ] :|
-                                                [ AbsN Nothing
-                                                  ( ParamNamed Nothing ( Name "x7$6" ) :| [] )
-                                                  ( AppN Nothing
-                                                    ( Ref Nothing
-                                                      ( Imported
-                                                        ( ModuleName "Golden.LongMaybeBindModule.Test" )
-                                                        ( Name "bind$w" )
-                                                      )
-                                                    )
-                                                    ( Ctor Nothing SumType
-                                                      ( ModuleName "Data.Maybe" )
-                                                      ( TyName "Maybe" )
-                                                      ( CtorName "Just" )
-                                                      [ PrimBinOp Nothing PrimAdd
-                                                        ( Ref Nothing ( Local ( Name "x7$6" ) ) )
-                                                        ( LiteralInt Nothing 1 )
-                                                      ] :|
-                                                      [ AbsN Nothing
-                                                        ( ParamNamed Nothing
-                                                          ( Name "x8$7" ) :| []
-                                                        )
-                                                        ( AppN Nothing
-                                                          ( Ref Nothing
-                                                            ( Imported
-                                                              ( ModuleName "Golden.LongMaybeBindModule.Test" )
-                                                              ( Name "bind$w" )
-                                                            )
-                                                          )
-                                                          ( Ctor Nothing SumType
-                                                            ( ModuleName "Data.Maybe" )
-                                                            ( TyName "Maybe" )
-                                                            ( CtorName "Just" )
-                                                            [ PrimBinOp Nothing PrimAdd
-                                                              ( Ref Nothing
-                                                                ( Local ( Name "x8$7" ) )
-                                                              )
-                                                              ( LiteralInt Nothing 1 )
-                                                            ] :|
-                                                            [ AbsN Nothing
-                                                              ( ParamNamed Nothing
-                                                                ( Name "x9$8" ) :| []
-                                                              )
-                                                              ( AppN Nothing
-                                                                ( Ref Nothing
-                                                                  ( Imported
-                                                                    ( ModuleName "Golden.LongMaybeBindModule.Test" )
-                                                                    ( Name "bind$w" )
-                                                                  )
-                                                                )
-                                                                ( Ctor Nothing SumType
-                                                                  ( ModuleName "Data.Maybe" )
-                                                                  ( TyName "Maybe" )
-                                                                  ( CtorName "Just" )
-                                                                  [ PrimBinOp Nothing PrimAdd
-                                                                    ( Ref Nothing
-                                                                      ( Local ( Name "x9$8" ) )
-                                                                    )
-                                                                    ( LiteralInt Nothing 1 )
-                                                                  ] :|
-                                                                  [ AbsN Nothing
-                                                                    ( ParamNamed Nothing
-                                                                      ( Name "x10$9" ) :| []
-                                                                    )
-                                                                    ( AppN Nothing
-                                                                      ( Ref Nothing
-                                                                        ( Imported
-                                                                          ( ModuleName "Golden.LongMaybeBindModule.Test" )
-                                                                          ( Name "bind$w" )
-                                                                        )
-                                                                      )
-                                                                      ( Ctor Nothing SumType
-                                                                        ( ModuleName "Data.Maybe" )
-                                                                        ( TyName "Maybe" )
-                                                                        ( CtorName "Just" )
-                                                                        [ PrimBinOp Nothing PrimAdd
-                                                                          ( Ref Nothing
-                                                                            ( Local
-                                                                              ( Name "x10$9" )
-                                                                            )
-                                                                          )
-                                                                          ( LiteralInt Nothing 1 )
-                                                                        ] :|
-                                                                        [ AbsN Nothing
-                                                                          ( ParamNamed Nothing
-                                                                            ( Name "x11$10" ) :| []
-                                                                          )
-                                                                          ( AppN Nothing
-                                                                            ( Ref Nothing
-                                                                              ( Imported
-                                                                                ( ModuleName "Golden.LongMaybeBindModule.Test" )
-                                                                                ( Name "bind$w" )
-                                                                              )
-                                                                            )
-                                                                            ( Ctor Nothing SumType
-                                                                              ( ModuleName "Data.Maybe" )
-                                                                              ( TyName "Maybe" )
-                                                                              ( CtorName "Just" )
-                                                                              [ PrimBinOp Nothing PrimAdd
-                                                                                ( Ref Nothing
-                                                                                  ( Local
-                                                                                    ( Name "x11$10" )
-                                                                                  )
-                                                                                )
-                                                                                ( LiteralInt Nothing 1 )
-                                                                              ] :|
-                                                                              [ AbsN Nothing
-                                                                                ( ParamNamed Nothing
-                                                                                  ( Name "x12$11" ) :| []
-                                                                                )
-                                                                                ( AppN Nothing
-                                                                                  ( Ref Nothing
-                                                                                    ( Imported
-                                                                                      ( ModuleName "Golden.LongMaybeBindModule.Test" )
-                                                                                      ( Name "bind$w" )
-                                                                                    )
-                                                                                  )
-                                                                                  ( Ctor Nothing SumType
-                                                                                    ( ModuleName "Data.Maybe" )
-                                                                                    ( TyName "Maybe" )
-                                                                                    ( CtorName "Just" )
-                                                                                    [ PrimBinOp Nothing PrimAdd
-                                                                                      ( Ref Nothing
-                                                                                        ( Local
-                                                                                          ( Name "x12$11" )
-                                                                                        )
-                                                                                      )
-                                                                                      ( LiteralInt Nothing 1 )
-                                                                                    ] :|
-                                                                                    [ AbsN Nothing
-                                                                                      ( ParamNamed Nothing
-                                                                                        ( Name "x13$12" ) :| []
-                                                                                      )
-                                                                                      ( AppN Nothing
-                                                                                        ( Ref Nothing
-                                                                                          ( Imported
-                                                                                            ( ModuleName "Golden.LongMaybeBindModule.Test" )
-                                                                                            ( Name "bind$w" )
-                                                                                          )
-                                                                                        )
-                                                                                        ( Ctor Nothing SumType
-                                                                                          ( ModuleName "Data.Maybe" )
-                                                                                          ( TyName "Maybe" )
-                                                                                          ( CtorName "Just" )
-                                                                                          [ PrimBinOp Nothing PrimAdd
-                                                                                            ( Ref Nothing
-                                                                                              ( Local
-                                                                                                ( Name "x13$12" )
-                                                                                              )
-                                                                                            )
-                                                                                            ( LiteralInt Nothing 1 )
-                                                                                          ] :|
-                                                                                          [ AbsN Nothing
-                                                                                            ( ParamNamed Nothing
-                                                                                              ( Name "x14$13" ) :| []
-                                                                                            )
-                                                                                            ( AppN Nothing
-                                                                                              ( Ref Nothing
-                                                                                                ( Imported
-                                                                                                  ( ModuleName "Golden.LongMaybeBindModule.Test" )
-                                                                                                  ( Name "bind$w" )
-                                                                                                )
-                                                                                              )
-                                                                                              ( Ctor Nothing SumType
-                                                                                                ( ModuleName "Data.Maybe" )
-                                                                                                ( TyName "Maybe" )
-                                                                                                ( CtorName "Just" )
-                                                                                                [ PrimBinOp Nothing PrimAdd
-                                                                                                  ( Ref Nothing
-                                                                                                    ( Local
-                                                                                                      ( Name "x14$13" )
-                                                                                                    )
-                                                                                                  )
-                                                                                                  ( LiteralInt Nothing 1 )
-                                                                                                ] :|
-                                                                                                [ AbsN Nothing
-                                                                                                  ( ParamNamed Nothing
-                                                                                                    ( Name "x15$14" ) :| []
-                                                                                                  )
-                                                                                                  ( AppN Nothing
-                                                                                                    ( Ref Nothing
-                                                                                                      ( Imported
-                                                                                                        ( ModuleName "Golden.LongMaybeBindModule.Test" )
-                                                                                                        ( Name "bind$w" )
-                                                                                                      )
-                                                                                                    )
-                                                                                                    ( Ctor Nothing SumType
-                                                                                                      ( ModuleName "Data.Maybe" )
-                                                                                                      ( TyName "Maybe" )
-                                                                                                      ( CtorName "Just" )
-                                                                                                      [ PrimBinOp Nothing PrimAdd
-                                                                                                        ( Ref Nothing
-                                                                                                          ( Local
-                                                                                                            ( Name "x15$14" )
-                                                                                                          )
-                                                                                                        )
-                                                                                                        ( LiteralInt Nothing 1 )
-                                                                                                      ] :|
-                                                                                                      [ AbsN Nothing
-                                                                                                        ( ParamNamed Nothing
-                                                                                                          ( Name "x16$15" ) :| []
-                                                                                                        )
-                                                                                                        ( AppN Nothing
-                                                                                                          ( Ref Nothing
-                                                                                                            ( Imported
-                                                                                                              ( ModuleName "Golden.LongMaybeBindModule.Test" )
-                                                                                                              ( Name "bind$w" )
-                                                                                                            )
-                                                                                                          )
-                                                                                                          ( Ctor Nothing SumType
-                                                                                                            ( ModuleName "Data.Maybe" )
-                                                                                                            ( TyName "Maybe" )
-                                                                                                            ( CtorName "Just" )
-                                                                                                            [ PrimBinOp Nothing PrimAdd
-                                                                                                              ( Ref Nothing
-                                                                                                                ( Local
-                                                                                                                  ( Name "x16$15" )
-                                                                                                                )
-                                                                                                              )
-                                                                                                              ( LiteralInt Nothing 1 )
-                                                                                                            ] :|
-                                                                                                            [ AbsN Nothing
-                                                                                                              ( ParamNamed Nothing
-                                                                                                                ( Name "x17$16" ) :| []
-                                                                                                              )
-                                                                                                              ( AppN Nothing
-                                                                                                                ( Ref Nothing
-                                                                                                                  ( Imported
-                                                                                                                    ( ModuleName "Golden.LongMaybeBindModule.Test" )
-                                                                                                                    ( Name "bind$w" )
-                                                                                                                  )
-                                                                                                                )
-                                                                                                                ( Ctor Nothing SumType
-                                                                                                                  ( ModuleName "Data.Maybe" )
-                                                                                                                  ( TyName "Maybe" )
-                                                                                                                  ( CtorName "Just" )
-                                                                                                                  [ PrimBinOp Nothing PrimAdd
-                                                                                                                    ( Ref Nothing
-                                                                                                                      ( Local
-                                                                                                                        ( Name "x17$16" )
-                                                                                                                      )
-                                                                                                                    )
-                                                                                                                    ( LiteralInt Nothing 1 )
-                                                                                                                  ] :|
-                                                                                                                  [ AbsN Nothing
-                                                                                                                    ( ParamNamed Nothing
-                                                                                                                      ( Name "x18$17" ) :| []
-                                                                                                                    )
-                                                                                                                    ( AppN Nothing
-                                                                                                                      ( Ref Nothing
-                                                                                                                        ( Imported
-                                                                                                                          ( ModuleName "Golden.LongMaybeBindModule.Test" )
-                                                                                                                          ( Name "bind$w" )
-                                                                                                                        )
-                                                                                                                      )
-                                                                                                                      ( Ctor Nothing SumType
-                                                                                                                        ( ModuleName "Data.Maybe" )
-                                                                                                                        ( TyName "Maybe" )
-                                                                                                                        ( CtorName "Just" )
-                                                                                                                        [ PrimBinOp Nothing PrimAdd
-                                                                                                                          ( Ref Nothing
-                                                                                                                            ( Local
-                                                                                                                              ( Name "x18$17" )
-                                                                                                                            )
-                                                                                                                          )
-                                                                                                                          ( LiteralInt Nothing 1 )
-                                                                                                                        ] :|
-                                                                                                                        [ AbsN Nothing
-                                                                                                                          ( ParamNamed Nothing
-                                                                                                                            ( Name "x19$18" ) :| []
-                                                                                                                          )
-                                                                                                                          ( AppN Nothing
-                                                                                                                            ( Ref Nothing
-                                                                                                                              ( Imported
-                                                                                                                                ( ModuleName "Golden.LongMaybeBindModule.Test" )
-                                                                                                                                ( Name "bind$w" )
-                                                                                                                              )
-                                                                                                                            )
-                                                                                                                            ( Ctor Nothing SumType
-                                                                                                                              ( ModuleName "Data.Maybe" )
-                                                                                                                              ( TyName "Maybe" )
-                                                                                                                              ( CtorName "Just" )
-                                                                                                                              [ PrimBinOp Nothing PrimAdd
-                                                                                                                                ( Ref Nothing
-                                                                                                                                  ( Local
-                                                                                                                                    ( Name "x19$18" )
-                                                                                                                                  )
-                                                                                                                                )
-                                                                                                                                ( LiteralInt Nothing 1 )
-                                                                                                                              ] :|
-                                                                                                                              [ AbsN Nothing
-                                                                                                                                ( ParamNamed Nothing
-                                                                                                                                  ( Name "x20$19" ) :| []
-                                                                                                                                )
-                                                                                                                                ( AppN Nothing
-                                                                                                                                  ( Ref Nothing
-                                                                                                                                    ( Imported
-                                                                                                                                      ( ModuleName "Golden.LongMaybeBindModule.Test" )
-                                                                                                                                      ( Name "bind$w" )
-                                                                                                                                    )
-                                                                                                                                  )
-                                                                                                                                  ( Ctor Nothing SumType
-                                                                                                                                    ( ModuleName "Data.Maybe" )
-                                                                                                                                    ( TyName "Maybe" )
-                                                                                                                                    ( CtorName "Just" )
-                                                                                                                                    [ PrimBinOp Nothing PrimAdd
-                                                                                                                                      ( Ref Nothing
-                                                                                                                                        ( Local
-                                                                                                                                          ( Name "x20$19" )
-                                                                                                                                        )
-                                                                                                                                      )
-                                                                                                                                      ( LiteralInt Nothing 1 )
-                                                                                                                                    ] :|
-                                                                                                                                    [ AbsN Nothing
-                                                                                                                                      ( ParamNamed Nothing
-                                                                                                                                        ( Name "x21$20" ) :| []
-                                                                                                                                      )
-                                                                                                                                      ( AppN Nothing
-                                                                                                                                        ( Ref Nothing
-                                                                                                                                          ( Imported
-                                                                                                                                            ( ModuleName "Golden.LongMaybeBindModule.Test" )
-                                                                                                                                            ( Name "bind$w" )
-                                                                                                                                          )
-                                                                                                                                        )
-                                                                                                                                        ( Ctor Nothing SumType
-                                                                                                                                          ( ModuleName "Data.Maybe" )
-                                                                                                                                          ( TyName "Maybe" )
-                                                                                                                                          ( CtorName "Just" )
-                                                                                                                                          [ PrimBinOp Nothing PrimAdd
-                                                                                                                                            ( Ref Nothing
-                                                                                                                                              ( Local
-                                                                                                                                                ( Name "x21$20" )
-                                                                                                                                              )
-                                                                                                                                            )
-                                                                                                                                            ( LiteralInt Nothing 1 )
-                                                                                                                                          ] :|
-                                                                                                                                          [ AbsN Nothing
-                                                                                                                                            ( ParamNamed Nothing
-                                                                                                                                              ( Name "x22$21" ) :| []
-                                                                                                                                            )
-                                                                                                                                            ( AppN Nothing
-                                                                                                                                              ( Ref Nothing
-                                                                                                                                                ( Imported
-                                                                                                                                                  ( ModuleName "Golden.LongMaybeBindModule.Test" )
-                                                                                                                                                  ( Name "bind$w" )
-                                                                                                                                                )
-                                                                                                                                              )
-                                                                                                                                              ( Ctor Nothing SumType
-                                                                                                                                                ( ModuleName "Data.Maybe" )
-                                                                                                                                                ( TyName "Maybe" )
-                                                                                                                                                ( CtorName "Just" )
-                                                                                                                                                [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                  ( Ref Nothing
-                                                                                                                                                    ( Local
-                                                                                                                                                      ( Name "x22$21" )
-                                                                                                                                                    )
-                                                                                                                                                  )
-                                                                                                                                                  ( LiteralInt Nothing 1 )
-                                                                                                                                                ] :|
-                                                                                                                                                [ AbsN Nothing
-                                                                                                                                                  ( ParamNamed Nothing
-                                                                                                                                                    ( Name "x23$22" ) :| []
-                                                                                                                                                  )
-                                                                                                                                                  ( AppN Nothing
-                                                                                                                                                    ( Ref Nothing
-                                                                                                                                                      ( Imported
-                                                                                                                                                        ( ModuleName "Golden.LongMaybeBindModule.Test" )
-                                                                                                                                                        ( Name "bind$w" )
-                                                                                                                                                      )
-                                                                                                                                                    )
-                                                                                                                                                    ( Ctor Nothing SumType
-                                                                                                                                                      ( ModuleName "Data.Maybe" )
-                                                                                                                                                      ( TyName "Maybe" )
-                                                                                                                                                      ( CtorName "Just" )
-                                                                                                                                                      [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                        ( Ref Nothing
-                                                                                                                                                          ( Local
-                                                                                                                                                            ( Name "x23$22" )
-                                                                                                                                                          )
-                                                                                                                                                        )
-                                                                                                                                                        ( LiteralInt Nothing 1 )
-                                                                                                                                                      ] :|
-                                                                                                                                                      [ AbsN Nothing
-                                                                                                                                                        ( ParamNamed Nothing
-                                                                                                                                                          ( Name "x24$23" ) :| []
-                                                                                                                                                        )
-                                                                                                                                                        ( AppN Nothing
-                                                                                                                                                          ( Ref Nothing
-                                                                                                                                                            ( Imported
-                                                                                                                                                              ( ModuleName "Golden.LongMaybeBindModule.Test" )
-                                                                                                                                                              ( Name "bind$w" )
-                                                                                                                                                            )
-                                                                                                                                                          )
-                                                                                                                                                          ( Ctor Nothing SumType
-                                                                                                                                                            ( ModuleName "Data.Maybe" )
-                                                                                                                                                            ( TyName "Maybe" )
-                                                                                                                                                            ( CtorName "Just" )
-                                                                                                                                                            [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                              ( Ref Nothing
-                                                                                                                                                                ( Local
-                                                                                                                                                                  ( Name "x24$23" )
-                                                                                                                                                                )
-                                                                                                                                                              )
-                                                                                                                                                              ( LiteralInt Nothing 1 )
-                                                                                                                                                            ] :|
-                                                                                                                                                            [ AbsN Nothing
-                                                                                                                                                              ( ParamNamed Nothing
-                                                                                                                                                                ( Name "x25$24" ) :| []
-                                                                                                                                                              )
-                                                                                                                                                              ( AppN Nothing
-                                                                                                                                                                ( Ref Nothing
-                                                                                                                                                                  ( Imported
-                                                                                                                                                                    ( ModuleName "Golden.LongMaybeBindModule.Test" )
-                                                                                                                                                                    ( Name "bind$w" )
-                                                                                                                                                                  )
-                                                                                                                                                                )
-                                                                                                                                                                ( Ctor Nothing SumType
-                                                                                                                                                                  ( ModuleName "Data.Maybe" )
-                                                                                                                                                                  ( TyName "Maybe" )
-                                                                                                                                                                  ( CtorName "Just" )
-                                                                                                                                                                  [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                                    ( Ref Nothing
-                                                                                                                                                                      ( Local
-                                                                                                                                                                        ( Name "x25$24" )
-                                                                                                                                                                      )
-                                                                                                                                                                    )
-                                                                                                                                                                    ( LiteralInt Nothing 1 )
-                                                                                                                                                                  ] :|
-                                                                                                                                                                  [ AbsN Nothing
-                                                                                                                                                                    ( ParamNamed Nothing
-                                                                                                                                                                      ( Name "x26$25" ) :| []
-                                                                                                                                                                    )
-                                                                                                                                                                    ( AppN Nothing
-                                                                                                                                                                      ( Ref Nothing
-                                                                                                                                                                        ( Imported
-                                                                                                                                                                          ( ModuleName "Golden.LongMaybeBindModule.Test" )
-                                                                                                                                                                          ( Name "bind$w" )
-                                                                                                                                                                        )
-                                                                                                                                                                      )
-                                                                                                                                                                      ( Ctor Nothing SumType
-                                                                                                                                                                        ( ModuleName "Data.Maybe" )
-                                                                                                                                                                        ( TyName "Maybe" )
-                                                                                                                                                                        ( CtorName "Just" )
-                                                                                                                                                                        [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                                          ( Ref Nothing
-                                                                                                                                                                            ( Local
-                                                                                                                                                                              ( Name "x26$25" )
-                                                                                                                                                                            )
-                                                                                                                                                                          )
-                                                                                                                                                                          ( LiteralInt Nothing 1 )
-                                                                                                                                                                        ] :|
-                                                                                                                                                                        [ AbsN Nothing
-                                                                                                                                                                          ( ParamNamed Nothing
-                                                                                                                                                                            ( Name "x27$26" ) :| []
-                                                                                                                                                                          )
-                                                                                                                                                                          ( AppN Nothing
-                                                                                                                                                                            ( Ref Nothing
-                                                                                                                                                                              ( Imported
-                                                                                                                                                                                ( ModuleName "Golden.LongMaybeBindModule.Test" )
-                                                                                                                                                                                ( Name "bind$w" )
-                                                                                                                                                                              )
-                                                                                                                                                                            )
-                                                                                                                                                                            ( Ctor Nothing SumType
-                                                                                                                                                                              ( ModuleName "Data.Maybe" )
-                                                                                                                                                                              ( TyName "Maybe" )
-                                                                                                                                                                              ( CtorName "Just" )
-                                                                                                                                                                              [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                                                ( Ref Nothing
-                                                                                                                                                                                  ( Local
-                                                                                                                                                                                    ( Name "x27$26" )
-                                                                                                                                                                                  )
-                                                                                                                                                                                )
-                                                                                                                                                                                ( LiteralInt Nothing 1 )
-                                                                                                                                                                              ] :|
-                                                                                                                                                                              [ AbsN Nothing
-                                                                                                                                                                                ( ParamNamed Nothing
-                                                                                                                                                                                  ( Name "x28$27" ) :| []
-                                                                                                                                                                                )
-                                                                                                                                                                                ( AppN Nothing
-                                                                                                                                                                                  ( Ref Nothing
-                                                                                                                                                                                    ( Imported
-                                                                                                                                                                                      ( ModuleName "Golden.LongMaybeBindModule.Test" )
-                                                                                                                                                                                      ( Name "bind$w" )
-                                                                                                                                                                                    )
-                                                                                                                                                                                  )
-                                                                                                                                                                                  ( Ctor Nothing SumType
-                                                                                                                                                                                    ( ModuleName "Data.Maybe" )
-                                                                                                                                                                                    ( TyName "Maybe" )
-                                                                                                                                                                                    ( CtorName "Just" )
-                                                                                                                                                                                    [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                                                      ( Ref Nothing
-                                                                                                                                                                                        ( Local
-                                                                                                                                                                                          ( Name "x28$27" )
-                                                                                                                                                                                        )
-                                                                                                                                                                                      )
-                                                                                                                                                                                      ( LiteralInt Nothing 1 )
-                                                                                                                                                                                    ] :|
-                                                                                                                                                                                    [ AbsN Nothing
-                                                                                                                                                                                      ( ParamNamed Nothing
-                                                                                                                                                                                        ( Name "x29$28" ) :| []
-                                                                                                                                                                                      )
-                                                                                                                                                                                      ( AppN Nothing
-                                                                                                                                                                                        ( Ref Nothing
-                                                                                                                                                                                          ( Imported
-                                                                                                                                                                                            ( ModuleName "Golden.LongMaybeBindModule.Test" )
-                                                                                                                                                                                            ( Name "bind$w" )
-                                                                                                                                                                                          )
-                                                                                                                                                                                        )
-                                                                                                                                                                                        ( Ctor Nothing SumType
-                                                                                                                                                                                          ( ModuleName "Data.Maybe" )
-                                                                                                                                                                                          ( TyName "Maybe" )
-                                                                                                                                                                                          ( CtorName "Just" )
-                                                                                                                                                                                          [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                                                            ( Ref Nothing
-                                                                                                                                                                                              ( Local
-                                                                                                                                                                                                ( Name "x29$28" )
-                                                                                                                                                                                              )
-                                                                                                                                                                                            )
-                                                                                                                                                                                            ( LiteralInt Nothing 1 )
-                                                                                                                                                                                          ] :|
-                                                                                                                                                                                          [ AbsN Nothing
-                                                                                                                                                                                            ( ParamNamed Nothing
-                                                                                                                                                                                              ( Name "x30$29" ) :| []
-                                                                                                                                                                                            )
-                                                                                                                                                                                            ( AppN Nothing
-                                                                                                                                                                                              ( Ref Nothing
-                                                                                                                                                                                                ( Imported
-                                                                                                                                                                                                  ( ModuleName "Golden.LongMaybeBindModule.Test" )
-                                                                                                                                                                                                  ( Name "bind$w" )
-                                                                                                                                                                                                )
-                                                                                                                                                                                              )
-                                                                                                                                                                                              ( Ctor Nothing SumType
-                                                                                                                                                                                                ( ModuleName "Data.Maybe" )
-                                                                                                                                                                                                ( TyName "Maybe" )
-                                                                                                                                                                                                ( CtorName "Just" )
-                                                                                                                                                                                                [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                                                                  ( Ref Nothing
-                                                                                                                                                                                                    ( Local
-                                                                                                                                                                                                      ( Name "x30$29" )
-                                                                                                                                                                                                    )
-                                                                                                                                                                                                  )
-                                                                                                                                                                                                  ( LiteralInt Nothing 1 )
-                                                                                                                                                                                                ] :|
-                                                                                                                                                                                                [ AbsN Nothing
-                                                                                                                                                                                                  ( ParamNamed Nothing
-                                                                                                                                                                                                    ( Name "x31$30" ) :| []
-                                                                                                                                                                                                  )
-                                                                                                                                                                                                  ( AppN Nothing
-                                                                                                                                                                                                    ( Ref Nothing
-                                                                                                                                                                                                      ( Imported
-                                                                                                                                                                                                        ( ModuleName "Golden.LongMaybeBindModule.Test" )
-                                                                                                                                                                                                        ( Name "bind$w" )
-                                                                                                                                                                                                      )
-                                                                                                                                                                                                    )
-                                                                                                                                                                                                    ( Ctor Nothing SumType
-                                                                                                                                                                                                      ( ModuleName "Data.Maybe" )
-                                                                                                                                                                                                      ( TyName "Maybe" )
-                                                                                                                                                                                                      ( CtorName "Just" )
-                                                                                                                                                                                                      [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                                                                        ( Ref Nothing
-                                                                                                                                                                                                          ( Local
-                                                                                                                                                                                                            ( Name "x31$30" )
-                                                                                                                                                                                                          )
-                                                                                                                                                                                                        )
-                                                                                                                                                                                                        ( LiteralInt Nothing 1 )
-                                                                                                                                                                                                      ] :|
-                                                                                                                                                                                                      [ AbsN Nothing
-                                                                                                                                                                                                        ( ParamNamed Nothing
-                                                                                                                                                                                                          ( Name "x32$31" ) :| []
-                                                                                                                                                                                                        )
-                                                                                                                                                                                                        ( AppN Nothing
-                                                                                                                                                                                                          ( Ref Nothing
-                                                                                                                                                                                                            ( Imported
-                                                                                                                                                                                                              ( ModuleName "Golden.LongMaybeBindModule.Test" )
-                                                                                                                                                                                                              ( Name "bind$w" )
-                                                                                                                                                                                                            )
-                                                                                                                                                                                                          )
-                                                                                                                                                                                                          ( Ctor Nothing SumType
-                                                                                                                                                                                                            ( ModuleName "Data.Maybe" )
-                                                                                                                                                                                                            ( TyName "Maybe" )
-                                                                                                                                                                                                            ( CtorName "Just" )
-                                                                                                                                                                                                            [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                                                                              ( Ref Nothing
-                                                                                                                                                                                                                ( Local
-                                                                                                                                                                                                                  ( Name "x32$31" )
-                                                                                                                                                                                                                )
-                                                                                                                                                                                                              )
-                                                                                                                                                                                                              ( LiteralInt Nothing 1 )
-                                                                                                                                                                                                            ] :|
-                                                                                                                                                                                                            [ AbsN Nothing
-                                                                                                                                                                                                              ( ParamNamed Nothing
-                                                                                                                                                                                                                ( Name "x33$32" ) :| []
-                                                                                                                                                                                                              )
-                                                                                                                                                                                                              ( AppN Nothing
-                                                                                                                                                                                                                ( Ref Nothing
-                                                                                                                                                                                                                  ( Imported
-                                                                                                                                                                                                                    ( ModuleName "Golden.LongMaybeBindModule.Test" )
-                                                                                                                                                                                                                    ( Name "bind$w" )
-                                                                                                                                                                                                                  )
-                                                                                                                                                                                                                )
-                                                                                                                                                                                                                ( Ctor Nothing SumType
-                                                                                                                                                                                                                  ( ModuleName "Data.Maybe" )
-                                                                                                                                                                                                                  ( TyName "Maybe" )
-                                                                                                                                                                                                                  ( CtorName "Just" )
-                                                                                                                                                                                                                  [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                                                                                    ( Ref Nothing
-                                                                                                                                                                                                                      ( Local
-                                                                                                                                                                                                                        ( Name "x33$32" )
-                                                                                                                                                                                                                      )
-                                                                                                                                                                                                                    )
-                                                                                                                                                                                                                    ( LiteralInt Nothing 1 )
-                                                                                                                                                                                                                  ] :|
-                                                                                                                                                                                                                  [ AbsN Nothing
-                                                                                                                                                                                                                    ( ParamNamed Nothing
-                                                                                                                                                                                                                      ( Name "x34$33" ) :| []
-                                                                                                                                                                                                                    )
-                                                                                                                                                                                                                    ( AppN Nothing
-                                                                                                                                                                                                                      ( Ref Nothing
-                                                                                                                                                                                                                        ( Imported
-                                                                                                                                                                                                                          ( ModuleName "Golden.LongMaybeBindModule.Test" )
-                                                                                                                                                                                                                          ( Name "bind$w" )
-                                                                                                                                                                                                                        )
-                                                                                                                                                                                                                      )
-                                                                                                                                                                                                                      ( Ctor Nothing SumType
-                                                                                                                                                                                                                        ( ModuleName "Data.Maybe" )
-                                                                                                                                                                                                                        ( TyName "Maybe" )
-                                                                                                                                                                                                                        ( CtorName "Just" )
-                                                                                                                                                                                                                        [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                                                                                          ( Ref Nothing
-                                                                                                                                                                                                                            ( Local
-                                                                                                                                                                                                                              ( Name "x34$33" )
-                                                                                                                                                                                                                            )
-                                                                                                                                                                                                                          )
-                                                                                                                                                                                                                          ( LiteralInt Nothing 1 )
-                                                                                                                                                                                                                        ] :|
-                                                                                                                                                                                                                        [ AbsN Nothing
-                                                                                                                                                                                                                          ( ParamNamed Nothing
-                                                                                                                                                                                                                            ( Name "x35$34" ) :| []
-                                                                                                                                                                                                                          )
-                                                                                                                                                                                                                          ( AppN Nothing
-                                                                                                                                                                                                                            ( Ref Nothing
-                                                                                                                                                                                                                              ( Imported
-                                                                                                                                                                                                                                ( ModuleName "Golden.LongMaybeBindModule.Test" )
-                                                                                                                                                                                                                                ( Name "bind$w" )
-                                                                                                                                                                                                                              )
-                                                                                                                                                                                                                            )
-                                                                                                                                                                                                                            ( Ctor Nothing SumType
-                                                                                                                                                                                                                              ( ModuleName "Data.Maybe" )
-                                                                                                                                                                                                                              ( TyName "Maybe" )
-                                                                                                                                                                                                                              ( CtorName "Just" )
-                                                                                                                                                                                                                              [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                                                                                                ( Ref Nothing
-                                                                                                                                                                                                                                  ( Local
-                                                                                                                                                                                                                                    ( Name "x35$34" )
-                                                                                                                                                                                                                                  )
-                                                                                                                                                                                                                                )
-                                                                                                                                                                                                                                ( LiteralInt Nothing 1 )
-                                                                                                                                                                                                                              ] :|
-                                                                                                                                                                                                                              [ AbsN Nothing
-                                                                                                                                                                                                                                ( ParamNamed Nothing
-                                                                                                                                                                                                                                  ( Name "x36$35" ) :| []
-                                                                                                                                                                                                                                )
-                                                                                                                                                                                                                                ( AppN Nothing
-                                                                                                                                                                                                                                  ( Ref Nothing
-                                                                                                                                                                                                                                    ( Imported
-                                                                                                                                                                                                                                      ( ModuleName "Golden.LongMaybeBindModule.Test" )
-                                                                                                                                                                                                                                      ( Name "bind$w" )
-                                                                                                                                                                                                                                    )
-                                                                                                                                                                                                                                  )
-                                                                                                                                                                                                                                  ( Ctor Nothing SumType
-                                                                                                                                                                                                                                    ( ModuleName "Data.Maybe" )
-                                                                                                                                                                                                                                    ( TyName "Maybe" )
-                                                                                                                                                                                                                                    ( CtorName "Just" )
-                                                                                                                                                                                                                                    [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                                                                                                      ( Ref Nothing
-                                                                                                                                                                                                                                        ( Local
-                                                                                                                                                                                                                                          ( Name "x36$35" )
-                                                                                                                                                                                                                                        )
-                                                                                                                                                                                                                                      )
-                                                                                                                                                                                                                                      ( LiteralInt Nothing 1 )
-                                                                                                                                                                                                                                    ] :|
-                                                                                                                                                                                                                                    [ AbsN Nothing
-                                                                                                                                                                                                                                      ( ParamNamed Nothing
-                                                                                                                                                                                                                                        ( Name "x37$36" ) :| []
-                                                                                                                                                                                                                                      )
-                                                                                                                                                                                                                                      ( AppN Nothing
-                                                                                                                                                                                                                                        ( Ref Nothing
-                                                                                                                                                                                                                                          ( Imported
-                                                                                                                                                                                                                                            ( ModuleName "Golden.LongMaybeBindModule.Test" )
-                                                                                                                                                                                                                                            ( Name "bind$w" )
-                                                                                                                                                                                                                                          )
-                                                                                                                                                                                                                                        )
-                                                                                                                                                                                                                                        ( Ctor Nothing SumType
-                                                                                                                                                                                                                                          ( ModuleName "Data.Maybe" )
-                                                                                                                                                                                                                                          ( TyName "Maybe" )
-                                                                                                                                                                                                                                          ( CtorName "Just" )
-                                                                                                                                                                                                                                          [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                                                                                                            ( Ref Nothing
-                                                                                                                                                                                                                                              ( Local
-                                                                                                                                                                                                                                                ( Name "x37$36" )
-                                                                                                                                                                                                                                              )
-                                                                                                                                                                                                                                            )
-                                                                                                                                                                                                                                            ( LiteralInt Nothing 1 )
-                                                                                                                                                                                                                                          ] :|
-                                                                                                                                                                                                                                          [ AbsN Nothing
-                                                                                                                                                                                                                                            ( ParamNamed Nothing
-                                                                                                                                                                                                                                              ( Name "x38$37" ) :| []
-                                                                                                                                                                                                                                            )
-                                                                                                                                                                                                                                            ( AppN Nothing
-                                                                                                                                                                                                                                              ( Ref Nothing
-                                                                                                                                                                                                                                                ( Imported
-                                                                                                                                                                                                                                                  ( ModuleName "Golden.LongMaybeBindModule.Test" )
-                                                                                                                                                                                                                                                  ( Name "bind$w" )
-                                                                                                                                                                                                                                                )
-                                                                                                                                                                                                                                              )
-                                                                                                                                                                                                                                              ( Ctor Nothing SumType
-                                                                                                                                                                                                                                                ( ModuleName "Data.Maybe" )
-                                                                                                                                                                                                                                                ( TyName "Maybe" )
-                                                                                                                                                                                                                                                ( CtorName "Just" )
-                                                                                                                                                                                                                                                [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                                                                                                                  ( Ref Nothing
-                                                                                                                                                                                                                                                    ( Local
-                                                                                                                                                                                                                                                      ( Name "x38$37" )
-                                                                                                                                                                                                                                                    )
-                                                                                                                                                                                                                                                  )
-                                                                                                                                                                                                                                                  ( LiteralInt Nothing 1 )
-                                                                                                                                                                                                                                                ] :|
-                                                                                                                                                                                                                                                [ AbsN Nothing
-                                                                                                                                                                                                                                                  ( ParamNamed Nothing
-                                                                                                                                                                                                                                                    ( Name "x39$38" ) :| []
-                                                                                                                                                                                                                                                  )
-                                                                                                                                                                                                                                                  ( AppN Nothing
-                                                                                                                                                                                                                                                    ( Ref Nothing
-                                                                                                                                                                                                                                                      ( Imported
-                                                                                                                                                                                                                                                        ( ModuleName "Golden.LongMaybeBindModule.Test" )
-                                                                                                                                                                                                                                                        ( Name "bind$w" )
-                                                                                                                                                                                                                                                      )
-                                                                                                                                                                                                                                                    )
-                                                                                                                                                                                                                                                    ( Ctor Nothing SumType
-                                                                                                                                                                                                                                                      ( ModuleName "Data.Maybe" )
-                                                                                                                                                                                                                                                      ( TyName "Maybe" )
-                                                                                                                                                                                                                                                      ( CtorName "Just" )
-                                                                                                                                                                                                                                                      [ PrimBinOp Nothing PrimAdd
-                                                                                                                                                                                                                                                        ( Ref Nothing
-                                                                                                                                                                                                                                                          ( Local
-                                                                                                                                                                                                                                                            ( Name "x39$38" )
-                                                                                                                                                                                                                                                          )
-                                                                                                                                                                                                                                                        )
-                                                                                                                                                                                                                                                        ( LiteralInt Nothing 1 )
-                                                                                                                                                                                                                                                      ] :|
-                                                                                                                                                                                                                                                      [ AbsN Nothing
-                                                                                                                                                                                                                                                        ( ParamNamed Nothing
-                                                                                                                                                                                                                                                          ( Name "x40$39" ) :| []
-                                                                                                                                                                                                                                                        )
-                                                                                                                                                                                                                                                        ( AppN Nothing
-                                                                                                                                                                                                                                                          ( Ref Nothing
-                                                                                                                                                                                                                                                            ( Local
-                                                                                                                                                                                                                                                              ( Name "$kont1513$w" )
-                                                                                                                                                                                                                                                            )
-                                                                                                                                                                                                                                                          )
-                                                                                                                                                                                                                                                          ( Ref Nothing
-                                                                                                                                                                                                                                                            ( Local
-                                                                                                                                                                                                                                                              ( Name "x1$0" )
-                                                                                                                                                                                                                                                            ) :|
-                                                                                                                                                                                                                                                            [ Ref Nothing
-                                                                                                                                                                                                                                                              ( Local
-                                                                                                                                                                                                                                                                ( Name "x40$39" )
-                                                                                                                                                                                                                                                              )
-                                                                                                                                                                                                                                                            ]
-                                                                                                                                                                                                                                                          )
-                                                                                                                                                                                                                                                        )
-                                                                                                                                                                                                                                                      ]
-                                                                                                                                                                                                                                                    )
-                                                                                                                                                                                                                                                  )
-                                                                                                                                                                                                                                                ]
-                                                                                                                                                                                                                                              )
-                                                                                                                                                                                                                                            )
-                                                                                                                                                                                                                                          ]
-                                                                                                                                                                                                                                        )
-                                                                                                                                                                                                                                      )
-                                                                                                                                                                                                                                    ]
-                                                                                                                                                                                                                                  )
-                                                                                                                                                                                                                                )
-                                                                                                                                                                                                                              ]
-                                                                                                                                                                                                                            )
-                                                                                                                                                                                                                          )
-                                                                                                                                                                                                                        ]
-                                                                                                                                                                                                                      )
-                                                                                                                                                                                                                    )
-                                                                                                                                                                                                                  ]
-                                                                                                                                                                                                                )
-                                                                                                                                                                                                              )
-                                                                                                                                                                                                            ]
-                                                                                                                                                                                                          )
-                                                                                                                                                                                                        )
-                                                                                                                                                                                                      ]
-                                                                                                                                                                                                    )
-                                                                                                                                                                                                  )
-                                                                                                                                                                                                ]
-                                                                                                                                                                                              )
-                                                                                                                                                                                            )
-                                                                                                                                                                                          ]
-                                                                                                                                                                                        )
-                                                                                                                                                                                      )
-                                                                                                                                                                                    ]
-                                                                                                                                                                                  )
-                                                                                                                                                                                )
-                                                                                                                                                                              ]
-                                                                                                                                                                            )
-                                                                                                                                                                          )
-                                                                                                                                                                        ]
-                                                                                                                                                                      )
-                                                                                                                                                                    )
-                                                                                                                                                                  ]
-                                                                                                                                                                )
-                                                                                                                                                              )
-                                                                                                                                                            ]
-                                                                                                                                                          )
-                                                                                                                                                        )
-                                                                                                                                                      ]
-                                                                                                                                                    )
-                                                                                                                                                  )
-                                                                                                                                                ]
-                                                                                                                                              )
-                                                                                                                                            )
-                                                                                                                                          ]
-                                                                                                                                        )
-                                                                                                                                      )
-                                                                                                                                    ]
-                                                                                                                                  )
-                                                                                                                                )
-                                                                                                                              ]
-                                                                                                                            )
-                                                                                                                          )
-                                                                                                                        ]
-                                                                                                                      )
-                                                                                                                    )
-                                                                                                                  ]
-                                                                                                                )
-                                                                                                              )
-                                                                                                            ]
-                                                                                                          )
-                                                                                                        )
-                                                                                                      ]
-                                                                                                    )
-                                                                                                  )
-                                                                                                ]
-                                                                                              )
-                                                                                            )
-                                                                                          ]
-                                                                                        )
-                                                                                      )
-                                                                                    ]
-                                                                                  )
-                                                                                )
-                                                                              ]
-                                                                            )
-                                                                          )
-                                                                        ]
-                                                                      )
-                                                                    )
-                                                                  ]
-                                                                )
-                                                              )
-                                                            ]
-                                                          )
-                                                        )
-                                                      ]
-                                                    )
-                                                  )
-                                                ]
-                                              )
-                                            )
-                                          ]
-                                        )
-                                      )
-                                    ]
-                                  )
-                                )
-                              ]
-                            )
-                          )
-                        ]
-                      )
-                    )
-                  ]
-                )
-              )
-            ]
-          )
-        )
+      ( Name "compute", Ctor Nothing SumType
+        ( ModuleName "Data.Maybe" )
+        ( TyName "Maybe" )
+        ( CtorName "Just" )
+        [ LiteralInt Nothing 301 ]
       )
     ]
   }
\ No newline at end of file
diff --git a/test/ps/output/Golden.LongMaybeBindModule.Test/golden.lua b/test/ps/output/Golden.LongMaybeBindModule.Test/golden.lua
index ad218acf..f406daf3 100644
--- a/test/ps/output/Golden.LongMaybeBindModule.Test/golden.lua
+++ b/test/ps/output/Golden.LongMaybeBindModule.Test/golden.lua
@@ -1,1553 +1 @@
-local Data_Unit_foreign = { unit = {} }
-local Data_Unit_unit = Data_Unit_foreign.unit
-local Golden_LongMaybeBindModule_Test_bind_S_w = function(v_S_0, v1_S_0)
-  if "Data.Maybe∷Maybe.Just" == v_S_0[1] then
-    return v1_S_0(v_S_0[2])
-  else
-    return { "Data.Maybe∷Maybe.Nothing" }
-  end
-end
-return {
-  compute = (function()
-    local _S_kont0_S_w = function(x1_S_0_S_0, x277_S_0_S_0)
-      return Golden_LongMaybeBindModule_Test_bind_S_w({
-        "Data.Maybe∷Maybe.Just",
-        x277_S_0_S_0 + 1
-      }, function(x278_S_0)
-        return Golden_LongMaybeBindModule_Test_bind_S_w({
-          "Data.Maybe∷Maybe.Just",
-          x278_S_0 + 1
-        }, function(x279_S_0)
-          return Golden_LongMaybeBindModule_Test_bind_S_w({
-            "Data.Maybe∷Maybe.Just",
-            x279_S_0 + 1
-          }, function(x280_S_0)
-            return Golden_LongMaybeBindModule_Test_bind_S_w({
-              "Data.Maybe∷Maybe.Just",
-              x280_S_0 + 1
-            }, function(x281_S_0)
-              return Golden_LongMaybeBindModule_Test_bind_S_w({
-                "Data.Maybe∷Maybe.Just",
-                x281_S_0 + 1
-              }, function(x282_S_0)
-                return Golden_LongMaybeBindModule_Test_bind_S_w({
-                  "Data.Maybe∷Maybe.Just",
-                  x282_S_0 + 1
-                }, function(x283_S_0)
-                  return Golden_LongMaybeBindModule_Test_bind_S_w({
-                    "Data.Maybe∷Maybe.Just",
-                    x283_S_0 + 1
-                  }, function(x284_S_0)
-                    return Golden_LongMaybeBindModule_Test_bind_S_w({
-                      "Data.Maybe∷Maybe.Just",
-                      x284_S_0 + 1
-                    }, function(x285_S_0)
-                      return Golden_LongMaybeBindModule_Test_bind_S_w({
-                        "Data.Maybe∷Maybe.Just",
-                        x285_S_0 + 1
-                      }, function(x286_S_0)
-                        return Golden_LongMaybeBindModule_Test_bind_S_w({
-                          "Data.Maybe∷Maybe.Just",
-                          x286_S_0 + 1
-                        }, function(x287_S_0)
-                          return Golden_LongMaybeBindModule_Test_bind_S_w({
-                            "Data.Maybe∷Maybe.Just",
-                            x287_S_0 + 1
-                          }, function(x288_S_0)
-                            return Golden_LongMaybeBindModule_Test_bind_S_w({
-                              "Data.Maybe∷Maybe.Just",
-                              x288_S_0 + 1
-                            }, function(x289_S_0)
-                              return Golden_LongMaybeBindModule_Test_bind_S_w({
-                                "Data.Maybe∷Maybe.Just",
-                                x289_S_0 + 1
-                              }, function(x290_S_0)
-                                return Golden_LongMaybeBindModule_Test_bind_S_w({
-                                  "Data.Maybe∷Maybe.Just",
-                                  x290_S_0 + 1
-                                }, function(x291_S_0)
-                                  return Golden_LongMaybeBindModule_Test_bind_S_w({
-                                    "Data.Maybe∷Maybe.Just",
-                                    x291_S_0 + 1
-                                  }, function(x292_S_0)
-                                    return Golden_LongMaybeBindModule_Test_bind_S_w({
-                                      "Data.Maybe∷Maybe.Just",
-                                      x292_S_0 + 1
-                                    }, function(x293_S_0)
-                                      return Golden_LongMaybeBindModule_Test_bind_S_w({
-                                        "Data.Maybe∷Maybe.Just",
-                                        x293_S_0 + 1
-                                      }, function(x294_S_0)
-                                        return Golden_LongMaybeBindModule_Test_bind_S_w({
-                                          "Data.Maybe∷Maybe.Just",
-                                          x294_S_0 + 1
-                                        }, function(x295_S_0)
-                                          return Golden_LongMaybeBindModule_Test_bind_S_w({
-                                            "Data.Maybe∷Maybe.Just",
-                                            x295_S_0 + 1
-                                          }, function(x296_S_0)
-                                            return Golden_LongMaybeBindModule_Test_bind_S_w({
-                                              "Data.Maybe∷Maybe.Just",
-                                              x296_S_0 + 1
-                                            }, function(x297_S_0)
-                                              return Golden_LongMaybeBindModule_Test_bind_S_w({
-                                                "Data.Maybe∷Maybe.Just",
-                                                x297_S_0 + 1
-                                              }, function(x298_S_0)
-                                                return Golden_LongMaybeBindModule_Test_bind_S_w({
-                                                  "Data.Maybe∷Maybe.Just",
-                                                  x298_S_0 + 1
-                                                }, function(x299_S_0)
-                                                  return Golden_LongMaybeBindModule_Test_bind_S_w({
-                                                    "Data.Maybe∷Maybe.Just",
-                                                    x299_S_0 + 1
-                                                  }, function(x300_S_0)
-                                                    return {
-                                                      "Data.Maybe∷Maybe.Just",
-                                                      x1_S_0_S_0 + x300_S_0
-                                                    }
-                                                  end)
-                                                end)
-                                              end)
-                                            end)
-                                          end)
-                                        end)
-                                      end)
-                                    end)
-                                  end)
-                                end)
-                              end)
-                            end)
-                          end)
-                        end)
-                      end)
-                    end)
-                  end)
-                end)
-              end)
-            end)
-          end)
-        end)
-      end)
-    end
-    local _S_kont1_S_w = function(x1_S_0_S_1, x238_S_0_S_0)
-      return Golden_LongMaybeBindModule_Test_bind_S_w({
-        "Data.Maybe∷Maybe.Just",
-        x238_S_0_S_0 + 1
-      }, function(x239_S_0)
-        return Golden_LongMaybeBindModule_Test_bind_S_w({
-          "Data.Maybe∷Maybe.Just",
-          x239_S_0 + 1
-        }, function(x240_S_0)
-          return Golden_LongMaybeBindModule_Test_bind_S_w({
-            "Data.Maybe∷Maybe.Just",
-            x240_S_0 + 1
-          }, function(x241_S_0)
-            return Golden_LongMaybeBindModule_Test_bind_S_w({
-              "Data.Maybe∷Maybe.Just",
-              x241_S_0 + 1
-            }, function(x242_S_0)
-              return Golden_LongMaybeBindModule_Test_bind_S_w({
-                "Data.Maybe∷Maybe.Just",
-                x242_S_0 + 1
-              }, function(x243_S_0)
-                return Golden_LongMaybeBindModule_Test_bind_S_w({
-                  "Data.Maybe∷Maybe.Just",
-                  x243_S_0 + 1
-                }, function(x244_S_0)
-                  return Golden_LongMaybeBindModule_Test_bind_S_w({
-                    "Data.Maybe∷Maybe.Just",
-                    x244_S_0 + 1
-                  }, function(x245_S_0)
-                    return Golden_LongMaybeBindModule_Test_bind_S_w({
-                      "Data.Maybe∷Maybe.Just",
-                      x245_S_0 + 1
-                    }, function(x246_S_0)
-                      return Golden_LongMaybeBindModule_Test_bind_S_w({
-                        "Data.Maybe∷Maybe.Just",
-                        x246_S_0 + 1
-                      }, function(x247_S_0)
-                        return Golden_LongMaybeBindModule_Test_bind_S_w({
-                          "Data.Maybe∷Maybe.Just",
-                          x247_S_0 + 1
-                        }, function(x248_S_0)
-                          return Golden_LongMaybeBindModule_Test_bind_S_w({
-                            "Data.Maybe∷Maybe.Just",
-                            x248_S_0 + 1
-                          }, function(x249_S_0)
-                            return Golden_LongMaybeBindModule_Test_bind_S_w({
-                              "Data.Maybe∷Maybe.Just",
-                              x249_S_0 + 1
-                            }, function(x250_S_0)
-                              return Golden_LongMaybeBindModule_Test_bind_S_w({
-                                "Data.Maybe∷Maybe.Just",
-                                Data_Unit_unit
-                              }, function()
-                                return Golden_LongMaybeBindModule_Test_bind_S_w({
-                                  "Data.Maybe∷Maybe.Just",
-                                  x250_S_0 + 1
-                                }, function(x251_S_0)
-                                  return Golden_LongMaybeBindModule_Test_bind_S_w({
-                                    "Data.Maybe∷Maybe.Just",
-                                    x251_S_0 + 1
-                                  }, function(x252_S_0)
-                                    return Golden_LongMaybeBindModule_Test_bind_S_w({
-                                      "Data.Maybe∷Maybe.Just",
-                                      x252_S_0 + 1
-                                    }, function(x253_S_0)
-                                      return Golden_LongMaybeBindModule_Test_bind_S_w({
-                                        "Data.Maybe∷Maybe.Just",
-                                        x253_S_0 + 1
-                                      }, function(x254_S_0)
-                                        return Golden_LongMaybeBindModule_Test_bind_S_w({
-                                          "Data.Maybe∷Maybe.Just",
-                                          x254_S_0 + 1
-                                        }, function(x255_S_0)
-                                          return Golden_LongMaybeBindModule_Test_bind_S_w({
-                                            "Data.Maybe∷Maybe.Just",
-                                            x255_S_0 + 1
-                                          }, function(x256_S_0)
-                                            return Golden_LongMaybeBindModule_Test_bind_S_w({
-                                              "Data.Maybe∷Maybe.Just",
-                                              x256_S_0 + 1
-                                            }, function(x257_S_0)
-                                              return Golden_LongMaybeBindModule_Test_bind_S_w({
-                                                "Data.Maybe∷Maybe.Just",
-                                                x257_S_0 + 1
-                                              }, function(x258_S_0)
-                                                return Golden_LongMaybeBindModule_Test_bind_S_w({
-                                                  "Data.Maybe∷Maybe.Just",
-                                                  x258_S_0 + 1
-                                                }, function(x259_S_0)
-                                                  return Golden_LongMaybeBindModule_Test_bind_S_w({
-                                                    "Data.Maybe∷Maybe.Just",
-                                                    x259_S_0 + 1
-                                                  }, function(x260_S_0)
-                                                    return Golden_LongMaybeBindModule_Test_bind_S_w({
-                                                      "Data.Maybe∷Maybe.Just",
-                                                      x260_S_0 + 1
-                                                    }, function(x261_S_0)
-                                                      return Golden_LongMaybeBindModule_Test_bind_S_w({
-                                                        "Data.Maybe∷Maybe.Just",
-                                                        x261_S_0 + 1
-                                                      }, function(x262_S_0)
-                                                        return Golden_LongMaybeBindModule_Test_bind_S_w({
-                                                          "Data.Maybe∷Maybe.Just",
-                                                          x262_S_0 + 1
-                                                        }, function(x263_S_0)
-                                                          return Golden_LongMaybeBindModule_Test_bind_S_w({
-                                                            "Data.Maybe∷Maybe.Just",
-                                                            x263_S_0 + 1
-                                                          }, function(x264_S_0)
-                                                            return Golden_LongMaybeBindModule_Test_bind_S_w({
-                                                              "Data.Maybe∷Maybe.Just",
-                                                              x264_S_0 + 1
-                                                            }, function( x265_S_0 )
-                                                              return Golden_LongMaybeBindModule_Test_bind_S_w({
-                                                                "Data.Maybe∷Maybe.Just",
-                                                                x265_S_0 + 1
-                                                              }, function( x266_S_0 )
-                                                                return Golden_LongMaybeBindModule_Test_bind_S_w({
-                                                                  "Data.Maybe∷Maybe.Just",
-                                                                  x266_S_0 + 1
-                                                                }, function( x267_S_0 )
-                                                                  return Golden_LongMaybeBindModule_Test_bind_S_w({
-                                                                    "Data.Maybe∷Maybe.Just",
-                                                                    x267_S_0 + 1
-                                                                  }, function( x268_S_0 )
-                                                                    return Golden_LongMaybeBindModule_Test_bind_S_w({
-                                                                      "Data.Maybe∷Maybe.Just",
-                                                                      x268_S_0 + 1
-                                                                    }, function( x269_S_0 )
-                                                                      return Golden_LongMaybeBindModule_Test_bind_S_w({
-                                                                        "Data.Maybe∷Maybe.Just",
-                                                                        x269_S_0 + 1
-                                                                      }, function( x270_S_0 )
-                                                                        return Golden_LongMaybeBindModule_Test_bind_S_w({
-                                                                          "Data.Maybe∷Maybe.Just",
-                                                                          x270_S_0 + 1
-                                                                        }, function( x271_S_0 )
-                                                                          return Golden_LongMaybeBindModule_Test_bind_S_w({
-                                                                            "Data.Maybe∷Maybe.Just",
-                                                                            x271_S_0 + 1
-                                                                          }, function( x272_S_0 )
-                                                                            return Golden_LongMaybeBindModule_Test_bind_S_w({
-                                                                              "Data.Maybe∷Maybe.Just",
-                                                                              x272_S_0 + 1
-                                                                            }, function( x273_S_0 )
-                                                                              return Golden_LongMaybeBindModule_Test_bind_S_w({
-                                                                                "Data.Maybe∷Maybe.Just",
-                                                                                x273_S_0 + 1
-                                                                              }, function( x274_S_0 )
-                                                                                return Golden_LongMaybeBindModule_Test_bind_S_w({
-                                                                                  "Data.Maybe∷Maybe.Just",
-                                                                                  x274_S_0 + 1
-                                                                                }, function( x275_S_0 )
-                                                                                  return Golden_LongMaybeBindModule_Test_bind_S_w({
-                                                                                    "Data.Maybe∷Maybe.Just",
-                                                                                    x275_S_0 + 1
-                                                                                  }, function( x276_S_0 )
-                                                                                    return Golden_LongMaybeBindModule_Test_bind_S_w({
-                                                                                      "Data.Maybe∷Maybe.Just",
-                                                                                      x276_S_0 + 1
-                                                                                    }, function( x277_S_0 )
-                                                                                      return _S_kont0_S_w(x1_S_0_S_1, x277_S_0)
-                                                                                    end)
-                                                                                  end)
-                                                                                end)
-                                                                              end)
-                                                                            end)
-                                                                          end)
-                                                                        end)
-                                                                      end)
-                                                                    end)
-                                                                  end)
-                                                                end)
-                                                              end)
-                                                            end)
-                                                          end)
-                                                        end)
-                                                      end)
-                                                    end)
-                                                  end)
-                                                end)
-                                              end)
-                                            end)
-                                          end)
-                                        end)
-                                      end)
-                                    end)
-                                  end)
-                                end)
-                              end)
-                            end)
-                          end)
-                        end)
-                      end)
-                    end)
-                  end)
-                end)
-              end)
-            end)
-          end)
-        end)
-      end)
-    end
-    local _S_kont2_S_w = function(x1_S_0_S_2, x198_S_0_S_0)
-      return Golden_LongMaybeBindModule_Test_bind_S_w({
-        "Data.Maybe∷Maybe.Just",
-        x198_S_0_S_0 + 1
-      }, function(x199_S_0)
-        return Golden_LongMaybeBindModule_Test_bind_S_w({
-          "Data.Maybe∷Maybe.Just",
-          x199_S_0 + 1
-        }, function(x200_S_0)
-          return Golden_LongMaybeBindModule_Test_bind_S_w({
-            "Data.Maybe∷Maybe.Just",
-            x200_S_0 + 1
-          }, function(x201_S_0)
-            return Golden_LongMaybeBindModule_Test_bind_S_w({
-              "Data.Maybe∷Maybe.Just",
-              x201_S_0 + 1
-            }, function(x202_S_0)
-              return Golden_LongMaybeBindModule_Test_bind_S_w({
-                "Data.Maybe∷Maybe.Just",
-                x202_S_0 + 1
-              }, function(x203_S_0)
-                return Golden_LongMaybeBindModule_Test_bind_S_w({
-                  "Data.Maybe∷Maybe.Just",
-                  x203_S_0 + 1
-                }, function(x204_S_0)
-                  return Golden_LongMaybeBindModule_Test_bind_S_w({
-                    "Data.Maybe∷Maybe.Just",
-                    x204_S_0 + 1
-                  }, function(x205_S_0)
-                    return Golden_LongMaybeBindModule_Test_bind_S_w({
-                      "Data.Maybe∷Maybe.Just",
-                      x205_S_0 + 1
-                    }, function(x206_S_0)
-                      return Golden_LongMaybeBindModule_Test_bind_S_w({
-                        "Data.Maybe∷Maybe.Just",
-                        x206_S_0 + 1
-                      }, function(x207_S_0)
-                        return Golden_LongMaybeBindModule_Test_bind_S_w({
-                          "Data.Maybe∷Maybe.Just",
-                          x207_S_0 + 1
-                        }, function(x208_S_0)
-                          return Golden_LongMaybeBindModule_Test_bind_S_w({
-                            "Data.Maybe∷Maybe.Just",
-                            x208_S_0 + 1
-                          }, function(x209_S_0)
-                            return Golden_LongMaybeBindModule_Test_bind_S_w({
-                              "Data.Maybe∷Maybe.Just",
-                              x209_S_0 + 1
-                            }, function(x210_S_0)
-                              return Golden_LongMaybeBindModule_Test_bind_S_w({
-                                "Data.Maybe∷Maybe.Just",
-                                x210_S_0 + 1
-                              }, function(x211_S_0)
-                                return Golden_LongMaybeBindModule_Test_bind_S_w({
-                                  "Data.Maybe∷Maybe.Just",
-                                  x211_S_0 + 1
-                                }, function(x212_S_0)
-                                  return Golden_LongMaybeBindModule_Test_bind_S_w({
-                                    "Data.Maybe∷Maybe.Just",
-                                    x212_S_0 + 1
-                                  }, function(x213_S_0)
-                                    return Golden_LongMaybeBindModule_Test_bind_S_w({
-                                      "Data.Maybe∷Maybe.Just",
-                                      x213_S_0 + 1
-                                    }, function(x214_S_0)
-                                      return Golden_LongMaybeBindModule_Test_bind_S_w({
-                                        "Data.Maybe∷Maybe.Just",
-                                        x214_S_0 + 1
-                                      }, function(x215_S_0)
-                                        return Golden_LongMaybeBindModule_Test_bind_S_w({
-                                          "Data.Maybe∷Maybe.Just",
-                                          x215_S_0 + 1
-                                        }, function(x216_S_0)
-                                          return Golden_LongMaybeBindModule_Test_bind_S_w({
-                                            "Data.Maybe∷Maybe.Just",
-                                            x216_S_0 + 1
-                                          }, function(x217_S_0)
-                                            return Golden_LongMaybeBindModule_Test_bind_S_w({
-                                              "Data.Maybe∷Maybe.Just",
-                                              x217_S_0 + 1
-                                            }, function(x218_S_0)
-                                              return Golden_LongMaybeBindModule_Test_bind_S_w({
-                                                "Data.Maybe∷Maybe.Just",
-                                                x218_S_0 + 1
-                                              }, function(x219_S_0)
-                                                return Golden_LongMaybeBindModule_Test_bind_S_w({
-                                                  "Data.Maybe∷Maybe.Just",
-                                                  x219_S_0 + 1
-                                                }, function(x220_S_0)
-                                                  return Golden_LongMaybeBindModule_Test_bind_S_w({
-                                                    "Data.Maybe∷Maybe.Just",
-                                                    x220_S_0 + 1
-                                                  }, function(x221_S_0)
-                                                    return Golden_LongMaybeBindModule_Test_bind_S_w({
-                                                      "Data.Maybe∷Maybe.Just",
-                                                      x221_S_0 + 1
-                                                    }, function(x222_S_0)
-                                                      return Golden_LongMaybeBindModule_Test_bind_S_w({
-                                                        "Data.Maybe∷Maybe.Just",
-                                                        x222_S_0 + 1
-                                                      }, function(x223_S_0)
-                                                        return Golden_LongMaybeBindModule_Test_bind_S_w({
-                                                          "Data.Maybe∷Maybe.Just",
-                                                          x223_S_0 + 1
-                                                        }, function(x224_S_0)
-                                                          return Golden_LongMaybeBindModule_Test_bind_S_w({
-                                                            "Data.Maybe∷Maybe.Just",
-                                                            x224_S_0 + 1
-                                                          }, function(x225_S_0)
-                                                            return Golden_LongMaybeBindModule_Test_bind_S_w({
-                                                              "Data.Maybe∷Maybe.Just",
-                                                              x225_S_0 + 1
-                                                            }, function( x226_S_0 )
-                                                              return Golden_LongMaybeBindModule_Test_bind_S_w({
-                                                                "Data.Maybe∷Maybe.Just",
-                                                                x226_S_0 + 1
-                                                              }, function( x227_S_0 )
-                                                                return Golden_LongMaybeBindModule_Test_bind_S_w({
-                                                                  "Data.Maybe∷Maybe.Just",
-                                                                  x227_S_0 + 1
-                                                                }, function( x228_S_0 )
-                                                                  return Golden_LongMaybeBindModule_Test_bind_S_w({
-                                                                    "Data.Maybe∷Maybe.Just",
-                                                                    x228_S_0 + 1
-                                                                  }, function( x229_S_0 )
-                                                                    return Golden_LongMaybeBindModule_Test_bind_S_w({
-                                                                      "Data.Maybe∷Maybe.Just",
-                                                                      x229_S_0 + 1
-                                                                    }, function( x230_S_0 )
-                                                                      return Golden_LongMaybeBindModule_Test_bind_S_w({
-                                                                        "Data.Maybe∷Maybe.Just",
-                                                                        x230_S_0 + 1
-                                                                      }, function( x231_S_0 )
-                                                                        return Golden_LongMaybeBindModule_Test_bind_S_w({
-                                                                          "Data.Maybe∷Maybe.Just",
-                                                                          x231_S_0 + 1
-                                                                        }, function( x232_S_0 )
-                                                                          return Golden_LongMaybeBindModule_Test_bind_S_w({
-                                                                            "Data.Maybe∷Maybe.Just",
-                                                                            x232_S_0 + 1
-                                                                          }, function( x233_S_0 )
-                                                                            return Golden_LongMaybeBindModule_Test_bind_S_w({
-                                                                              "Data.Maybe∷Maybe.Just",
-                                                                              x233_S_0 + 1
-                                                                            }, function( x234_S_0 )
-                                                                              return Golden_LongMaybeBindModule_Test_bind_S_w({
-                                                                                "Data.Maybe∷Maybe.Just",
-                                                                                x234_S_0 + 1
-                                                                              }, function( x235_S_0 )
-                                                                                return Golden_LongMaybeBindModule_Test_bind_S_w({
-                                                                                  "Data.Maybe∷Maybe.Just",
-                                                                                  x235_S_0 + 1
-                                                                                }, function( x236_S_0 )
-                                                                                  return Golden_LongMaybeBindModule_Test_bind_S_w({
-                                                                                    "Data.Maybe∷Maybe.Just",
-                                                                                    x236_S_0 + 1
-                                                                                  }, function( x237_S_0 )
-                                                                                    return Golden_LongMaybeBindModule_Test_bind_S_w({
-                                                                                      "Data.Maybe∷Maybe.Just",
-                                                                                      x237_S_0 + 1
-                                                                                    }, function( x238_S_0 )
-                                                                                      return _S_kont1_S_w(x1_S_0_S_2, x238_S_0)
-                                                                                    end)
-                                                                                  end)
-                                                                                end)
-                                                                              end)
-                                                                            end)
-                                                                          end)
-                                                                        end)
-                                                                      end)
-                                                                    end)
-                                                                  end)
-                                                                end)
-                                                              end)
-                                                            end)
-                                                          end)
-                                                        end)
-                                                      end)
-                                                    end)
-                                                  end)
-                                                end)
-                                              end)
-                                            end)
-                                          end)
-                                        end)
-                                      end)
-                                    end)
-                                  end)
-                                end)
-                              end)
-                            end)
-                          end)
-                        end)
-                      end)
-                    end)
-                  end)
-                end)
-              end)
-            end)
-          end)
-        end)
-      end)
-    end
-    local _S_kont3_S_w = function(x1_S_0_S_3, x158_S_0_S_0)
-      return Golden_LongMaybeBindModule_Test_bind_S_w({
-        "Data.Maybe∷Maybe.Just",
-        x158_S_0_S_0 + 1
-      }, function(x159_S_0)
-        return Golden_LongMaybeBindModule_Test_bind_S_w({
-          "Data.Maybe∷Maybe.Just",
-          x159_S_0 + 1
-        }, function(x160_S_0)
-          return Golden_LongMaybeBindModule_Test_bind_S_w({
-            "Data.Maybe∷Maybe.Just",
-            x160_S_0 + 1
-          }, function(x161_S_0)
-            return Golden_LongMaybeBindModule_Test_bind_S_w({
-              "Data.Maybe∷Maybe.Just",
-              x161_S_0 + 1
-            }, function(x162_S_0)
-              return Golden_LongMaybeBindModule_Test_bind_S_w({
-                "Data.Maybe∷Maybe.Just",
-                x162_S_0 + 1
-              }, function(x163_S_0)
-                return Golden_LongMaybeBindModule_Test_bind_S_w({
-                  "Data.Maybe∷Maybe.Just",
-                  x163_S_0 + 1
-                }, function(x164_S_0)
-                  return Golden_LongMaybeBindModule_Test_bind_S_w({
-                    "Data.Maybe∷Maybe.Just",
-                    x164_S_0 + 1
-                  }, function(x165_S_0)
-                    return Golden_LongMaybeBindModule_Test_bind_S_w({
-                      "Data.Maybe∷Maybe.Just",
-                      x165_S_0 + 1
-                    }, function(x166_S_0)
-                      return Golden_LongMaybeBindModule_Test_bind_S_w({
-                        "Data.Maybe∷Maybe.Just",
-                        x166_S_0 + 1
-                      }, function(x167_S_0)
-                        return Golden_LongMaybeBindModule_Test_bind_S_w({
-                          "Data.Maybe∷Maybe.Just",
-                          x167_S_0 + 1
-                        }, function(x168_S_0)
-                          return Golden_LongMaybeBindModule_Test_bind_S_w({
-                            "Data.Maybe∷Maybe.Just",
-                            x168_S_0 + 1
-                          }, function(x169_S_0)
-                            return Golden_LongMaybeBindModule_Test_bind_S_w({
-                              "Data.Maybe∷Maybe.Just",
-                              x169_S_0 + 1
-                            }, function(x170_S_0)
-                              return Golden_LongMaybeBindModule_Test_bind_S_w({
-                                "Data.Maybe∷Maybe.Just",
-                                x170_S_0 + 1
-                              }, function(x171_S_0)
-                                return Golden_LongMaybeBindModule_Test_bind_S_w({
-                                  "Data.Maybe∷Maybe.Just",
-                                  x171_S_0 + 1
-                                }, function(x172_S_0)
-                                  return Golden_LongMaybeBindModule_Test_bind_S_w({
-                                    "Data.Maybe∷Maybe.Just",
-                                    x172_S_0 + 1
-                                  }, function(x173_S_0)
-                                    return Golden_LongMaybeBindModule_Test_bind_S_w({
-                                      "Data.Maybe∷Maybe.Just",
-                                      x173_S_0 + 1
-                                    }, function(x174_S_0)
-                                      return Golden_LongMaybeBindModule_Test_bind_S_w({
-                                        "Data.Maybe∷Maybe.Just",
-                                        x174_S_0 + 1
-                                      }, function(x175_S_0)
-                                        return Golden_LongMaybeBindModule_Test_bind_S_w({
-                                          "Data.Maybe∷Maybe.Just",
-                                          x175_S_0 + 1
-                                        }, function(x176_S_0)
-                                          return Golden_LongMaybeBindModule_Test_bind_S_w({
-                                            "Data.Maybe∷Maybe.Just",
-                                            x176_S_0 + 1
-                                          }, function(x177_S_0)
-                                            return Golden_LongMaybeBindModule_Test_bind_S_w({
-                                              "Data.Maybe∷Maybe.Just",
-                                              x177_S_0 + 1
-                                            }, function(x178_S_0)
-                                              return Golden_LongMaybeBindModule_Test_bind_S_w({
-                                                "Data.Maybe∷Maybe.Just",
-                                                x178_S_0 + 1
-                                              }, function(x179_S_0)
-                                                return Golden_LongMaybeBindModule_Test_bind_S_w({
-                                                  "Data.Maybe∷Maybe.Just",
-                                                  x179_S_0 + 1
-                                                }, function(x180_S_0)
-                                                  return Golden_LongMaybeBindModule_Test_bind_S_w({
-                                                    "Data.Maybe∷Maybe.Just",
-                                                    x180_S_0 + 1
-                                                  }, function(x181_S_0)
-                                                    return Golden_LongMaybeBindModule_Test_bind_S_w({
-                                                      "Data.Maybe∷Maybe.Just",
-                                                      x181_S_0 + 1
-                                                    }, function(x182_S_0)
-                                                      return Golden_LongMaybeBindModule_Test_bind_S_w({
-                                                        "Data.Maybe∷Maybe.Just",
-                                                        x182_S_0 + 1
-                                                      }, function(x183_S_0)
-                                                        return Golden_LongMaybeBindModule_Test_bind_S_w({
-                                                          "Data.Maybe∷Maybe.Just",
-                                                          x183_S_0 + 1
-                                                        }, function(x184_S_0)
-                                                          return Golden_LongMaybeBindModule_Test_bind_S_w({
-                                                            "Data.Maybe∷Maybe.Just",
-                                                            x184_S_0 + 1
-                                                          }, function(x185_S_0)
-                                                            return Golden_LongMaybeBindModule_Test_bind_S_w({
-                                                              "Data.Maybe∷Maybe.Just",
-                                                              x185_S_0 + 1
-                                                            }, function( x186_S_0 )
-                                                              return Golden_LongMaybeBindModule_Test_bind_S_w({
-                                                                "Data.Maybe∷Maybe.Just",
-                                                                x186_S_0 + 1
-                                                              }, function( x187_S_0 )
-                                                                return Golden_LongMaybeBindModule_Test_bind_S_w({
-                                                                  "Data.Maybe∷Maybe.Just",
-                                                                  x187_S_0 + 1
-                                                                }, function( x188_S_0 )
-                                                                  return Golden_LongMaybeBindModule_Test_bind_S_w({
-                                                                    "Data.Maybe∷Maybe.Just",
-                                                                    x188_S_0 + 1
-                                                                  }, function( x189_S_0 )
-                                                                    return Golden_LongMaybeBindModule_Test_bind_S_w({
-                                                                      "Data.Maybe∷Maybe.Just",
-                                                                      x189_S_0 + 1
-                                                                    }, function( x190_S_0 )
-                                                                      return Golden_LongMaybeBindModule_Test_bind_S_w({
-                                                                        "Data.Maybe∷Maybe.Just",
-                                                                        x190_S_0 + 1
-                                                                      }, function( x191_S_0 )
-                                                                        return Golden_LongMaybeBindModule_Test_bind_S_w({
-                                                                          "Data.Maybe∷Maybe.Just",
-                                                                          x191_S_0 + 1
-                                                                        }, function( x192_S_0 )
-                                                                          return Golden_LongMaybeBindModule_Test_bind_S_w({
-                                                                            "Data.Maybe∷Maybe.Just",
-                                                                            x192_S_0 + 1
-                                                                          }, function( x193_S_0 )
-                                                                            return Golden_LongMaybeBindModule_Test_bind_S_w({
-                                                                              "Data.Maybe∷Maybe.Just",
-                                                                              x193_S_0 + 1
-                                                                            }, function( x194_S_0 )
-                                                                              return Golden_LongMaybeBindModule_Test_bind_S_w({
-                                                                                "Data.Maybe∷Maybe.Just",
-                                                                                x194_S_0 + 1
-                                                                              }, function( x195_S_0 )
-                                                                                return Golden_LongMaybeBindModule_Test_bind_S_w({
-                                                                                  "Data.Maybe∷Maybe.Just",
-                                                                                  x195_S_0 + 1
-                                                                                }, function( x196_S_0 )
-                                                                                  return Golden_LongMaybeBindModule_Test_bind_S_w({
-                                                                                    "Data.Maybe∷Maybe.Just",
-                                                                                    x196_S_0 + 1
-                                                                                  }, function( x197_S_0 )
-                                                                                    return Golden_LongMaybeBindModule_Test_bind_S_w({
-                                                                                      "Data.Maybe∷Maybe.Just",
-                                                                                      x197_S_0 + 1
-                                                                                    }, function( x198_S_0 )
-                                                                                      return _S_kont2_S_w(x1_S_0_S_3, x198_S_0)
-                                                                                    end)
-                                                                                  end)
-                                                                                end)
-                                                                              end)
-                                                                            end)
-                                                                          end)
-                                                                        end)
-                                                                      end)
-                                                                    end)
-                                                                  end)
-                                                                end)
-                                                              end)
-                                                            end)
-                                                          end)
-                                                        end)
-                                                      end)
-                                                    end)
-                                                  end)
-                                                end)
-                                              end)
-                                            end)
-                                          end)
-                                        end)
-                                      end)
-                                    end)
-                                  end)
-                                end)
-                              end)
-                            end)
-                          end)
-                        end)
-                      end)
-                    end)
-                  end)
-                end)
-              end)
-            end)
-          end)
-        end)
-      end)
-    end
-    local _S_kont4_S_w = function(x1_S_0_S_4, x119_S_0_S_0)
-      return Golden_LongMaybeBindModule_Test_bind_S_w({
-        "Data.Maybe∷Maybe.Just",
-        x119_S_0_S_0 + 1
-      }, function(x120_S_0)
-        return Golden_LongMaybeBindModule_Test_bind_S_w({
-          "Data.Maybe∷Maybe.Just",
-          x120_S_0 + 1
-        }, function(x121_S_0)
-          return Golden_LongMaybeBindModule_Test_bind_S_w({
-            "Data.Maybe∷Maybe.Just",
-            x121_S_0 + 1
-          }, function(x122_S_0)
-            return Golden_LongMaybeBindModule_Test_bind_S_w({
-              "Data.Maybe∷Maybe.Just",
-              x122_S_0 + 1
-            }, function(x123_S_0)
-              return Golden_LongMaybeBindModule_Test_bind_S_w({
-                "Data.Maybe∷Maybe.Just",
-                x123_S_0 + 1
-              }, function(x124_S_0)
-                return Golden_LongMaybeBindModule_Test_bind_S_w({
-                  "Data.Maybe∷Maybe.Just",
-                  x124_S_0 + 1
-                }, function(x125_S_0)
-                  return Golden_LongMaybeBindModule_Test_bind_S_w({
-                    "Data.Maybe∷Maybe.Just",
-                    x125_S_0 + 1
-                  }, function(x126_S_0)
-                    return Golden_LongMaybeBindModule_Test_bind_S_w({
-                      "Data.Maybe∷Maybe.Just",
-                      x126_S_0 + 1
-                    }, function(x127_S_0)
-                      return Golden_LongMaybeBindModule_Test_bind_S_w({
-                        "Data.Maybe∷Maybe.Just",
-                        x127_S_0 + 1
-                      }, function(x128_S_0)
-                        return Golden_LongMaybeBindModule_Test_bind_S_w({
-                          "Data.Maybe∷Maybe.Just",
-                          x128_S_0 + 1
-                        }, function(x129_S_0)
-                          return Golden_LongMaybeBindModule_Test_bind_S_w({
-                            "Data.Maybe∷Maybe.Just",
-                            x129_S_0 + 1
-                          }, function(x130_S_0)
-                            return Golden_LongMaybeBindModule_Test_bind_S_w({
-                              "Data.Maybe∷Maybe.Just",
-                              x130_S_0 + 1
-                            }, function(x131_S_0)
-                              return Golden_LongMaybeBindModule_Test_bind_S_w({
-                                "Data.Maybe∷Maybe.Just",
-                                x131_S_0 + 1
-                              }, function(x132_S_0)
-                                return Golden_LongMaybeBindModule_Test_bind_S_w({
-                                  "Data.Maybe∷Maybe.Just",
-                                  x132_S_0 + 1
-                                }, function(x133_S_0)
-                                  return Golden_LongMaybeBindModule_Test_bind_S_w({
-                                    "Data.Maybe∷Maybe.Just",
-                                    x133_S_0 + 1
-                                  }, function(x134_S_0)
-                                    return Golden_LongMaybeBindModule_Test_bind_S_w({
-                                      "Data.Maybe∷Maybe.Just",
-                                      x134_S_0 + 1
-                                    }, function(x135_S_0)
-                                      return Golden_LongMaybeBindModule_Test_bind_S_w({
-                                        "Data.Maybe∷Maybe.Just",
-                                        x135_S_0 + 1
-                                      }, function(x136_S_0)
-                                        return Golden_LongMaybeBindModule_Test_bind_S_w({
-                                          "Data.Maybe∷Maybe.Just",
-                                          x136_S_0 + 1
-                                        }, function(x137_S_0)
-                                          return Golden_LongMaybeBindModule_Test_bind_S_w({
-                                            "Data.Maybe∷Maybe.Just",
-                                            x137_S_0 + 1
-                                          }, function(x138_S_0)
-                                            return Golden_LongMaybeBindModule_Test_bind_S_w({
-                                              "Data.Maybe∷Maybe.Just",
-                                              x138_S_0 + 1
-                                            }, function(x139_S_0)
-                                              return Golden_LongMaybeBindModule_Test_bind_S_w({
-                                                "Data.Maybe∷Maybe.Just",
-                                                x139_S_0 + 1
-                                              }, function(x140_S_0)
-                                                return Golden_LongMaybeBindModule_Test_bind_S_w({
-                                                  "Data.Maybe∷Maybe.Just",
-                                                  x140_S_0 + 1
-                                                }, function(x141_S_0)
-                                                  return Golden_LongMaybeBindModule_Test_bind_S_w({
-                                                    "Data.Maybe∷Maybe.Just",
-                                                    x141_S_0 + 1
-                                                  }, function(x142_S_0)
-                                                    return Golden_LongMaybeBindModule_Test_bind_S_w({
-                                                      "Data.Maybe∷Maybe.Just",
-                                                      x142_S_0 + 1
-                                                    }, function(x143_S_0)
-                                                      return Golden_LongMaybeBindModule_Test_bind_S_w({
-                                                        "Data.Maybe∷Maybe.Just",
-                                                        x143_S_0 + 1
-                                                      }, function(x144_S_0)
-                                                        return Golden_LongMaybeBindModule_Test_bind_S_w({
-                                                          "Data.Maybe∷Maybe.Just",
-                                                          x144_S_0 + 1
-                                                        }, function(x145_S_0)
-                                                          return Golden_LongMaybeBindModule_Test_bind_S_w({
-                                                            "Data.Maybe∷Maybe.Just",
-                                                            x145_S_0 + 1
-                                                          }, function(x146_S_0)
-                                                            return Golden_LongMaybeBindModule_Test_bind_S_w({
-                                                              "Data.Maybe∷Maybe.Just",
-                                                              x146_S_0 + 1
-                                                            }, function( x147_S_0 )
-                                                              return Golden_LongMaybeBindModule_Test_bind_S_w({
-                                                                "Data.Maybe∷Maybe.Just",
-                                                                x147_S_0 + 1
-                                                              }, function( x148_S_0 )
-                                                                return Golden_LongMaybeBindModule_Test_bind_S_w({
-                                                                  "Data.Maybe∷Maybe.Just",
-                                                                  x148_S_0 + 1
-                                                                }, function( x149_S_0 )
-                                                                  return Golden_LongMaybeBindModule_Test_bind_S_w({
-                                                                    "Data.Maybe∷Maybe.Just",
-                                                                    x149_S_0 + 1
-                                                                  }, function( x150_S_0 )
-                                                                    return Golden_LongMaybeBindModule_Test_bind_S_w({
-                                                                      "Data.Maybe∷Maybe.Just",
-                                                                      Data_Unit_unit
-                                                                    }, function(  )
-                                                                      return Golden_LongMaybeBindModule_Test_bind_S_w({
-                                                                        "Data.Maybe∷Maybe.Just",
-                                                                        x150_S_0 + 1
-                                                                      }, function( x151_S_0 )
-                                                                        return Golden_LongMaybeBindModule_Test_bind_S_w({
-                                                                          "Data.Maybe∷Maybe.Just",
-                                                                          x151_S_0 + 1
-                                                                        }, function( x152_S_0 )
-                                                                          return Golden_LongMaybeBindModule_Test_bind_S_w({
-                                                                            "Data.Maybe∷Maybe.Just",
-                                                                            x152_S_0 + 1
-                                                                          }, function( x153_S_0 )
-                                                                            return Golden_LongMaybeBindModule_Test_bind_S_w({
-                                                                              "Data.Maybe∷Maybe.Just",
-                                                                              x153_S_0 + 1
-                                                                            }, function( x154_S_0 )
-                                                                              return Golden_LongMaybeBindModule_Test_bind_S_w({
-                                                                                "Data.Maybe∷Maybe.Just",
-                                                                                x154_S_0 + 1
-                                                                              }, function( x155_S_0 )
-                                                                                return Golden_LongMaybeBindModule_Test_bind_S_w({
-                                                                                  "Data.Maybe∷Maybe.Just",
-                                                                                  x155_S_0 + 1
-                                                                                }, function( x156_S_0 )
-                                                                                  return Golden_LongMaybeBindModule_Test_bind_S_w({
-                                                                                    "Data.Maybe∷Maybe.Just",
-                                                                                    x156_S_0 + 1
-                                                                                  }, function( x157_S_0 )
-                                                                                    return Golden_LongMaybeBindModule_Test_bind_S_w({
-                                                                                      "Data.Maybe∷Maybe.Just",
-                                                                                      x157_S_0 + 1
-                                                                                    }, function( x158_S_0 )
-                                                                                      return _S_kont3_S_w(x1_S_0_S_4, x158_S_0)
-                                                                                    end)
-                                                                                  end)
-                                                                                end)
-                                                                              end)
-                                                                            end)
-                                                                          end)
-                                                                        end)
-                                                                      end)
-                                                                    end)
-                                                                  end)
-                                                                end)
-                                                              end)
-                                                            end)
-                                                          end)
-                                                        end)
-                                                      end)
-                                                    end)
-                                                  end)
-                                                end)
-                                              end)
-                                            end)
-                                          end)
-                                        end)
-                                      end)
-                                    end)
-                                  end)
-                                end)
-                              end)
-                            end)
-                          end)
-                        end)
-                      end)
-                    end)
-                  end)
-                end)
-              end)
-            end)
-          end)
-        end)
-      end)
-    end
-    local _S_kont5_S_w = function(x1_S_0_S_5, x79_S_0_S_0)
-      return Golden_LongMaybeBindModule_Test_bind_S_w({
-        "Data.Maybe∷Maybe.Just",
-        x79_S_0_S_0 + 1
-      }, function(x80_S_0)
-        return Golden_LongMaybeBindModule_Test_bind_S_w({
-          "Data.Maybe∷Maybe.Just",
-          x80_S_0 + 1
-        }, function(x81_S_0)
-          return Golden_LongMaybeBindModule_Test_bind_S_w({
-            "Data.Maybe∷Maybe.Just",
-            x81_S_0 + 1
-          }, function(x82_S_0)
-            return Golden_LongMaybeBindModule_Test_bind_S_w({
-              "Data.Maybe∷Maybe.Just",
-              x82_S_0 + 1
-            }, function(x83_S_0)
-              return Golden_LongMaybeBindModule_Test_bind_S_w({
-                "Data.Maybe∷Maybe.Just",
-                x83_S_0 + 1
-              }, function(x84_S_0)
-                return Golden_LongMaybeBindModule_Test_bind_S_w({
-                  "Data.Maybe∷Maybe.Just",
-                  x84_S_0 + 1
-                }, function(x85_S_0)
-                  return Golden_LongMaybeBindModule_Test_bind_S_w({
-                    "Data.Maybe∷Maybe.Just",
-                    x85_S_0 + 1
-                  }, function(x86_S_0)
-                    return Golden_LongMaybeBindModule_Test_bind_S_w({
-                      "Data.Maybe∷Maybe.Just",
-                      x86_S_0 + 1
-                    }, function(x87_S_0)
-                      return Golden_LongMaybeBindModule_Test_bind_S_w({
-                        "Data.Maybe∷Maybe.Just",
-                        x87_S_0 + 1
-                      }, function(x88_S_0)
-                        return Golden_LongMaybeBindModule_Test_bind_S_w({
-                          "Data.Maybe∷Maybe.Just",
-                          x88_S_0 + 1
-                        }, function(x89_S_0)
-                          return Golden_LongMaybeBindModule_Test_bind_S_w({
-                            "Data.Maybe∷Maybe.Just",
-                            x89_S_0 + 1
-                          }, function(x90_S_0)
-                            return Golden_LongMaybeBindModule_Test_bind_S_w({
-                              "Data.Maybe∷Maybe.Just",
-                              x90_S_0 + 1
-                            }, function(x91_S_0)
-                              return Golden_LongMaybeBindModule_Test_bind_S_w({
-                                "Data.Maybe∷Maybe.Just",
-                                x91_S_0 + 1
-                              }, function(x92_S_0)
-                                return Golden_LongMaybeBindModule_Test_bind_S_w({
-                                  "Data.Maybe∷Maybe.Just",
-                                  x92_S_0 + 1
-                                }, function(x93_S_0)
-                                  return Golden_LongMaybeBindModule_Test_bind_S_w({
-                                    "Data.Maybe∷Maybe.Just",
-                                    x93_S_0 + 1
-                                  }, function(x94_S_0)
-                                    return Golden_LongMaybeBindModule_Test_bind_S_w({
-                                      "Data.Maybe∷Maybe.Just",
-                                      x94_S_0 + 1
-                                    }, function(x95_S_0)
-                                      return Golden_LongMaybeBindModule_Test_bind_S_w({
-                                        "Data.Maybe∷Maybe.Just",
-                                        x95_S_0 + 1
-                                      }, function(x96_S_0)
-                                        return Golden_LongMaybeBindModule_Test_bind_S_w({
-                                          "Data.Maybe∷Maybe.Just",
-                                          x96_S_0 + 1
-                                        }, function(x97_S_0)
-                                          return Golden_LongMaybeBindModule_Test_bind_S_w({
-                                            "Data.Maybe∷Maybe.Just",
-                                            x97_S_0 + 1
-                                          }, function(x98_S_0)
-                                            return Golden_LongMaybeBindModule_Test_bind_S_w({
-                                              "Data.Maybe∷Maybe.Just",
-                                              x98_S_0 + 1
-                                            }, function(x99_S_0)
-                                              return Golden_LongMaybeBindModule_Test_bind_S_w({
-                                                "Data.Maybe∷Maybe.Just",
-                                                x99_S_0 + 1
-                                              }, function(x100_S_0)
-                                                return Golden_LongMaybeBindModule_Test_bind_S_w({
-                                                  "Data.Maybe∷Maybe.Just",
-                                                  x100_S_0 + 1
-                                                }, function(x101_S_0)
-                                                  return Golden_LongMaybeBindModule_Test_bind_S_w({
-                                                    "Data.Maybe∷Maybe.Just",
-                                                    x101_S_0 + 1
-                                                  }, function(x102_S_0)
-                                                    return Golden_LongMaybeBindModule_Test_bind_S_w({
-                                                      "Data.Maybe∷Maybe.Just",
-                                                      x102_S_0 + 1
-                                                    }, function(x103_S_0)
-                                                      return Golden_LongMaybeBindModule_Test_bind_S_w({
-                                                        "Data.Maybe∷Maybe.Just",
-                                                        x103_S_0 + 1
-                                                      }, function(x104_S_0)
-                                                        return Golden_LongMaybeBindModule_Test_bind_S_w({
-                                                          "Data.Maybe∷Maybe.Just",
-                                                          x104_S_0 + 1
-                                                        }, function(x105_S_0)
-                                                          return Golden_LongMaybeBindModule_Test_bind_S_w({
-                                                            "Data.Maybe∷Maybe.Just",
-                                                            x105_S_0 + 1
-                                                          }, function(x106_S_0)
-                                                            return Golden_LongMaybeBindModule_Test_bind_S_w({
-                                                              "Data.Maybe∷Maybe.Just",
-                                                              x106_S_0 + 1
-                                                            }, function( x107_S_0 )
-                                                              return Golden_LongMaybeBindModule_Test_bind_S_w({
-                                                                "Data.Maybe∷Maybe.Just",
-                                                                x107_S_0 + 1
-                                                              }, function( x108_S_0 )
-                                                                return Golden_LongMaybeBindModule_Test_bind_S_w({
-                                                                  "Data.Maybe∷Maybe.Just",
-                                                                  x108_S_0 + 1
-                                                                }, function( x109_S_0 )
-                                                                  return Golden_LongMaybeBindModule_Test_bind_S_w({
-                                                                    "Data.Maybe∷Maybe.Just",
-                                                                    x109_S_0 + 1
-                                                                  }, function( x110_S_0 )
-                                                                    return Golden_LongMaybeBindModule_Test_bind_S_w({
-                                                                      "Data.Maybe∷Maybe.Just",
-                                                                      x110_S_0 + 1
-                                                                    }, function( x111_S_0 )
-                                                                      return Golden_LongMaybeBindModule_Test_bind_S_w({
-                                                                        "Data.Maybe∷Maybe.Just",
-                                                                        x111_S_0 + 1
-                                                                      }, function( x112_S_0 )
-                                                                        return Golden_LongMaybeBindModule_Test_bind_S_w({
-                                                                          "Data.Maybe∷Maybe.Just",
-                                                                          x112_S_0 + 1
-                                                                        }, function( x113_S_0 )
-                                                                          return Golden_LongMaybeBindModule_Test_bind_S_w({
-                                                                            "Data.Maybe∷Maybe.Just",
-                                                                            x113_S_0 + 1
-                                                                          }, function( x114_S_0 )
-                                                                            return Golden_LongMaybeBindModule_Test_bind_S_w({
-                                                                              "Data.Maybe∷Maybe.Just",
-                                                                              x114_S_0 + 1
-                                                                            }, function( x115_S_0 )
-                                                                              return Golden_LongMaybeBindModule_Test_bind_S_w({
-                                                                                "Data.Maybe∷Maybe.Just",
-                                                                                x115_S_0 + 1
-                                                                              }, function( x116_S_0 )
-                                                                                return Golden_LongMaybeBindModule_Test_bind_S_w({
-                                                                                  "Data.Maybe∷Maybe.Just",
-                                                                                  x116_S_0 + 1
-                                                                                }, function( x117_S_0 )
-                                                                                  return Golden_LongMaybeBindModule_Test_bind_S_w({
-                                                                                    "Data.Maybe∷Maybe.Just",
-                                                                                    x117_S_0 + 1
-                                                                                  }, function( x118_S_0 )
-                                                                                    return Golden_LongMaybeBindModule_Test_bind_S_w({
-                                                                                      "Data.Maybe∷Maybe.Just",
-                                                                                      x118_S_0 + 1
-                                                                                    }, function( x119_S_0 )
-                                                                                      return _S_kont4_S_w(x1_S_0_S_5, x119_S_0)
-                                                                                    end)
-                                                                                  end)
-                                                                                end)
-                                                                              end)
-                                                                            end)
-                                                                          end)
-                                                                        end)
-                                                                      end)
-                                                                    end)
-                                                                  end)
-                                                                end)
-                                                              end)
-                                                            end)
-                                                          end)
-                                                        end)
-                                                      end)
-                                                    end)
-                                                  end)
-                                                end)
-                                              end)
-                                            end)
-                                          end)
-                                        end)
-                                      end)
-                                    end)
-                                  end)
-                                end)
-                              end)
-                            end)
-                          end)
-                        end)
-                      end)
-                    end)
-                  end)
-                end)
-              end)
-            end)
-          end)
-        end)
-      end)
-    end
-    local _S_kont6_S_w = function(x1_S_0_S_6, x40_S_0_S_0)
-      return Golden_LongMaybeBindModule_Test_bind_S_w({
-        "Data.Maybe∷Maybe.Just",
-        x40_S_0_S_0 + 1
-      }, function(x41_S_0)
-        return Golden_LongMaybeBindModule_Test_bind_S_w({
-          "Data.Maybe∷Maybe.Just",
-          x41_S_0 + 1
-        }, function(x42_S_0)
-          return Golden_LongMaybeBindModule_Test_bind_S_w({
-            "Data.Maybe∷Maybe.Just",
-            x42_S_0 + 1
-          }, function(x43_S_0)
-            return Golden_LongMaybeBindModule_Test_bind_S_w({
-              "Data.Maybe∷Maybe.Just",
-              x43_S_0 + 1
-            }, function(x44_S_0)
-              return Golden_LongMaybeBindModule_Test_bind_S_w({
-                "Data.Maybe∷Maybe.Just",
-                x44_S_0 + 1
-              }, function(x45_S_0)
-                return Golden_LongMaybeBindModule_Test_bind_S_w({
-                  "Data.Maybe∷Maybe.Just",
-                  x45_S_0 + 1
-                }, function(x46_S_0)
-                  return Golden_LongMaybeBindModule_Test_bind_S_w({
-                    "Data.Maybe∷Maybe.Just",
-                    x46_S_0 + 1
-                  }, function(x47_S_0)
-                    return Golden_LongMaybeBindModule_Test_bind_S_w({
-                      "Data.Maybe∷Maybe.Just",
-                      x47_S_0 + 1
-                    }, function(x48_S_0)
-                      return Golden_LongMaybeBindModule_Test_bind_S_w({
-                        "Data.Maybe∷Maybe.Just",
-                        x48_S_0 + 1
-                      }, function(x49_S_0)
-                        return Golden_LongMaybeBindModule_Test_bind_S_w({
-                          "Data.Maybe∷Maybe.Just",
-                          x49_S_0 + 1
-                        }, function(x50_S_0)
-                          return Golden_LongMaybeBindModule_Test_bind_S_w({
-                            "Data.Maybe∷Maybe.Just",
-                            Data_Unit_unit
-                          }, function()
-                            return Golden_LongMaybeBindModule_Test_bind_S_w({
-                              "Data.Maybe∷Maybe.Just",
-                              x50_S_0 + 1
-                            }, function(x51_S_0)
-                              return Golden_LongMaybeBindModule_Test_bind_S_w({
-                                "Data.Maybe∷Maybe.Just",
-                                x51_S_0 + 1
-                              }, function(x52_S_0)
-                                return Golden_LongMaybeBindModule_Test_bind_S_w({
-                                  "Data.Maybe∷Maybe.Just",
-                                  x52_S_0 + 1
-                                }, function(x53_S_0)
-                                  return Golden_LongMaybeBindModule_Test_bind_S_w({
-                                    "Data.Maybe∷Maybe.Just",
-                                    x53_S_0 + 1
-                                  }, function(x54_S_0)
-                                    return Golden_LongMaybeBindModule_Test_bind_S_w({
-                                      "Data.Maybe∷Maybe.Just",
-                                      x54_S_0 + 1
-                                    }, function(x55_S_0)
-                                      return Golden_LongMaybeBindModule_Test_bind_S_w({
-                                        "Data.Maybe∷Maybe.Just",
-                                        x55_S_0 + 1
-                                      }, function(x56_S_0)
-                                        return Golden_LongMaybeBindModule_Test_bind_S_w({
-                                          "Data.Maybe∷Maybe.Just",
-                                          x56_S_0 + 1
-                                        }, function(x57_S_0)
-                                          return Golden_LongMaybeBindModule_Test_bind_S_w({
-                                            "Data.Maybe∷Maybe.Just",
-                                            x57_S_0 + 1
-                                          }, function(x58_S_0)
-                                            return Golden_LongMaybeBindModule_Test_bind_S_w({
-                                              "Data.Maybe∷Maybe.Just",
-                                              x58_S_0 + 1
-                                            }, function(x59_S_0)
-                                              return Golden_LongMaybeBindModule_Test_bind_S_w({
-                                                "Data.Maybe∷Maybe.Just",
-                                                x59_S_0 + 1
-                                              }, function(x60_S_0)
-                                                return Golden_LongMaybeBindModule_Test_bind_S_w({
-                                                  "Data.Maybe∷Maybe.Just",
-                                                  x60_S_0 + 1
-                                                }, function(x61_S_0)
-                                                  return Golden_LongMaybeBindModule_Test_bind_S_w({
-                                                    "Data.Maybe∷Maybe.Just",
-                                                    x61_S_0 + 1
-                                                  }, function(x62_S_0)
-                                                    return Golden_LongMaybeBindModule_Test_bind_S_w({
-                                                      "Data.Maybe∷Maybe.Just",
-                                                      x62_S_0 + 1
-                                                    }, function(x63_S_0)
-                                                      return Golden_LongMaybeBindModule_Test_bind_S_w({
-                                                        "Data.Maybe∷Maybe.Just",
-                                                        x63_S_0 + 1
-                                                      }, function(x64_S_0)
-                                                        return Golden_LongMaybeBindModule_Test_bind_S_w({
-                                                          "Data.Maybe∷Maybe.Just",
-                                                          x64_S_0 + 1
-                                                        }, function(x65_S_0)
-                                                          return Golden_LongMaybeBindModule_Test_bind_S_w({
-                                                            "Data.Maybe∷Maybe.Just",
-                                                            x65_S_0 + 1
-                                                          }, function(x66_S_0)
-                                                            return Golden_LongMaybeBindModule_Test_bind_S_w({
-                                                              "Data.Maybe∷Maybe.Just",
-                                                              x66_S_0 + 1
-                                                            }, function(x67_S_0)
-                                                              return Golden_LongMaybeBindModule_Test_bind_S_w({
-                                                                "Data.Maybe∷Maybe.Just",
-                                                                x67_S_0 + 1
-                                                              }, function( x68_S_0 )
-                                                                return Golden_LongMaybeBindModule_Test_bind_S_w({
-                                                                  "Data.Maybe∷Maybe.Just",
-                                                                  x68_S_0 + 1
-                                                                }, function( x69_S_0 )
-                                                                  return Golden_LongMaybeBindModule_Test_bind_S_w({
-                                                                    "Data.Maybe∷Maybe.Just",
-                                                                    x69_S_0 + 1
-                                                                  }, function( x70_S_0 )
-                                                                    return Golden_LongMaybeBindModule_Test_bind_S_w({
-                                                                      "Data.Maybe∷Maybe.Just",
-                                                                      x70_S_0 + 1
-                                                                    }, function( x71_S_0 )
-                                                                      return Golden_LongMaybeBindModule_Test_bind_S_w({
-                                                                        "Data.Maybe∷Maybe.Just",
-                                                                        x71_S_0 + 1
-                                                                      }, function( x72_S_0 )
-                                                                        return Golden_LongMaybeBindModule_Test_bind_S_w({
-                                                                          "Data.Maybe∷Maybe.Just",
-                                                                          x72_S_0 + 1
-                                                                        }, function( x73_S_0 )
-                                                                          return Golden_LongMaybeBindModule_Test_bind_S_w({
-                                                                            "Data.Maybe∷Maybe.Just",
-                                                                            x73_S_0 + 1
-                                                                          }, function( x74_S_0 )
-                                                                            return Golden_LongMaybeBindModule_Test_bind_S_w({
-                                                                              "Data.Maybe∷Maybe.Just",
-                                                                              x74_S_0 + 1
-                                                                            }, function( x75_S_0 )
-                                                                              return Golden_LongMaybeBindModule_Test_bind_S_w({
-                                                                                "Data.Maybe∷Maybe.Just",
-                                                                                x75_S_0 + 1
-                                                                              }, function( x76_S_0 )
-                                                                                return Golden_LongMaybeBindModule_Test_bind_S_w({
-                                                                                  "Data.Maybe∷Maybe.Just",
-                                                                                  x76_S_0 + 1
-                                                                                }, function( x77_S_0 )
-                                                                                  return Golden_LongMaybeBindModule_Test_bind_S_w({
-                                                                                    "Data.Maybe∷Maybe.Just",
-                                                                                    x77_S_0 + 1
-                                                                                  }, function( x78_S_0 )
-                                                                                    return Golden_LongMaybeBindModule_Test_bind_S_w({
-                                                                                      "Data.Maybe∷Maybe.Just",
-                                                                                      x78_S_0 + 1
-                                                                                    }, function( x79_S_0 )
-                                                                                      return _S_kont5_S_w(x1_S_0_S_6, x79_S_0)
-                                                                                    end)
-                                                                                  end)
-                                                                                end)
-                                                                              end)
-                                                                            end)
-                                                                          end)
-                                                                        end)
-                                                                      end)
-                                                                    end)
-                                                                  end)
-                                                                end)
-                                                              end)
-                                                            end)
-                                                          end)
-                                                        end)
-                                                      end)
-                                                    end)
-                                                  end)
-                                                end)
-                                              end)
-                                            end)
-                                          end)
-                                        end)
-                                      end)
-                                    end)
-                                  end)
-                                end)
-                              end)
-                            end)
-                          end)
-                        end)
-                      end)
-                    end)
-                  end)
-                end)
-              end)
-            end)
-          end)
-        end)
-      end)
-    end
-    return Golden_LongMaybeBindModule_Test_bind_S_w({
-      "Data.Maybe∷Maybe.Just",
-      1
-    }, function(x1_S_0)
-      return Golden_LongMaybeBindModule_Test_bind_S_w({
-        "Data.Maybe∷Maybe.Just",
-        x1_S_0 + 1
-      }, function(x2_S_0)
-        return Golden_LongMaybeBindModule_Test_bind_S_w({
-          "Data.Maybe∷Maybe.Just",
-          x2_S_0 + 1
-        }, function(x3_S_0)
-          return Golden_LongMaybeBindModule_Test_bind_S_w({
-            "Data.Maybe∷Maybe.Just",
-            x3_S_0 + 1
-          }, function(x4_S_0)
-            return Golden_LongMaybeBindModule_Test_bind_S_w({
-              "Data.Maybe∷Maybe.Just",
-              x4_S_0 + 1
-            }, function(x5_S_0)
-              return Golden_LongMaybeBindModule_Test_bind_S_w({
-                "Data.Maybe∷Maybe.Just",
-                x5_S_0 + 1
-              }, function(x6_S_0)
-                return Golden_LongMaybeBindModule_Test_bind_S_w({
-                  "Data.Maybe∷Maybe.Just",
-                  x6_S_0 + 1
-                }, function(x7_S_0)
-                  return Golden_LongMaybeBindModule_Test_bind_S_w({
-                    "Data.Maybe∷Maybe.Just",
-                    x7_S_0 + 1
-                  }, function(x8_S_0)
-                    return Golden_LongMaybeBindModule_Test_bind_S_w({
-                      "Data.Maybe∷Maybe.Just",
-                      x8_S_0 + 1
-                    }, function(x9_S_0)
-                      return Golden_LongMaybeBindModule_Test_bind_S_w({
-                        "Data.Maybe∷Maybe.Just",
-                        x9_S_0 + 1
-                      }, function(x10_S_0)
-                        return Golden_LongMaybeBindModule_Test_bind_S_w({
-                          "Data.Maybe∷Maybe.Just",
-                          x10_S_0 + 1
-                        }, function(x11_S_0)
-                          return Golden_LongMaybeBindModule_Test_bind_S_w({
-                            "Data.Maybe∷Maybe.Just",
-                            x11_S_0 + 1
-                          }, function(x12_S_0)
-                            return Golden_LongMaybeBindModule_Test_bind_S_w({
-                              "Data.Maybe∷Maybe.Just",
-                              x12_S_0 + 1
-                            }, function(x13_S_0)
-                              return Golden_LongMaybeBindModule_Test_bind_S_w({
-                                "Data.Maybe∷Maybe.Just",
-                                x13_S_0 + 1
-                              }, function(x14_S_0)
-                                return Golden_LongMaybeBindModule_Test_bind_S_w({
-                                  "Data.Maybe∷Maybe.Just",
-                                  x14_S_0 + 1
-                                }, function(x15_S_0)
-                                  return Golden_LongMaybeBindModule_Test_bind_S_w({
-                                    "Data.Maybe∷Maybe.Just",
-                                    x15_S_0 + 1
-                                  }, function(x16_S_0)
-                                    return Golden_LongMaybeBindModule_Test_bind_S_w({
-                                      "Data.Maybe∷Maybe.Just",
-                                      x16_S_0 + 1
-                                    }, function(x17_S_0)
-                                      return Golden_LongMaybeBindModule_Test_bind_S_w({
-                                        "Data.Maybe∷Maybe.Just",
-                                        x17_S_0 + 1
-                                      }, function(x18_S_0)
-                                        return Golden_LongMaybeBindModule_Test_bind_S_w({
-                                          "Data.Maybe∷Maybe.Just",
-                                          x18_S_0 + 1
-                                        }, function(x19_S_0)
-                                          return Golden_LongMaybeBindModule_Test_bind_S_w({
-                                            "Data.Maybe∷Maybe.Just",
-                                            x19_S_0 + 1
-                                          }, function(x20_S_0)
-                                            return Golden_LongMaybeBindModule_Test_bind_S_w({
-                                              "Data.Maybe∷Maybe.Just",
-                                              x20_S_0 + 1
-                                            }, function(x21_S_0)
-                                              return Golden_LongMaybeBindModule_Test_bind_S_w({
-                                                "Data.Maybe∷Maybe.Just",
-                                                x21_S_0 + 1
-                                              }, function(x22_S_0)
-                                                return Golden_LongMaybeBindModule_Test_bind_S_w({
-                                                  "Data.Maybe∷Maybe.Just",
-                                                  x22_S_0 + 1
-                                                }, function(x23_S_0)
-                                                  return Golden_LongMaybeBindModule_Test_bind_S_w({
-                                                    "Data.Maybe∷Maybe.Just",
-                                                    x23_S_0 + 1
-                                                  }, function(x24_S_0)
-                                                    return Golden_LongMaybeBindModule_Test_bind_S_w({
-                                                      "Data.Maybe∷Maybe.Just",
-                                                      x24_S_0 + 1
-                                                    }, function(x25_S_0)
-                                                      return Golden_LongMaybeBindModule_Test_bind_S_w({
-                                                        "Data.Maybe∷Maybe.Just",
-                                                        x25_S_0 + 1
-                                                      }, function(x26_S_0)
-                                                        return Golden_LongMaybeBindModule_Test_bind_S_w({
-                                                          "Data.Maybe∷Maybe.Just",
-                                                          x26_S_0 + 1
-                                                        }, function(x27_S_0)
-                                                          return Golden_LongMaybeBindModule_Test_bind_S_w({
-                                                            "Data.Maybe∷Maybe.Just",
-                                                            x27_S_0 + 1
-                                                          }, function(x28_S_0)
-                                                            return Golden_LongMaybeBindModule_Test_bind_S_w({
-                                                              "Data.Maybe∷Maybe.Just",
-                                                              x28_S_0 + 1
-                                                            }, function(x29_S_0)
-                                                              return Golden_LongMaybeBindModule_Test_bind_S_w({
-                                                                "Data.Maybe∷Maybe.Just",
-                                                                x29_S_0 + 1
-                                                              }, function( x30_S_0 )
-                                                                return Golden_LongMaybeBindModule_Test_bind_S_w({
-                                                                  "Data.Maybe∷Maybe.Just",
-                                                                  x30_S_0 + 1
-                                                                }, function( x31_S_0 )
-                                                                  return Golden_LongMaybeBindModule_Test_bind_S_w({
-                                                                    "Data.Maybe∷Maybe.Just",
-                                                                    x31_S_0 + 1
-                                                                  }, function( x32_S_0 )
-                                                                    return Golden_LongMaybeBindModule_Test_bind_S_w({
-                                                                      "Data.Maybe∷Maybe.Just",
-                                                                      x32_S_0 + 1
-                                                                    }, function( x33_S_0 )
-                                                                      return Golden_LongMaybeBindModule_Test_bind_S_w({
-                                                                        "Data.Maybe∷Maybe.Just",
-                                                                        x33_S_0 + 1
-                                                                      }, function( x34_S_0 )
-                                                                        return Golden_LongMaybeBindModule_Test_bind_S_w({
-                                                                          "Data.Maybe∷Maybe.Just",
-                                                                          x34_S_0 + 1
-                                                                        }, function( x35_S_0 )
-                                                                          return Golden_LongMaybeBindModule_Test_bind_S_w({
-                                                                            "Data.Maybe∷Maybe.Just",
-                                                                            x35_S_0 + 1
-                                                                          }, function( x36_S_0 )
-                                                                            return Golden_LongMaybeBindModule_Test_bind_S_w({
-                                                                              "Data.Maybe∷Maybe.Just",
-                                                                              x36_S_0 + 1
-                                                                            }, function( x37_S_0 )
-                                                                              return Golden_LongMaybeBindModule_Test_bind_S_w({
-                                                                                "Data.Maybe∷Maybe.Just",
-                                                                                x37_S_0 + 1
-                                                                              }, function( x38_S_0 )
-                                                                                return Golden_LongMaybeBindModule_Test_bind_S_w({
-                                                                                  "Data.Maybe∷Maybe.Just",
-                                                                                  x38_S_0 + 1
-                                                                                }, function( x39_S_0 )
-                                                                                  return Golden_LongMaybeBindModule_Test_bind_S_w({
-                                                                                    "Data.Maybe∷Maybe.Just",
-                                                                                    x39_S_0 + 1
-                                                                                  }, function( x40_S_0 )
-                                                                                    return _S_kont6_S_w(x1_S_0, x40_S_0)
-                                                                                  end)
-                                                                                end)
-                                                                              end)
-                                                                            end)
-                                                                          end)
-                                                                        end)
-                                                                      end)
-                                                                    end)
-                                                                  end)
-                                                                end)
-                                                              end)
-                                                            end)
-                                                          end)
-                                                        end)
-                                                      end)
-                                                    end)
-                                                  end)
-                                                end)
-                                              end)
-                                            end)
-                                          end)
-                                        end)
-                                      end)
-                                    end)
-                                  end)
-                                end)
-                              end)
-                            end)
-                          end)
-                        end)
-                      end)
-                    end)
-                  end)
-                end)
-              end)
-            end)
-          end)
-        end)
-      end)
-    end)
-  end)()
-}
+return { compute = { "Data.Maybe∷Maybe.Just", 301 } }
diff --git a/test/ps/output/Golden.LongReaderBind.Test/golden.ir b/test/ps/output/Golden.LongReaderBind.Test/golden.ir
index a8d8850c..64e70141 100644
--- a/test/ps/output/Golden.LongReaderBind.Test/golden.ir
+++ b/test/ps/output/Golden.LongReaderBind.Test/golden.ir
@@ -16,27 +16,21 @@ UberModule
       ( QName
         { qnameModuleName = ModuleName "Golden.LongReaderBind.Test", qnameName = Name "go"
         }, AbsN Nothing
-        ( ParamNamed Nothing ( Name "r$571" ) :| [] )
+        ( ParamNamed Nothing ( Name "r$995" ) :| [] )
         ( PrimBinOp Nothing PrimAdd
           ( PrimBinOp Nothing PrimAdd
-            ( Ref Nothing ( Local ( Name "r$571" ) ) )
-            ( Ref Nothing ( Local ( Name "r$571" ) ) )
+            ( Ref Nothing ( Local ( Name "r$995" ) ) )
+            ( Ref Nothing ( Local ( Name "r$995" ) ) )
           )
-          ( Ref Nothing ( Local ( Name "r$571" ) ) )
+          ( Ref Nothing ( Local ( Name "r$995" ) ) )
         )
-      ), Standalone
-      ( QName
-        { qnameModuleName = ModuleName "Golden.LongReaderBind.Test", qnameName = Name "compute"
-        }, LiteralInt Nothing 9
       )
     ], uberModuleForeigns = [], uberModuleExports =
     [
       ( Name "go", Ref Nothing
         ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "go" ) )
       ),
-      ( Name "compute", Ref Nothing
-        ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "compute" ) )
-      ),
+      ( Name "compute", LiteralInt Nothing 9 ),
       ( Name "main", AppN Nothing
         ( ObjectProp Nothing
           ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "foreign" ) ) )
@@ -47,9 +41,7 @@ UberModule
             ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "foreign" ) ) )
             ( PropName "showIntImpl" )
           )
-          ( Ref Nothing
-            ( Imported ( ModuleName "Golden.LongReaderBind.Test" ) ( Name "compute" ) ) :| []
-          ) :| []
+          ( LiteralInt Nothing 9 :| [] ) :| []
         )
       )
     ]
diff --git a/test/ps/output/Golden.LongReaderBind.Test/golden.lua b/test/ps/output/Golden.LongReaderBind.Test/golden.lua
index bee7d8f3..44423453 100644
--- a/test/ps/output/Golden.LongReaderBind.Test/golden.lua
+++ b/test/ps/output/Golden.LongReaderBind.Test/golden.lua
@@ -6,5 +6,4 @@ local Effect_Console_foreign = {
 M.Golden_LongReaderBind_Test_go = function(r_S_0)
   return r_S_0 + r_S_0 + r_S_0
 end
-local Golden_LongReaderBind_Test_compute = 9
-return Effect_Console_foreign.log(Data_Show_foreign.showIntImpl(Golden_LongReaderBind_Test_compute))()
+return Effect_Console_foreign.log(Data_Show_foreign.showIntImpl(9))()
diff --git a/test/ps/output/Golden.LongStackBind.Test/golden.ir b/test/ps/output/Golden.LongStackBind.Test/golden.ir
index aa015997..9b9ff0dc 100644
--- a/test/ps/output/Golden.LongStackBind.Test/golden.ir
+++ b/test/ps/output/Golden.LongStackBind.Test/golden.ir
@@ -25,17 +25,6 @@ UberModule
         ( ModuleName "Effect.Console" ) ".spago/p/console/f82835a0b873aafe6bd7b14dd30cc150553d4ab9/src/Effect/Console.purs"
         [ ( Nothing, Name "log" ) ]
       ), Standalone
-      ( QName
-        { qnameModuleName = ModuleName "Data.Functor", qnameName = Name "map" }, AbsN Nothing
-        ( ParamNamed Nothing ( Name "dict" ) :| [] )
-        ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "dict" ) ) ) ( PropName "map" ) )
-      ), Standalone
-      ( QName
-        { qnameModuleName = ModuleName "Control.Applicative", qnameName = Name "pure"
-        }, AbsN Nothing
-        ( ParamNamed Nothing ( Name "dict" ) :| [] )
-        ( ObjectProp Nothing ( Ref Nothing ( Local ( Name "dict" ) ) ) ( PropName "pure" ) )
-      ), Standalone
       ( QName
         { qnameModuleName = ModuleName "Control.Monad", qnameName = Name "ap" }, AbsN Nothing
         ( ParamNamed Nothing ( Name "dictMonad" ) :| [] )
@@ -151,7 +140,7 @@ UberModule
             ( PropName "map", AbsN Nothing
               ( ParamNamed Nothing ( Name "f" ) :| [] )
               ( AbsN Nothing
-                ( ParamNamed Nothing ( Name "v$579" ) :| [] )
+                ( ParamNamed Nothing ( Name "v$567" ) :| [] )
                 ( AppN Nothing
                   ( AppN Nothing
                     ( ObjectProp Nothing
@@ -159,23 +148,23 @@ UberModule
                       ( PropName "map" )
                     )
                     ( AbsN Nothing
-                      ( ParamNamed Nothing ( Name "m$589" ) :| [] )
+                      ( ParamNamed Nothing ( Name "m$577" ) :| [] )
                       ( Let Nothing
                         ( Standalone
-                          ( Nothing, Name "$cse6554", DataArgumentByIndex Nothing SumType 0
-                            ( Ref Nothing ( Local ( Name "m$589" ) ) )
+                          ( Nothing, Name "$cse6196", DataArgumentByIndex Nothing SumType 0
+                            ( Ref Nothing ( Local ( Name "m$577" ) ) )
                           ) :| []
                         )
                         ( IfThenElse Nothing
                           ( Eq Nothing
                             ( LiteralString Nothing "Data.Either∷Either.Left" )
-                            ( ReflectCtor Nothing ( Ref Nothing ( Local ( Name "m$589" ) ) ) )
+                            ( ReflectCtor Nothing ( Ref Nothing ( Local ( Name "m$577" ) ) ) )
                           )
                           ( Ctor Nothing SumType
                             ( ModuleName "Data.Either" )
                             ( TyName "Either" )
                             ( CtorName "Left" )
-                            [ Ref Nothing ( Local ( Name "$cse6554" ) ) ]
+                            [ Ref Nothing ( Local ( Name "$cse6196" ) ) ]
                           )
                           ( Ctor Nothing SumType
                             ( ModuleName "Data.Either" )
@@ -183,14 +172,14 @@ UberModule
                             ( CtorName "Right" )
                             [ AppN Nothing
                               ( Ref Nothing ( Local ( Name "f" ) ) )
-                              ( Ref Nothing ( Local ( Name "$cse6554" ) ) :| [] )
+                              ( Ref Nothing ( Local ( Name "$cse6196" ) ) :| [] )
                             ]
                           )
                         )
                       ) :| []
                     )
                   )
-                  ( Ref Nothing ( Local ( Name "v$579" ) ) :| [] )
+                  ( Ref Nothing ( Local ( Name "v$567" ) ) :| [] )
                 )
               )
             )
@@ -256,17 +245,17 @@ UberModule
                         ( Ref Nothing ( Local ( Name "v" ) ) :| [] )
                       )
                       ( AbsN Nothing
-                        ( ParamNamed Nothing ( Name "v2$587" ) :| [] )
+                        ( ParamNamed Nothing ( Name "v2$575" ) :| [] )
                         ( Let Nothing
                           ( Standalone
-                            ( Nothing, Name "$cse6555", DataArgumentByIndex Nothing SumType 0
-                              ( Ref Nothing ( Local ( Name "v2$587" ) ) )
+                            ( Nothing, Name "$cse6197", DataArgumentByIndex Nothing SumType 0
+                              ( Ref Nothing ( Local ( Name "v2$575" ) ) )
                             ) :| []
                           )
                           ( IfThenElse Nothing
                             ( Eq Nothing
                               ( LiteralString Nothing "Data.Either∷Either.Left" )
-                              ( ReflectCtor Nothing ( Ref Nothing ( Local ( Name "v2$587" ) ) ) )
+                              ( ReflectCtor Nothing ( Ref Nothing ( Local ( Name "v2$575" ) ) ) )
                             )
                             ( AppN Nothing
                               ( ObjectProp Nothing
@@ -285,12 +274,12 @@ UberModule
                                 ( ModuleName "Data.Either" )
                                 ( TyName "Either" )
                                 ( CtorName "Left" )
-                                [ Ref Nothing ( Local ( Name "$cse6555" ) ) ] :| []
+                                [ Ref Nothing ( Local ( Name "$cse6197" ) ) ] :| []
                               )
                             )
                             ( AppN Nothing
                               ( Ref Nothing ( Local ( Name "k" ) ) )
-                              ( Ref Nothing ( Local ( Name "$cse6555" ) ) :| [] )
+                              ( Ref Nothing ( Local ( Name "$cse6197" ) ) :| [] )
                             )
                           )
                         ) :| []
@@ -377,7 +366,7 @@ UberModule
             ( LiteralObject Nothing
               [
                 ( PropName "pure", AbsN Nothing
-                  ( ParamNamed Nothing ( Name "x$4199" ) :| [] )
+                  ( ParamNamed Nothing ( Name "x$2783" ) :| [] )
                   ( AppN Nothing
                     ( ObjectProp Nothing
                       ( AppN Nothing
@@ -395,7 +384,7 @@ UberModule
                       ( ModuleName "Data.Either" )
                       ( TyName "Either" )
                       ( CtorName "Right" )
-                      [ Ref Nothing ( Local ( Name "x$4199" ) ) ] :| []
+                      [ Ref Nothing ( Local ( Name "x$2783" ) ) ] :| []
                     )
                   )
                 ),
@@ -529,17 +518,14 @@ UberModule
                   ( LiteralObject Nothing
                     [
                       ( PropName "map", AbsN Nothing
-                        ( ParamNamed Nothing ( Name "f$574" ) :| [] )
+                        ( ParamNamed Nothing ( Name "f$562" ) :| [] )
                         ( AbsN Nothing
-                          ( ParamNamed Nothing ( Name "v$575" ) :| [] )
+                          ( ParamNamed Nothing ( Name "v$563" ) :| [] )
                           ( AbsN Nothing
-                            ( ParamNamed Nothing ( Name "s$576" ) :| [] )
+                            ( ParamNamed Nothing ( Name "s$564" ) :| [] )
                             ( AppN Nothing
                               ( AppN Nothing
-                                ( AppN Nothing
-                                  ( Ref Nothing
-                                    ( Imported ( ModuleName "Data.Functor" ) ( Name "map" ) )
-                                  )
+                                ( ObjectProp Nothing
                                   ( AppN Nothing
                                     ( ObjectProp Nothing
                                       ( AppN Nothing
@@ -569,30 +555,31 @@ UberModule
                                     )
                                     ( Ref Nothing
                                       ( Imported ( ModuleName "Prim" ) ( Name "undefined" ) ) :| []
-                                    ) :| []
+                                    )
                                   )
+                                  ( PropName "map" )
                                 )
                                 ( AbsN Nothing
-                                  ( ParamNamed Nothing ( Name "v1$577" ) :| [] )
+                                  ( ParamNamed Nothing ( Name "v1$565" ) :| [] )
                                   ( AppN Nothing
                                     ( Ref Nothing
                                       ( Imported ( ModuleName "Data.Tuple" ) ( Name "Tuple$w" ) )
                                     )
                                     ( AppN Nothing
-                                      ( Ref Nothing ( Local ( Name "f$574" ) ) )
+                                      ( Ref Nothing ( Local ( Name "f$562" ) ) )
                                       ( DataArgumentByIndex Nothing ProductType 0
-                                        ( Ref Nothing ( Local ( Name "v1$577" ) ) ) :| []
+                                        ( Ref Nothing ( Local ( Name "v1$565" ) ) ) :| []
                                       ) :|
                                       [ DataArgumentByIndex Nothing ProductType 1
-                                        ( Ref Nothing ( Local ( Name "v1$577" ) ) )
+                                        ( Ref Nothing ( Local ( Name "v1$565" ) ) )
                                       ]
                                     )
                                   ) :| []
                                 )
                               )
                               ( AppN Nothing
-                                ( Ref Nothing ( Local ( Name "v$575" ) ) )
-                                ( Ref Nothing ( Local ( Name "s$576" ) ) :| [] ) :| []
+                                ( Ref Nothing ( Local ( Name "v$563" ) ) )
+                                ( Ref Nothing ( Local ( Name "s$564" ) ) :| [] ) :| []
                               )
                             )
                           )
@@ -664,8 +651,8 @@ UberModule
               ( LiteralObject Nothing
                 [
                   ( PropName "pure", AbsN Nothing
-                    ( ParamNamed Nothing ( Name "x$583" ) :| [] )
-                    ( Ref Nothing ( Local ( Name "x$583" ) ) )
+                    ( ParamNamed Nothing ( Name "x$571" ) :| [] )
+                    ( Ref Nothing ( Local ( Name "x$571" ) ) )
                   ),
                   ( PropName "Apply0", AbsN Nothing
                     ( ParamUnused Nothing :| [] )
@@ -681,12 +668,12 @@ UberModule
               ( LiteralObject Nothing
                 [
                   ( PropName "bind", AbsN Nothing
-                    ( ParamNamed Nothing ( Name "v$581" ) :| [] )
+                    ( ParamNamed Nothing ( Name "v$569" ) :| [] )
                     ( AbsN Nothing
-                      ( ParamNamed Nothing ( Name "f$582" ) :| [] )
+                      ( ParamNamed Nothing ( Name "f$570" ) :| [] )
                       ( AppN Nothing
-                        ( Ref Nothing ( Local ( Name "f$582" ) ) )
-                        ( Ref Nothing ( Local ( Name "v$581" ) ) :| [] )
+                        ( Ref Nothing ( Local ( Name "f$570" ) ) )
+                        ( Ref Nothing ( Local ( Name "v$569" ) ) :| [] )
                       )
                     )
                   ),
@@ -712,18 +699,10 @@ UberModule
           ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "monadExceptT" ) ) :| []
         )
       ), Standalone
-      ( QName
-        { qnameModuleName = ModuleName "Golden.LongStackBind.Test", qnameName = Name "bind"
-        }, ObjectProp Nothing
-        ( Ref Nothing
-          ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "bindStateT" ) )
-        )
-        ( PropName "bind" )
-      ), Standalone
       ( QName
         { qnameModuleName = ModuleName "Golden.LongStackBind.Test", qnameName = Name "get"
         }, AbsN Nothing
-        ( ParamNamed Nothing ( Name "x$2134" ) :| [] )
+        ( ParamNamed Nothing ( Name "x$2732" ) :| [] )
         ( AppN Nothing
           ( ObjectProp Nothing
             ( AppN Nothing
@@ -740,20 +719,12 @@ UberModule
           ( AppN Nothing
             ( Ref Nothing ( Imported ( ModuleName "Data.Tuple" ) ( Name "Tuple$w" ) ) )
             ( Ref Nothing
-              ( Local ( Name "x$2134" ) ) :|
-              [ Ref Nothing ( Local ( Name "x$2134" ) ) ]
+              ( Local ( Name "x$2732" ) ) :|
+              [ Ref Nothing ( Local ( Name "x$2732" ) ) ]
             ) :| []
           )
         )
       ), Standalone
-      ( QName
-        { qnameModuleName = ModuleName "Golden.LongStackBind.Test", qnameName = Name "discard"
-        }, ObjectProp Nothing
-        ( Ref Nothing
-          ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "bindStateT" ) )
-        )
-        ( PropName "bind" )
-      ), Standalone
       ( QName
         { qnameModuleName = ModuleName "Golden.LongStackBind.Test", qnameName = Name "put"
         }, AbsN Nothing
@@ -786,22 +757,25 @@ UberModule
       ( QName
         { qnameModuleName = ModuleName "Golden.LongStackBind.Test", qnameName = Name "add$w"
         }, AbsN Nothing
-        ( ParamNamed Nothing ( Name "x$594" ) :| [ ParamNamed Nothing ( Name "y$595" ) ] )
+        ( ParamNamed Nothing ( Name "x$582" ) :| [ ParamNamed Nothing ( Name "y$583" ) ] )
         ( PrimBinOp Nothing PrimAdd
-          ( Ref Nothing ( Local ( Name "x$594" ) ) )
-          ( Ref Nothing ( Local ( Name "y$595" ) ) )
+          ( Ref Nothing ( Local ( Name "x$582" ) ) )
+          ( Ref Nothing ( Local ( Name "y$583" ) ) )
         )
       ), Standalone
       ( QName
         { qnameModuleName = ModuleName "Golden.LongStackBind.Test", qnameName = Name "go"
         }, Let Nothing
         ( Standalone
-          ( Nothing, Name "$kont6557", AbsN Nothing
-            ( ParamNamed Nothing ( Name "x1$6558" ) :| [] )
+          ( Nothing, Name "$kont6199", AbsN Nothing
+            ( ParamNamed Nothing ( Name "x1$6200" ) :| [] )
             ( AppN Nothing
               ( AppN Nothing
-                ( Ref Nothing
-                  ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "bind" ) )
+                ( ObjectProp Nothing
+                  ( Ref Nothing
+                    ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "bindStateT" ) )
+                  )
+                  ( PropName "bind" )
                 )
                 ( Ref Nothing
                   ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "get" ) ) :| []
@@ -811,8 +785,14 @@ UberModule
                 ( ParamNamed Nothing ( Name "x141" ) :| [] )
                 ( AppN Nothing
                   ( AppN Nothing
-                    ( Ref Nothing
-                      ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "discard" ) )
+                    ( ObjectProp Nothing
+                      ( Ref Nothing
+                        ( Imported
+                          ( ModuleName "Golden.LongStackBind.Test" )
+                          ( Name "bindStateT" )
+                        )
+                      )
+                      ( PropName "bind" )
                     )
                     ( AppN Nothing
                       ( Ref Nothing
@@ -830,8 +810,14 @@ UberModule
                     ( ParamUnused Nothing :| [] )
                     ( AppN Nothing
                       ( AppN Nothing
-                        ( Ref Nothing
-                          ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "bind" ) )
+                        ( ObjectProp Nothing
+                          ( Ref Nothing
+                            ( Imported
+                              ( ModuleName "Golden.LongStackBind.Test" )
+                              ( Name "bindStateT" )
+                            )
+                          )
+                          ( PropName "bind" )
                         )
                         ( Ref Nothing
                           ( Imported
@@ -844,11 +830,14 @@ UberModule
                         ( ParamNamed Nothing ( Name "x142" ) :| [] )
                         ( AppN Nothing
                           ( AppN Nothing
-                            ( Ref Nothing
-                              ( Imported
-                                ( ModuleName "Golden.LongStackBind.Test" )
-                                ( Name "discard" )
+                            ( ObjectProp Nothing
+                              ( Ref Nothing
+                                ( Imported
+                                  ( ModuleName "Golden.LongStackBind.Test" )
+                                  ( Name "bindStateT" )
+                                )
                               )
+                              ( PropName "bind" )
                             )
                             ( AppN Nothing
                               ( Ref Nothing
@@ -875,11 +864,14 @@ UberModule
                             ( ParamUnused Nothing :| [] )
                             ( AppN Nothing
                               ( AppN Nothing
-                                ( Ref Nothing
-                                  ( Imported
-                                    ( ModuleName "Golden.LongStackBind.Test" )
-                                    ( Name "bind" )
+                                ( ObjectProp Nothing
+                                  ( Ref Nothing
+                                    ( Imported
+                                      ( ModuleName "Golden.LongStackBind.Test" )
+                                      ( Name "bindStateT" )
+                                    )
                                   )
+                                  ( PropName "bind" )
                                 )
                                 ( Ref Nothing
                                   ( Imported
@@ -892,11 +884,14 @@ UberModule
                                 ( ParamNamed Nothing ( Name "x143" ) :| [] )
                                 ( AppN Nothing
                                   ( AppN Nothing
-                                    ( Ref Nothing
-                                      ( Imported
-                                        ( ModuleName "Golden.LongStackBind.Test" )
-                                        ( Name "discard" )
+                                    ( ObjectProp Nothing
+                                      ( Ref Nothing
+                                        ( Imported
+                                          ( ModuleName "Golden.LongStackBind.Test" )
+                                          ( Name "bindStateT" )
+                                        )
                                       )
+                                      ( PropName "bind" )
                                     )
                                     ( AppN Nothing
                                       ( Ref Nothing
@@ -923,11 +918,14 @@ UberModule
                                     ( ParamUnused Nothing :| [] )
                                     ( AppN Nothing
                                       ( AppN Nothing
-                                        ( Ref Nothing
-                                          ( Imported
-                                            ( ModuleName "Golden.LongStackBind.Test" )
-                                            ( Name "bind" )
+                                        ( ObjectProp Nothing
+                                          ( Ref Nothing
+                                            ( Imported
+                                              ( ModuleName "Golden.LongStackBind.Test" )
+                                              ( Name "bindStateT" )
+                                            )
                                           )
+                                          ( PropName "bind" )
                                         )
                                         ( Ref Nothing
                                           ( Imported
@@ -940,11 +938,14 @@ UberModule
                                         ( ParamNamed Nothing ( Name "x144" ) :| [] )
                                         ( AppN Nothing
                                           ( AppN Nothing
-                                            ( Ref Nothing
-                                              ( Imported
-                                                ( ModuleName "Golden.LongStackBind.Test" )
-                                                ( Name "discard" )
+                                            ( ObjectProp Nothing
+                                              ( Ref Nothing
+                                                ( Imported
+                                                  ( ModuleName "Golden.LongStackBind.Test" )
+                                                  ( Name "bindStateT" )
+                                                )
                                               )
+                                              ( PropName "bind" )
                                             )
                                             ( AppN Nothing
                                               ( Ref Nothing
@@ -971,11 +972,14 @@ UberModule
                                             ( ParamUnused Nothing :| [] )
                                             ( AppN Nothing
                                               ( AppN Nothing
-                                                ( Ref Nothing
-                                                  ( Imported
-                                                    ( ModuleName "Golden.LongStackBind.Test" )
-                                                    ( Name "bind" )
+                                                ( ObjectProp Nothing
+                                                  ( Ref Nothing
+                                                    ( Imported
+                                                      ( ModuleName "Golden.LongStackBind.Test" )
+                                                      ( Name "bindStateT" )
+                                                    )
                                                   )
+                                                  ( PropName "bind" )
                                                 )
                                                 ( Ref Nothing
                                                   ( Imported
@@ -988,11 +992,14 @@ UberModule
                                                 ( ParamNamed Nothing ( Name "x145" ) :| [] )
                                                 ( AppN Nothing
                                                   ( AppN Nothing
-                                                    ( Ref Nothing
-                                                      ( Imported
-                                                        ( ModuleName "Golden.LongStackBind.Test" )
-                                                        ( Name "discard" )
+                                                    ( ObjectProp Nothing
+                                                      ( Ref Nothing
+                                                        ( Imported
+                                                          ( ModuleName "Golden.LongStackBind.Test" )
+                                                          ( Name "bindStateT" )
+                                                        )
                                                       )
+                                                      ( PropName "bind" )
                                                     )
                                                     ( AppN Nothing
                                                       ( Ref Nothing
@@ -1019,11 +1026,14 @@ UberModule
                                                     ( ParamUnused Nothing :| [] )
                                                     ( AppN Nothing
                                                       ( AppN Nothing
-                                                        ( Ref Nothing
-                                                          ( Imported
-                                                            ( ModuleName "Golden.LongStackBind.Test" )
-                                                            ( Name "bind" )
+                                                        ( ObjectProp Nothing
+                                                          ( Ref Nothing
+                                                            ( Imported
+                                                              ( ModuleName "Golden.LongStackBind.Test" )
+                                                              ( Name "bindStateT" )
+                                                            )
                                                           )
+                                                          ( PropName "bind" )
                                                         )
                                                         ( Ref Nothing
                                                           ( Imported
@@ -1038,11 +1048,14 @@ UberModule
                                                         )
                                                         ( AppN Nothing
                                                           ( AppN Nothing
-                                                            ( Ref Nothing
-                                                              ( Imported
-                                                                ( ModuleName "Golden.LongStackBind.Test" )
-                                                                ( Name "discard" )
+                                                            ( ObjectProp Nothing
+                                                              ( Ref Nothing
+                                                                ( Imported
+                                                                  ( ModuleName "Golden.LongStackBind.Test" )
+                                                                  ( Name "bindStateT" )
+                                                                )
                                                               )
+                                                              ( PropName "bind" )
                                                             )
                                                             ( AppN Nothing
                                                               ( Ref Nothing
@@ -1069,11 +1082,14 @@ UberModule
                                                             ( ParamUnused Nothing :| [] )
                                                             ( AppN Nothing
                                                               ( AppN Nothing
-                                                                ( Ref Nothing
-                                                                  ( Imported
-                                                                    ( ModuleName "Golden.LongStackBind.Test" )
-                                                                    ( Name "bind" )
+                                                                ( ObjectProp Nothing
+                                                                  ( Ref Nothing
+                                                                    ( Imported
+                                                                      ( ModuleName "Golden.LongStackBind.Test" )
+                                                                      ( Name "bindStateT" )
+                                                                    )
                                                                   )
+                                                                  ( PropName "bind" )
                                                                 )
                                                                 ( Ref Nothing
                                                                   ( Imported
@@ -1088,11 +1104,14 @@ UberModule
                                                                 )
                                                                 ( AppN Nothing
                                                                   ( AppN Nothing
-                                                                    ( Ref Nothing
-                                                                      ( Imported
-                                                                        ( ModuleName "Golden.LongStackBind.Test" )
-                                                                        ( Name "discard" )
+                                                                    ( ObjectProp Nothing
+                                                                      ( Ref Nothing
+                                                                        ( Imported
+                                                                          ( ModuleName "Golden.LongStackBind.Test" )
+                                                                          ( Name "bindStateT" )
+                                                                        )
                                                                       )
+                                                                      ( PropName "bind" )
                                                                     )
                                                                     ( AppN Nothing
                                                                       ( Ref Nothing
@@ -1121,11 +1140,14 @@ UberModule
                                                                     ( ParamUnused Nothing :| [] )
                                                                     ( AppN Nothing
                                                                       ( AppN Nothing
-                                                                        ( Ref Nothing
-                                                                          ( Imported
-                                                                            ( ModuleName "Golden.LongStackBind.Test" )
-                                                                            ( Name "bind" )
+                                                                        ( ObjectProp Nothing
+                                                                          ( Ref Nothing
+                                                                            ( Imported
+                                                                              ( ModuleName "Golden.LongStackBind.Test" )
+                                                                              ( Name "bindStateT" )
+                                                                            )
                                                                           )
+                                                                          ( PropName "bind" )
                                                                         )
                                                                         ( Ref Nothing
                                                                           ( Imported
@@ -1140,11 +1162,14 @@ UberModule
                                                                         )
                                                                         ( AppN Nothing
                                                                           ( AppN Nothing
-                                                                            ( Ref Nothing
-                                                                              ( Imported
-                                                                                ( ModuleName "Golden.LongStackBind.Test" )
-                                                                                ( Name "discard" )
+                                                                            ( ObjectProp Nothing
+                                                                              ( Ref Nothing
+                                                                                ( Imported
+                                                                                  ( ModuleName "Golden.LongStackBind.Test" )
+                                                                                  ( Name "bindStateT" )
+                                                                                )
                                                                               )
+                                                                              ( PropName "bind" )
                                                                             )
                                                                             ( AppN Nothing
                                                                               ( Ref Nothing
@@ -1173,11 +1198,14 @@ UberModule
                                                                             ( ParamUnused Nothing :| [] )
                                                                             ( AppN Nothing
                                                                               ( AppN Nothing
-                                                                                ( Ref Nothing
-                                                                                  ( Imported
-                                                                                    ( ModuleName "Golden.LongStackBind.Test" )
-                                                                                    ( Name "bind" )
+                                                                                ( ObjectProp Nothing
+                                                                                  ( Ref Nothing
+                                                                                    ( Imported
+                                                                                      ( ModuleName "Golden.LongStackBind.Test" )
+                                                                                      ( Name "bindStateT" )
+                                                                                    )
                                                                                   )
+                                                                                  ( PropName "bind" )
                                                                                 )
                                                                                 ( Ref Nothing
                                                                                   ( Imported
@@ -1192,11 +1220,14 @@ UberModule
                                                                                 )
                                                                                 ( AppN Nothing
                                                                                   ( AppN Nothing
-                                                                                    ( Ref Nothing
-                                                                                      ( Imported
-                                                                                        ( ModuleName "Golden.LongStackBind.Test" )
-                                                                                        ( Name "discard" )
+                                                                                    ( ObjectProp Nothing
+                                                                                      ( Ref Nothing
+                                                                                        ( Imported
+                                                                                          ( ModuleName "Golden.LongStackBind.Test" )
+                                                                                          ( Name "bindStateT" )
+                                                                                        )
                                                                                       )
+                                                                                      ( PropName "bind" )
                                                                                     )
                                                                                     ( AppN Nothing
                                                                                       ( Ref Nothing
@@ -1225,11 +1256,14 @@ UberModule
                                                                                     ( ParamUnused Nothing :| [] )
                                                                                     ( AppN Nothing
                                                                                       ( AppN Nothing
-                                                                                        ( Ref Nothing
-                                                                                          ( Imported
-                                                                                            ( ModuleName "Golden.LongStackBind.Test" )
-                                                                                            ( Name "bind" )
+                                                                                        ( ObjectProp Nothing
+                                                                                          ( Ref Nothing
+                                                                                            ( Imported
+                                                                                              ( ModuleName "Golden.LongStackBind.Test" )
+                                                                                              ( Name "bindStateT" )
+                                                                                            )
                                                                                           )
+                                                                                          ( PropName "bind" )
                                                                                         )
                                                                                         ( Ref Nothing
                                                                                           ( Imported
@@ -1244,11 +1278,14 @@ UberModule
                                                                                         )
                                                                                         ( AppN Nothing
                                                                                           ( AppN Nothing
-                                                                                            ( Ref Nothing
-                                                                                              ( Imported
-                                                                                                ( ModuleName "Golden.LongStackBind.Test" )
-                                                                                                ( Name "discard" )
+                                                                                            ( ObjectProp Nothing
+                                                                                              ( Ref Nothing
+                                                                                                ( Imported
+                                                                                                  ( ModuleName "Golden.LongStackBind.Test" )
+                                                                                                  ( Name "bindStateT" )
+                                                                                                )
                                                                                               )
+                                                                                              ( PropName "bind" )
                                                                                             )
                                                                                             ( AppN Nothing
                                                                                               ( Ref Nothing
@@ -1277,11 +1314,14 @@ UberModule
                                                                                             ( ParamUnused Nothing :| [] )
                                                                                             ( AppN Nothing
                                                                                               ( AppN Nothing
-                                                                                                ( Ref Nothing
-                                                                                                  ( Imported
-                                                                                                    ( ModuleName "Golden.LongStackBind.Test" )
-                                                                                                    ( Name "bind" )
+                                                                                                ( ObjectProp Nothing
+                                                                                                  ( Ref Nothing
+                                                                                                    ( Imported
+                                                                                                      ( ModuleName "Golden.LongStackBind.Test" )
+                                                                                                      ( Name "bindStateT" )
+                                                                                                    )
                                                                                                   )
+                                                                                                  ( PropName "bind" )
                                                                                                 )
                                                                                                 ( Ref Nothing
                                                                                                   ( Imported
@@ -1295,13 +1335,7 @@ UberModule
                                                                                                   ( Name "final" ) :| []
                                                                                                 )
                                                                                                 ( AppN Nothing
-                                                                                                  ( AppN Nothing
-                                                                                                    ( Ref Nothing
-                                                                                                      ( Imported
-                                                                                                        ( ModuleName "Control.Applicative" )
-                                                                                                        ( Name "pure" )
-                                                                                                      )
-                                                                                                    )
+                                                                                                  ( ObjectProp Nothing
                                                                                                     ( AppN Nothing
                                                                                                       ( Ref Nothing
                                                                                                         ( Imported
@@ -1314,8 +1348,9 @@ UberModule
                                                                                                           ( ModuleName "Golden.LongStackBind.Test" )
                                                                                                           ( Name "monadExceptT" )
                                                                                                         ) :| []
-                                                                                                      ) :| []
+                                                                                                      )
                                                                                                     )
+                                                                                                    ( PropName "pure" )
                                                                                                   )
                                                                                                   ( AppN Nothing
                                                                                                     ( Ref Nothing
@@ -1326,7 +1361,7 @@ UberModule
                                                                                                     )
                                                                                                     ( Ref Nothing
                                                                                                       ( Local
-                                                                                                        ( Name "x1$6558" )
+                                                                                                        ( Name "x1$6200" )
                                                                                                       ) :|
                                                                                                       [ Ref Nothing
                                                                                                         ( Local
@@ -1380,12 +1415,15 @@ UberModule
             )
           ) :|
           [ Standalone
-            ( Nothing, Name "$kont6559", AbsN Nothing
-              ( ParamNamed Nothing ( Name "x1$6560" ) :| [] )
+            ( Nothing, Name "$kont6201", AbsN Nothing
+              ( ParamNamed Nothing ( Name "x1$6202" ) :| [] )
               ( AppN Nothing
                 ( AppN Nothing
-                  ( Ref Nothing
-                    ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "bind" ) )
+                  ( ObjectProp Nothing
+                    ( Ref Nothing
+                      ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "bindStateT" ) )
+                    )
+                    ( PropName "bind" )
                   )
                   ( Ref Nothing
                     ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "get" ) ) :| []
@@ -1395,8 +1433,14 @@ UberModule
                   ( ParamNamed Nothing ( Name "x121" ) :| [] )
                   ( AppN Nothing
                     ( AppN Nothing
-                      ( Ref Nothing
-                        ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "discard" ) )
+                      ( ObjectProp Nothing
+                        ( Ref Nothing
+                          ( Imported
+                            ( ModuleName "Golden.LongStackBind.Test" )
+                            ( Name "bindStateT" )
+                          )
+                        )
+                        ( PropName "bind" )
                       )
                       ( AppN Nothing
                         ( Ref Nothing
@@ -1417,8 +1461,14 @@ UberModule
                       ( ParamUnused Nothing :| [] )
                       ( AppN Nothing
                         ( AppN Nothing
-                          ( Ref Nothing
-                            ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "bind" ) )
+                          ( ObjectProp Nothing
+                            ( Ref Nothing
+                              ( Imported
+                                ( ModuleName "Golden.LongStackBind.Test" )
+                                ( Name "bindStateT" )
+                              )
+                            )
+                            ( PropName "bind" )
                           )
                           ( Ref Nothing
                             ( Imported
@@ -1431,11 +1481,14 @@ UberModule
                           ( ParamNamed Nothing ( Name "x122" ) :| [] )
                           ( AppN Nothing
                             ( AppN Nothing
-                              ( Ref Nothing
-                                ( Imported
-                                  ( ModuleName "Golden.LongStackBind.Test" )
-                                  ( Name "discard" )
+                              ( ObjectProp Nothing
+                                ( Ref Nothing
+                                  ( Imported
+                                    ( ModuleName "Golden.LongStackBind.Test" )
+                                    ( Name "bindStateT" )
+                                  )
                                 )
+                                ( PropName "bind" )
                               )
                               ( AppN Nothing
                                 ( Ref Nothing
@@ -1462,11 +1515,14 @@ UberModule
                               ( ParamUnused Nothing :| [] )
                               ( AppN Nothing
                                 ( AppN Nothing
-                                  ( Ref Nothing
-                                    ( Imported
-                                      ( ModuleName "Golden.LongStackBind.Test" )
-                                      ( Name "bind" )
+                                  ( ObjectProp Nothing
+                                    ( Ref Nothing
+                                      ( Imported
+                                        ( ModuleName "Golden.LongStackBind.Test" )
+                                        ( Name "bindStateT" )
+                                      )
                                     )
+                                    ( PropName "bind" )
                                   )
                                   ( Ref Nothing
                                     ( Imported
@@ -1479,11 +1535,14 @@ UberModule
                                   ( ParamNamed Nothing ( Name "x123" ) :| [] )
                                   ( AppN Nothing
                                     ( AppN Nothing
-                                      ( Ref Nothing
-                                        ( Imported
-                                          ( ModuleName "Golden.LongStackBind.Test" )
-                                          ( Name "discard" )
+                                      ( ObjectProp Nothing
+                                        ( Ref Nothing
+                                          ( Imported
+                                            ( ModuleName "Golden.LongStackBind.Test" )
+                                            ( Name "bindStateT" )
+                                          )
                                         )
+                                        ( PropName "bind" )
                                       )
                                       ( AppN Nothing
                                         ( Ref Nothing
@@ -1510,11 +1569,14 @@ UberModule
                                       ( ParamUnused Nothing :| [] )
                                       ( AppN Nothing
                                         ( AppN Nothing
-                                          ( Ref Nothing
-                                            ( Imported
-                                              ( ModuleName "Golden.LongStackBind.Test" )
-                                              ( Name "bind" )
+                                          ( ObjectProp Nothing
+                                            ( Ref Nothing
+                                              ( Imported
+                                                ( ModuleName "Golden.LongStackBind.Test" )
+                                                ( Name "bindStateT" )
+                                              )
                                             )
+                                            ( PropName "bind" )
                                           )
                                           ( Ref Nothing
                                             ( Imported
@@ -1527,11 +1589,14 @@ UberModule
                                           ( ParamNamed Nothing ( Name "x124" ) :| [] )
                                           ( AppN Nothing
                                             ( AppN Nothing
-                                              ( Ref Nothing
-                                                ( Imported
-                                                  ( ModuleName "Golden.LongStackBind.Test" )
-                                                  ( Name "discard" )
+                                              ( ObjectProp Nothing
+                                                ( Ref Nothing
+                                                  ( Imported
+                                                    ( ModuleName "Golden.LongStackBind.Test" )
+                                                    ( Name "bindStateT" )
+                                                  )
                                                 )
+                                                ( PropName "bind" )
                                               )
                                               ( AppN Nothing
                                                 ( Ref Nothing
@@ -1558,11 +1623,14 @@ UberModule
                                               ( ParamUnused Nothing :| [] )
                                               ( AppN Nothing
                                                 ( AppN Nothing
-                                                  ( Ref Nothing
-                                                    ( Imported
-                                                      ( ModuleName "Golden.LongStackBind.Test" )
-                                                      ( Name "bind" )
+                                                  ( ObjectProp Nothing
+                                                    ( Ref Nothing
+                                                      ( Imported
+                                                        ( ModuleName "Golden.LongStackBind.Test" )
+                                                        ( Name "bindStateT" )
+                                                      )
                                                     )
+                                                    ( PropName "bind" )
                                                   )
                                                   ( Ref Nothing
                                                     ( Imported
@@ -1575,11 +1643,14 @@ UberModule
                                                   ( ParamNamed Nothing ( Name "x125" ) :| [] )
                                                   ( AppN Nothing
                                                     ( AppN Nothing
-                                                      ( Ref Nothing
-                                                        ( Imported
-                                                          ( ModuleName "Golden.LongStackBind.Test" )
-                                                          ( Name "discard" )
+                                                      ( ObjectProp Nothing
+                                                        ( Ref Nothing
+                                                          ( Imported
+                                                            ( ModuleName "Golden.LongStackBind.Test" )
+                                                            ( Name "bindStateT" )
+                                                          )
                                                         )
+                                                        ( PropName "bind" )
                                                       )
                                                       ( AppN Nothing
                                                         ( Ref Nothing
@@ -1606,11 +1677,14 @@ UberModule
                                                       ( ParamUnused Nothing :| [] )
                                                       ( AppN Nothing
                                                         ( AppN Nothing
-                                                          ( Ref Nothing
-                                                            ( Imported
-                                                              ( ModuleName "Golden.LongStackBind.Test" )
-                                                              ( Name "bind" )
+                                                          ( ObjectProp Nothing
+                                                            ( Ref Nothing
+                                                              ( Imported
+                                                                ( ModuleName "Golden.LongStackBind.Test" )
+                                                                ( Name "bindStateT" )
+                                                              )
                                                             )
+                                                            ( PropName "bind" )
                                                           )
                                                           ( Ref Nothing
                                                             ( Imported
@@ -1625,11 +1699,14 @@ UberModule
                                                           )
                                                           ( AppN Nothing
                                                             ( AppN Nothing
-                                                              ( Ref Nothing
-                                                                ( Imported
-                                                                  ( ModuleName "Golden.LongStackBind.Test" )
-                                                                  ( Name "discard" )
+                                                              ( ObjectProp Nothing
+                                                                ( Ref Nothing
+                                                                  ( Imported
+                                                                    ( ModuleName "Golden.LongStackBind.Test" )
+                                                                    ( Name "bindStateT" )
+                                                                  )
                                                                 )
+                                                                ( PropName "bind" )
                                                               )
                                                               ( AppN Nothing
                                                                 ( Ref Nothing
@@ -1656,11 +1733,14 @@ UberModule
                                                               ( ParamUnused Nothing :| [] )
                                                               ( AppN Nothing
                                                                 ( AppN Nothing
-                                                                  ( Ref Nothing
-                                                                    ( Imported
-                                                                      ( ModuleName "Golden.LongStackBind.Test" )
-                                                                      ( Name "bind" )
+                                                                  ( ObjectProp Nothing
+                                                                    ( Ref Nothing
+                                                                      ( Imported
+                                                                        ( ModuleName "Golden.LongStackBind.Test" )
+                                                                        ( Name "bindStateT" )
+                                                                      )
                                                                     )
+                                                                    ( PropName "bind" )
                                                                   )
                                                                   ( Ref Nothing
                                                                     ( Imported
@@ -1675,11 +1755,14 @@ UberModule
                                                                   )
                                                                   ( AppN Nothing
                                                                     ( AppN Nothing
-                                                                      ( Ref Nothing
-                                                                        ( Imported
-                                                                          ( ModuleName "Golden.LongStackBind.Test" )
-                                                                          ( Name "discard" )
+                                                                      ( ObjectProp Nothing
+                                                                        ( Ref Nothing
+                                                                          ( Imported
+                                                                            ( ModuleName "Golden.LongStackBind.Test" )
+                                                                            ( Name "bindStateT" )
+                                                                          )
                                                                         )
+                                                                        ( PropName "bind" )
                                                                       )
                                                                       ( AppN Nothing
                                                                         ( Ref Nothing
@@ -1708,11 +1791,14 @@ UberModule
                                                                       ( ParamUnused Nothing :| [] )
                                                                       ( AppN Nothing
                                                                         ( AppN Nothing
-                                                                          ( Ref Nothing
-                                                                            ( Imported
-                                                                              ( ModuleName "Golden.LongStackBind.Test" )
-                                                                              ( Name "bind" )
+                                                                          ( ObjectProp Nothing
+                                                                            ( Ref Nothing
+                                                                              ( Imported
+                                                                                ( ModuleName "Golden.LongStackBind.Test" )
+                                                                                ( Name "bindStateT" )
+                                                                              )
                                                                             )
+                                                                            ( PropName "bind" )
                                                                           )
                                                                           ( Ref Nothing
                                                                             ( Imported
@@ -1727,11 +1813,14 @@ UberModule
                                                                           )
                                                                           ( AppN Nothing
                                                                             ( AppN Nothing
-                                                                              ( Ref Nothing
-                                                                                ( Imported
-                                                                                  ( ModuleName "Golden.LongStackBind.Test" )
-                                                                                  ( Name "discard" )
+                                                                              ( ObjectProp Nothing
+                                                                                ( Ref Nothing
+                                                                                  ( Imported
+                                                                                    ( ModuleName "Golden.LongStackBind.Test" )
+                                                                                    ( Name "bindStateT" )
+                                                                                  )
                                                                                 )
+                                                                                ( PropName "bind" )
                                                                               )
                                                                               ( AppN Nothing
                                                                                 ( Ref Nothing
@@ -1760,11 +1849,14 @@ UberModule
                                                                               ( ParamUnused Nothing :| [] )
                                                                               ( AppN Nothing
                                                                                 ( AppN Nothing
-                                                                                  ( Ref Nothing
-                                                                                    ( Imported
-                                                                                      ( ModuleName "Golden.LongStackBind.Test" )
-                                                                                      ( Name "bind" )
+                                                                                  ( ObjectProp Nothing
+                                                                                    ( Ref Nothing
+                                                                                      ( Imported
+                                                                                        ( ModuleName "Golden.LongStackBind.Test" )
+                                                                                        ( Name "bindStateT" )
+                                                                                      )
                                                                                     )
+                                                                                    ( PropName "bind" )
                                                                                   )
                                                                                   ( Ref Nothing
                                                                                     ( Imported
@@ -1779,11 +1871,14 @@ UberModule
                                                                                   )
                                                                                   ( AppN Nothing
                                                                                     ( AppN Nothing
-                                                                                      ( Ref Nothing
-                                                                                        ( Imported
-                                                                                          ( ModuleName "Golden.LongStackBind.Test" )
-                                                                                          ( Name "discard" )
+                                                                                      ( ObjectProp Nothing
+                                                                                        ( Ref Nothing
+                                                                                          ( Imported
+                                                                                            ( ModuleName "Golden.LongStackBind.Test" )
+                                                                                            ( Name "bindStateT" )
+                                                                                          )
                                                                                         )
+                                                                                        ( PropName "bind" )
                                                                                       )
                                                                                       ( AppN Nothing
                                                                                         ( Ref Nothing
@@ -1812,11 +1907,14 @@ UberModule
                                                                                       ( ParamUnused Nothing :| [] )
                                                                                       ( AppN Nothing
                                                                                         ( AppN Nothing
-                                                                                          ( Ref Nothing
-                                                                                            ( Imported
-                                                                                              ( ModuleName "Golden.LongStackBind.Test" )
-                                                                                              ( Name "bind" )
+                                                                                          ( ObjectProp Nothing
+                                                                                            ( Ref Nothing
+                                                                                              ( Imported
+                                                                                                ( ModuleName "Golden.LongStackBind.Test" )
+                                                                                                ( Name "bindStateT" )
+                                                                                              )
                                                                                             )
+                                                                                            ( PropName "bind" )
                                                                                           )
                                                                                           ( Ref Nothing
                                                                                             ( Imported
@@ -1831,11 +1929,14 @@ UberModule
                                                                                           )
                                                                                           ( AppN Nothing
                                                                                             ( AppN Nothing
-                                                                                              ( Ref Nothing
-                                                                                                ( Imported
-                                                                                                  ( ModuleName "Golden.LongStackBind.Test" )
-                                                                                                  ( Name "discard" )
+                                                                                              ( ObjectProp Nothing
+                                                                                                ( Ref Nothing
+                                                                                                  ( Imported
+                                                                                                    ( ModuleName "Golden.LongStackBind.Test" )
+                                                                                                    ( Name "bindStateT" )
+                                                                                                  )
                                                                                                 )
+                                                                                                ( PropName "bind" )
                                                                                               )
                                                                                               ( AppN Nothing
                                                                                                 ( Ref Nothing
@@ -1864,11 +1965,14 @@ UberModule
                                                                                               ( ParamUnused Nothing :| [] )
                                                                                               ( AppN Nothing
                                                                                                 ( AppN Nothing
-                                                                                                  ( Ref Nothing
-                                                                                                    ( Imported
-                                                                                                      ( ModuleName "Golden.LongStackBind.Test" )
-                                                                                                      ( Name "bind" )
+                                                                                                  ( ObjectProp Nothing
+                                                                                                    ( Ref Nothing
+                                                                                                      ( Imported
+                                                                                                        ( ModuleName "Golden.LongStackBind.Test" )
+                                                                                                        ( Name "bindStateT" )
+                                                                                                      )
                                                                                                     )
+                                                                                                    ( PropName "bind" )
                                                                                                   )
                                                                                                   ( Ref Nothing
                                                                                                     ( Imported
@@ -1883,11 +1987,14 @@ UberModule
                                                                                                   )
                                                                                                   ( AppN Nothing
                                                                                                     ( AppN Nothing
-                                                                                                      ( Ref Nothing
-                                                                                                        ( Imported
-                                                                                                          ( ModuleName "Golden.LongStackBind.Test" )
-                                                                                                          ( Name "discard" )
+                                                                                                      ( ObjectProp Nothing
+                                                                                                        ( Ref Nothing
+                                                                                                          ( Imported
+                                                                                                            ( ModuleName "Golden.LongStackBind.Test" )
+                                                                                                            ( Name "bindStateT" )
+                                                                                                          )
                                                                                                         )
+                                                                                                        ( PropName "bind" )
                                                                                                       )
                                                                                                       ( AppN Nothing
                                                                                                         ( Ref Nothing
@@ -1916,11 +2023,14 @@ UberModule
                                                                                                       ( ParamUnused Nothing :| [] )
                                                                                                       ( AppN Nothing
                                                                                                         ( AppN Nothing
-                                                                                                          ( Ref Nothing
-                                                                                                            ( Imported
-                                                                                                              ( ModuleName "Golden.LongStackBind.Test" )
-                                                                                                              ( Name "bind" )
+                                                                                                          ( ObjectProp Nothing
+                                                                                                            ( Ref Nothing
+                                                                                                              ( Imported
+                                                                                                                ( ModuleName "Golden.LongStackBind.Test" )
+                                                                                                                ( Name "bindStateT" )
+                                                                                                              )
                                                                                                             )
+                                                                                                            ( PropName "bind" )
                                                                                                           )
                                                                                                           ( Ref Nothing
                                                                                                             ( Imported
@@ -1935,11 +2045,14 @@ UberModule
                                                                                                           )
                                                                                                           ( AppN Nothing
                                                                                                             ( AppN Nothing
-                                                                                                              ( Ref Nothing
-                                                                                                                ( Imported
-                                                                                                                  ( ModuleName "Golden.LongStackBind.Test" )
-                                                                                                                  ( Name "discard" )
+                                                                                                              ( ObjectProp Nothing
+                                                                                                                ( Ref Nothing
+                                                                                                                  ( Imported
+                                                                                                                    ( ModuleName "Golden.LongStackBind.Test" )
+                                                                                                                    ( Name "bindStateT" )
+                                                                                                                  )
                                                                                                                 )
+                                                                                                                ( PropName "bind" )
                                                                                                               )
                                                                                                               ( AppN Nothing
                                                                                                                 ( Ref Nothing
@@ -1968,11 +2081,14 @@ UberModule
                                                                                                               ( ParamUnused Nothing :| [] )
                                                                                                               ( AppN Nothing
                                                                                                                 ( AppN Nothing
-                                                                                                                  ( Ref Nothing
-                                                                                                                    ( Imported
-                                                                                                                      ( ModuleName "Golden.LongStackBind.Test" )
-                                                                                                                      ( Name "bind" )
+                                                                                                                  ( ObjectProp Nothing
+                                                                                                                    ( Ref Nothing
+                                                                                                                      ( Imported
+                                                                                                                        ( ModuleName "Golden.LongStackBind.Test" )
+                                                                                                                        ( Name "bindStateT" )
+                                                                                                                      )
                                                                                                                     )
+                                                                                                                    ( PropName "bind" )
                                                                                                                   )
                                                                                                                   ( Ref Nothing
                                                                                                                     ( Imported
@@ -1987,11 +2103,14 @@ UberModule
                                                                                                                   )
                                                                                                                   ( AppN Nothing
                                                                                                                     ( AppN Nothing
-                                                                                                                      ( Ref Nothing
-                                                                                                                        ( Imported
-                                                                                                                          ( ModuleName "Golden.LongStackBind.Test" )
-                                                                                                                          ( Name "discard" )
+                                                                                                                      ( ObjectProp Nothing
+                                                                                                                        ( Ref Nothing
+                                                                                                                          ( Imported
+                                                                                                                            ( ModuleName "Golden.LongStackBind.Test" )
+                                                                                                                            ( Name "bindStateT" )
+                                                                                                                          )
                                                                                                                         )
+                                                                                                                        ( PropName "bind" )
                                                                                                                       )
                                                                                                                       ( AppN Nothing
                                                                                                                         ( Ref Nothing
@@ -2020,11 +2139,14 @@ UberModule
                                                                                                                       ( ParamUnused Nothing :| [] )
                                                                                                                       ( AppN Nothing
                                                                                                                         ( AppN Nothing
-                                                                                                                          ( Ref Nothing
-                                                                                                                            ( Imported
-                                                                                                                              ( ModuleName "Golden.LongStackBind.Test" )
-                                                                                                                              ( Name "bind" )
+                                                                                                                          ( ObjectProp Nothing
+                                                                                                                            ( Ref Nothing
+                                                                                                                              ( Imported
+                                                                                                                                ( ModuleName "Golden.LongStackBind.Test" )
+                                                                                                                                ( Name "bindStateT" )
+                                                                                                                              )
                                                                                                                             )
+                                                                                                                            ( PropName "bind" )
                                                                                                                           )
                                                                                                                           ( Ref Nothing
                                                                                                                             ( Imported
@@ -2039,11 +2161,14 @@ UberModule
                                                                                                                           )
                                                                                                                           ( AppN Nothing
                                                                                                                             ( AppN Nothing
-                                                                                                                              ( Ref Nothing
-                                                                                                                                ( Imported
-                                                                                                                                  ( ModuleName "Golden.LongStackBind.Test" )
-                                                                                                                                  ( Name "discard" )
+                                                                                                                              ( ObjectProp Nothing
+                                                                                                                                ( Ref Nothing
+                                                                                                                                  ( Imported
+                                                                                                                                    ( ModuleName "Golden.LongStackBind.Test" )
+                                                                                                                                    ( Name "bindStateT" )
+                                                                                                                                  )
                                                                                                                                 )
+                                                                                                                                ( PropName "bind" )
                                                                                                                               )
                                                                                                                               ( AppN Nothing
                                                                                                                                 ( Ref Nothing
@@ -2072,11 +2197,14 @@ UberModule
                                                                                                                               ( ParamUnused Nothing :| [] )
                                                                                                                               ( AppN Nothing
                                                                                                                                 ( AppN Nothing
-                                                                                                                                  ( Ref Nothing
-                                                                                                                                    ( Imported
-                                                                                                                                      ( ModuleName "Golden.LongStackBind.Test" )
-                                                                                                                                      ( Name "bind" )
+                                                                                                                                  ( ObjectProp Nothing
+                                                                                                                                    ( Ref Nothing
+                                                                                                                                      ( Imported
+                                                                                                                                        ( ModuleName "Golden.LongStackBind.Test" )
+                                                                                                                                        ( Name "bindStateT" )
+                                                                                                                                      )
                                                                                                                                     )
+                                                                                                                                    ( PropName "bind" )
                                                                                                                                   )
                                                                                                                                   ( Ref Nothing
                                                                                                                                     ( Imported
@@ -2091,11 +2219,14 @@ UberModule
                                                                                                                                   )
                                                                                                                                   ( AppN Nothing
                                                                                                                                     ( AppN Nothing
-                                                                                                                                      ( Ref Nothing
-                                                                                                                                        ( Imported
-                                                                                                                                          ( ModuleName "Golden.LongStackBind.Test" )
-                                                                                                                                          ( Name "discard" )
+                                                                                                                                      ( ObjectProp Nothing
+                                                                                                                                        ( Ref Nothing
+                                                                                                                                          ( Imported
+                                                                                                                                            ( ModuleName "Golden.LongStackBind.Test" )
+                                                                                                                                            ( Name "bindStateT" )
+                                                                                                                                          )
                                                                                                                                         )
+                                                                                                                                        ( PropName "bind" )
                                                                                                                                       )
                                                                                                                                       ( AppN Nothing
                                                                                                                                         ( Ref Nothing
@@ -2124,11 +2255,14 @@ UberModule
                                                                                                                                       ( ParamUnused Nothing :| [] )
                                                                                                                                       ( AppN Nothing
                                                                                                                                         ( AppN Nothing
-                                                                                                                                          ( Ref Nothing
-                                                                                                                                            ( Imported
-                                                                                                                                              ( ModuleName "Golden.LongStackBind.Test" )
-                                                                                                                                              ( Name "bind" )
+                                                                                                                                          ( ObjectProp Nothing
+                                                                                                                                            ( Ref Nothing
+                                                                                                                                              ( Imported
+                                                                                                                                                ( ModuleName "Golden.LongStackBind.Test" )
+                                                                                                                                                ( Name "bindStateT" )
+                                                                                                                                              )
                                                                                                                                             )
+                                                                                                                                            ( PropName "bind" )
                                                                                                                                           )
                                                                                                                                           ( Ref Nothing
                                                                                                                                             ( Imported
@@ -2143,11 +2277,14 @@ UberModule
                                                                                                                                           )
                                                                                                                                           ( AppN Nothing
                                                                                                                                             ( AppN Nothing
-                                                                                                                                              ( Ref Nothing
-                                                                                                                                                ( Imported
-                                                                                                                                                  ( ModuleName "Golden.LongStackBind.Test" )
-                                                                                                                                                  ( Name "discard" )
+                                                                                                                                              ( ObjectProp Nothing
+                                                                                                                                                ( Ref Nothing
+                                                                                                                                                  ( Imported
+                                                                                                                                                    ( ModuleName "Golden.LongStackBind.Test" )
+                                                                                                                                                    ( Name "bindStateT" )
+                                                                                                                                                  )
                                                                                                                                                 )
+                                                                                                                                                ( PropName "bind" )
                                                                                                                                               )
                                                                                                                                               ( AppN Nothing
                                                                                                                                                 ( Ref Nothing
@@ -2176,11 +2313,14 @@ UberModule
                                                                                                                                               ( ParamUnused Nothing :| [] )
                                                                                                                                               ( AppN Nothing
                                                                                                                                                 ( AppN Nothing
-                                                                                                                                                  ( Ref Nothing
-                                                                                                                                                    ( Imported
-                                                                                                                                                      ( ModuleName "Golden.LongStackBind.Test" )
-                                                                                                                                                      ( Name "bind" )
+                                                                                                                                                  ( ObjectProp Nothing
+                                                                                                                                                    ( Ref Nothing
+                                                                                                                                                      ( Imported
+                                                                                                                                                        ( ModuleName "Golden.LongStackBind.Test" )
+                                                                                                                                                        ( Name "bindStateT" )
+                                                                                                                                                      )
                                                                                                                                                     )
+                                                                                                                                                    ( PropName "bind" )
                                                                                                                                                   )
                                                                                                                                                   ( Ref Nothing
                                                                                                                                                     ( Imported
@@ -2195,11 +2335,14 @@ UberModule
                                                                                                                                                   )
                                                                                                                                                   ( AppN Nothing
                                                                                                                                                     ( AppN Nothing
-                                                                                                                                                      ( Ref Nothing
-                                                                                                                                                        ( Imported
-                                                                                                                                                          ( ModuleName "Golden.LongStackBind.Test" )
-                                                                                                                                                          ( Name "discard" )
+                                                                                                                                                      ( ObjectProp Nothing
+                                                                                                                                                        ( Ref Nothing
+                                                                                                                                                          ( Imported
+                                                                                                                                                            ( ModuleName "Golden.LongStackBind.Test" )
+                                                                                                                                                            ( Name "bindStateT" )
+                                                                                                                                                          )
                                                                                                                                                         )
+                                                                                                                                                        ( PropName "bind" )
                                                                                                                                                       )
                                                                                                                                                       ( AppN Nothing
                                                                                                                                                         ( Ref Nothing
@@ -2228,11 +2371,14 @@ UberModule
                                                                                                                                                       ( ParamUnused Nothing :| [] )
                                                                                                                                                       ( AppN Nothing
                                                                                                                                                         ( AppN Nothing
-                                                                                                                                                          ( Ref Nothing
-                                                                                                                                                            ( Imported
-                                                                                                                                                              ( ModuleName "Golden.LongStackBind.Test" )
-                                                                                                                                                              ( Name "bind" )
+                                                                                                                                                          ( ObjectProp Nothing
+                                                                                                                                                            ( Ref Nothing
+                                                                                                                                                              ( Imported
+                                                                                                                                                                ( ModuleName "Golden.LongStackBind.Test" )
+                                                                                                                                                                ( Name "bindStateT" )
+                                                                                                                                                              )
                                                                                                                                                             )
+                                                                                                                                                            ( PropName "bind" )
                                                                                                                                                           )
                                                                                                                                                           ( Ref Nothing
                                                                                                                                                             ( Imported
@@ -2247,11 +2393,14 @@ UberModule
                                                                                                                                                           )
                                                                                                                                                           ( AppN Nothing
                                                                                                                                                             ( AppN Nothing
-                                                                                                                                                              ( Ref Nothing
-                                                                                                                                                                ( Imported
-                                                                                                                                                                  ( ModuleName "Golden.LongStackBind.Test" )
-                                                                                                                                                                  ( Name "discard" )
+                                                                                                                                                              ( ObjectProp Nothing
+                                                                                                                                                                ( Ref Nothing
+                                                                                                                                                                  ( Imported
+                                                                                                                                                                    ( ModuleName "Golden.LongStackBind.Test" )
+                                                                                                                                                                    ( Name "bindStateT" )
+                                                                                                                                                                  )
                                                                                                                                                                 )
+                                                                                                                                                                ( PropName "bind" )
                                                                                                                                                               )
                                                                                                                                                               ( AppN Nothing
                                                                                                                                                                 ( Ref Nothing
@@ -2280,11 +2429,14 @@ UberModule
                                                                                                                                                               ( ParamUnused Nothing :| [] )
                                                                                                                                                               ( AppN Nothing
                                                                                                                                                                 ( AppN Nothing
-                                                                                                                                                                  ( Ref Nothing
-                                                                                                                                                                    ( Imported
-                                                                                                                                                                      ( ModuleName "Golden.LongStackBind.Test" )
-                                                                                                                                                                      ( Name "bind" )
+                                                                                                                                                                  ( ObjectProp Nothing
+                                                                                                                                                                    ( Ref Nothing
+                                                                                                                                                                      ( Imported
+                                                                                                                                                                        ( ModuleName "Golden.LongStackBind.Test" )
+                                                                                                                                                                        ( Name "bindStateT" )
+                                                                                                                                                                      )
                                                                                                                                                                     )
+                                                                                                                                                                    ( PropName "bind" )
                                                                                                                                                                   )
                                                                                                                                                                   ( Ref Nothing
                                                                                                                                                                     ( Imported
@@ -2299,11 +2451,14 @@ UberModule
                                                                                                                                                                   )
                                                                                                                                                                   ( AppN Nothing
                                                                                                                                                                     ( AppN Nothing
-                                                                                                                                                                      ( Ref Nothing
-                                                                                                                                                                        ( Imported
-                                                                                                                                                                          ( ModuleName "Golden.LongStackBind.Test" )
-                                                                                                                                                                          ( Name "discard" )
+                                                                                                                                                                      ( ObjectProp Nothing
+                                                                                                                                                                        ( Ref Nothing
+                                                                                                                                                                          ( Imported
+                                                                                                                                                                            ( ModuleName "Golden.LongStackBind.Test" )
+                                                                                                                                                                            ( Name "bindStateT" )
+                                                                                                                                                                          )
                                                                                                                                                                         )
+                                                                                                                                                                        ( PropName "bind" )
                                                                                                                                                                       )
                                                                                                                                                                       ( AppN Nothing
                                                                                                                                                                         ( Ref Nothing
@@ -2332,11 +2487,14 @@ UberModule
                                                                                                                                                                       ( ParamUnused Nothing :| [] )
                                                                                                                                                                       ( AppN Nothing
                                                                                                                                                                         ( AppN Nothing
-                                                                                                                                                                          ( Ref Nothing
-                                                                                                                                                                            ( Imported
-                                                                                                                                                                              ( ModuleName "Golden.LongStackBind.Test" )
-                                                                                                                                                                              ( Name "bind" )
+                                                                                                                                                                          ( ObjectProp Nothing
+                                                                                                                                                                            ( Ref Nothing
+                                                                                                                                                                              ( Imported
+                                                                                                                                                                                ( ModuleName "Golden.LongStackBind.Test" )
+                                                                                                                                                                                ( Name "bindStateT" )
+                                                                                                                                                                              )
                                                                                                                                                                             )
+                                                                                                                                                                            ( PropName "bind" )
                                                                                                                                                                           )
                                                                                                                                                                           ( Ref Nothing
                                                                                                                                                                             ( Imported
@@ -2351,11 +2509,14 @@ UberModule
                                                                                                                                                                           )
                                                                                                                                                                           ( AppN Nothing
                                                                                                                                                                             ( AppN Nothing
-                                                                                                                                                                              ( Ref Nothing
-                                                                                                                                                                                ( Imported
-                                                                                                                                                                                  ( ModuleName "Golden.LongStackBind.Test" )
-                                                                                                                                                                                  ( Name "discard" )
+                                                                                                                                                                              ( ObjectProp Nothing
+                                                                                                                                                                                ( Ref Nothing
+                                                                                                                                                                                  ( Imported
+                                                                                                                                                                                    ( ModuleName "Golden.LongStackBind.Test" )
+                                                                                                                                                                                    ( Name "bindStateT" )
+                                                                                                                                                                                  )
                                                                                                                                                                                 )
+                                                                                                                                                                                ( PropName "bind" )
                                                                                                                                                                               )
                                                                                                                                                                               ( AppN Nothing
                                                                                                                                                                                 ( Ref Nothing
@@ -2385,12 +2546,12 @@ UberModule
                                                                                                                                                                               ( AppN Nothing
                                                                                                                                                                                 ( Ref Nothing
                                                                                                                                                                                   ( Local
-                                                                                                                                                                                    ( Name "$kont6557" )
+                                                                                                                                                                                    ( Name "$kont6199" )
                                                                                                                                                                                   )
                                                                                                                                                                                 )
                                                                                                                                                                                 ( Ref Nothing
                                                                                                                                                                                   ( Local
-                                                                                                                                                                                    ( Name "x1$6560" )
+                                                                                                                                                                                    ( Name "x1$6202" )
                                                                                                                                                                                   ) :| []
                                                                                                                                                                                 )
                                                                                                                                                                               ) :| []
@@ -2475,12 +2636,15 @@ UberModule
                 )
               )
             ), Standalone
-            ( Nothing, Name "$kont6561", AbsN Nothing
-              ( ParamNamed Nothing ( Name "x1$6562" ) :| [] )
+            ( Nothing, Name "$kont6203", AbsN Nothing
+              ( ParamNamed Nothing ( Name "x1$6204" ) :| [] )
               ( AppN Nothing
                 ( AppN Nothing
-                  ( Ref Nothing
-                    ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "bind" ) )
+                  ( ObjectProp Nothing
+                    ( Ref Nothing
+                      ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "bindStateT" ) )
+                    )
+                    ( PropName "bind" )
                   )
                   ( Ref Nothing
                     ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "get" ) ) :| []
@@ -2490,8 +2654,14 @@ UberModule
                   ( ParamNamed Nothing ( Name "x101" ) :| [] )
                   ( AppN Nothing
                     ( AppN Nothing
-                      ( Ref Nothing
-                        ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "discard" ) )
+                      ( ObjectProp Nothing
+                        ( Ref Nothing
+                          ( Imported
+                            ( ModuleName "Golden.LongStackBind.Test" )
+                            ( Name "bindStateT" )
+                          )
+                        )
+                        ( PropName "bind" )
                       )
                       ( AppN Nothing
                         ( Ref Nothing
@@ -2512,8 +2682,14 @@ UberModule
                       ( ParamUnused Nothing :| [] )
                       ( AppN Nothing
                         ( AppN Nothing
-                          ( Ref Nothing
-                            ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "bind" ) )
+                          ( ObjectProp Nothing
+                            ( Ref Nothing
+                              ( Imported
+                                ( ModuleName "Golden.LongStackBind.Test" )
+                                ( Name "bindStateT" )
+                              )
+                            )
+                            ( PropName "bind" )
                           )
                           ( Ref Nothing
                             ( Imported
@@ -2526,11 +2702,14 @@ UberModule
                           ( ParamNamed Nothing ( Name "x102" ) :| [] )
                           ( AppN Nothing
                             ( AppN Nothing
-                              ( Ref Nothing
-                                ( Imported
-                                  ( ModuleName "Golden.LongStackBind.Test" )
-                                  ( Name "discard" )
+                              ( ObjectProp Nothing
+                                ( Ref Nothing
+                                  ( Imported
+                                    ( ModuleName "Golden.LongStackBind.Test" )
+                                    ( Name "bindStateT" )
+                                  )
                                 )
+                                ( PropName "bind" )
                               )
                               ( AppN Nothing
                                 ( Ref Nothing
@@ -2557,11 +2736,14 @@ UberModule
                               ( ParamUnused Nothing :| [] )
                               ( AppN Nothing
                                 ( AppN Nothing
-                                  ( Ref Nothing
-                                    ( Imported
-                                      ( ModuleName "Golden.LongStackBind.Test" )
-                                      ( Name "bind" )
+                                  ( ObjectProp Nothing
+                                    ( Ref Nothing
+                                      ( Imported
+                                        ( ModuleName "Golden.LongStackBind.Test" )
+                                        ( Name "bindStateT" )
+                                      )
                                     )
+                                    ( PropName "bind" )
                                   )
                                   ( Ref Nothing
                                     ( Imported
@@ -2574,11 +2756,14 @@ UberModule
                                   ( ParamNamed Nothing ( Name "x103" ) :| [] )
                                   ( AppN Nothing
                                     ( AppN Nothing
-                                      ( Ref Nothing
-                                        ( Imported
-                                          ( ModuleName "Golden.LongStackBind.Test" )
-                                          ( Name "discard" )
+                                      ( ObjectProp Nothing
+                                        ( Ref Nothing
+                                          ( Imported
+                                            ( ModuleName "Golden.LongStackBind.Test" )
+                                            ( Name "bindStateT" )
+                                          )
                                         )
+                                        ( PropName "bind" )
                                       )
                                       ( AppN Nothing
                                         ( Ref Nothing
@@ -2605,11 +2790,14 @@ UberModule
                                       ( ParamUnused Nothing :| [] )
                                       ( AppN Nothing
                                         ( AppN Nothing
-                                          ( Ref Nothing
-                                            ( Imported
-                                              ( ModuleName "Golden.LongStackBind.Test" )
-                                              ( Name "bind" )
+                                          ( ObjectProp Nothing
+                                            ( Ref Nothing
+                                              ( Imported
+                                                ( ModuleName "Golden.LongStackBind.Test" )
+                                                ( Name "bindStateT" )
+                                              )
                                             )
+                                            ( PropName "bind" )
                                           )
                                           ( Ref Nothing
                                             ( Imported
@@ -2622,11 +2810,14 @@ UberModule
                                           ( ParamNamed Nothing ( Name "x104" ) :| [] )
                                           ( AppN Nothing
                                             ( AppN Nothing
-                                              ( Ref Nothing
-                                                ( Imported
-                                                  ( ModuleName "Golden.LongStackBind.Test" )
-                                                  ( Name "discard" )
+                                              ( ObjectProp Nothing
+                                                ( Ref Nothing
+                                                  ( Imported
+                                                    ( ModuleName "Golden.LongStackBind.Test" )
+                                                    ( Name "bindStateT" )
+                                                  )
                                                 )
+                                                ( PropName "bind" )
                                               )
                                               ( AppN Nothing
                                                 ( Ref Nothing
@@ -2653,11 +2844,14 @@ UberModule
                                               ( ParamUnused Nothing :| [] )
                                               ( AppN Nothing
                                                 ( AppN Nothing
-                                                  ( Ref Nothing
-                                                    ( Imported
-                                                      ( ModuleName "Golden.LongStackBind.Test" )
-                                                      ( Name "bind" )
+                                                  ( ObjectProp Nothing
+                                                    ( Ref Nothing
+                                                      ( Imported
+                                                        ( ModuleName "Golden.LongStackBind.Test" )
+                                                        ( Name "bindStateT" )
+                                                      )
                                                     )
+                                                    ( PropName "bind" )
                                                   )
                                                   ( Ref Nothing
                                                     ( Imported
@@ -2670,11 +2864,14 @@ UberModule
                                                   ( ParamNamed Nothing ( Name "x105" ) :| [] )
                                                   ( AppN Nothing
                                                     ( AppN Nothing
-                                                      ( Ref Nothing
-                                                        ( Imported
-                                                          ( ModuleName "Golden.LongStackBind.Test" )
-                                                          ( Name "discard" )
+                                                      ( ObjectProp Nothing
+                                                        ( Ref Nothing
+                                                          ( Imported
+                                                            ( ModuleName "Golden.LongStackBind.Test" )
+                                                            ( Name "bindStateT" )
+                                                          )
                                                         )
+                                                        ( PropName "bind" )
                                                       )
                                                       ( AppN Nothing
                                                         ( Ref Nothing
@@ -2701,11 +2898,14 @@ UberModule
                                                       ( ParamUnused Nothing :| [] )
                                                       ( AppN Nothing
                                                         ( AppN Nothing
-                                                          ( Ref Nothing
-                                                            ( Imported
-                                                              ( ModuleName "Golden.LongStackBind.Test" )
-                                                              ( Name "bind" )
+                                                          ( ObjectProp Nothing
+                                                            ( Ref Nothing
+                                                              ( Imported
+                                                                ( ModuleName "Golden.LongStackBind.Test" )
+                                                                ( Name "bindStateT" )
+                                                              )
                                                             )
+                                                            ( PropName "bind" )
                                                           )
                                                           ( Ref Nothing
                                                             ( Imported
@@ -2720,11 +2920,14 @@ UberModule
                                                           )
                                                           ( AppN Nothing
                                                             ( AppN Nothing
-                                                              ( Ref Nothing
-                                                                ( Imported
-                                                                  ( ModuleName "Golden.LongStackBind.Test" )
-                                                                  ( Name "discard" )
+                                                              ( ObjectProp Nothing
+                                                                ( Ref Nothing
+                                                                  ( Imported
+                                                                    ( ModuleName "Golden.LongStackBind.Test" )
+                                                                    ( Name "bindStateT" )
+                                                                  )
                                                                 )
+                                                                ( PropName "bind" )
                                                               )
                                                               ( AppN Nothing
                                                                 ( Ref Nothing
@@ -2751,11 +2954,14 @@ UberModule
                                                               ( ParamUnused Nothing :| [] )
                                                               ( AppN Nothing
                                                                 ( AppN Nothing
-                                                                  ( Ref Nothing
-                                                                    ( Imported
-                                                                      ( ModuleName "Golden.LongStackBind.Test" )
-                                                                      ( Name "bind" )
+                                                                  ( ObjectProp Nothing
+                                                                    ( Ref Nothing
+                                                                      ( Imported
+                                                                        ( ModuleName "Golden.LongStackBind.Test" )
+                                                                        ( Name "bindStateT" )
+                                                                      )
                                                                     )
+                                                                    ( PropName "bind" )
                                                                   )
                                                                   ( Ref Nothing
                                                                     ( Imported
@@ -2770,11 +2976,14 @@ UberModule
                                                                   )
                                                                   ( AppN Nothing
                                                                     ( AppN Nothing
-                                                                      ( Ref Nothing
-                                                                        ( Imported
-                                                                          ( ModuleName "Golden.LongStackBind.Test" )
-                                                                          ( Name "discard" )
+                                                                      ( ObjectProp Nothing
+                                                                        ( Ref Nothing
+                                                                          ( Imported
+                                                                            ( ModuleName "Golden.LongStackBind.Test" )
+                                                                            ( Name "bindStateT" )
+                                                                          )
                                                                         )
+                                                                        ( PropName "bind" )
                                                                       )
                                                                       ( AppN Nothing
                                                                         ( Ref Nothing
@@ -2803,11 +3012,14 @@ UberModule
                                                                       ( ParamUnused Nothing :| [] )
                                                                       ( AppN Nothing
                                                                         ( AppN Nothing
-                                                                          ( Ref Nothing
-                                                                            ( Imported
-                                                                              ( ModuleName "Golden.LongStackBind.Test" )
-                                                                              ( Name "bind" )
+                                                                          ( ObjectProp Nothing
+                                                                            ( Ref Nothing
+                                                                              ( Imported
+                                                                                ( ModuleName "Golden.LongStackBind.Test" )
+                                                                                ( Name "bindStateT" )
+                                                                              )
                                                                             )
+                                                                            ( PropName "bind" )
                                                                           )
                                                                           ( Ref Nothing
                                                                             ( Imported
@@ -2822,11 +3034,14 @@ UberModule
                                                                           )
                                                                           ( AppN Nothing
                                                                             ( AppN Nothing
-                                                                              ( Ref Nothing
-                                                                                ( Imported
-                                                                                  ( ModuleName "Golden.LongStackBind.Test" )
-                                                                                  ( Name "discard" )
+                                                                              ( ObjectProp Nothing
+                                                                                ( Ref Nothing
+                                                                                  ( Imported
+                                                                                    ( ModuleName "Golden.LongStackBind.Test" )
+                                                                                    ( Name "bindStateT" )
+                                                                                  )
                                                                                 )
+                                                                                ( PropName "bind" )
                                                                               )
                                                                               ( AppN Nothing
                                                                                 ( Ref Nothing
@@ -2855,11 +3070,14 @@ UberModule
                                                                               ( ParamUnused Nothing :| [] )
                                                                               ( AppN Nothing
                                                                                 ( AppN Nothing
-                                                                                  ( Ref Nothing
-                                                                                    ( Imported
-                                                                                      ( ModuleName "Golden.LongStackBind.Test" )
-                                                                                      ( Name "bind" )
+                                                                                  ( ObjectProp Nothing
+                                                                                    ( Ref Nothing
+                                                                                      ( Imported
+                                                                                        ( ModuleName "Golden.LongStackBind.Test" )
+                                                                                        ( Name "bindStateT" )
+                                                                                      )
                                                                                     )
+                                                                                    ( PropName "bind" )
                                                                                   )
                                                                                   ( Ref Nothing
                                                                                     ( Imported
@@ -2874,11 +3092,14 @@ UberModule
                                                                                   )
                                                                                   ( AppN Nothing
                                                                                     ( AppN Nothing
-                                                                                      ( Ref Nothing
-                                                                                        ( Imported
-                                                                                          ( ModuleName "Golden.LongStackBind.Test" )
-                                                                                          ( Name "discard" )
+                                                                                      ( ObjectProp Nothing
+                                                                                        ( Ref Nothing
+                                                                                          ( Imported
+                                                                                            ( ModuleName "Golden.LongStackBind.Test" )
+                                                                                            ( Name "bindStateT" )
+                                                                                          )
                                                                                         )
+                                                                                        ( PropName "bind" )
                                                                                       )
                                                                                       ( AppN Nothing
                                                                                         ( Ref Nothing
@@ -2907,11 +3128,14 @@ UberModule
                                                                                       ( ParamUnused Nothing :| [] )
                                                                                       ( AppN Nothing
                                                                                         ( AppN Nothing
-                                                                                          ( Ref Nothing
-                                                                                            ( Imported
-                                                                                              ( ModuleName "Golden.LongStackBind.Test" )
-                                                                                              ( Name "bind" )
+                                                                                          ( ObjectProp Nothing
+                                                                                            ( Ref Nothing
+                                                                                              ( Imported
+                                                                                                ( ModuleName "Golden.LongStackBind.Test" )
+                                                                                                ( Name "bindStateT" )
+                                                                                              )
                                                                                             )
+                                                                                            ( PropName "bind" )
                                                                                           )
                                                                                           ( Ref Nothing
                                                                                             ( Imported
@@ -2926,11 +3150,14 @@ UberModule
                                                                                           )
                                                                                           ( AppN Nothing
                                                                                             ( AppN Nothing
-                                                                                              ( Ref Nothing
-                                                                                                ( Imported
-                                                                                                  ( ModuleName "Golden.LongStackBind.Test" )
-                                                                                                  ( Name "discard" )
+                                                                                              ( ObjectProp Nothing
+                                                                                                ( Ref Nothing
+                                                                                                  ( Imported
+                                                                                                    ( ModuleName "Golden.LongStackBind.Test" )
+                                                                                                    ( Name "bindStateT" )
+                                                                                                  )
                                                                                                 )
+                                                                                                ( PropName "bind" )
                                                                                               )
                                                                                               ( AppN Nothing
                                                                                                 ( Ref Nothing
@@ -2959,11 +3186,14 @@ UberModule
                                                                                               ( ParamUnused Nothing :| [] )
                                                                                               ( AppN Nothing
                                                                                                 ( AppN Nothing
-                                                                                                  ( Ref Nothing
-                                                                                                    ( Imported
-                                                                                                      ( ModuleName "Golden.LongStackBind.Test" )
-                                                                                                      ( Name "bind" )
+                                                                                                  ( ObjectProp Nothing
+                                                                                                    ( Ref Nothing
+                                                                                                      ( Imported
+                                                                                                        ( ModuleName "Golden.LongStackBind.Test" )
+                                                                                                        ( Name "bindStateT" )
+                                                                                                      )
                                                                                                     )
+                                                                                                    ( PropName "bind" )
                                                                                                   )
                                                                                                   ( Ref Nothing
                                                                                                     ( Imported
@@ -2978,11 +3208,14 @@ UberModule
                                                                                                   )
                                                                                                   ( AppN Nothing
                                                                                                     ( AppN Nothing
-                                                                                                      ( Ref Nothing
-                                                                                                        ( Imported
-                                                                                                          ( ModuleName "Golden.LongStackBind.Test" )
-                                                                                                          ( Name "discard" )
+                                                                                                      ( ObjectProp Nothing
+                                                                                                        ( Ref Nothing
+                                                                                                          ( Imported
+                                                                                                            ( ModuleName "Golden.LongStackBind.Test" )
+                                                                                                            ( Name "bindStateT" )
+                                                                                                          )
                                                                                                         )
+                                                                                                        ( PropName "bind" )
                                                                                                       )
                                                                                                       ( AppN Nothing
                                                                                                         ( Ref Nothing
@@ -3011,11 +3244,14 @@ UberModule
                                                                                                       ( ParamUnused Nothing :| [] )
                                                                                                       ( AppN Nothing
                                                                                                         ( AppN Nothing
-                                                                                                          ( Ref Nothing
-                                                                                                            ( Imported
-                                                                                                              ( ModuleName "Golden.LongStackBind.Test" )
-                                                                                                              ( Name "bind" )
+                                                                                                          ( ObjectProp Nothing
+                                                                                                            ( Ref Nothing
+                                                                                                              ( Imported
+                                                                                                                ( ModuleName "Golden.LongStackBind.Test" )
+                                                                                                                ( Name "bindStateT" )
+                                                                                                              )
                                                                                                             )
+                                                                                                            ( PropName "bind" )
                                                                                                           )
                                                                                                           ( Ref Nothing
                                                                                                             ( Imported
@@ -3030,11 +3266,14 @@ UberModule
                                                                                                           )
                                                                                                           ( AppN Nothing
                                                                                                             ( AppN Nothing
-                                                                                                              ( Ref Nothing
-                                                                                                                ( Imported
-                                                                                                                  ( ModuleName "Golden.LongStackBind.Test" )
-                                                                                                                  ( Name "discard" )
+                                                                                                              ( ObjectProp Nothing
+                                                                                                                ( Ref Nothing
+                                                                                                                  ( Imported
+                                                                                                                    ( ModuleName "Golden.LongStackBind.Test" )
+                                                                                                                    ( Name "bindStateT" )
+                                                                                                                  )
                                                                                                                 )
+                                                                                                                ( PropName "bind" )
                                                                                                               )
                                                                                                               ( AppN Nothing
                                                                                                                 ( Ref Nothing
@@ -3063,11 +3302,14 @@ UberModule
                                                                                                               ( ParamUnused Nothing :| [] )
                                                                                                               ( AppN Nothing
                                                                                                                 ( AppN Nothing
-                                                                                                                  ( Ref Nothing
-                                                                                                                    ( Imported
-                                                                                                                      ( ModuleName "Golden.LongStackBind.Test" )
-                                                                                                                      ( Name "bind" )
+                                                                                                                  ( ObjectProp Nothing
+                                                                                                                    ( Ref Nothing
+                                                                                                                      ( Imported
+                                                                                                                        ( ModuleName "Golden.LongStackBind.Test" )
+                                                                                                                        ( Name "bindStateT" )
+                                                                                                                      )
                                                                                                                     )
+                                                                                                                    ( PropName "bind" )
                                                                                                                   )
                                                                                                                   ( Ref Nothing
                                                                                                                     ( Imported
@@ -3082,11 +3324,14 @@ UberModule
                                                                                                                   )
                                                                                                                   ( AppN Nothing
                                                                                                                     ( AppN Nothing
-                                                                                                                      ( Ref Nothing
-                                                                                                                        ( Imported
-                                                                                                                          ( ModuleName "Golden.LongStackBind.Test" )
-                                                                                                                          ( Name "discard" )
+                                                                                                                      ( ObjectProp Nothing
+                                                                                                                        ( Ref Nothing
+                                                                                                                          ( Imported
+                                                                                                                            ( ModuleName "Golden.LongStackBind.Test" )
+                                                                                                                            ( Name "bindStateT" )
+                                                                                                                          )
                                                                                                                         )
+                                                                                                                        ( PropName "bind" )
                                                                                                                       )
                                                                                                                       ( AppN Nothing
                                                                                                                         ( Ref Nothing
@@ -3115,11 +3360,14 @@ UberModule
                                                                                                                       ( ParamUnused Nothing :| [] )
                                                                                                                       ( AppN Nothing
                                                                                                                         ( AppN Nothing
-                                                                                                                          ( Ref Nothing
-                                                                                                                            ( Imported
-                                                                                                                              ( ModuleName "Golden.LongStackBind.Test" )
-                                                                                                                              ( Name "bind" )
+                                                                                                                          ( ObjectProp Nothing
+                                                                                                                            ( Ref Nothing
+                                                                                                                              ( Imported
+                                                                                                                                ( ModuleName "Golden.LongStackBind.Test" )
+                                                                                                                                ( Name "bindStateT" )
+                                                                                                                              )
                                                                                                                             )
+                                                                                                                            ( PropName "bind" )
                                                                                                                           )
                                                                                                                           ( Ref Nothing
                                                                                                                             ( Imported
@@ -3134,11 +3382,14 @@ UberModule
                                                                                                                           )
                                                                                                                           ( AppN Nothing
                                                                                                                             ( AppN Nothing
-                                                                                                                              ( Ref Nothing
-                                                                                                                                ( Imported
-                                                                                                                                  ( ModuleName "Golden.LongStackBind.Test" )
-                                                                                                                                  ( Name "discard" )
+                                                                                                                              ( ObjectProp Nothing
+                                                                                                                                ( Ref Nothing
+                                                                                                                                  ( Imported
+                                                                                                                                    ( ModuleName "Golden.LongStackBind.Test" )
+                                                                                                                                    ( Name "bindStateT" )
+                                                                                                                                  )
                                                                                                                                 )
+                                                                                                                                ( PropName "bind" )
                                                                                                                               )
                                                                                                                               ( AppN Nothing
                                                                                                                                 ( Ref Nothing
@@ -3167,11 +3418,14 @@ UberModule
                                                                                                                               ( ParamUnused Nothing :| [] )
                                                                                                                               ( AppN Nothing
                                                                                                                                 ( AppN Nothing
-                                                                                                                                  ( Ref Nothing
-                                                                                                                                    ( Imported
-                                                                                                                                      ( ModuleName "Golden.LongStackBind.Test" )
-                                                                                                                                      ( Name "bind" )
+                                                                                                                                  ( ObjectProp Nothing
+                                                                                                                                    ( Ref Nothing
+                                                                                                                                      ( Imported
+                                                                                                                                        ( ModuleName "Golden.LongStackBind.Test" )
+                                                                                                                                        ( Name "bindStateT" )
+                                                                                                                                      )
                                                                                                                                     )
+                                                                                                                                    ( PropName "bind" )
                                                                                                                                   )
                                                                                                                                   ( Ref Nothing
                                                                                                                                     ( Imported
@@ -3186,11 +3440,14 @@ UberModule
                                                                                                                                   )
                                                                                                                                   ( AppN Nothing
                                                                                                                                     ( AppN Nothing
-                                                                                                                                      ( Ref Nothing
-                                                                                                                                        ( Imported
-                                                                                                                                          ( ModuleName "Golden.LongStackBind.Test" )
-                                                                                                                                          ( Name "discard" )
+                                                                                                                                      ( ObjectProp Nothing
+                                                                                                                                        ( Ref Nothing
+                                                                                                                                          ( Imported
+                                                                                                                                            ( ModuleName "Golden.LongStackBind.Test" )
+                                                                                                                                            ( Name "bindStateT" )
+                                                                                                                                          )
                                                                                                                                         )
+                                                                                                                                        ( PropName "bind" )
                                                                                                                                       )
                                                                                                                                       ( AppN Nothing
                                                                                                                                         ( Ref Nothing
@@ -3219,11 +3476,14 @@ UberModule
                                                                                                                                       ( ParamUnused Nothing :| [] )
                                                                                                                                       ( AppN Nothing
                                                                                                                                         ( AppN Nothing
-                                                                                                                                          ( Ref Nothing
-                                                                                                                                            ( Imported
-                                                                                                                                              ( ModuleName "Golden.LongStackBind.Test" )
-                                                                                                                                              ( Name "bind" )
+                                                                                                                                          ( ObjectProp Nothing
+                                                                                                                                            ( Ref Nothing
+                                                                                                                                              ( Imported
+                                                                                                                                                ( ModuleName "Golden.LongStackBind.Test" )
+                                                                                                                                                ( Name "bindStateT" )
+                                                                                                                                              )
                                                                                                                                             )
+                                                                                                                                            ( PropName "bind" )
                                                                                                                                           )
                                                                                                                                           ( Ref Nothing
                                                                                                                                             ( Imported
@@ -3238,11 +3498,14 @@ UberModule
                                                                                                                                           )
                                                                                                                                           ( AppN Nothing
                                                                                                                                             ( AppN Nothing
-                                                                                                                                              ( Ref Nothing
-                                                                                                                                                ( Imported
-                                                                                                                                                  ( ModuleName "Golden.LongStackBind.Test" )
-                                                                                                                                                  ( Name "discard" )
+                                                                                                                                              ( ObjectProp Nothing
+                                                                                                                                                ( Ref Nothing
+                                                                                                                                                  ( Imported
+                                                                                                                                                    ( ModuleName "Golden.LongStackBind.Test" )
+                                                                                                                                                    ( Name "bindStateT" )
+                                                                                                                                                  )
                                                                                                                                                 )
+                                                                                                                                                ( PropName "bind" )
                                                                                                                                               )
                                                                                                                                               ( AppN Nothing
                                                                                                                                                 ( Ref Nothing
@@ -3271,11 +3534,14 @@ UberModule
                                                                                                                                               ( ParamUnused Nothing :| [] )
                                                                                                                                               ( AppN Nothing
                                                                                                                                                 ( AppN Nothing
-                                                                                                                                                  ( Ref Nothing
-                                                                                                                                                    ( Imported
-                                                                                                                                                      ( ModuleName "Golden.LongStackBind.Test" )
-                                                                                                                                                      ( Name "bind" )
+                                                                                                                                                  ( ObjectProp Nothing
+                                                                                                                                                    ( Ref Nothing
+                                                                                                                                                      ( Imported
+                                                                                                                                                        ( ModuleName "Golden.LongStackBind.Test" )
+                                                                                                                                                        ( Name "bindStateT" )
+                                                                                                                                                      )
                                                                                                                                                     )
+                                                                                                                                                    ( PropName "bind" )
                                                                                                                                                   )
                                                                                                                                                   ( Ref Nothing
                                                                                                                                                     ( Imported
@@ -3290,11 +3556,14 @@ UberModule
                                                                                                                                                   )
                                                                                                                                                   ( AppN Nothing
                                                                                                                                                     ( AppN Nothing
-                                                                                                                                                      ( Ref Nothing
-                                                                                                                                                        ( Imported
-                                                                                                                                                          ( ModuleName "Golden.LongStackBind.Test" )
-                                                                                                                                                          ( Name "discard" )
+                                                                                                                                                      ( ObjectProp Nothing
+                                                                                                                                                        ( Ref Nothing
+                                                                                                                                                          ( Imported
+                                                                                                                                                            ( ModuleName "Golden.LongStackBind.Test" )
+                                                                                                                                                            ( Name "bindStateT" )
+                                                                                                                                                          )
                                                                                                                                                         )
+                                                                                                                                                        ( PropName "bind" )
                                                                                                                                                       )
                                                                                                                                                       ( AppN Nothing
                                                                                                                                                         ( Ref Nothing
@@ -3323,11 +3592,14 @@ UberModule
                                                                                                                                                       ( ParamUnused Nothing :| [] )
                                                                                                                                                       ( AppN Nothing
                                                                                                                                                         ( AppN Nothing
-                                                                                                                                                          ( Ref Nothing
-                                                                                                                                                            ( Imported
-                                                                                                                                                              ( ModuleName "Golden.LongStackBind.Test" )
-                                                                                                                                                              ( Name "bind" )
+                                                                                                                                                          ( ObjectProp Nothing
+                                                                                                                                                            ( Ref Nothing
+                                                                                                                                                              ( Imported
+                                                                                                                                                                ( ModuleName "Golden.LongStackBind.Test" )
+                                                                                                                                                                ( Name "bindStateT" )
+                                                                                                                                                              )
                                                                                                                                                             )
+                                                                                                                                                            ( PropName "bind" )
                                                                                                                                                           )
                                                                                                                                                           ( Ref Nothing
                                                                                                                                                             ( Imported
@@ -3342,11 +3614,14 @@ UberModule
                                                                                                                                                           )
                                                                                                                                                           ( AppN Nothing
                                                                                                                                                             ( AppN Nothing
-                                                                                                                                                              ( Ref Nothing
-                                                                                                                                                                ( Imported
-                                                                                                                                                                  ( ModuleName "Golden.LongStackBind.Test" )
-                                                                                                                                                                  ( Name "discard" )
+                                                                                                                                                              ( ObjectProp Nothing
+                                                                                                                                                                ( Ref Nothing
+                                                                                                                                                                  ( Imported
+                                                                                                                                                                    ( ModuleName "Golden.LongStackBind.Test" )
+                                                                                                                                                                    ( Name "bindStateT" )
+                                                                                                                                                                  )
                                                                                                                                                                 )
+                                                                                                                                                                ( PropName "bind" )
                                                                                                                                                               )
                                                                                                                                                               ( AppN Nothing
                                                                                                                                                                 ( Ref Nothing
@@ -3375,11 +3650,14 @@ UberModule
                                                                                                                                                               ( ParamUnused Nothing :| [] )
                                                                                                                                                               ( AppN Nothing
                                                                                                                                                                 ( AppN Nothing
-                                                                                                                                                                  ( Ref Nothing
-                                                                                                                                                                    ( Imported
-                                                                                                                                                                      ( ModuleName "Golden.LongStackBind.Test" )
-                                                                                                                                                                      ( Name "bind" )
+                                                                                                                                                                  ( ObjectProp Nothing
+                                                                                                                                                                    ( Ref Nothing
+                                                                                                                                                                      ( Imported
+                                                                                                                                                                        ( ModuleName "Golden.LongStackBind.Test" )
+                                                                                                                                                                        ( Name "bindStateT" )
+                                                                                                                                                                      )
                                                                                                                                                                     )
+                                                                                                                                                                    ( PropName "bind" )
                                                                                                                                                                   )
                                                                                                                                                                   ( Ref Nothing
                                                                                                                                                                     ( Imported
@@ -3394,11 +3672,14 @@ UberModule
                                                                                                                                                                   )
                                                                                                                                                                   ( AppN Nothing
                                                                                                                                                                     ( AppN Nothing
-                                                                                                                                                                      ( Ref Nothing
-                                                                                                                                                                        ( Imported
-                                                                                                                                                                          ( ModuleName "Golden.LongStackBind.Test" )
-                                                                                                                                                                          ( Name "discard" )
+                                                                                                                                                                      ( ObjectProp Nothing
+                                                                                                                                                                        ( Ref Nothing
+                                                                                                                                                                          ( Imported
+                                                                                                                                                                            ( ModuleName "Golden.LongStackBind.Test" )
+                                                                                                                                                                            ( Name "bindStateT" )
+                                                                                                                                                                          )
                                                                                                                                                                         )
+                                                                                                                                                                        ( PropName "bind" )
                                                                                                                                                                       )
                                                                                                                                                                       ( AppN Nothing
                                                                                                                                                                         ( Ref Nothing
@@ -3427,11 +3708,14 @@ UberModule
                                                                                                                                                                       ( ParamUnused Nothing :| [] )
                                                                                                                                                                       ( AppN Nothing
                                                                                                                                                                         ( AppN Nothing
-                                                                                                                                                                          ( Ref Nothing
-                                                                                                                                                                            ( Imported
-                                                                                                                                                                              ( ModuleName "Golden.LongStackBind.Test" )
-                                                                                                                                                                              ( Name "bind" )
+                                                                                                                                                                          ( ObjectProp Nothing
+                                                                                                                                                                            ( Ref Nothing
+                                                                                                                                                                              ( Imported
+                                                                                                                                                                                ( ModuleName "Golden.LongStackBind.Test" )
+                                                                                                                                                                                ( Name "bindStateT" )
+                                                                                                                                                                              )
                                                                                                                                                                             )
+                                                                                                                                                                            ( PropName "bind" )
                                                                                                                                                                           )
                                                                                                                                                                           ( Ref Nothing
                                                                                                                                                                             ( Imported
@@ -3446,11 +3730,14 @@ UberModule
                                                                                                                                                                           )
                                                                                                                                                                           ( AppN Nothing
                                                                                                                                                                             ( AppN Nothing
-                                                                                                                                                                              ( Ref Nothing
-                                                                                                                                                                                ( Imported
-                                                                                                                                                                                  ( ModuleName "Golden.LongStackBind.Test" )
-                                                                                                                                                                                  ( Name "discard" )
+                                                                                                                                                                              ( ObjectProp Nothing
+                                                                                                                                                                                ( Ref Nothing
+                                                                                                                                                                                  ( Imported
+                                                                                                                                                                                    ( ModuleName "Golden.LongStackBind.Test" )
+                                                                                                                                                                                    ( Name "bindStateT" )
+                                                                                                                                                                                  )
                                                                                                                                                                                 )
+                                                                                                                                                                                ( PropName "bind" )
                                                                                                                                                                               )
                                                                                                                                                                               ( AppN Nothing
                                                                                                                                                                                 ( Ref Nothing
@@ -3480,12 +3767,12 @@ UberModule
                                                                                                                                                                               ( AppN Nothing
                                                                                                                                                                                 ( Ref Nothing
                                                                                                                                                                                   ( Local
-                                                                                                                                                                                    ( Name "$kont6559" )
+                                                                                                                                                                                    ( Name "$kont6201" )
                                                                                                                                                                                   )
                                                                                                                                                                                 )
                                                                                                                                                                                 ( Ref Nothing
                                                                                                                                                                                   ( Local
-                                                                                                                                                                                    ( Name "x1$6562" )
+                                                                                                                                                                                    ( Name "x1$6204" )
                                                                                                                                                                                   ) :| []
                                                                                                                                                                                 )
                                                                                                                                                                               ) :| []
@@ -3570,12 +3857,15 @@ UberModule
                 )
               )
             ), Standalone
-            ( Nothing, Name "$kont6563", AbsN Nothing
-              ( ParamNamed Nothing ( Name "x1$6564" ) :| [] )
+            ( Nothing, Name "$kont6205", AbsN Nothing
+              ( ParamNamed Nothing ( Name "x1$6206" ) :| [] )
               ( AppN Nothing
                 ( AppN Nothing
-                  ( Ref Nothing
-                    ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "bind" ) )
+                  ( ObjectProp Nothing
+                    ( Ref Nothing
+                      ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "bindStateT" ) )
+                    )
+                    ( PropName "bind" )
                   )
                   ( Ref Nothing
                     ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "get" ) ) :| []
@@ -3585,8 +3875,14 @@ UberModule
                   ( ParamNamed Nothing ( Name "x81" ) :| [] )
                   ( AppN Nothing
                     ( AppN Nothing
-                      ( Ref Nothing
-                        ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "discard" ) )
+                      ( ObjectProp Nothing
+                        ( Ref Nothing
+                          ( Imported
+                            ( ModuleName "Golden.LongStackBind.Test" )
+                            ( Name "bindStateT" )
+                          )
+                        )
+                        ( PropName "bind" )
                       )
                       ( AppN Nothing
                         ( Ref Nothing
@@ -3604,8 +3900,14 @@ UberModule
                       ( ParamUnused Nothing :| [] )
                       ( AppN Nothing
                         ( AppN Nothing
-                          ( Ref Nothing
-                            ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "bind" ) )
+                          ( ObjectProp Nothing
+                            ( Ref Nothing
+                              ( Imported
+                                ( ModuleName "Golden.LongStackBind.Test" )
+                                ( Name "bindStateT" )
+                              )
+                            )
+                            ( PropName "bind" )
                           )
                           ( Ref Nothing
                             ( Imported
@@ -3618,11 +3920,14 @@ UberModule
                           ( ParamNamed Nothing ( Name "x82" ) :| [] )
                           ( AppN Nothing
                             ( AppN Nothing
-                              ( Ref Nothing
-                                ( Imported
-                                  ( ModuleName "Golden.LongStackBind.Test" )
-                                  ( Name "discard" )
+                              ( ObjectProp Nothing
+                                ( Ref Nothing
+                                  ( Imported
+                                    ( ModuleName "Golden.LongStackBind.Test" )
+                                    ( Name "bindStateT" )
+                                  )
                                 )
+                                ( PropName "bind" )
                               )
                               ( AppN Nothing
                                 ( Ref Nothing
@@ -3649,11 +3954,14 @@ UberModule
                               ( ParamUnused Nothing :| [] )
                               ( AppN Nothing
                                 ( AppN Nothing
-                                  ( Ref Nothing
-                                    ( Imported
-                                      ( ModuleName "Golden.LongStackBind.Test" )
-                                      ( Name "bind" )
+                                  ( ObjectProp Nothing
+                                    ( Ref Nothing
+                                      ( Imported
+                                        ( ModuleName "Golden.LongStackBind.Test" )
+                                        ( Name "bindStateT" )
+                                      )
                                     )
+                                    ( PropName "bind" )
                                   )
                                   ( Ref Nothing
                                     ( Imported
@@ -3666,11 +3974,14 @@ UberModule
                                   ( ParamNamed Nothing ( Name "x83" ) :| [] )
                                   ( AppN Nothing
                                     ( AppN Nothing
-                                      ( Ref Nothing
-                                        ( Imported
-                                          ( ModuleName "Golden.LongStackBind.Test" )
-                                          ( Name "discard" )
+                                      ( ObjectProp Nothing
+                                        ( Ref Nothing
+                                          ( Imported
+                                            ( ModuleName "Golden.LongStackBind.Test" )
+                                            ( Name "bindStateT" )
+                                          )
                                         )
+                                        ( PropName "bind" )
                                       )
                                       ( AppN Nothing
                                         ( Ref Nothing
@@ -3697,11 +4008,14 @@ UberModule
                                       ( ParamUnused Nothing :| [] )
                                       ( AppN Nothing
                                         ( AppN Nothing
-                                          ( Ref Nothing
-                                            ( Imported
-                                              ( ModuleName "Golden.LongStackBind.Test" )
-                                              ( Name "bind" )
+                                          ( ObjectProp Nothing
+                                            ( Ref Nothing
+                                              ( Imported
+                                                ( ModuleName "Golden.LongStackBind.Test" )
+                                                ( Name "bindStateT" )
+                                              )
                                             )
+                                            ( PropName "bind" )
                                           )
                                           ( Ref Nothing
                                             ( Imported
@@ -3714,11 +4028,14 @@ UberModule
                                           ( ParamNamed Nothing ( Name "x84" ) :| [] )
                                           ( AppN Nothing
                                             ( AppN Nothing
-                                              ( Ref Nothing
-                                                ( Imported
-                                                  ( ModuleName "Golden.LongStackBind.Test" )
-                                                  ( Name "discard" )
+                                              ( ObjectProp Nothing
+                                                ( Ref Nothing
+                                                  ( Imported
+                                                    ( ModuleName "Golden.LongStackBind.Test" )
+                                                    ( Name "bindStateT" )
+                                                  )
                                                 )
+                                                ( PropName "bind" )
                                               )
                                               ( AppN Nothing
                                                 ( Ref Nothing
@@ -3745,11 +4062,14 @@ UberModule
                                               ( ParamUnused Nothing :| [] )
                                               ( AppN Nothing
                                                 ( AppN Nothing
-                                                  ( Ref Nothing
-                                                    ( Imported
-                                                      ( ModuleName "Golden.LongStackBind.Test" )
-                                                      ( Name "bind" )
+                                                  ( ObjectProp Nothing
+                                                    ( Ref Nothing
+                                                      ( Imported
+                                                        ( ModuleName "Golden.LongStackBind.Test" )
+                                                        ( Name "bindStateT" )
+                                                      )
                                                     )
+                                                    ( PropName "bind" )
                                                   )
                                                   ( Ref Nothing
                                                     ( Imported
@@ -3762,11 +4082,14 @@ UberModule
                                                   ( ParamNamed Nothing ( Name "x85" ) :| [] )
                                                   ( AppN Nothing
                                                     ( AppN Nothing
-                                                      ( Ref Nothing
-                                                        ( Imported
-                                                          ( ModuleName "Golden.LongStackBind.Test" )
-                                                          ( Name "discard" )
+                                                      ( ObjectProp Nothing
+                                                        ( Ref Nothing
+                                                          ( Imported
+                                                            ( ModuleName "Golden.LongStackBind.Test" )
+                                                            ( Name "bindStateT" )
+                                                          )
                                                         )
+                                                        ( PropName "bind" )
                                                       )
                                                       ( AppN Nothing
                                                         ( Ref Nothing
@@ -3793,11 +4116,14 @@ UberModule
                                                       ( ParamUnused Nothing :| [] )
                                                       ( AppN Nothing
                                                         ( AppN Nothing
-                                                          ( Ref Nothing
-                                                            ( Imported
-                                                              ( ModuleName "Golden.LongStackBind.Test" )
-                                                              ( Name "bind" )
+                                                          ( ObjectProp Nothing
+                                                            ( Ref Nothing
+                                                              ( Imported
+                                                                ( ModuleName "Golden.LongStackBind.Test" )
+                                                                ( Name "bindStateT" )
+                                                              )
                                                             )
+                                                            ( PropName "bind" )
                                                           )
                                                           ( Ref Nothing
                                                             ( Imported
@@ -3812,11 +4138,14 @@ UberModule
                                                           )
                                                           ( AppN Nothing
                                                             ( AppN Nothing
-                                                              ( Ref Nothing
-                                                                ( Imported
-                                                                  ( ModuleName "Golden.LongStackBind.Test" )
-                                                                  ( Name "discard" )
+                                                              ( ObjectProp Nothing
+                                                                ( Ref Nothing
+                                                                  ( Imported
+                                                                    ( ModuleName "Golden.LongStackBind.Test" )
+                                                                    ( Name "bindStateT" )
+                                                                  )
                                                                 )
+                                                                ( PropName "bind" )
                                                               )
                                                               ( AppN Nothing
                                                                 ( Ref Nothing
@@ -3843,11 +4172,14 @@ UberModule
                                                               ( ParamUnused Nothing :| [] )
                                                               ( AppN Nothing
                                                                 ( AppN Nothing
-                                                                  ( Ref Nothing
-                                                                    ( Imported
-                                                                      ( ModuleName "Golden.LongStackBind.Test" )
-                                                                      ( Name "bind" )
+                                                                  ( ObjectProp Nothing
+                                                                    ( Ref Nothing
+                                                                      ( Imported
+                                                                        ( ModuleName "Golden.LongStackBind.Test" )
+                                                                        ( Name "bindStateT" )
+                                                                      )
                                                                     )
+                                                                    ( PropName "bind" )
                                                                   )
                                                                   ( Ref Nothing
                                                                     ( Imported
@@ -3862,11 +4194,14 @@ UberModule
                                                                   )
                                                                   ( AppN Nothing
                                                                     ( AppN Nothing
-                                                                      ( Ref Nothing
-                                                                        ( Imported
-                                                                          ( ModuleName "Golden.LongStackBind.Test" )
-                                                                          ( Name "discard" )
+                                                                      ( ObjectProp Nothing
+                                                                        ( Ref Nothing
+                                                                          ( Imported
+                                                                            ( ModuleName "Golden.LongStackBind.Test" )
+                                                                            ( Name "bindStateT" )
+                                                                          )
                                                                         )
+                                                                        ( PropName "bind" )
                                                                       )
                                                                       ( AppN Nothing
                                                                         ( Ref Nothing
@@ -3895,11 +4230,14 @@ UberModule
                                                                       ( ParamUnused Nothing :| [] )
                                                                       ( AppN Nothing
                                                                         ( AppN Nothing
-                                                                          ( Ref Nothing
-                                                                            ( Imported
-                                                                              ( ModuleName "Golden.LongStackBind.Test" )
-                                                                              ( Name "bind" )
+                                                                          ( ObjectProp Nothing
+                                                                            ( Ref Nothing
+                                                                              ( Imported
+                                                                                ( ModuleName "Golden.LongStackBind.Test" )
+                                                                                ( Name "bindStateT" )
+                                                                              )
                                                                             )
+                                                                            ( PropName "bind" )
                                                                           )
                                                                           ( Ref Nothing
                                                                             ( Imported
@@ -3914,11 +4252,14 @@ UberModule
                                                                           )
                                                                           ( AppN Nothing
                                                                             ( AppN Nothing
-                                                                              ( Ref Nothing
-                                                                                ( Imported
-                                                                                  ( ModuleName "Golden.LongStackBind.Test" )
-                                                                                  ( Name "discard" )
+                                                                              ( ObjectProp Nothing
+                                                                                ( Ref Nothing
+                                                                                  ( Imported
+                                                                                    ( ModuleName "Golden.LongStackBind.Test" )
+                                                                                    ( Name "bindStateT" )
+                                                                                  )
                                                                                 )
+                                                                                ( PropName "bind" )
                                                                               )
                                                                               ( AppN Nothing
                                                                                 ( Ref Nothing
@@ -3947,11 +4288,14 @@ UberModule
                                                                               ( ParamUnused Nothing :| [] )
                                                                               ( AppN Nothing
                                                                                 ( AppN Nothing
-                                                                                  ( Ref Nothing
-                                                                                    ( Imported
-                                                                                      ( ModuleName "Golden.LongStackBind.Test" )
-                                                                                      ( Name "bind" )
+                                                                                  ( ObjectProp Nothing
+                                                                                    ( Ref Nothing
+                                                                                      ( Imported
+                                                                                        ( ModuleName "Golden.LongStackBind.Test" )
+                                                                                        ( Name "bindStateT" )
+                                                                                      )
                                                                                     )
+                                                                                    ( PropName "bind" )
                                                                                   )
                                                                                   ( Ref Nothing
                                                                                     ( Imported
@@ -3966,11 +4310,14 @@ UberModule
                                                                                   )
                                                                                   ( AppN Nothing
                                                                                     ( AppN Nothing
-                                                                                      ( Ref Nothing
-                                                                                        ( Imported
-                                                                                          ( ModuleName "Golden.LongStackBind.Test" )
-                                                                                          ( Name "discard" )
+                                                                                      ( ObjectProp Nothing
+                                                                                        ( Ref Nothing
+                                                                                          ( Imported
+                                                                                            ( ModuleName "Golden.LongStackBind.Test" )
+                                                                                            ( Name "bindStateT" )
+                                                                                          )
                                                                                         )
+                                                                                        ( PropName "bind" )
                                                                                       )
                                                                                       ( AppN Nothing
                                                                                         ( Ref Nothing
@@ -3999,11 +4346,14 @@ UberModule
                                                                                       ( ParamUnused Nothing :| [] )
                                                                                       ( AppN Nothing
                                                                                         ( AppN Nothing
-                                                                                          ( Ref Nothing
-                                                                                            ( Imported
-                                                                                              ( ModuleName "Golden.LongStackBind.Test" )
-                                                                                              ( Name "bind" )
+                                                                                          ( ObjectProp Nothing
+                                                                                            ( Ref Nothing
+                                                                                              ( Imported
+                                                                                                ( ModuleName "Golden.LongStackBind.Test" )
+                                                                                                ( Name "bindStateT" )
+                                                                                              )
                                                                                             )
+                                                                                            ( PropName "bind" )
                                                                                           )
                                                                                           ( Ref Nothing
                                                                                             ( Imported
@@ -4018,11 +4368,14 @@ UberModule
                                                                                           )
                                                                                           ( AppN Nothing
                                                                                             ( AppN Nothing
-                                                                                              ( Ref Nothing
-                                                                                                ( Imported
-                                                                                                  ( ModuleName "Golden.LongStackBind.Test" )
-                                                                                                  ( Name "discard" )
+                                                                                              ( ObjectProp Nothing
+                                                                                                ( Ref Nothing
+                                                                                                  ( Imported
+                                                                                                    ( ModuleName "Golden.LongStackBind.Test" )
+                                                                                                    ( Name "bindStateT" )
+                                                                                                  )
                                                                                                 )
+                                                                                                ( PropName "bind" )
                                                                                               )
                                                                                               ( AppN Nothing
                                                                                                 ( Ref Nothing
@@ -4051,11 +4404,14 @@ UberModule
                                                                                               ( ParamUnused Nothing :| [] )
                                                                                               ( AppN Nothing
                                                                                                 ( AppN Nothing
-                                                                                                  ( Ref Nothing
-                                                                                                    ( Imported
-                                                                                                      ( ModuleName "Golden.LongStackBind.Test" )
-                                                                                                      ( Name "bind" )
+                                                                                                  ( ObjectProp Nothing
+                                                                                                    ( Ref Nothing
+                                                                                                      ( Imported
+                                                                                                        ( ModuleName "Golden.LongStackBind.Test" )
+                                                                                                        ( Name "bindStateT" )
+                                                                                                      )
                                                                                                     )
+                                                                                                    ( PropName "bind" )
                                                                                                   )
                                                                                                   ( Ref Nothing
                                                                                                     ( Imported
@@ -4070,11 +4426,14 @@ UberModule
                                                                                                   )
                                                                                                   ( AppN Nothing
                                                                                                     ( AppN Nothing
-                                                                                                      ( Ref Nothing
-                                                                                                        ( Imported
-                                                                                                          ( ModuleName "Golden.LongStackBind.Test" )
-                                                                                                          ( Name "discard" )
+                                                                                                      ( ObjectProp Nothing
+                                                                                                        ( Ref Nothing
+                                                                                                          ( Imported
+                                                                                                            ( ModuleName "Golden.LongStackBind.Test" )
+                                                                                                            ( Name "bindStateT" )
+                                                                                                          )
                                                                                                         )
+                                                                                                        ( PropName "bind" )
                                                                                                       )
                                                                                                       ( AppN Nothing
                                                                                                         ( Ref Nothing
@@ -4103,11 +4462,14 @@ UberModule
                                                                                                       ( ParamUnused Nothing :| [] )
                                                                                                       ( AppN Nothing
                                                                                                         ( AppN Nothing
-                                                                                                          ( Ref Nothing
-                                                                                                            ( Imported
-                                                                                                              ( ModuleName "Golden.LongStackBind.Test" )
-                                                                                                              ( Name "bind" )
+                                                                                                          ( ObjectProp Nothing
+                                                                                                            ( Ref Nothing
+                                                                                                              ( Imported
+                                                                                                                ( ModuleName "Golden.LongStackBind.Test" )
+                                                                                                                ( Name "bindStateT" )
+                                                                                                              )
                                                                                                             )
+                                                                                                            ( PropName "bind" )
                                                                                                           )
                                                                                                           ( Ref Nothing
                                                                                                             ( Imported
@@ -4122,11 +4484,14 @@ UberModule
                                                                                                           )
                                                                                                           ( AppN Nothing
                                                                                                             ( AppN Nothing
-                                                                                                              ( Ref Nothing
-                                                                                                                ( Imported
-                                                                                                                  ( ModuleName "Golden.LongStackBind.Test" )
-                                                                                                                  ( Name "discard" )
+                                                                                                              ( ObjectProp Nothing
+                                                                                                                ( Ref Nothing
+                                                                                                                  ( Imported
+                                                                                                                    ( ModuleName "Golden.LongStackBind.Test" )
+                                                                                                                    ( Name "bindStateT" )
+                                                                                                                  )
                                                                                                                 )
+                                                                                                                ( PropName "bind" )
                                                                                                               )
                                                                                                               ( AppN Nothing
                                                                                                                 ( Ref Nothing
@@ -4155,11 +4520,14 @@ UberModule
                                                                                                               ( ParamUnused Nothing :| [] )
                                                                                                               ( AppN Nothing
                                                                                                                 ( AppN Nothing
-                                                                                                                  ( Ref Nothing
-                                                                                                                    ( Imported
-                                                                                                                      ( ModuleName "Golden.LongStackBind.Test" )
-                                                                                                                      ( Name "bind" )
+                                                                                                                  ( ObjectProp Nothing
+                                                                                                                    ( Ref Nothing
+                                                                                                                      ( Imported
+                                                                                                                        ( ModuleName "Golden.LongStackBind.Test" )
+                                                                                                                        ( Name "bindStateT" )
+                                                                                                                      )
                                                                                                                     )
+                                                                                                                    ( PropName "bind" )
                                                                                                                   )
                                                                                                                   ( Ref Nothing
                                                                                                                     ( Imported
@@ -4174,11 +4542,14 @@ UberModule
                                                                                                                   )
                                                                                                                   ( AppN Nothing
                                                                                                                     ( AppN Nothing
-                                                                                                                      ( Ref Nothing
-                                                                                                                        ( Imported
-                                                                                                                          ( ModuleName "Golden.LongStackBind.Test" )
-                                                                                                                          ( Name "discard" )
+                                                                                                                      ( ObjectProp Nothing
+                                                                                                                        ( Ref Nothing
+                                                                                                                          ( Imported
+                                                                                                                            ( ModuleName "Golden.LongStackBind.Test" )
+                                                                                                                            ( Name "bindStateT" )
+                                                                                                                          )
                                                                                                                         )
+                                                                                                                        ( PropName "bind" )
                                                                                                                       )
                                                                                                                       ( AppN Nothing
                                                                                                                         ( Ref Nothing
@@ -4207,11 +4578,14 @@ UberModule
                                                                                                                       ( ParamUnused Nothing :| [] )
                                                                                                                       ( AppN Nothing
                                                                                                                         ( AppN Nothing
-                                                                                                                          ( Ref Nothing
-                                                                                                                            ( Imported
-                                                                                                                              ( ModuleName "Golden.LongStackBind.Test" )
-                                                                                                                              ( Name "bind" )
+                                                                                                                          ( ObjectProp Nothing
+                                                                                                                            ( Ref Nothing
+                                                                                                                              ( Imported
+                                                                                                                                ( ModuleName "Golden.LongStackBind.Test" )
+                                                                                                                                ( Name "bindStateT" )
+                                                                                                                              )
                                                                                                                             )
+                                                                                                                            ( PropName "bind" )
                                                                                                                           )
                                                                                                                           ( Ref Nothing
                                                                                                                             ( Imported
@@ -4226,11 +4600,14 @@ UberModule
                                                                                                                           )
                                                                                                                           ( AppN Nothing
                                                                                                                             ( AppN Nothing
-                                                                                                                              ( Ref Nothing
-                                                                                                                                ( Imported
-                                                                                                                                  ( ModuleName "Golden.LongStackBind.Test" )
-                                                                                                                                  ( Name "discard" )
+                                                                                                                              ( ObjectProp Nothing
+                                                                                                                                ( Ref Nothing
+                                                                                                                                  ( Imported
+                                                                                                                                    ( ModuleName "Golden.LongStackBind.Test" )
+                                                                                                                                    ( Name "bindStateT" )
+                                                                                                                                  )
                                                                                                                                 )
+                                                                                                                                ( PropName "bind" )
                                                                                                                               )
                                                                                                                               ( AppN Nothing
                                                                                                                                 ( Ref Nothing
@@ -4259,11 +4636,14 @@ UberModule
                                                                                                                               ( ParamUnused Nothing :| [] )
                                                                                                                               ( AppN Nothing
                                                                                                                                 ( AppN Nothing
-                                                                                                                                  ( Ref Nothing
-                                                                                                                                    ( Imported
-                                                                                                                                      ( ModuleName "Golden.LongStackBind.Test" )
-                                                                                                                                      ( Name "bind" )
+                                                                                                                                  ( ObjectProp Nothing
+                                                                                                                                    ( Ref Nothing
+                                                                                                                                      ( Imported
+                                                                                                                                        ( ModuleName "Golden.LongStackBind.Test" )
+                                                                                                                                        ( Name "bindStateT" )
+                                                                                                                                      )
                                                                                                                                     )
+                                                                                                                                    ( PropName "bind" )
                                                                                                                                   )
                                                                                                                                   ( Ref Nothing
                                                                                                                                     ( Imported
@@ -4278,11 +4658,14 @@ UberModule
                                                                                                                                   )
                                                                                                                                   ( AppN Nothing
                                                                                                                                     ( AppN Nothing
-                                                                                                                                      ( Ref Nothing
-                                                                                                                                        ( Imported
-                                                                                                                                          ( ModuleName "Golden.LongStackBind.Test" )
-                                                                                                                                          ( Name "discard" )
+                                                                                                                                      ( ObjectProp Nothing
+                                                                                                                                        ( Ref Nothing
+                                                                                                                                          ( Imported
+                                                                                                                                            ( ModuleName "Golden.LongStackBind.Test" )
+                                                                                                                                            ( Name "bindStateT" )
+                                                                                                                                          )
                                                                                                                                         )
+                                                                                                                                        ( PropName "bind" )
                                                                                                                                       )
                                                                                                                                       ( AppN Nothing
                                                                                                                                         ( Ref Nothing
@@ -4311,11 +4694,14 @@ UberModule
                                                                                                                                       ( ParamUnused Nothing :| [] )
                                                                                                                                       ( AppN Nothing
                                                                                                                                         ( AppN Nothing
-                                                                                                                                          ( Ref Nothing
-                                                                                                                                            ( Imported
-                                                                                                                                              ( ModuleName "Golden.LongStackBind.Test" )
-                                                                                                                                              ( Name "bind" )
+                                                                                                                                          ( ObjectProp Nothing
+                                                                                                                                            ( Ref Nothing
+                                                                                                                                              ( Imported
+                                                                                                                                                ( ModuleName "Golden.LongStackBind.Test" )
+                                                                                                                                                ( Name "bindStateT" )
+                                                                                                                                              )
                                                                                                                                             )
+                                                                                                                                            ( PropName "bind" )
                                                                                                                                           )
                                                                                                                                           ( Ref Nothing
                                                                                                                                             ( Imported
@@ -4330,11 +4716,14 @@ UberModule
                                                                                                                                           )
                                                                                                                                           ( AppN Nothing
                                                                                                                                             ( AppN Nothing
-                                                                                                                                              ( Ref Nothing
-                                                                                                                                                ( Imported
-                                                                                                                                                  ( ModuleName "Golden.LongStackBind.Test" )
-                                                                                                                                                  ( Name "discard" )
+                                                                                                                                              ( ObjectProp Nothing
+                                                                                                                                                ( Ref Nothing
+                                                                                                                                                  ( Imported
+                                                                                                                                                    ( ModuleName "Golden.LongStackBind.Test" )
+                                                                                                                                                    ( Name "bindStateT" )
+                                                                                                                                                  )
                                                                                                                                                 )
+                                                                                                                                                ( PropName "bind" )
                                                                                                                                               )
                                                                                                                                               ( AppN Nothing
                                                                                                                                                 ( Ref Nothing
@@ -4363,11 +4752,14 @@ UberModule
                                                                                                                                               ( ParamUnused Nothing :| [] )
                                                                                                                                               ( AppN Nothing
                                                                                                                                                 ( AppN Nothing
-                                                                                                                                                  ( Ref Nothing
-                                                                                                                                                    ( Imported
-                                                                                                                                                      ( ModuleName "Golden.LongStackBind.Test" )
-                                                                                                                                                      ( Name "bind" )
+                                                                                                                                                  ( ObjectProp Nothing
+                                                                                                                                                    ( Ref Nothing
+                                                                                                                                                      ( Imported
+                                                                                                                                                        ( ModuleName "Golden.LongStackBind.Test" )
+                                                                                                                                                        ( Name "bindStateT" )
+                                                                                                                                                      )
                                                                                                                                                     )
+                                                                                                                                                    ( PropName "bind" )
                                                                                                                                                   )
                                                                                                                                                   ( Ref Nothing
                                                                                                                                                     ( Imported
@@ -4382,11 +4774,14 @@ UberModule
                                                                                                                                                   )
                                                                                                                                                   ( AppN Nothing
                                                                                                                                                     ( AppN Nothing
-                                                                                                                                                      ( Ref Nothing
-                                                                                                                                                        ( Imported
-                                                                                                                                                          ( ModuleName "Golden.LongStackBind.Test" )
-                                                                                                                                                          ( Name "discard" )
+                                                                                                                                                      ( ObjectProp Nothing
+                                                                                                                                                        ( Ref Nothing
+                                                                                                                                                          ( Imported
+                                                                                                                                                            ( ModuleName "Golden.LongStackBind.Test" )
+                                                                                                                                                            ( Name "bindStateT" )
+                                                                                                                                                          )
                                                                                                                                                         )
+                                                                                                                                                        ( PropName "bind" )
                                                                                                                                                       )
                                                                                                                                                       ( AppN Nothing
                                                                                                                                                         ( Ref Nothing
@@ -4415,11 +4810,14 @@ UberModule
                                                                                                                                                       ( ParamUnused Nothing :| [] )
                                                                                                                                                       ( AppN Nothing
                                                                                                                                                         ( AppN Nothing
-                                                                                                                                                          ( Ref Nothing
-                                                                                                                                                            ( Imported
-                                                                                                                                                              ( ModuleName "Golden.LongStackBind.Test" )
-                                                                                                                                                              ( Name "bind" )
+                                                                                                                                                          ( ObjectProp Nothing
+                                                                                                                                                            ( Ref Nothing
+                                                                                                                                                              ( Imported
+                                                                                                                                                                ( ModuleName "Golden.LongStackBind.Test" )
+                                                                                                                                                                ( Name "bindStateT" )
+                                                                                                                                                              )
                                                                                                                                                             )
+                                                                                                                                                            ( PropName "bind" )
                                                                                                                                                           )
                                                                                                                                                           ( Ref Nothing
                                                                                                                                                             ( Imported
@@ -4434,11 +4832,14 @@ UberModule
                                                                                                                                                           )
                                                                                                                                                           ( AppN Nothing
                                                                                                                                                             ( AppN Nothing
-                                                                                                                                                              ( Ref Nothing
-                                                                                                                                                                ( Imported
-                                                                                                                                                                  ( ModuleName "Golden.LongStackBind.Test" )
-                                                                                                                                                                  ( Name "discard" )
+                                                                                                                                                              ( ObjectProp Nothing
+                                                                                                                                                                ( Ref Nothing
+                                                                                                                                                                  ( Imported
+                                                                                                                                                                    ( ModuleName "Golden.LongStackBind.Test" )
+                                                                                                                                                                    ( Name "bindStateT" )
+                                                                                                                                                                  )
                                                                                                                                                                 )
+                                                                                                                                                                ( PropName "bind" )
                                                                                                                                                               )
                                                                                                                                                               ( AppN Nothing
                                                                                                                                                                 ( Ref Nothing
@@ -4467,11 +4868,14 @@ UberModule
                                                                                                                                                               ( ParamUnused Nothing :| [] )
                                                                                                                                                               ( AppN Nothing
                                                                                                                                                                 ( AppN Nothing
-                                                                                                                                                                  ( Ref Nothing
-                                                                                                                                                                    ( Imported
-                                                                                                                                                                      ( ModuleName "Golden.LongStackBind.Test" )
-                                                                                                                                                                      ( Name "bind" )
+                                                                                                                                                                  ( ObjectProp Nothing
+                                                                                                                                                                    ( Ref Nothing
+                                                                                                                                                                      ( Imported
+                                                                                                                                                                        ( ModuleName "Golden.LongStackBind.Test" )
+                                                                                                                                                                        ( Name "bindStateT" )
+                                                                                                                                                                      )
                                                                                                                                                                     )
+                                                                                                                                                                    ( PropName "bind" )
                                                                                                                                                                   )
                                                                                                                                                                   ( Ref Nothing
                                                                                                                                                                     ( Imported
@@ -4486,11 +4890,14 @@ UberModule
                                                                                                                                                                   )
                                                                                                                                                                   ( AppN Nothing
                                                                                                                                                                     ( AppN Nothing
-                                                                                                                                                                      ( Ref Nothing
-                                                                                                                                                                        ( Imported
-                                                                                                                                                                          ( ModuleName "Golden.LongStackBind.Test" )
-                                                                                                                                                                          ( Name "discard" )
+                                                                                                                                                                      ( ObjectProp Nothing
+                                                                                                                                                                        ( Ref Nothing
+                                                                                                                                                                          ( Imported
+                                                                                                                                                                            ( ModuleName "Golden.LongStackBind.Test" )
+                                                                                                                                                                            ( Name "bindStateT" )
+                                                                                                                                                                          )
                                                                                                                                                                         )
+                                                                                                                                                                        ( PropName "bind" )
                                                                                                                                                                       )
                                                                                                                                                                       ( AppN Nothing
                                                                                                                                                                         ( Ref Nothing
@@ -4519,11 +4926,14 @@ UberModule
                                                                                                                                                                       ( ParamUnused Nothing :| [] )
                                                                                                                                                                       ( AppN Nothing
                                                                                                                                                                         ( AppN Nothing
-                                                                                                                                                                          ( Ref Nothing
-                                                                                                                                                                            ( Imported
-                                                                                                                                                                              ( ModuleName "Golden.LongStackBind.Test" )
-                                                                                                                                                                              ( Name "bind" )
+                                                                                                                                                                          ( ObjectProp Nothing
+                                                                                                                                                                            ( Ref Nothing
+                                                                                                                                                                              ( Imported
+                                                                                                                                                                                ( ModuleName "Golden.LongStackBind.Test" )
+                                                                                                                                                                                ( Name "bindStateT" )
+                                                                                                                                                                              )
                                                                                                                                                                             )
+                                                                                                                                                                            ( PropName "bind" )
                                                                                                                                                                           )
                                                                                                                                                                           ( Ref Nothing
                                                                                                                                                                             ( Imported
@@ -4538,11 +4948,14 @@ UberModule
                                                                                                                                                                           )
                                                                                                                                                                           ( AppN Nothing
                                                                                                                                                                             ( AppN Nothing
-                                                                                                                                                                              ( Ref Nothing
-                                                                                                                                                                                ( Imported
-                                                                                                                                                                                  ( ModuleName "Golden.LongStackBind.Test" )
-                                                                                                                                                                                  ( Name "discard" )
+                                                                                                                                                                              ( ObjectProp Nothing
+                                                                                                                                                                                ( Ref Nothing
+                                                                                                                                                                                  ( Imported
+                                                                                                                                                                                    ( ModuleName "Golden.LongStackBind.Test" )
+                                                                                                                                                                                    ( Name "bindStateT" )
+                                                                                                                                                                                  )
                                                                                                                                                                                 )
+                                                                                                                                                                                ( PropName "bind" )
                                                                                                                                                                               )
                                                                                                                                                                               ( AppN Nothing
                                                                                                                                                                                 ( Ref Nothing
@@ -4572,12 +4985,12 @@ UberModule
                                                                                                                                                                               ( AppN Nothing
                                                                                                                                                                                 ( Ref Nothing
                                                                                                                                                                                   ( Local
-                                                                                                                                                                                    ( Name "$kont6561" )
+                                                                                                                                                                                    ( Name "$kont6203" )
                                                                                                                                                                                   )
                                                                                                                                                                                 )
                                                                                                                                                                                 ( Ref Nothing
                                                                                                                                                                                   ( Local
-                                                                                                                                                                                    ( Name "x1$6564" )
+                                                                                                                                                                                    ( Name "x1$6206" )
                                                                                                                                                                                   ) :| []
                                                                                                                                                                                 )
                                                                                                                                                                               ) :| []
@@ -4662,12 +5075,15 @@ UberModule
                 )
               )
             ), Standalone
-            ( Nothing, Name "$kont6565", AbsN Nothing
-              ( ParamNamed Nothing ( Name "x1$6566" ) :| [] )
+            ( Nothing, Name "$kont6207", AbsN Nothing
+              ( ParamNamed Nothing ( Name "x1$6208" ) :| [] )
               ( AppN Nothing
                 ( AppN Nothing
-                  ( Ref Nothing
-                    ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "bind" ) )
+                  ( ObjectProp Nothing
+                    ( Ref Nothing
+                      ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "bindStateT" ) )
+                    )
+                    ( PropName "bind" )
                   )
                   ( Ref Nothing
                     ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "get" ) ) :| []
@@ -4677,8 +5093,14 @@ UberModule
                   ( ParamNamed Nothing ( Name "x61" ) :| [] )
                   ( AppN Nothing
                     ( AppN Nothing
-                      ( Ref Nothing
-                        ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "discard" ) )
+                      ( ObjectProp Nothing
+                        ( Ref Nothing
+                          ( Imported
+                            ( ModuleName "Golden.LongStackBind.Test" )
+                            ( Name "bindStateT" )
+                          )
+                        )
+                        ( PropName "bind" )
                       )
                       ( AppN Nothing
                         ( Ref Nothing
@@ -4696,8 +5118,14 @@ UberModule
                       ( ParamUnused Nothing :| [] )
                       ( AppN Nothing
                         ( AppN Nothing
-                          ( Ref Nothing
-                            ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "bind" ) )
+                          ( ObjectProp Nothing
+                            ( Ref Nothing
+                              ( Imported
+                                ( ModuleName "Golden.LongStackBind.Test" )
+                                ( Name "bindStateT" )
+                              )
+                            )
+                            ( PropName "bind" )
                           )
                           ( Ref Nothing
                             ( Imported
@@ -4710,11 +5138,14 @@ UberModule
                           ( ParamNamed Nothing ( Name "x62" ) :| [] )
                           ( AppN Nothing
                             ( AppN Nothing
-                              ( Ref Nothing
-                                ( Imported
-                                  ( ModuleName "Golden.LongStackBind.Test" )
-                                  ( Name "discard" )
+                              ( ObjectProp Nothing
+                                ( Ref Nothing
+                                  ( Imported
+                                    ( ModuleName "Golden.LongStackBind.Test" )
+                                    ( Name "bindStateT" )
+                                  )
                                 )
+                                ( PropName "bind" )
                               )
                               ( AppN Nothing
                                 ( Ref Nothing
@@ -4741,11 +5172,14 @@ UberModule
                               ( ParamUnused Nothing :| [] )
                               ( AppN Nothing
                                 ( AppN Nothing
-                                  ( Ref Nothing
-                                    ( Imported
-                                      ( ModuleName "Golden.LongStackBind.Test" )
-                                      ( Name "bind" )
+                                  ( ObjectProp Nothing
+                                    ( Ref Nothing
+                                      ( Imported
+                                        ( ModuleName "Golden.LongStackBind.Test" )
+                                        ( Name "bindStateT" )
+                                      )
                                     )
+                                    ( PropName "bind" )
                                   )
                                   ( Ref Nothing
                                     ( Imported
@@ -4758,11 +5192,14 @@ UberModule
                                   ( ParamNamed Nothing ( Name "x63" ) :| [] )
                                   ( AppN Nothing
                                     ( AppN Nothing
-                                      ( Ref Nothing
-                                        ( Imported
-                                          ( ModuleName "Golden.LongStackBind.Test" )
-                                          ( Name "discard" )
+                                      ( ObjectProp Nothing
+                                        ( Ref Nothing
+                                          ( Imported
+                                            ( ModuleName "Golden.LongStackBind.Test" )
+                                            ( Name "bindStateT" )
+                                          )
                                         )
+                                        ( PropName "bind" )
                                       )
                                       ( AppN Nothing
                                         ( Ref Nothing
@@ -4789,11 +5226,14 @@ UberModule
                                       ( ParamUnused Nothing :| [] )
                                       ( AppN Nothing
                                         ( AppN Nothing
-                                          ( Ref Nothing
-                                            ( Imported
-                                              ( ModuleName "Golden.LongStackBind.Test" )
-                                              ( Name "bind" )
+                                          ( ObjectProp Nothing
+                                            ( Ref Nothing
+                                              ( Imported
+                                                ( ModuleName "Golden.LongStackBind.Test" )
+                                                ( Name "bindStateT" )
+                                              )
                                             )
+                                            ( PropName "bind" )
                                           )
                                           ( Ref Nothing
                                             ( Imported
@@ -4806,11 +5246,14 @@ UberModule
                                           ( ParamNamed Nothing ( Name "x64" ) :| [] )
                                           ( AppN Nothing
                                             ( AppN Nothing
-                                              ( Ref Nothing
-                                                ( Imported
-                                                  ( ModuleName "Golden.LongStackBind.Test" )
-                                                  ( Name "discard" )
+                                              ( ObjectProp Nothing
+                                                ( Ref Nothing
+                                                  ( Imported
+                                                    ( ModuleName "Golden.LongStackBind.Test" )
+                                                    ( Name "bindStateT" )
+                                                  )
                                                 )
+                                                ( PropName "bind" )
                                               )
                                               ( AppN Nothing
                                                 ( Ref Nothing
@@ -4837,11 +5280,14 @@ UberModule
                                               ( ParamUnused Nothing :| [] )
                                               ( AppN Nothing
                                                 ( AppN Nothing
-                                                  ( Ref Nothing
-                                                    ( Imported
-                                                      ( ModuleName "Golden.LongStackBind.Test" )
-                                                      ( Name "bind" )
+                                                  ( ObjectProp Nothing
+                                                    ( Ref Nothing
+                                                      ( Imported
+                                                        ( ModuleName "Golden.LongStackBind.Test" )
+                                                        ( Name "bindStateT" )
+                                                      )
                                                     )
+                                                    ( PropName "bind" )
                                                   )
                                                   ( Ref Nothing
                                                     ( Imported
@@ -4854,11 +5300,14 @@ UberModule
                                                   ( ParamNamed Nothing ( Name "x65" ) :| [] )
                                                   ( AppN Nothing
                                                     ( AppN Nothing
-                                                      ( Ref Nothing
-                                                        ( Imported
-                                                          ( ModuleName "Golden.LongStackBind.Test" )
-                                                          ( Name "discard" )
+                                                      ( ObjectProp Nothing
+                                                        ( Ref Nothing
+                                                          ( Imported
+                                                            ( ModuleName "Golden.LongStackBind.Test" )
+                                                            ( Name "bindStateT" )
+                                                          )
                                                         )
+                                                        ( PropName "bind" )
                                                       )
                                                       ( AppN Nothing
                                                         ( Ref Nothing
@@ -4885,11 +5334,14 @@ UberModule
                                                       ( ParamUnused Nothing :| [] )
                                                       ( AppN Nothing
                                                         ( AppN Nothing
-                                                          ( Ref Nothing
-                                                            ( Imported
-                                                              ( ModuleName "Golden.LongStackBind.Test" )
-                                                              ( Name "bind" )
+                                                          ( ObjectProp Nothing
+                                                            ( Ref Nothing
+                                                              ( Imported
+                                                                ( ModuleName "Golden.LongStackBind.Test" )
+                                                                ( Name "bindStateT" )
+                                                              )
                                                             )
+                                                            ( PropName "bind" )
                                                           )
                                                           ( Ref Nothing
                                                             ( Imported
@@ -4904,11 +5356,14 @@ UberModule
                                                           )
                                                           ( AppN Nothing
                                                             ( AppN Nothing
-                                                              ( Ref Nothing
-                                                                ( Imported
-                                                                  ( ModuleName "Golden.LongStackBind.Test" )
-                                                                  ( Name "discard" )
+                                                              ( ObjectProp Nothing
+                                                                ( Ref Nothing
+                                                                  ( Imported
+                                                                    ( ModuleName "Golden.LongStackBind.Test" )
+                                                                    ( Name "bindStateT" )
+                                                                  )
                                                                 )
+                                                                ( PropName "bind" )
                                                               )
                                                               ( AppN Nothing
                                                                 ( Ref Nothing
@@ -4935,11 +5390,14 @@ UberModule
                                                               ( ParamUnused Nothing :| [] )
                                                               ( AppN Nothing
                                                                 ( AppN Nothing
-                                                                  ( Ref Nothing
-                                                                    ( Imported
-                                                                      ( ModuleName "Golden.LongStackBind.Test" )
-                                                                      ( Name "bind" )
+                                                                  ( ObjectProp Nothing
+                                                                    ( Ref Nothing
+                                                                      ( Imported
+                                                                        ( ModuleName "Golden.LongStackBind.Test" )
+                                                                        ( Name "bindStateT" )
+                                                                      )
                                                                     )
+                                                                    ( PropName "bind" )
                                                                   )
                                                                   ( Ref Nothing
                                                                     ( Imported
@@ -4954,11 +5412,14 @@ UberModule
                                                                   )
                                                                   ( AppN Nothing
                                                                     ( AppN Nothing
-                                                                      ( Ref Nothing
-                                                                        ( Imported
-                                                                          ( ModuleName "Golden.LongStackBind.Test" )
-                                                                          ( Name "discard" )
+                                                                      ( ObjectProp Nothing
+                                                                        ( Ref Nothing
+                                                                          ( Imported
+                                                                            ( ModuleName "Golden.LongStackBind.Test" )
+                                                                            ( Name "bindStateT" )
+                                                                          )
                                                                         )
+                                                                        ( PropName "bind" )
                                                                       )
                                                                       ( AppN Nothing
                                                                         ( Ref Nothing
@@ -4987,11 +5448,14 @@ UberModule
                                                                       ( ParamUnused Nothing :| [] )
                                                                       ( AppN Nothing
                                                                         ( AppN Nothing
-                                                                          ( Ref Nothing
-                                                                            ( Imported
-                                                                              ( ModuleName "Golden.LongStackBind.Test" )
-                                                                              ( Name "bind" )
+                                                                          ( ObjectProp Nothing
+                                                                            ( Ref Nothing
+                                                                              ( Imported
+                                                                                ( ModuleName "Golden.LongStackBind.Test" )
+                                                                                ( Name "bindStateT" )
+                                                                              )
                                                                             )
+                                                                            ( PropName "bind" )
                                                                           )
                                                                           ( Ref Nothing
                                                                             ( Imported
@@ -5006,11 +5470,14 @@ UberModule
                                                                           )
                                                                           ( AppN Nothing
                                                                             ( AppN Nothing
-                                                                              ( Ref Nothing
-                                                                                ( Imported
-                                                                                  ( ModuleName "Golden.LongStackBind.Test" )
-                                                                                  ( Name "discard" )
+                                                                              ( ObjectProp Nothing
+                                                                                ( Ref Nothing
+                                                                                  ( Imported
+                                                                                    ( ModuleName "Golden.LongStackBind.Test" )
+                                                                                    ( Name "bindStateT" )
+                                                                                  )
                                                                                 )
+                                                                                ( PropName "bind" )
                                                                               )
                                                                               ( AppN Nothing
                                                                                 ( Ref Nothing
@@ -5039,11 +5506,14 @@ UberModule
                                                                               ( ParamUnused Nothing :| [] )
                                                                               ( AppN Nothing
                                                                                 ( AppN Nothing
-                                                                                  ( Ref Nothing
-                                                                                    ( Imported
-                                                                                      ( ModuleName "Golden.LongStackBind.Test" )
-                                                                                      ( Name "bind" )
+                                                                                  ( ObjectProp Nothing
+                                                                                    ( Ref Nothing
+                                                                                      ( Imported
+                                                                                        ( ModuleName "Golden.LongStackBind.Test" )
+                                                                                        ( Name "bindStateT" )
+                                                                                      )
                                                                                     )
+                                                                                    ( PropName "bind" )
                                                                                   )
                                                                                   ( Ref Nothing
                                                                                     ( Imported
@@ -5058,11 +5528,14 @@ UberModule
                                                                                   )
                                                                                   ( AppN Nothing
                                                                                     ( AppN Nothing
-                                                                                      ( Ref Nothing
-                                                                                        ( Imported
-                                                                                          ( ModuleName "Golden.LongStackBind.Test" )
-                                                                                          ( Name "discard" )
+                                                                                      ( ObjectProp Nothing
+                                                                                        ( Ref Nothing
+                                                                                          ( Imported
+                                                                                            ( ModuleName "Golden.LongStackBind.Test" )
+                                                                                            ( Name "bindStateT" )
+                                                                                          )
                                                                                         )
+                                                                                        ( PropName "bind" )
                                                                                       )
                                                                                       ( AppN Nothing
                                                                                         ( Ref Nothing
@@ -5091,11 +5564,14 @@ UberModule
                                                                                       ( ParamUnused Nothing :| [] )
                                                                                       ( AppN Nothing
                                                                                         ( AppN Nothing
-                                                                                          ( Ref Nothing
-                                                                                            ( Imported
-                                                                                              ( ModuleName "Golden.LongStackBind.Test" )
-                                                                                              ( Name "bind" )
+                                                                                          ( ObjectProp Nothing
+                                                                                            ( Ref Nothing
+                                                                                              ( Imported
+                                                                                                ( ModuleName "Golden.LongStackBind.Test" )
+                                                                                                ( Name "bindStateT" )
+                                                                                              )
                                                                                             )
+                                                                                            ( PropName "bind" )
                                                                                           )
                                                                                           ( Ref Nothing
                                                                                             ( Imported
@@ -5110,11 +5586,14 @@ UberModule
                                                                                           )
                                                                                           ( AppN Nothing
                                                                                             ( AppN Nothing
-                                                                                              ( Ref Nothing
-                                                                                                ( Imported
-                                                                                                  ( ModuleName "Golden.LongStackBind.Test" )
-                                                                                                  ( Name "discard" )
+                                                                                              ( ObjectProp Nothing
+                                                                                                ( Ref Nothing
+                                                                                                  ( Imported
+                                                                                                    ( ModuleName "Golden.LongStackBind.Test" )
+                                                                                                    ( Name "bindStateT" )
+                                                                                                  )
                                                                                                 )
+                                                                                                ( PropName "bind" )
                                                                                               )
                                                                                               ( AppN Nothing
                                                                                                 ( Ref Nothing
@@ -5143,11 +5622,14 @@ UberModule
                                                                                               ( ParamUnused Nothing :| [] )
                                                                                               ( AppN Nothing
                                                                                                 ( AppN Nothing
-                                                                                                  ( Ref Nothing
-                                                                                                    ( Imported
-                                                                                                      ( ModuleName "Golden.LongStackBind.Test" )
-                                                                                                      ( Name "bind" )
+                                                                                                  ( ObjectProp Nothing
+                                                                                                    ( Ref Nothing
+                                                                                                      ( Imported
+                                                                                                        ( ModuleName "Golden.LongStackBind.Test" )
+                                                                                                        ( Name "bindStateT" )
+                                                                                                      )
                                                                                                     )
+                                                                                                    ( PropName "bind" )
                                                                                                   )
                                                                                                   ( Ref Nothing
                                                                                                     ( Imported
@@ -5162,11 +5644,14 @@ UberModule
                                                                                                   )
                                                                                                   ( AppN Nothing
                                                                                                     ( AppN Nothing
-                                                                                                      ( Ref Nothing
-                                                                                                        ( Imported
-                                                                                                          ( ModuleName "Golden.LongStackBind.Test" )
-                                                                                                          ( Name "discard" )
+                                                                                                      ( ObjectProp Nothing
+                                                                                                        ( Ref Nothing
+                                                                                                          ( Imported
+                                                                                                            ( ModuleName "Golden.LongStackBind.Test" )
+                                                                                                            ( Name "bindStateT" )
+                                                                                                          )
                                                                                                         )
+                                                                                                        ( PropName "bind" )
                                                                                                       )
                                                                                                       ( AppN Nothing
                                                                                                         ( Ref Nothing
@@ -5195,11 +5680,14 @@ UberModule
                                                                                                       ( ParamUnused Nothing :| [] )
                                                                                                       ( AppN Nothing
                                                                                                         ( AppN Nothing
-                                                                                                          ( Ref Nothing
-                                                                                                            ( Imported
-                                                                                                              ( ModuleName "Golden.LongStackBind.Test" )
-                                                                                                              ( Name "bind" )
+                                                                                                          ( ObjectProp Nothing
+                                                                                                            ( Ref Nothing
+                                                                                                              ( Imported
+                                                                                                                ( ModuleName "Golden.LongStackBind.Test" )
+                                                                                                                ( Name "bindStateT" )
+                                                                                                              )
                                                                                                             )
+                                                                                                            ( PropName "bind" )
                                                                                                           )
                                                                                                           ( Ref Nothing
                                                                                                             ( Imported
@@ -5214,11 +5702,14 @@ UberModule
                                                                                                           )
                                                                                                           ( AppN Nothing
                                                                                                             ( AppN Nothing
-                                                                                                              ( Ref Nothing
-                                                                                                                ( Imported
-                                                                                                                  ( ModuleName "Golden.LongStackBind.Test" )
-                                                                                                                  ( Name "discard" )
+                                                                                                              ( ObjectProp Nothing
+                                                                                                                ( Ref Nothing
+                                                                                                                  ( Imported
+                                                                                                                    ( ModuleName "Golden.LongStackBind.Test" )
+                                                                                                                    ( Name "bindStateT" )
+                                                                                                                  )
                                                                                                                 )
+                                                                                                                ( PropName "bind" )
                                                                                                               )
                                                                                                               ( AppN Nothing
                                                                                                                 ( Ref Nothing
@@ -5247,11 +5738,14 @@ UberModule
                                                                                                               ( ParamUnused Nothing :| [] )
                                                                                                               ( AppN Nothing
                                                                                                                 ( AppN Nothing
-                                                                                                                  ( Ref Nothing
-                                                                                                                    ( Imported
-                                                                                                                      ( ModuleName "Golden.LongStackBind.Test" )
-                                                                                                                      ( Name "bind" )
+                                                                                                                  ( ObjectProp Nothing
+                                                                                                                    ( Ref Nothing
+                                                                                                                      ( Imported
+                                                                                                                        ( ModuleName "Golden.LongStackBind.Test" )
+                                                                                                                        ( Name "bindStateT" )
+                                                                                                                      )
                                                                                                                     )
+                                                                                                                    ( PropName "bind" )
                                                                                                                   )
                                                                                                                   ( Ref Nothing
                                                                                                                     ( Imported
@@ -5266,11 +5760,14 @@ UberModule
                                                                                                                   )
                                                                                                                   ( AppN Nothing
                                                                                                                     ( AppN Nothing
-                                                                                                                      ( Ref Nothing
-                                                                                                                        ( Imported
-                                                                                                                          ( ModuleName "Golden.LongStackBind.Test" )
-                                                                                                                          ( Name "discard" )
+                                                                                                                      ( ObjectProp Nothing
+                                                                                                                        ( Ref Nothing
+                                                                                                                          ( Imported
+                                                                                                                            ( ModuleName "Golden.LongStackBind.Test" )
+                                                                                                                            ( Name "bindStateT" )
+                                                                                                                          )
                                                                                                                         )
+                                                                                                                        ( PropName "bind" )
                                                                                                                       )
                                                                                                                       ( AppN Nothing
                                                                                                                         ( Ref Nothing
@@ -5299,11 +5796,14 @@ UberModule
                                                                                                                       ( ParamUnused Nothing :| [] )
                                                                                                                       ( AppN Nothing
                                                                                                                         ( AppN Nothing
-                                                                                                                          ( Ref Nothing
-                                                                                                                            ( Imported
-                                                                                                                              ( ModuleName "Golden.LongStackBind.Test" )
-                                                                                                                              ( Name "bind" )
+                                                                                                                          ( ObjectProp Nothing
+                                                                                                                            ( Ref Nothing
+                                                                                                                              ( Imported
+                                                                                                                                ( ModuleName "Golden.LongStackBind.Test" )
+                                                                                                                                ( Name "bindStateT" )
+                                                                                                                              )
                                                                                                                             )
+                                                                                                                            ( PropName "bind" )
                                                                                                                           )
                                                                                                                           ( Ref Nothing
                                                                                                                             ( Imported
@@ -5318,11 +5818,14 @@ UberModule
                                                                                                                           )
                                                                                                                           ( AppN Nothing
                                                                                                                             ( AppN Nothing
-                                                                                                                              ( Ref Nothing
-                                                                                                                                ( Imported
-                                                                                                                                  ( ModuleName "Golden.LongStackBind.Test" )
-                                                                                                                                  ( Name "discard" )
+                                                                                                                              ( ObjectProp Nothing
+                                                                                                                                ( Ref Nothing
+                                                                                                                                  ( Imported
+                                                                                                                                    ( ModuleName "Golden.LongStackBind.Test" )
+                                                                                                                                    ( Name "bindStateT" )
+                                                                                                                                  )
                                                                                                                                 )
+                                                                                                                                ( PropName "bind" )
                                                                                                                               )
                                                                                                                               ( AppN Nothing
                                                                                                                                 ( Ref Nothing
@@ -5351,11 +5854,14 @@ UberModule
                                                                                                                               ( ParamUnused Nothing :| [] )
                                                                                                                               ( AppN Nothing
                                                                                                                                 ( AppN Nothing
-                                                                                                                                  ( Ref Nothing
-                                                                                                                                    ( Imported
-                                                                                                                                      ( ModuleName "Golden.LongStackBind.Test" )
-                                                                                                                                      ( Name "bind" )
+                                                                                                                                  ( ObjectProp Nothing
+                                                                                                                                    ( Ref Nothing
+                                                                                                                                      ( Imported
+                                                                                                                                        ( ModuleName "Golden.LongStackBind.Test" )
+                                                                                                                                        ( Name "bindStateT" )
+                                                                                                                                      )
                                                                                                                                     )
+                                                                                                                                    ( PropName "bind" )
                                                                                                                                   )
                                                                                                                                   ( Ref Nothing
                                                                                                                                     ( Imported
@@ -5370,11 +5876,14 @@ UberModule
                                                                                                                                   )
                                                                                                                                   ( AppN Nothing
                                                                                                                                     ( AppN Nothing
-                                                                                                                                      ( Ref Nothing
-                                                                                                                                        ( Imported
-                                                                                                                                          ( ModuleName "Golden.LongStackBind.Test" )
-                                                                                                                                          ( Name "discard" )
+                                                                                                                                      ( ObjectProp Nothing
+                                                                                                                                        ( Ref Nothing
+                                                                                                                                          ( Imported
+                                                                                                                                            ( ModuleName "Golden.LongStackBind.Test" )
+                                                                                                                                            ( Name "bindStateT" )
+                                                                                                                                          )
                                                                                                                                         )
+                                                                                                                                        ( PropName "bind" )
                                                                                                                                       )
                                                                                                                                       ( AppN Nothing
                                                                                                                                         ( Ref Nothing
@@ -5403,11 +5912,14 @@ UberModule
                                                                                                                                       ( ParamUnused Nothing :| [] )
                                                                                                                                       ( AppN Nothing
                                                                                                                                         ( AppN Nothing
-                                                                                                                                          ( Ref Nothing
-                                                                                                                                            ( Imported
-                                                                                                                                              ( ModuleName "Golden.LongStackBind.Test" )
-                                                                                                                                              ( Name "bind" )
+                                                                                                                                          ( ObjectProp Nothing
+                                                                                                                                            ( Ref Nothing
+                                                                                                                                              ( Imported
+                                                                                                                                                ( ModuleName "Golden.LongStackBind.Test" )
+                                                                                                                                                ( Name "bindStateT" )
+                                                                                                                                              )
                                                                                                                                             )
+                                                                                                                                            ( PropName "bind" )
                                                                                                                                           )
                                                                                                                                           ( Ref Nothing
                                                                                                                                             ( Imported
@@ -5422,11 +5934,14 @@ UberModule
                                                                                                                                           )
                                                                                                                                           ( AppN Nothing
                                                                                                                                             ( AppN Nothing
-                                                                                                                                              ( Ref Nothing
-                                                                                                                                                ( Imported
-                                                                                                                                                  ( ModuleName "Golden.LongStackBind.Test" )
-                                                                                                                                                  ( Name "discard" )
+                                                                                                                                              ( ObjectProp Nothing
+                                                                                                                                                ( Ref Nothing
+                                                                                                                                                  ( Imported
+                                                                                                                                                    ( ModuleName "Golden.LongStackBind.Test" )
+                                                                                                                                                    ( Name "bindStateT" )
+                                                                                                                                                  )
                                                                                                                                                 )
+                                                                                                                                                ( PropName "bind" )
                                                                                                                                               )
                                                                                                                                               ( AppN Nothing
                                                                                                                                                 ( Ref Nothing
@@ -5455,11 +5970,14 @@ UberModule
                                                                                                                                               ( ParamUnused Nothing :| [] )
                                                                                                                                               ( AppN Nothing
                                                                                                                                                 ( AppN Nothing
-                                                                                                                                                  ( Ref Nothing
-                                                                                                                                                    ( Imported
-                                                                                                                                                      ( ModuleName "Golden.LongStackBind.Test" )
-                                                                                                                                                      ( Name "bind" )
+                                                                                                                                                  ( ObjectProp Nothing
+                                                                                                                                                    ( Ref Nothing
+                                                                                                                                                      ( Imported
+                                                                                                                                                        ( ModuleName "Golden.LongStackBind.Test" )
+                                                                                                                                                        ( Name "bindStateT" )
+                                                                                                                                                      )
                                                                                                                                                     )
+                                                                                                                                                    ( PropName "bind" )
                                                                                                                                                   )
                                                                                                                                                   ( Ref Nothing
                                                                                                                                                     ( Imported
@@ -5474,11 +5992,14 @@ UberModule
                                                                                                                                                   )
                                                                                                                                                   ( AppN Nothing
                                                                                                                                                     ( AppN Nothing
-                                                                                                                                                      ( Ref Nothing
-                                                                                                                                                        ( Imported
-                                                                                                                                                          ( ModuleName "Golden.LongStackBind.Test" )
-                                                                                                                                                          ( Name "discard" )
+                                                                                                                                                      ( ObjectProp Nothing
+                                                                                                                                                        ( Ref Nothing
+                                                                                                                                                          ( Imported
+                                                                                                                                                            ( ModuleName "Golden.LongStackBind.Test" )
+                                                                                                                                                            ( Name "bindStateT" )
+                                                                                                                                                          )
                                                                                                                                                         )
+                                                                                                                                                        ( PropName "bind" )
                                                                                                                                                       )
                                                                                                                                                       ( AppN Nothing
                                                                                                                                                         ( Ref Nothing
@@ -5507,11 +6028,14 @@ UberModule
                                                                                                                                                       ( ParamUnused Nothing :| [] )
                                                                                                                                                       ( AppN Nothing
                                                                                                                                                         ( AppN Nothing
-                                                                                                                                                          ( Ref Nothing
-                                                                                                                                                            ( Imported
-                                                                                                                                                              ( ModuleName "Golden.LongStackBind.Test" )
-                                                                                                                                                              ( Name "bind" )
+                                                                                                                                                          ( ObjectProp Nothing
+                                                                                                                                                            ( Ref Nothing
+                                                                                                                                                              ( Imported
+                                                                                                                                                                ( ModuleName "Golden.LongStackBind.Test" )
+                                                                                                                                                                ( Name "bindStateT" )
+                                                                                                                                                              )
                                                                                                                                                             )
+                                                                                                                                                            ( PropName "bind" )
                                                                                                                                                           )
                                                                                                                                                           ( Ref Nothing
                                                                                                                                                             ( Imported
@@ -5526,11 +6050,14 @@ UberModule
                                                                                                                                                           )
                                                                                                                                                           ( AppN Nothing
                                                                                                                                                             ( AppN Nothing
-                                                                                                                                                              ( Ref Nothing
-                                                                                                                                                                ( Imported
-                                                                                                                                                                  ( ModuleName "Golden.LongStackBind.Test" )
-                                                                                                                                                                  ( Name "discard" )
+                                                                                                                                                              ( ObjectProp Nothing
+                                                                                                                                                                ( Ref Nothing
+                                                                                                                                                                  ( Imported
+                                                                                                                                                                    ( ModuleName "Golden.LongStackBind.Test" )
+                                                                                                                                                                    ( Name "bindStateT" )
+                                                                                                                                                                  )
                                                                                                                                                                 )
+                                                                                                                                                                ( PropName "bind" )
                                                                                                                                                               )
                                                                                                                                                               ( AppN Nothing
                                                                                                                                                                 ( Ref Nothing
@@ -5559,11 +6086,14 @@ UberModule
                                                                                                                                                               ( ParamUnused Nothing :| [] )
                                                                                                                                                               ( AppN Nothing
                                                                                                                                                                 ( AppN Nothing
-                                                                                                                                                                  ( Ref Nothing
-                                                                                                                                                                    ( Imported
-                                                                                                                                                                      ( ModuleName "Golden.LongStackBind.Test" )
-                                                                                                                                                                      ( Name "bind" )
+                                                                                                                                                                  ( ObjectProp Nothing
+                                                                                                                                                                    ( Ref Nothing
+                                                                                                                                                                      ( Imported
+                                                                                                                                                                        ( ModuleName "Golden.LongStackBind.Test" )
+                                                                                                                                                                        ( Name "bindStateT" )
+                                                                                                                                                                      )
                                                                                                                                                                     )
+                                                                                                                                                                    ( PropName "bind" )
                                                                                                                                                                   )
                                                                                                                                                                   ( Ref Nothing
                                                                                                                                                                     ( Imported
@@ -5578,11 +6108,14 @@ UberModule
                                                                                                                                                                   )
                                                                                                                                                                   ( AppN Nothing
                                                                                                                                                                     ( AppN Nothing
-                                                                                                                                                                      ( Ref Nothing
-                                                                                                                                                                        ( Imported
-                                                                                                                                                                          ( ModuleName "Golden.LongStackBind.Test" )
-                                                                                                                                                                          ( Name "discard" )
+                                                                                                                                                                      ( ObjectProp Nothing
+                                                                                                                                                                        ( Ref Nothing
+                                                                                                                                                                          ( Imported
+                                                                                                                                                                            ( ModuleName "Golden.LongStackBind.Test" )
+                                                                                                                                                                            ( Name "bindStateT" )
+                                                                                                                                                                          )
                                                                                                                                                                         )
+                                                                                                                                                                        ( PropName "bind" )
                                                                                                                                                                       )
                                                                                                                                                                       ( AppN Nothing
                                                                                                                                                                         ( Ref Nothing
@@ -5611,11 +6144,14 @@ UberModule
                                                                                                                                                                       ( ParamUnused Nothing :| [] )
                                                                                                                                                                       ( AppN Nothing
                                                                                                                                                                         ( AppN Nothing
-                                                                                                                                                                          ( Ref Nothing
-                                                                                                                                                                            ( Imported
-                                                                                                                                                                              ( ModuleName "Golden.LongStackBind.Test" )
-                                                                                                                                                                              ( Name "bind" )
+                                                                                                                                                                          ( ObjectProp Nothing
+                                                                                                                                                                            ( Ref Nothing
+                                                                                                                                                                              ( Imported
+                                                                                                                                                                                ( ModuleName "Golden.LongStackBind.Test" )
+                                                                                                                                                                                ( Name "bindStateT" )
+                                                                                                                                                                              )
                                                                                                                                                                             )
+                                                                                                                                                                            ( PropName "bind" )
                                                                                                                                                                           )
                                                                                                                                                                           ( Ref Nothing
                                                                                                                                                                             ( Imported
@@ -5630,11 +6166,14 @@ UberModule
                                                                                                                                                                           )
                                                                                                                                                                           ( AppN Nothing
                                                                                                                                                                             ( AppN Nothing
-                                                                                                                                                                              ( Ref Nothing
-                                                                                                                                                                                ( Imported
-                                                                                                                                                                                  ( ModuleName "Golden.LongStackBind.Test" )
-                                                                                                                                                                                  ( Name "discard" )
+                                                                                                                                                                              ( ObjectProp Nothing
+                                                                                                                                                                                ( Ref Nothing
+                                                                                                                                                                                  ( Imported
+                                                                                                                                                                                    ( ModuleName "Golden.LongStackBind.Test" )
+                                                                                                                                                                                    ( Name "bindStateT" )
+                                                                                                                                                                                  )
                                                                                                                                                                                 )
+                                                                                                                                                                                ( PropName "bind" )
                                                                                                                                                                               )
                                                                                                                                                                               ( AppN Nothing
                                                                                                                                                                                 ( Ref Nothing
@@ -5664,12 +6203,12 @@ UberModule
                                                                                                                                                                               ( AppN Nothing
                                                                                                                                                                                 ( Ref Nothing
                                                                                                                                                                                   ( Local
-                                                                                                                                                                                    ( Name "$kont6563" )
+                                                                                                                                                                                    ( Name "$kont6205" )
                                                                                                                                                                                   )
                                                                                                                                                                                 )
                                                                                                                                                                                 ( Ref Nothing
                                                                                                                                                                                   ( Local
-                                                                                                                                                                                    ( Name "x1$6566" )
+                                                                                                                                                                                    ( Name "x1$6208" )
                                                                                                                                                                                   ) :| []
                                                                                                                                                                                 )
                                                                                                                                                                               ) :| []
@@ -5754,12 +6293,15 @@ UberModule
                 )
               )
             ), Standalone
-            ( Nothing, Name "$kont6567", AbsN Nothing
-              ( ParamNamed Nothing ( Name "x1$6568" ) :| [] )
+            ( Nothing, Name "$kont6209", AbsN Nothing
+              ( ParamNamed Nothing ( Name "x1$6210" ) :| [] )
               ( AppN Nothing
                 ( AppN Nothing
-                  ( Ref Nothing
-                    ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "bind" ) )
+                  ( ObjectProp Nothing
+                    ( Ref Nothing
+                      ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "bindStateT" ) )
+                    )
+                    ( PropName "bind" )
                   )
                   ( Ref Nothing
                     ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "get" ) ) :| []
@@ -5769,8 +6311,14 @@ UberModule
                   ( ParamNamed Nothing ( Name "x41" ) :| [] )
                   ( AppN Nothing
                     ( AppN Nothing
-                      ( Ref Nothing
-                        ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "discard" ) )
+                      ( ObjectProp Nothing
+                        ( Ref Nothing
+                          ( Imported
+                            ( ModuleName "Golden.LongStackBind.Test" )
+                            ( Name "bindStateT" )
+                          )
+                        )
+                        ( PropName "bind" )
                       )
                       ( AppN Nothing
                         ( Ref Nothing
@@ -5788,8 +6336,14 @@ UberModule
                       ( ParamUnused Nothing :| [] )
                       ( AppN Nothing
                         ( AppN Nothing
-                          ( Ref Nothing
-                            ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "bind" ) )
+                          ( ObjectProp Nothing
+                            ( Ref Nothing
+                              ( Imported
+                                ( ModuleName "Golden.LongStackBind.Test" )
+                                ( Name "bindStateT" )
+                              )
+                            )
+                            ( PropName "bind" )
                           )
                           ( Ref Nothing
                             ( Imported
@@ -5802,11 +6356,14 @@ UberModule
                           ( ParamNamed Nothing ( Name "x42" ) :| [] )
                           ( AppN Nothing
                             ( AppN Nothing
-                              ( Ref Nothing
-                                ( Imported
-                                  ( ModuleName "Golden.LongStackBind.Test" )
-                                  ( Name "discard" )
+                              ( ObjectProp Nothing
+                                ( Ref Nothing
+                                  ( Imported
+                                    ( ModuleName "Golden.LongStackBind.Test" )
+                                    ( Name "bindStateT" )
+                                  )
                                 )
+                                ( PropName "bind" )
                               )
                               ( AppN Nothing
                                 ( Ref Nothing
@@ -5833,11 +6390,14 @@ UberModule
                               ( ParamUnused Nothing :| [] )
                               ( AppN Nothing
                                 ( AppN Nothing
-                                  ( Ref Nothing
-                                    ( Imported
-                                      ( ModuleName "Golden.LongStackBind.Test" )
-                                      ( Name "bind" )
+                                  ( ObjectProp Nothing
+                                    ( Ref Nothing
+                                      ( Imported
+                                        ( ModuleName "Golden.LongStackBind.Test" )
+                                        ( Name "bindStateT" )
+                                      )
                                     )
+                                    ( PropName "bind" )
                                   )
                                   ( Ref Nothing
                                     ( Imported
@@ -5850,11 +6410,14 @@ UberModule
                                   ( ParamNamed Nothing ( Name "x43" ) :| [] )
                                   ( AppN Nothing
                                     ( AppN Nothing
-                                      ( Ref Nothing
-                                        ( Imported
-                                          ( ModuleName "Golden.LongStackBind.Test" )
-                                          ( Name "discard" )
+                                      ( ObjectProp Nothing
+                                        ( Ref Nothing
+                                          ( Imported
+                                            ( ModuleName "Golden.LongStackBind.Test" )
+                                            ( Name "bindStateT" )
+                                          )
                                         )
+                                        ( PropName "bind" )
                                       )
                                       ( AppN Nothing
                                         ( Ref Nothing
@@ -5881,11 +6444,14 @@ UberModule
                                       ( ParamUnused Nothing :| [] )
                                       ( AppN Nothing
                                         ( AppN Nothing
-                                          ( Ref Nothing
-                                            ( Imported
-                                              ( ModuleName "Golden.LongStackBind.Test" )
-                                              ( Name "bind" )
+                                          ( ObjectProp Nothing
+                                            ( Ref Nothing
+                                              ( Imported
+                                                ( ModuleName "Golden.LongStackBind.Test" )
+                                                ( Name "bindStateT" )
+                                              )
                                             )
+                                            ( PropName "bind" )
                                           )
                                           ( Ref Nothing
                                             ( Imported
@@ -5898,11 +6464,14 @@ UberModule
                                           ( ParamNamed Nothing ( Name "x44" ) :| [] )
                                           ( AppN Nothing
                                             ( AppN Nothing
-                                              ( Ref Nothing
-                                                ( Imported
-                                                  ( ModuleName "Golden.LongStackBind.Test" )
-                                                  ( Name "discard" )
+                                              ( ObjectProp Nothing
+                                                ( Ref Nothing
+                                                  ( Imported
+                                                    ( ModuleName "Golden.LongStackBind.Test" )
+                                                    ( Name "bindStateT" )
+                                                  )
                                                 )
+                                                ( PropName "bind" )
                                               )
                                               ( AppN Nothing
                                                 ( Ref Nothing
@@ -5929,11 +6498,14 @@ UberModule
                                               ( ParamUnused Nothing :| [] )
                                               ( AppN Nothing
                                                 ( AppN Nothing
-                                                  ( Ref Nothing
-                                                    ( Imported
-                                                      ( ModuleName "Golden.LongStackBind.Test" )
-                                                      ( Name "bind" )
+                                                  ( ObjectProp Nothing
+                                                    ( Ref Nothing
+                                                      ( Imported
+                                                        ( ModuleName "Golden.LongStackBind.Test" )
+                                                        ( Name "bindStateT" )
+                                                      )
                                                     )
+                                                    ( PropName "bind" )
                                                   )
                                                   ( Ref Nothing
                                                     ( Imported
@@ -5946,11 +6518,14 @@ UberModule
                                                   ( ParamNamed Nothing ( Name "x45" ) :| [] )
                                                   ( AppN Nothing
                                                     ( AppN Nothing
-                                                      ( Ref Nothing
-                                                        ( Imported
-                                                          ( ModuleName "Golden.LongStackBind.Test" )
-                                                          ( Name "discard" )
+                                                      ( ObjectProp Nothing
+                                                        ( Ref Nothing
+                                                          ( Imported
+                                                            ( ModuleName "Golden.LongStackBind.Test" )
+                                                            ( Name "bindStateT" )
+                                                          )
                                                         )
+                                                        ( PropName "bind" )
                                                       )
                                                       ( AppN Nothing
                                                         ( Ref Nothing
@@ -5977,11 +6552,14 @@ UberModule
                                                       ( ParamUnused Nothing :| [] )
                                                       ( AppN Nothing
                                                         ( AppN Nothing
-                                                          ( Ref Nothing
-                                                            ( Imported
-                                                              ( ModuleName "Golden.LongStackBind.Test" )
-                                                              ( Name "bind" )
+                                                          ( ObjectProp Nothing
+                                                            ( Ref Nothing
+                                                              ( Imported
+                                                                ( ModuleName "Golden.LongStackBind.Test" )
+                                                                ( Name "bindStateT" )
+                                                              )
                                                             )
+                                                            ( PropName "bind" )
                                                           )
                                                           ( Ref Nothing
                                                             ( Imported
@@ -5996,11 +6574,14 @@ UberModule
                                                           )
                                                           ( AppN Nothing
                                                             ( AppN Nothing
-                                                              ( Ref Nothing
-                                                                ( Imported
-                                                                  ( ModuleName "Golden.LongStackBind.Test" )
-                                                                  ( Name "discard" )
+                                                              ( ObjectProp Nothing
+                                                                ( Ref Nothing
+                                                                  ( Imported
+                                                                    ( ModuleName "Golden.LongStackBind.Test" )
+                                                                    ( Name "bindStateT" )
+                                                                  )
                                                                 )
+                                                                ( PropName "bind" )
                                                               )
                                                               ( AppN Nothing
                                                                 ( Ref Nothing
@@ -6027,11 +6608,14 @@ UberModule
                                                               ( ParamUnused Nothing :| [] )
                                                               ( AppN Nothing
                                                                 ( AppN Nothing
-                                                                  ( Ref Nothing
-                                                                    ( Imported
-                                                                      ( ModuleName "Golden.LongStackBind.Test" )
-                                                                      ( Name "bind" )
+                                                                  ( ObjectProp Nothing
+                                                                    ( Ref Nothing
+                                                                      ( Imported
+                                                                        ( ModuleName "Golden.LongStackBind.Test" )
+                                                                        ( Name "bindStateT" )
+                                                                      )
                                                                     )
+                                                                    ( PropName "bind" )
                                                                   )
                                                                   ( Ref Nothing
                                                                     ( Imported
@@ -6046,11 +6630,14 @@ UberModule
                                                                   )
                                                                   ( AppN Nothing
                                                                     ( AppN Nothing
-                                                                      ( Ref Nothing
-                                                                        ( Imported
-                                                                          ( ModuleName "Golden.LongStackBind.Test" )
-                                                                          ( Name "discard" )
+                                                                      ( ObjectProp Nothing
+                                                                        ( Ref Nothing
+                                                                          ( Imported
+                                                                            ( ModuleName "Golden.LongStackBind.Test" )
+                                                                            ( Name "bindStateT" )
+                                                                          )
                                                                         )
+                                                                        ( PropName "bind" )
                                                                       )
                                                                       ( AppN Nothing
                                                                         ( Ref Nothing
@@ -6079,11 +6666,14 @@ UberModule
                                                                       ( ParamUnused Nothing :| [] )
                                                                       ( AppN Nothing
                                                                         ( AppN Nothing
-                                                                          ( Ref Nothing
-                                                                            ( Imported
-                                                                              ( ModuleName "Golden.LongStackBind.Test" )
-                                                                              ( Name "bind" )
+                                                                          ( ObjectProp Nothing
+                                                                            ( Ref Nothing
+                                                                              ( Imported
+                                                                                ( ModuleName "Golden.LongStackBind.Test" )
+                                                                                ( Name "bindStateT" )
+                                                                              )
                                                                             )
+                                                                            ( PropName "bind" )
                                                                           )
                                                                           ( Ref Nothing
                                                                             ( Imported
@@ -6098,11 +6688,14 @@ UberModule
                                                                           )
                                                                           ( AppN Nothing
                                                                             ( AppN Nothing
-                                                                              ( Ref Nothing
-                                                                                ( Imported
-                                                                                  ( ModuleName "Golden.LongStackBind.Test" )
-                                                                                  ( Name "discard" )
+                                                                              ( ObjectProp Nothing
+                                                                                ( Ref Nothing
+                                                                                  ( Imported
+                                                                                    ( ModuleName "Golden.LongStackBind.Test" )
+                                                                                    ( Name "bindStateT" )
+                                                                                  )
                                                                                 )
+                                                                                ( PropName "bind" )
                                                                               )
                                                                               ( AppN Nothing
                                                                                 ( Ref Nothing
@@ -6131,11 +6724,14 @@ UberModule
                                                                               ( ParamUnused Nothing :| [] )
                                                                               ( AppN Nothing
                                                                                 ( AppN Nothing
-                                                                                  ( Ref Nothing
-                                                                                    ( Imported
-                                                                                      ( ModuleName "Golden.LongStackBind.Test" )
-                                                                                      ( Name "bind" )
+                                                                                  ( ObjectProp Nothing
+                                                                                    ( Ref Nothing
+                                                                                      ( Imported
+                                                                                        ( ModuleName "Golden.LongStackBind.Test" )
+                                                                                        ( Name "bindStateT" )
+                                                                                      )
                                                                                     )
+                                                                                    ( PropName "bind" )
                                                                                   )
                                                                                   ( Ref Nothing
                                                                                     ( Imported
@@ -6150,11 +6746,14 @@ UberModule
                                                                                   )
                                                                                   ( AppN Nothing
                                                                                     ( AppN Nothing
-                                                                                      ( Ref Nothing
-                                                                                        ( Imported
-                                                                                          ( ModuleName "Golden.LongStackBind.Test" )
-                                                                                          ( Name "discard" )
+                                                                                      ( ObjectProp Nothing
+                                                                                        ( Ref Nothing
+                                                                                          ( Imported
+                                                                                            ( ModuleName "Golden.LongStackBind.Test" )
+                                                                                            ( Name "bindStateT" )
+                                                                                          )
                                                                                         )
+                                                                                        ( PropName "bind" )
                                                                                       )
                                                                                       ( AppN Nothing
                                                                                         ( Ref Nothing
@@ -6183,11 +6782,14 @@ UberModule
                                                                                       ( ParamUnused Nothing :| [] )
                                                                                       ( AppN Nothing
                                                                                         ( AppN Nothing
-                                                                                          ( Ref Nothing
-                                                                                            ( Imported
-                                                                                              ( ModuleName "Golden.LongStackBind.Test" )
-                                                                                              ( Name "bind" )
+                                                                                          ( ObjectProp Nothing
+                                                                                            ( Ref Nothing
+                                                                                              ( Imported
+                                                                                                ( ModuleName "Golden.LongStackBind.Test" )
+                                                                                                ( Name "bindStateT" )
+                                                                                              )
                                                                                             )
+                                                                                            ( PropName "bind" )
                                                                                           )
                                                                                           ( Ref Nothing
                                                                                             ( Imported
@@ -6202,11 +6804,14 @@ UberModule
                                                                                           )
                                                                                           ( AppN Nothing
                                                                                             ( AppN Nothing
-                                                                                              ( Ref Nothing
-                                                                                                ( Imported
-                                                                                                  ( ModuleName "Golden.LongStackBind.Test" )
-                                                                                                  ( Name "discard" )
+                                                                                              ( ObjectProp Nothing
+                                                                                                ( Ref Nothing
+                                                                                                  ( Imported
+                                                                                                    ( ModuleName "Golden.LongStackBind.Test" )
+                                                                                                    ( Name "bindStateT" )
+                                                                                                  )
                                                                                                 )
+                                                                                                ( PropName "bind" )
                                                                                               )
                                                                                               ( AppN Nothing
                                                                                                 ( Ref Nothing
@@ -6235,11 +6840,14 @@ UberModule
                                                                                               ( ParamUnused Nothing :| [] )
                                                                                               ( AppN Nothing
                                                                                                 ( AppN Nothing
-                                                                                                  ( Ref Nothing
-                                                                                                    ( Imported
-                                                                                                      ( ModuleName "Golden.LongStackBind.Test" )
-                                                                                                      ( Name "bind" )
+                                                                                                  ( ObjectProp Nothing
+                                                                                                    ( Ref Nothing
+                                                                                                      ( Imported
+                                                                                                        ( ModuleName "Golden.LongStackBind.Test" )
+                                                                                                        ( Name "bindStateT" )
+                                                                                                      )
                                                                                                     )
+                                                                                                    ( PropName "bind" )
                                                                                                   )
                                                                                                   ( Ref Nothing
                                                                                                     ( Imported
@@ -6254,11 +6862,14 @@ UberModule
                                                                                                   )
                                                                                                   ( AppN Nothing
                                                                                                     ( AppN Nothing
-                                                                                                      ( Ref Nothing
-                                                                                                        ( Imported
-                                                                                                          ( ModuleName "Golden.LongStackBind.Test" )
-                                                                                                          ( Name "discard" )
+                                                                                                      ( ObjectProp Nothing
+                                                                                                        ( Ref Nothing
+                                                                                                          ( Imported
+                                                                                                            ( ModuleName "Golden.LongStackBind.Test" )
+                                                                                                            ( Name "bindStateT" )
+                                                                                                          )
                                                                                                         )
+                                                                                                        ( PropName "bind" )
                                                                                                       )
                                                                                                       ( AppN Nothing
                                                                                                         ( Ref Nothing
@@ -6287,11 +6898,14 @@ UberModule
                                                                                                       ( ParamUnused Nothing :| [] )
                                                                                                       ( AppN Nothing
                                                                                                         ( AppN Nothing
-                                                                                                          ( Ref Nothing
-                                                                                                            ( Imported
-                                                                                                              ( ModuleName "Golden.LongStackBind.Test" )
-                                                                                                              ( Name "bind" )
+                                                                                                          ( ObjectProp Nothing
+                                                                                                            ( Ref Nothing
+                                                                                                              ( Imported
+                                                                                                                ( ModuleName "Golden.LongStackBind.Test" )
+                                                                                                                ( Name "bindStateT" )
+                                                                                                              )
                                                                                                             )
+                                                                                                            ( PropName "bind" )
                                                                                                           )
                                                                                                           ( Ref Nothing
                                                                                                             ( Imported
@@ -6306,11 +6920,14 @@ UberModule
                                                                                                           )
                                                                                                           ( AppN Nothing
                                                                                                             ( AppN Nothing
-                                                                                                              ( Ref Nothing
-                                                                                                                ( Imported
-                                                                                                                  ( ModuleName "Golden.LongStackBind.Test" )
-                                                                                                                  ( Name "discard" )
+                                                                                                              ( ObjectProp Nothing
+                                                                                                                ( Ref Nothing
+                                                                                                                  ( Imported
+                                                                                                                    ( ModuleName "Golden.LongStackBind.Test" )
+                                                                                                                    ( Name "bindStateT" )
+                                                                                                                  )
                                                                                                                 )
+                                                                                                                ( PropName "bind" )
                                                                                                               )
                                                                                                               ( AppN Nothing
                                                                                                                 ( Ref Nothing
@@ -6339,11 +6956,14 @@ UberModule
                                                                                                               ( ParamUnused Nothing :| [] )
                                                                                                               ( AppN Nothing
                                                                                                                 ( AppN Nothing
-                                                                                                                  ( Ref Nothing
-                                                                                                                    ( Imported
-                                                                                                                      ( ModuleName "Golden.LongStackBind.Test" )
-                                                                                                                      ( Name "bind" )
+                                                                                                                  ( ObjectProp Nothing
+                                                                                                                    ( Ref Nothing
+                                                                                                                      ( Imported
+                                                                                                                        ( ModuleName "Golden.LongStackBind.Test" )
+                                                                                                                        ( Name "bindStateT" )
+                                                                                                                      )
                                                                                                                     )
+                                                                                                                    ( PropName "bind" )
                                                                                                                   )
                                                                                                                   ( Ref Nothing
                                                                                                                     ( Imported
@@ -6358,11 +6978,14 @@ UberModule
                                                                                                                   )
                                                                                                                   ( AppN Nothing
                                                                                                                     ( AppN Nothing
-                                                                                                                      ( Ref Nothing
-                                                                                                                        ( Imported
-                                                                                                                          ( ModuleName "Golden.LongStackBind.Test" )
-                                                                                                                          ( Name "discard" )
+                                                                                                                      ( ObjectProp Nothing
+                                                                                                                        ( Ref Nothing
+                                                                                                                          ( Imported
+                                                                                                                            ( ModuleName "Golden.LongStackBind.Test" )
+                                                                                                                            ( Name "bindStateT" )
+                                                                                                                          )
                                                                                                                         )
+                                                                                                                        ( PropName "bind" )
                                                                                                                       )
                                                                                                                       ( AppN Nothing
                                                                                                                         ( Ref Nothing
@@ -6391,11 +7014,14 @@ UberModule
                                                                                                                       ( ParamUnused Nothing :| [] )
                                                                                                                       ( AppN Nothing
                                                                                                                         ( AppN Nothing
-                                                                                                                          ( Ref Nothing
-                                                                                                                            ( Imported
-                                                                                                                              ( ModuleName "Golden.LongStackBind.Test" )
-                                                                                                                              ( Name "bind" )
+                                                                                                                          ( ObjectProp Nothing
+                                                                                                                            ( Ref Nothing
+                                                                                                                              ( Imported
+                                                                                                                                ( ModuleName "Golden.LongStackBind.Test" )
+                                                                                                                                ( Name "bindStateT" )
+                                                                                                                              )
                                                                                                                             )
+                                                                                                                            ( PropName "bind" )
                                                                                                                           )
                                                                                                                           ( Ref Nothing
                                                                                                                             ( Imported
@@ -6410,11 +7036,14 @@ UberModule
                                                                                                                           )
                                                                                                                           ( AppN Nothing
                                                                                                                             ( AppN Nothing
-                                                                                                                              ( Ref Nothing
-                                                                                                                                ( Imported
-                                                                                                                                  ( ModuleName "Golden.LongStackBind.Test" )
-                                                                                                                                  ( Name "discard" )
+                                                                                                                              ( ObjectProp Nothing
+                                                                                                                                ( Ref Nothing
+                                                                                                                                  ( Imported
+                                                                                                                                    ( ModuleName "Golden.LongStackBind.Test" )
+                                                                                                                                    ( Name "bindStateT" )
+                                                                                                                                  )
                                                                                                                                 )
+                                                                                                                                ( PropName "bind" )
                                                                                                                               )
                                                                                                                               ( AppN Nothing
                                                                                                                                 ( Ref Nothing
@@ -6443,11 +7072,14 @@ UberModule
                                                                                                                               ( ParamUnused Nothing :| [] )
                                                                                                                               ( AppN Nothing
                                                                                                                                 ( AppN Nothing
-                                                                                                                                  ( Ref Nothing
-                                                                                                                                    ( Imported
-                                                                                                                                      ( ModuleName "Golden.LongStackBind.Test" )
-                                                                                                                                      ( Name "bind" )
+                                                                                                                                  ( ObjectProp Nothing
+                                                                                                                                    ( Ref Nothing
+                                                                                                                                      ( Imported
+                                                                                                                                        ( ModuleName "Golden.LongStackBind.Test" )
+                                                                                                                                        ( Name "bindStateT" )
+                                                                                                                                      )
                                                                                                                                     )
+                                                                                                                                    ( PropName "bind" )
                                                                                                                                   )
                                                                                                                                   ( Ref Nothing
                                                                                                                                     ( Imported
@@ -6462,11 +7094,14 @@ UberModule
                                                                                                                                   )
                                                                                                                                   ( AppN Nothing
                                                                                                                                     ( AppN Nothing
-                                                                                                                                      ( Ref Nothing
-                                                                                                                                        ( Imported
-                                                                                                                                          ( ModuleName "Golden.LongStackBind.Test" )
-                                                                                                                                          ( Name "discard" )
+                                                                                                                                      ( ObjectProp Nothing
+                                                                                                                                        ( Ref Nothing
+                                                                                                                                          ( Imported
+                                                                                                                                            ( ModuleName "Golden.LongStackBind.Test" )
+                                                                                                                                            ( Name "bindStateT" )
+                                                                                                                                          )
                                                                                                                                         )
+                                                                                                                                        ( PropName "bind" )
                                                                                                                                       )
                                                                                                                                       ( AppN Nothing
                                                                                                                                         ( Ref Nothing
@@ -6495,11 +7130,14 @@ UberModule
                                                                                                                                       ( ParamUnused Nothing :| [] )
                                                                                                                                       ( AppN Nothing
                                                                                                                                         ( AppN Nothing
-                                                                                                                                          ( Ref Nothing
-                                                                                                                                            ( Imported
-                                                                                                                                              ( ModuleName "Golden.LongStackBind.Test" )
-                                                                                                                                              ( Name "bind" )
+                                                                                                                                          ( ObjectProp Nothing
+                                                                                                                                            ( Ref Nothing
+                                                                                                                                              ( Imported
+                                                                                                                                                ( ModuleName "Golden.LongStackBind.Test" )
+                                                                                                                                                ( Name "bindStateT" )
+                                                                                                                                              )
                                                                                                                                             )
+                                                                                                                                            ( PropName "bind" )
                                                                                                                                           )
                                                                                                                                           ( Ref Nothing
                                                                                                                                             ( Imported
@@ -6514,11 +7152,14 @@ UberModule
                                                                                                                                           )
                                                                                                                                           ( AppN Nothing
                                                                                                                                             ( AppN Nothing
-                                                                                                                                              ( Ref Nothing
-                                                                                                                                                ( Imported
-                                                                                                                                                  ( ModuleName "Golden.LongStackBind.Test" )
-                                                                                                                                                  ( Name "discard" )
+                                                                                                                                              ( ObjectProp Nothing
+                                                                                                                                                ( Ref Nothing
+                                                                                                                                                  ( Imported
+                                                                                                                                                    ( ModuleName "Golden.LongStackBind.Test" )
+                                                                                                                                                    ( Name "bindStateT" )
+                                                                                                                                                  )
                                                                                                                                                 )
+                                                                                                                                                ( PropName "bind" )
                                                                                                                                               )
                                                                                                                                               ( AppN Nothing
                                                                                                                                                 ( Ref Nothing
@@ -6547,11 +7188,14 @@ UberModule
                                                                                                                                               ( ParamUnused Nothing :| [] )
                                                                                                                                               ( AppN Nothing
                                                                                                                                                 ( AppN Nothing
-                                                                                                                                                  ( Ref Nothing
-                                                                                                                                                    ( Imported
-                                                                                                                                                      ( ModuleName "Golden.LongStackBind.Test" )
-                                                                                                                                                      ( Name "bind" )
+                                                                                                                                                  ( ObjectProp Nothing
+                                                                                                                                                    ( Ref Nothing
+                                                                                                                                                      ( Imported
+                                                                                                                                                        ( ModuleName "Golden.LongStackBind.Test" )
+                                                                                                                                                        ( Name "bindStateT" )
+                                                                                                                                                      )
                                                                                                                                                     )
+                                                                                                                                                    ( PropName "bind" )
                                                                                                                                                   )
                                                                                                                                                   ( Ref Nothing
                                                                                                                                                     ( Imported
@@ -6566,11 +7210,14 @@ UberModule
                                                                                                                                                   )
                                                                                                                                                   ( AppN Nothing
                                                                                                                                                     ( AppN Nothing
-                                                                                                                                                      ( Ref Nothing
-                                                                                                                                                        ( Imported
-                                                                                                                                                          ( ModuleName "Golden.LongStackBind.Test" )
-                                                                                                                                                          ( Name "discard" )
+                                                                                                                                                      ( ObjectProp Nothing
+                                                                                                                                                        ( Ref Nothing
+                                                                                                                                                          ( Imported
+                                                                                                                                                            ( ModuleName "Golden.LongStackBind.Test" )
+                                                                                                                                                            ( Name "bindStateT" )
+                                                                                                                                                          )
                                                                                                                                                         )
+                                                                                                                                                        ( PropName "bind" )
                                                                                                                                                       )
                                                                                                                                                       ( AppN Nothing
                                                                                                                                                         ( Ref Nothing
@@ -6599,11 +7246,14 @@ UberModule
                                                                                                                                                       ( ParamUnused Nothing :| [] )
                                                                                                                                                       ( AppN Nothing
                                                                                                                                                         ( AppN Nothing
-                                                                                                                                                          ( Ref Nothing
-                                                                                                                                                            ( Imported
-                                                                                                                                                              ( ModuleName "Golden.LongStackBind.Test" )
-                                                                                                                                                              ( Name "bind" )
+                                                                                                                                                          ( ObjectProp Nothing
+                                                                                                                                                            ( Ref Nothing
+                                                                                                                                                              ( Imported
+                                                                                                                                                                ( ModuleName "Golden.LongStackBind.Test" )
+                                                                                                                                                                ( Name "bindStateT" )
+                                                                                                                                                              )
                                                                                                                                                             )
+                                                                                                                                                            ( PropName "bind" )
                                                                                                                                                           )
                                                                                                                                                           ( Ref Nothing
                                                                                                                                                             ( Imported
@@ -6618,11 +7268,14 @@ UberModule
                                                                                                                                                           )
                                                                                                                                                           ( AppN Nothing
                                                                                                                                                             ( AppN Nothing
-                                                                                                                                                              ( Ref Nothing
-                                                                                                                                                                ( Imported
-                                                                                                                                                                  ( ModuleName "Golden.LongStackBind.Test" )
-                                                                                                                                                                  ( Name "discard" )
+                                                                                                                                                              ( ObjectProp Nothing
+                                                                                                                                                                ( Ref Nothing
+                                                                                                                                                                  ( Imported
+                                                                                                                                                                    ( ModuleName "Golden.LongStackBind.Test" )
+                                                                                                                                                                    ( Name "bindStateT" )
+                                                                                                                                                                  )
                                                                                                                                                                 )
+                                                                                                                                                                ( PropName "bind" )
                                                                                                                                                               )
                                                                                                                                                               ( AppN Nothing
                                                                                                                                                                 ( Ref Nothing
@@ -6651,11 +7304,14 @@ UberModule
                                                                                                                                                               ( ParamUnused Nothing :| [] )
                                                                                                                                                               ( AppN Nothing
                                                                                                                                                                 ( AppN Nothing
-                                                                                                                                                                  ( Ref Nothing
-                                                                                                                                                                    ( Imported
-                                                                                                                                                                      ( ModuleName "Golden.LongStackBind.Test" )
-                                                                                                                                                                      ( Name "bind" )
+                                                                                                                                                                  ( ObjectProp Nothing
+                                                                                                                                                                    ( Ref Nothing
+                                                                                                                                                                      ( Imported
+                                                                                                                                                                        ( ModuleName "Golden.LongStackBind.Test" )
+                                                                                                                                                                        ( Name "bindStateT" )
+                                                                                                                                                                      )
                                                                                                                                                                     )
+                                                                                                                                                                    ( PropName "bind" )
                                                                                                                                                                   )
                                                                                                                                                                   ( Ref Nothing
                                                                                                                                                                     ( Imported
@@ -6670,11 +7326,14 @@ UberModule
                                                                                                                                                                   )
                                                                                                                                                                   ( AppN Nothing
                                                                                                                                                                     ( AppN Nothing
-                                                                                                                                                                      ( Ref Nothing
-                                                                                                                                                                        ( Imported
-                                                                                                                                                                          ( ModuleName "Golden.LongStackBind.Test" )
-                                                                                                                                                                          ( Name "discard" )
+                                                                                                                                                                      ( ObjectProp Nothing
+                                                                                                                                                                        ( Ref Nothing
+                                                                                                                                                                          ( Imported
+                                                                                                                                                                            ( ModuleName "Golden.LongStackBind.Test" )
+                                                                                                                                                                            ( Name "bindStateT" )
+                                                                                                                                                                          )
                                                                                                                                                                         )
+                                                                                                                                                                        ( PropName "bind" )
                                                                                                                                                                       )
                                                                                                                                                                       ( AppN Nothing
                                                                                                                                                                         ( Ref Nothing
@@ -6703,11 +7362,14 @@ UberModule
                                                                                                                                                                       ( ParamUnused Nothing :| [] )
                                                                                                                                                                       ( AppN Nothing
                                                                                                                                                                         ( AppN Nothing
-                                                                                                                                                                          ( Ref Nothing
-                                                                                                                                                                            ( Imported
-                                                                                                                                                                              ( ModuleName "Golden.LongStackBind.Test" )
-                                                                                                                                                                              ( Name "bind" )
+                                                                                                                                                                          ( ObjectProp Nothing
+                                                                                                                                                                            ( Ref Nothing
+                                                                                                                                                                              ( Imported
+                                                                                                                                                                                ( ModuleName "Golden.LongStackBind.Test" )
+                                                                                                                                                                                ( Name "bindStateT" )
+                                                                                                                                                                              )
                                                                                                                                                                             )
+                                                                                                                                                                            ( PropName "bind" )
                                                                                                                                                                           )
                                                                                                                                                                           ( Ref Nothing
                                                                                                                                                                             ( Imported
@@ -6722,11 +7384,14 @@ UberModule
                                                                                                                                                                           )
                                                                                                                                                                           ( AppN Nothing
                                                                                                                                                                             ( AppN Nothing
-                                                                                                                                                                              ( Ref Nothing
-                                                                                                                                                                                ( Imported
-                                                                                                                                                                                  ( ModuleName "Golden.LongStackBind.Test" )
-                                                                                                                                                                                  ( Name "discard" )
+                                                                                                                                                                              ( ObjectProp Nothing
+                                                                                                                                                                                ( Ref Nothing
+                                                                                                                                                                                  ( Imported
+                                                                                                                                                                                    ( ModuleName "Golden.LongStackBind.Test" )
+                                                                                                                                                                                    ( Name "bindStateT" )
+                                                                                                                                                                                  )
                                                                                                                                                                                 )
+                                                                                                                                                                                ( PropName "bind" )
                                                                                                                                                                               )
                                                                                                                                                                               ( AppN Nothing
                                                                                                                                                                                 ( Ref Nothing
@@ -6756,12 +7421,12 @@ UberModule
                                                                                                                                                                               ( AppN Nothing
                                                                                                                                                                                 ( Ref Nothing
                                                                                                                                                                                   ( Local
-                                                                                                                                                                                    ( Name "$kont6565" )
+                                                                                                                                                                                    ( Name "$kont6207" )
                                                                                                                                                                                   )
                                                                                                                                                                                 )
                                                                                                                                                                                 ( Ref Nothing
                                                                                                                                                                                   ( Local
-                                                                                                                                                                                    ( Name "x1$6568" )
+                                                                                                                                                                                    ( Name "x1$6210" )
                                                                                                                                                                                   ) :| []
                                                                                                                                                                                 )
                                                                                                                                                                               ) :| []
@@ -6846,12 +7511,15 @@ UberModule
                 )
               )
             ), Standalone
-            ( Nothing, Name "$kont6569", AbsN Nothing
-              ( ParamNamed Nothing ( Name "x1$6570" ) :| [] )
+            ( Nothing, Name "$kont6211", AbsN Nothing
+              ( ParamNamed Nothing ( Name "x1$6212" ) :| [] )
               ( AppN Nothing
                 ( AppN Nothing
-                  ( Ref Nothing
-                    ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "bind" ) )
+                  ( ObjectProp Nothing
+                    ( Ref Nothing
+                      ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "bindStateT" ) )
+                    )
+                    ( PropName "bind" )
                   )
                   ( Ref Nothing
                     ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "get" ) ) :| []
@@ -6861,8 +7529,14 @@ UberModule
                   ( ParamNamed Nothing ( Name "x21" ) :| [] )
                   ( AppN Nothing
                     ( AppN Nothing
-                      ( Ref Nothing
-                        ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "discard" ) )
+                      ( ObjectProp Nothing
+                        ( Ref Nothing
+                          ( Imported
+                            ( ModuleName "Golden.LongStackBind.Test" )
+                            ( Name "bindStateT" )
+                          )
+                        )
+                        ( PropName "bind" )
                       )
                       ( AppN Nothing
                         ( Ref Nothing
@@ -6880,8 +7554,14 @@ UberModule
                       ( ParamUnused Nothing :| [] )
                       ( AppN Nothing
                         ( AppN Nothing
-                          ( Ref Nothing
-                            ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "bind" ) )
+                          ( ObjectProp Nothing
+                            ( Ref Nothing
+                              ( Imported
+                                ( ModuleName "Golden.LongStackBind.Test" )
+                                ( Name "bindStateT" )
+                              )
+                            )
+                            ( PropName "bind" )
                           )
                           ( Ref Nothing
                             ( Imported
@@ -6894,11 +7574,14 @@ UberModule
                           ( ParamNamed Nothing ( Name "x22" ) :| [] )
                           ( AppN Nothing
                             ( AppN Nothing
-                              ( Ref Nothing
-                                ( Imported
-                                  ( ModuleName "Golden.LongStackBind.Test" )
-                                  ( Name "discard" )
+                              ( ObjectProp Nothing
+                                ( Ref Nothing
+                                  ( Imported
+                                    ( ModuleName "Golden.LongStackBind.Test" )
+                                    ( Name "bindStateT" )
+                                  )
                                 )
+                                ( PropName "bind" )
                               )
                               ( AppN Nothing
                                 ( Ref Nothing
@@ -6925,11 +7608,14 @@ UberModule
                               ( ParamUnused Nothing :| [] )
                               ( AppN Nothing
                                 ( AppN Nothing
-                                  ( Ref Nothing
-                                    ( Imported
-                                      ( ModuleName "Golden.LongStackBind.Test" )
-                                      ( Name "bind" )
+                                  ( ObjectProp Nothing
+                                    ( Ref Nothing
+                                      ( Imported
+                                        ( ModuleName "Golden.LongStackBind.Test" )
+                                        ( Name "bindStateT" )
+                                      )
                                     )
+                                    ( PropName "bind" )
                                   )
                                   ( Ref Nothing
                                     ( Imported
@@ -6942,11 +7628,14 @@ UberModule
                                   ( ParamNamed Nothing ( Name "x23" ) :| [] )
                                   ( AppN Nothing
                                     ( AppN Nothing
-                                      ( Ref Nothing
-                                        ( Imported
-                                          ( ModuleName "Golden.LongStackBind.Test" )
-                                          ( Name "discard" )
+                                      ( ObjectProp Nothing
+                                        ( Ref Nothing
+                                          ( Imported
+                                            ( ModuleName "Golden.LongStackBind.Test" )
+                                            ( Name "bindStateT" )
+                                          )
                                         )
+                                        ( PropName "bind" )
                                       )
                                       ( AppN Nothing
                                         ( Ref Nothing
@@ -6971,13 +7660,16 @@ UberModule
                                     )
                                     ( AbsN Nothing
                                       ( ParamUnused Nothing :| [] )
-                                      ( AppN Nothing
-                                        ( AppN Nothing
-                                          ( Ref Nothing
-                                            ( Imported
-                                              ( ModuleName "Golden.LongStackBind.Test" )
-                                              ( Name "bind" )
+                                      ( AppN Nothing
+                                        ( AppN Nothing
+                                          ( ObjectProp Nothing
+                                            ( Ref Nothing
+                                              ( Imported
+                                                ( ModuleName "Golden.LongStackBind.Test" )
+                                                ( Name "bindStateT" )
+                                              )
                                             )
+                                            ( PropName "bind" )
                                           )
                                           ( Ref Nothing
                                             ( Imported
@@ -6990,11 +7682,14 @@ UberModule
                                           ( ParamNamed Nothing ( Name "x24" ) :| [] )
                                           ( AppN Nothing
                                             ( AppN Nothing
-                                              ( Ref Nothing
-                                                ( Imported
-                                                  ( ModuleName "Golden.LongStackBind.Test" )
-                                                  ( Name "discard" )
+                                              ( ObjectProp Nothing
+                                                ( Ref Nothing
+                                                  ( Imported
+                                                    ( ModuleName "Golden.LongStackBind.Test" )
+                                                    ( Name "bindStateT" )
+                                                  )
                                                 )
+                                                ( PropName "bind" )
                                               )
                                               ( AppN Nothing
                                                 ( Ref Nothing
@@ -7021,11 +7716,14 @@ UberModule
                                               ( ParamUnused Nothing :| [] )
                                               ( AppN Nothing
                                                 ( AppN Nothing
-                                                  ( Ref Nothing
-                                                    ( Imported
-                                                      ( ModuleName "Golden.LongStackBind.Test" )
-                                                      ( Name "bind" )
+                                                  ( ObjectProp Nothing
+                                                    ( Ref Nothing
+                                                      ( Imported
+                                                        ( ModuleName "Golden.LongStackBind.Test" )
+                                                        ( Name "bindStateT" )
+                                                      )
                                                     )
+                                                    ( PropName "bind" )
                                                   )
                                                   ( Ref Nothing
                                                     ( Imported
@@ -7038,11 +7736,14 @@ UberModule
                                                   ( ParamNamed Nothing ( Name "x25" ) :| [] )
                                                   ( AppN Nothing
                                                     ( AppN Nothing
-                                                      ( Ref Nothing
-                                                        ( Imported
-                                                          ( ModuleName "Golden.LongStackBind.Test" )
-                                                          ( Name "discard" )
+                                                      ( ObjectProp Nothing
+                                                        ( Ref Nothing
+                                                          ( Imported
+                                                            ( ModuleName "Golden.LongStackBind.Test" )
+                                                            ( Name "bindStateT" )
+                                                          )
                                                         )
+                                                        ( PropName "bind" )
                                                       )
                                                       ( AppN Nothing
                                                         ( Ref Nothing
@@ -7069,11 +7770,14 @@ UberModule
                                                       ( ParamUnused Nothing :| [] )
                                                       ( AppN Nothing
                                                         ( AppN Nothing
-                                                          ( Ref Nothing
-                                                            ( Imported
-                                                              ( ModuleName "Golden.LongStackBind.Test" )
-                                                              ( Name "bind" )
+                                                          ( ObjectProp Nothing
+                                                            ( Ref Nothing
+                                                              ( Imported
+                                                                ( ModuleName "Golden.LongStackBind.Test" )
+                                                                ( Name "bindStateT" )
+                                                              )
                                                             )
+                                                            ( PropName "bind" )
                                                           )
                                                           ( Ref Nothing
                                                             ( Imported
@@ -7088,11 +7792,14 @@ UberModule
                                                           )
                                                           ( AppN Nothing
                                                             ( AppN Nothing
-                                                              ( Ref Nothing
-                                                                ( Imported
-                                                                  ( ModuleName "Golden.LongStackBind.Test" )
-                                                                  ( Name "discard" )
+                                                              ( ObjectProp Nothing
+                                                                ( Ref Nothing
+                                                                  ( Imported
+                                                                    ( ModuleName "Golden.LongStackBind.Test" )
+                                                                    ( Name "bindStateT" )
+                                                                  )
                                                                 )
+                                                                ( PropName "bind" )
                                                               )
                                                               ( AppN Nothing
                                                                 ( Ref Nothing
@@ -7119,11 +7826,14 @@ UberModule
                                                               ( ParamUnused Nothing :| [] )
                                                               ( AppN Nothing
                                                                 ( AppN Nothing
-                                                                  ( Ref Nothing
-                                                                    ( Imported
-                                                                      ( ModuleName "Golden.LongStackBind.Test" )
-                                                                      ( Name "bind" )
+                                                                  ( ObjectProp Nothing
+                                                                    ( Ref Nothing
+                                                                      ( Imported
+                                                                        ( ModuleName "Golden.LongStackBind.Test" )
+                                                                        ( Name "bindStateT" )
+                                                                      )
                                                                     )
+                                                                    ( PropName "bind" )
                                                                   )
                                                                   ( Ref Nothing
                                                                     ( Imported
@@ -7138,11 +7848,14 @@ UberModule
                                                                   )
                                                                   ( AppN Nothing
                                                                     ( AppN Nothing
-                                                                      ( Ref Nothing
-                                                                        ( Imported
-                                                                          ( ModuleName "Golden.LongStackBind.Test" )
-                                                                          ( Name "discard" )
+                                                                      ( ObjectProp Nothing
+                                                                        ( Ref Nothing
+                                                                          ( Imported
+                                                                            ( ModuleName "Golden.LongStackBind.Test" )
+                                                                            ( Name "bindStateT" )
+                                                                          )
                                                                         )
+                                                                        ( PropName "bind" )
                                                                       )
                                                                       ( AppN Nothing
                                                                         ( Ref Nothing
@@ -7171,11 +7884,14 @@ UberModule
                                                                       ( ParamUnused Nothing :| [] )
                                                                       ( AppN Nothing
                                                                         ( AppN Nothing
-                                                                          ( Ref Nothing
-                                                                            ( Imported
-                                                                              ( ModuleName "Golden.LongStackBind.Test" )
-                                                                              ( Name "bind" )
+                                                                          ( ObjectProp Nothing
+                                                                            ( Ref Nothing
+                                                                              ( Imported
+                                                                                ( ModuleName "Golden.LongStackBind.Test" )
+                                                                                ( Name "bindStateT" )
+                                                                              )
                                                                             )
+                                                                            ( PropName "bind" )
                                                                           )
                                                                           ( Ref Nothing
                                                                             ( Imported
@@ -7190,11 +7906,14 @@ UberModule
                                                                           )
                                                                           ( AppN Nothing
                                                                             ( AppN Nothing
-                                                                              ( Ref Nothing
-                                                                                ( Imported
-                                                                                  ( ModuleName "Golden.LongStackBind.Test" )
-                                                                                  ( Name "discard" )
+                                                                              ( ObjectProp Nothing
+                                                                                ( Ref Nothing
+                                                                                  ( Imported
+                                                                                    ( ModuleName "Golden.LongStackBind.Test" )
+                                                                                    ( Name "bindStateT" )
+                                                                                  )
                                                                                 )
+                                                                                ( PropName "bind" )
                                                                               )
                                                                               ( AppN Nothing
                                                                                 ( Ref Nothing
@@ -7223,11 +7942,14 @@ UberModule
                                                                               ( ParamUnused Nothing :| [] )
                                                                               ( AppN Nothing
                                                                                 ( AppN Nothing
-                                                                                  ( Ref Nothing
-                                                                                    ( Imported
-                                                                                      ( ModuleName "Golden.LongStackBind.Test" )
-                                                                                      ( Name "bind" )
+                                                                                  ( ObjectProp Nothing
+                                                                                    ( Ref Nothing
+                                                                                      ( Imported
+                                                                                        ( ModuleName "Golden.LongStackBind.Test" )
+                                                                                        ( Name "bindStateT" )
+                                                                                      )
                                                                                     )
+                                                                                    ( PropName "bind" )
                                                                                   )
                                                                                   ( Ref Nothing
                                                                                     ( Imported
@@ -7242,11 +7964,14 @@ UberModule
                                                                                   )
                                                                                   ( AppN Nothing
                                                                                     ( AppN Nothing
-                                                                                      ( Ref Nothing
-                                                                                        ( Imported
-                                                                                          ( ModuleName "Golden.LongStackBind.Test" )
-                                                                                          ( Name "discard" )
+                                                                                      ( ObjectProp Nothing
+                                                                                        ( Ref Nothing
+                                                                                          ( Imported
+                                                                                            ( ModuleName "Golden.LongStackBind.Test" )
+                                                                                            ( Name "bindStateT" )
+                                                                                          )
                                                                                         )
+                                                                                        ( PropName "bind" )
                                                                                       )
                                                                                       ( AppN Nothing
                                                                                         ( Ref Nothing
@@ -7275,11 +8000,14 @@ UberModule
                                                                                       ( ParamUnused Nothing :| [] )
                                                                                       ( AppN Nothing
                                                                                         ( AppN Nothing
-                                                                                          ( Ref Nothing
-                                                                                            ( Imported
-                                                                                              ( ModuleName "Golden.LongStackBind.Test" )
-                                                                                              ( Name "bind" )
+                                                                                          ( ObjectProp Nothing
+                                                                                            ( Ref Nothing
+                                                                                              ( Imported
+                                                                                                ( ModuleName "Golden.LongStackBind.Test" )
+                                                                                                ( Name "bindStateT" )
+                                                                                              )
                                                                                             )
+                                                                                            ( PropName "bind" )
                                                                                           )
                                                                                           ( Ref Nothing
                                                                                             ( Imported
@@ -7294,11 +8022,14 @@ UberModule
                                                                                           )
                                                                                           ( AppN Nothing
                                                                                             ( AppN Nothing
-                                                                                              ( Ref Nothing
-                                                                                                ( Imported
-                                                                                                  ( ModuleName "Golden.LongStackBind.Test" )
-                                                                                                  ( Name "discard" )
+                                                                                              ( ObjectProp Nothing
+                                                                                                ( Ref Nothing
+                                                                                                  ( Imported
+                                                                                                    ( ModuleName "Golden.LongStackBind.Test" )
+                                                                                                    ( Name "bindStateT" )
+                                                                                                  )
                                                                                                 )
+                                                                                                ( PropName "bind" )
                                                                                               )
                                                                                               ( AppN Nothing
                                                                                                 ( Ref Nothing
@@ -7327,11 +8058,14 @@ UberModule
                                                                                               ( ParamUnused Nothing :| [] )
                                                                                               ( AppN Nothing
                                                                                                 ( AppN Nothing
-                                                                                                  ( Ref Nothing
-                                                                                                    ( Imported
-                                                                                                      ( ModuleName "Golden.LongStackBind.Test" )
-                                                                                                      ( Name "bind" )
+                                                                                                  ( ObjectProp Nothing
+                                                                                                    ( Ref Nothing
+                                                                                                      ( Imported
+                                                                                                        ( ModuleName "Golden.LongStackBind.Test" )
+                                                                                                        ( Name "bindStateT" )
+                                                                                                      )
                                                                                                     )
+                                                                                                    ( PropName "bind" )
                                                                                                   )
                                                                                                   ( Ref Nothing
                                                                                                     ( Imported
@@ -7346,11 +8080,14 @@ UberModule
                                                                                                   )
                                                                                                   ( AppN Nothing
                                                                                                     ( AppN Nothing
-                                                                                                      ( Ref Nothing
-                                                                                                        ( Imported
-                                                                                                          ( ModuleName "Golden.LongStackBind.Test" )
-                                                                                                          ( Name "discard" )
+                                                                                                      ( ObjectProp Nothing
+                                                                                                        ( Ref Nothing
+                                                                                                          ( Imported
+                                                                                                            ( ModuleName "Golden.LongStackBind.Test" )
+                                                                                                            ( Name "bindStateT" )
+                                                                                                          )
                                                                                                         )
+                                                                                                        ( PropName "bind" )
                                                                                                       )
                                                                                                       ( AppN Nothing
                                                                                                         ( Ref Nothing
@@ -7379,11 +8116,14 @@ UberModule
                                                                                                       ( ParamUnused Nothing :| [] )
                                                                                                       ( AppN Nothing
                                                                                                         ( AppN Nothing
-                                                                                                          ( Ref Nothing
-                                                                                                            ( Imported
-                                                                                                              ( ModuleName "Golden.LongStackBind.Test" )
-                                                                                                              ( Name "bind" )
+                                                                                                          ( ObjectProp Nothing
+                                                                                                            ( Ref Nothing
+                                                                                                              ( Imported
+                                                                                                                ( ModuleName "Golden.LongStackBind.Test" )
+                                                                                                                ( Name "bindStateT" )
+                                                                                                              )
                                                                                                             )
+                                                                                                            ( PropName "bind" )
                                                                                                           )
                                                                                                           ( Ref Nothing
                                                                                                             ( Imported
@@ -7398,11 +8138,14 @@ UberModule
                                                                                                           )
                                                                                                           ( AppN Nothing
                                                                                                             ( AppN Nothing
-                                                                                                              ( Ref Nothing
-                                                                                                                ( Imported
-                                                                                                                  ( ModuleName "Golden.LongStackBind.Test" )
-                                                                                                                  ( Name "discard" )
+                                                                                                              ( ObjectProp Nothing
+                                                                                                                ( Ref Nothing
+                                                                                                                  ( Imported
+                                                                                                                    ( ModuleName "Golden.LongStackBind.Test" )
+                                                                                                                    ( Name "bindStateT" )
+                                                                                                                  )
                                                                                                                 )
+                                                                                                                ( PropName "bind" )
                                                                                                               )
                                                                                                               ( AppN Nothing
                                                                                                                 ( Ref Nothing
@@ -7431,11 +8174,14 @@ UberModule
                                                                                                               ( ParamUnused Nothing :| [] )
                                                                                                               ( AppN Nothing
                                                                                                                 ( AppN Nothing
-                                                                                                                  ( Ref Nothing
-                                                                                                                    ( Imported
-                                                                                                                      ( ModuleName "Golden.LongStackBind.Test" )
-                                                                                                                      ( Name "bind" )
+                                                                                                                  ( ObjectProp Nothing
+                                                                                                                    ( Ref Nothing
+                                                                                                                      ( Imported
+                                                                                                                        ( ModuleName "Golden.LongStackBind.Test" )
+                                                                                                                        ( Name "bindStateT" )
+                                                                                                                      )
                                                                                                                     )
+                                                                                                                    ( PropName "bind" )
                                                                                                                   )
                                                                                                                   ( Ref Nothing
                                                                                                                     ( Imported
@@ -7450,11 +8196,14 @@ UberModule
                                                                                                                   )
                                                                                                                   ( AppN Nothing
                                                                                                                     ( AppN Nothing
-                                                                                                                      ( Ref Nothing
-                                                                                                                        ( Imported
-                                                                                                                          ( ModuleName "Golden.LongStackBind.Test" )
-                                                                                                                          ( Name "discard" )
+                                                                                                                      ( ObjectProp Nothing
+                                                                                                                        ( Ref Nothing
+                                                                                                                          ( Imported
+                                                                                                                            ( ModuleName "Golden.LongStackBind.Test" )
+                                                                                                                            ( Name "bindStateT" )
+                                                                                                                          )
                                                                                                                         )
+                                                                                                                        ( PropName "bind" )
                                                                                                                       )
                                                                                                                       ( AppN Nothing
                                                                                                                         ( Ref Nothing
@@ -7483,11 +8232,14 @@ UberModule
                                                                                                                       ( ParamUnused Nothing :| [] )
                                                                                                                       ( AppN Nothing
                                                                                                                         ( AppN Nothing
-                                                                                                                          ( Ref Nothing
-                                                                                                                            ( Imported
-                                                                                                                              ( ModuleName "Golden.LongStackBind.Test" )
-                                                                                                                              ( Name "bind" )
+                                                                                                                          ( ObjectProp Nothing
+                                                                                                                            ( Ref Nothing
+                                                                                                                              ( Imported
+                                                                                                                                ( ModuleName "Golden.LongStackBind.Test" )
+                                                                                                                                ( Name "bindStateT" )
+                                                                                                                              )
                                                                                                                             )
+                                                                                                                            ( PropName "bind" )
                                                                                                                           )
                                                                                                                           ( Ref Nothing
                                                                                                                             ( Imported
@@ -7502,11 +8254,14 @@ UberModule
                                                                                                                           )
                                                                                                                           ( AppN Nothing
                                                                                                                             ( AppN Nothing
-                                                                                                                              ( Ref Nothing
-                                                                                                                                ( Imported
-                                                                                                                                  ( ModuleName "Golden.LongStackBind.Test" )
-                                                                                                                                  ( Name "discard" )
+                                                                                                                              ( ObjectProp Nothing
+                                                                                                                                ( Ref Nothing
+                                                                                                                                  ( Imported
+                                                                                                                                    ( ModuleName "Golden.LongStackBind.Test" )
+                                                                                                                                    ( Name "bindStateT" )
+                                                                                                                                  )
                                                                                                                                 )
+                                                                                                                                ( PropName "bind" )
                                                                                                                               )
                                                                                                                               ( AppN Nothing
                                                                                                                                 ( Ref Nothing
@@ -7535,11 +8290,14 @@ UberModule
                                                                                                                               ( ParamUnused Nothing :| [] )
                                                                                                                               ( AppN Nothing
                                                                                                                                 ( AppN Nothing
-                                                                                                                                  ( Ref Nothing
-                                                                                                                                    ( Imported
-                                                                                                                                      ( ModuleName "Golden.LongStackBind.Test" )
-                                                                                                                                      ( Name "bind" )
+                                                                                                                                  ( ObjectProp Nothing
+                                                                                                                                    ( Ref Nothing
+                                                                                                                                      ( Imported
+                                                                                                                                        ( ModuleName "Golden.LongStackBind.Test" )
+                                                                                                                                        ( Name "bindStateT" )
+                                                                                                                                      )
                                                                                                                                     )
+                                                                                                                                    ( PropName "bind" )
                                                                                                                                   )
                                                                                                                                   ( Ref Nothing
                                                                                                                                     ( Imported
@@ -7554,11 +8312,14 @@ UberModule
                                                                                                                                   )
                                                                                                                                   ( AppN Nothing
                                                                                                                                     ( AppN Nothing
-                                                                                                                                      ( Ref Nothing
-                                                                                                                                        ( Imported
-                                                                                                                                          ( ModuleName "Golden.LongStackBind.Test" )
-                                                                                                                                          ( Name "discard" )
+                                                                                                                                      ( ObjectProp Nothing
+                                                                                                                                        ( Ref Nothing
+                                                                                                                                          ( Imported
+                                                                                                                                            ( ModuleName "Golden.LongStackBind.Test" )
+                                                                                                                                            ( Name "bindStateT" )
+                                                                                                                                          )
                                                                                                                                         )
+                                                                                                                                        ( PropName "bind" )
                                                                                                                                       )
                                                                                                                                       ( AppN Nothing
                                                                                                                                         ( Ref Nothing
@@ -7587,11 +8348,14 @@ UberModule
                                                                                                                                       ( ParamUnused Nothing :| [] )
                                                                                                                                       ( AppN Nothing
                                                                                                                                         ( AppN Nothing
-                                                                                                                                          ( Ref Nothing
-                                                                                                                                            ( Imported
-                                                                                                                                              ( ModuleName "Golden.LongStackBind.Test" )
-                                                                                                                                              ( Name "bind" )
+                                                                                                                                          ( ObjectProp Nothing
+                                                                                                                                            ( Ref Nothing
+                                                                                                                                              ( Imported
+                                                                                                                                                ( ModuleName "Golden.LongStackBind.Test" )
+                                                                                                                                                ( Name "bindStateT" )
+                                                                                                                                              )
                                                                                                                                             )
+                                                                                                                                            ( PropName "bind" )
                                                                                                                                           )
                                                                                                                                           ( Ref Nothing
                                                                                                                                             ( Imported
@@ -7606,11 +8370,14 @@ UberModule
                                                                                                                                           )
                                                                                                                                           ( AppN Nothing
                                                                                                                                             ( AppN Nothing
-                                                                                                                                              ( Ref Nothing
-                                                                                                                                                ( Imported
-                                                                                                                                                  ( ModuleName "Golden.LongStackBind.Test" )
-                                                                                                                                                  ( Name "discard" )
+                                                                                                                                              ( ObjectProp Nothing
+                                                                                                                                                ( Ref Nothing
+                                                                                                                                                  ( Imported
+                                                                                                                                                    ( ModuleName "Golden.LongStackBind.Test" )
+                                                                                                                                                    ( Name "bindStateT" )
+                                                                                                                                                  )
                                                                                                                                                 )
+                                                                                                                                                ( PropName "bind" )
                                                                                                                                               )
                                                                                                                                               ( AppN Nothing
                                                                                                                                                 ( Ref Nothing
@@ -7639,11 +8406,14 @@ UberModule
                                                                                                                                               ( ParamUnused Nothing :| [] )
                                                                                                                                               ( AppN Nothing
                                                                                                                                                 ( AppN Nothing
-                                                                                                                                                  ( Ref Nothing
-                                                                                                                                                    ( Imported
-                                                                                                                                                      ( ModuleName "Golden.LongStackBind.Test" )
-                                                                                                                                                      ( Name "bind" )
+                                                                                                                                                  ( ObjectProp Nothing
+                                                                                                                                                    ( Ref Nothing
+                                                                                                                                                      ( Imported
+                                                                                                                                                        ( ModuleName "Golden.LongStackBind.Test" )
+                                                                                                                                                        ( Name "bindStateT" )
+                                                                                                                                                      )
                                                                                                                                                     )
+                                                                                                                                                    ( PropName "bind" )
                                                                                                                                                   )
                                                                                                                                                   ( Ref Nothing
                                                                                                                                                     ( Imported
@@ -7658,11 +8428,14 @@ UberModule
                                                                                                                                                   )
                                                                                                                                                   ( AppN Nothing
                                                                                                                                                     ( AppN Nothing
-                                                                                                                                                      ( Ref Nothing
-                                                                                                                                                        ( Imported
-                                                                                                                                                          ( ModuleName "Golden.LongStackBind.Test" )
-                                                                                                                                                          ( Name "discard" )
+                                                                                                                                                      ( ObjectProp Nothing
+                                                                                                                                                        ( Ref Nothing
+                                                                                                                                                          ( Imported
+                                                                                                                                                            ( ModuleName "Golden.LongStackBind.Test" )
+                                                                                                                                                            ( Name "bindStateT" )
+                                                                                                                                                          )
                                                                                                                                                         )
+                                                                                                                                                        ( PropName "bind" )
                                                                                                                                                       )
                                                                                                                                                       ( AppN Nothing
                                                                                                                                                         ( Ref Nothing
@@ -7691,11 +8464,14 @@ UberModule
                                                                                                                                                       ( ParamUnused Nothing :| [] )
                                                                                                                                                       ( AppN Nothing
                                                                                                                                                         ( AppN Nothing
-                                                                                                                                                          ( Ref Nothing
-                                                                                                                                                            ( Imported
-                                                                                                                                                              ( ModuleName "Golden.LongStackBind.Test" )
-                                                                                                                                                              ( Name "bind" )
+                                                                                                                                                          ( ObjectProp Nothing
+                                                                                                                                                            ( Ref Nothing
+                                                                                                                                                              ( Imported
+                                                                                                                                                                ( ModuleName "Golden.LongStackBind.Test" )
+                                                                                                                                                                ( Name "bindStateT" )
+                                                                                                                                                              )
                                                                                                                                                             )
+                                                                                                                                                            ( PropName "bind" )
                                                                                                                                                           )
                                                                                                                                                           ( Ref Nothing
                                                                                                                                                             ( Imported
@@ -7710,11 +8486,14 @@ UberModule
                                                                                                                                                           )
                                                                                                                                                           ( AppN Nothing
                                                                                                                                                             ( AppN Nothing
-                                                                                                                                                              ( Ref Nothing
-                                                                                                                                                                ( Imported
-                                                                                                                                                                  ( ModuleName "Golden.LongStackBind.Test" )
-                                                                                                                                                                  ( Name "discard" )
+                                                                                                                                                              ( ObjectProp Nothing
+                                                                                                                                                                ( Ref Nothing
+                                                                                                                                                                  ( Imported
+                                                                                                                                                                    ( ModuleName "Golden.LongStackBind.Test" )
+                                                                                                                                                                    ( Name "bindStateT" )
+                                                                                                                                                                  )
                                                                                                                                                                 )
+                                                                                                                                                                ( PropName "bind" )
                                                                                                                                                               )
                                                                                                                                                               ( AppN Nothing
                                                                                                                                                                 ( Ref Nothing
@@ -7743,11 +8522,14 @@ UberModule
                                                                                                                                                               ( ParamUnused Nothing :| [] )
                                                                                                                                                               ( AppN Nothing
                                                                                                                                                                 ( AppN Nothing
-                                                                                                                                                                  ( Ref Nothing
-                                                                                                                                                                    ( Imported
-                                                                                                                                                                      ( ModuleName "Golden.LongStackBind.Test" )
-                                                                                                                                                                      ( Name "bind" )
+                                                                                                                                                                  ( ObjectProp Nothing
+                                                                                                                                                                    ( Ref Nothing
+                                                                                                                                                                      ( Imported
+                                                                                                                                                                        ( ModuleName "Golden.LongStackBind.Test" )
+                                                                                                                                                                        ( Name "bindStateT" )
+                                                                                                                                                                      )
                                                                                                                                                                     )
+                                                                                                                                                                    ( PropName "bind" )
                                                                                                                                                                   )
                                                                                                                                                                   ( Ref Nothing
                                                                                                                                                                     ( Imported
@@ -7762,11 +8544,14 @@ UberModule
                                                                                                                                                                   )
                                                                                                                                                                   ( AppN Nothing
                                                                                                                                                                     ( AppN Nothing
-                                                                                                                                                                      ( Ref Nothing
-                                                                                                                                                                        ( Imported
-                                                                                                                                                                          ( ModuleName "Golden.LongStackBind.Test" )
-                                                                                                                                                                          ( Name "discard" )
+                                                                                                                                                                      ( ObjectProp Nothing
+                                                                                                                                                                        ( Ref Nothing
+                                                                                                                                                                          ( Imported
+                                                                                                                                                                            ( ModuleName "Golden.LongStackBind.Test" )
+                                                                                                                                                                            ( Name "bindStateT" )
+                                                                                                                                                                          )
                                                                                                                                                                         )
+                                                                                                                                                                        ( PropName "bind" )
                                                                                                                                                                       )
                                                                                                                                                                       ( AppN Nothing
                                                                                                                                                                         ( Ref Nothing
@@ -7795,11 +8580,14 @@ UberModule
                                                                                                                                                                       ( ParamUnused Nothing :| [] )
                                                                                                                                                                       ( AppN Nothing
                                                                                                                                                                         ( AppN Nothing
-                                                                                                                                                                          ( Ref Nothing
-                                                                                                                                                                            ( Imported
-                                                                                                                                                                              ( ModuleName "Golden.LongStackBind.Test" )
-                                                                                                                                                                              ( Name "bind" )
+                                                                                                                                                                          ( ObjectProp Nothing
+                                                                                                                                                                            ( Ref Nothing
+                                                                                                                                                                              ( Imported
+                                                                                                                                                                                ( ModuleName "Golden.LongStackBind.Test" )
+                                                                                                                                                                                ( Name "bindStateT" )
+                                                                                                                                                                              )
                                                                                                                                                                             )
+                                                                                                                                                                            ( PropName "bind" )
                                                                                                                                                                           )
                                                                                                                                                                           ( Ref Nothing
                                                                                                                                                                             ( Imported
@@ -7814,11 +8602,14 @@ UberModule
                                                                                                                                                                           )
                                                                                                                                                                           ( AppN Nothing
                                                                                                                                                                             ( AppN Nothing
-                                                                                                                                                                              ( Ref Nothing
-                                                                                                                                                                                ( Imported
-                                                                                                                                                                                  ( ModuleName "Golden.LongStackBind.Test" )
-                                                                                                                                                                                  ( Name "discard" )
+                                                                                                                                                                              ( ObjectProp Nothing
+                                                                                                                                                                                ( Ref Nothing
+                                                                                                                                                                                  ( Imported
+                                                                                                                                                                                    ( ModuleName "Golden.LongStackBind.Test" )
+                                                                                                                                                                                    ( Name "bindStateT" )
+                                                                                                                                                                                  )
                                                                                                                                                                                 )
+                                                                                                                                                                                ( PropName "bind" )
                                                                                                                                                                               )
                                                                                                                                                                               ( AppN Nothing
                                                                                                                                                                                 ( Ref Nothing
@@ -7848,12 +8639,12 @@ UberModule
                                                                                                                                                                               ( AppN Nothing
                                                                                                                                                                                 ( Ref Nothing
                                                                                                                                                                                   ( Local
-                                                                                                                                                                                    ( Name "$kont6567" )
+                                                                                                                                                                                    ( Name "$kont6209" )
                                                                                                                                                                                   )
                                                                                                                                                                                 )
                                                                                                                                                                                 ( Ref Nothing
                                                                                                                                                                                   ( Local
-                                                                                                                                                                                    ( Name "x1$6570" )
+                                                                                                                                                                                    ( Name "x1$6212" )
                                                                                                                                                                                   ) :| []
                                                                                                                                                                                 )
                                                                                                                                                                               ) :| []
@@ -7942,7 +8733,12 @@ UberModule
         )
         ( AppN Nothing
           ( AppN Nothing
-            ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "bind" ) ) )
+            ( ObjectProp Nothing
+              ( Ref Nothing
+                ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "bindStateT" ) )
+              )
+              ( PropName "bind" )
+            )
             ( Ref Nothing
               ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "get" ) ) :| []
             )
@@ -7951,8 +8747,11 @@ UberModule
             ( ParamNamed Nothing ( Name "x1" ) :| [] )
             ( AppN Nothing
               ( AppN Nothing
-                ( Ref Nothing
-                  ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "discard" ) )
+                ( ObjectProp Nothing
+                  ( Ref Nothing
+                    ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "bindStateT" ) )
+                  )
+                  ( PropName "bind" )
                 )
                 ( AppN Nothing
                   ( Ref Nothing
@@ -7970,8 +8769,14 @@ UberModule
                 ( ParamUnused Nothing :| [] )
                 ( AppN Nothing
                   ( AppN Nothing
-                    ( Ref Nothing
-                      ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "bind" ) )
+                    ( ObjectProp Nothing
+                      ( Ref Nothing
+                        ( Imported
+                          ( ModuleName "Golden.LongStackBind.Test" )
+                          ( Name "bindStateT" )
+                        )
+                      )
+                      ( PropName "bind" )
                     )
                     ( Ref Nothing
                       ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "get" ) ) :| []
@@ -7981,8 +8786,14 @@ UberModule
                     ( ParamNamed Nothing ( Name "x2" ) :| [] )
                     ( AppN Nothing
                       ( AppN Nothing
-                        ( Ref Nothing
-                          ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "discard" ) )
+                        ( ObjectProp Nothing
+                          ( Ref Nothing
+                            ( Imported
+                              ( ModuleName "Golden.LongStackBind.Test" )
+                              ( Name "bindStateT" )
+                            )
+                          )
+                          ( PropName "bind" )
                         )
                         ( AppN Nothing
                           ( Ref Nothing
@@ -8006,11 +8817,14 @@ UberModule
                         ( ParamUnused Nothing :| [] )
                         ( AppN Nothing
                           ( AppN Nothing
-                            ( Ref Nothing
-                              ( Imported
-                                ( ModuleName "Golden.LongStackBind.Test" )
-                                ( Name "bind" )
+                            ( ObjectProp Nothing
+                              ( Ref Nothing
+                                ( Imported
+                                  ( ModuleName "Golden.LongStackBind.Test" )
+                                  ( Name "bindStateT" )
+                                )
                               )
+                              ( PropName "bind" )
                             )
                             ( Ref Nothing
                               ( Imported
@@ -8023,11 +8837,14 @@ UberModule
                             ( ParamNamed Nothing ( Name "x3" ) :| [] )
                             ( AppN Nothing
                               ( AppN Nothing
-                                ( Ref Nothing
-                                  ( Imported
-                                    ( ModuleName "Golden.LongStackBind.Test" )
-                                    ( Name "discard" )
+                                ( ObjectProp Nothing
+                                  ( Ref Nothing
+                                    ( Imported
+                                      ( ModuleName "Golden.LongStackBind.Test" )
+                                      ( Name "bindStateT" )
+                                    )
                                   )
+                                  ( PropName "bind" )
                                 )
                                 ( AppN Nothing
                                   ( Ref Nothing
@@ -8054,11 +8871,14 @@ UberModule
                                 ( ParamUnused Nothing :| [] )
                                 ( AppN Nothing
                                   ( AppN Nothing
-                                    ( Ref Nothing
-                                      ( Imported
-                                        ( ModuleName "Golden.LongStackBind.Test" )
-                                        ( Name "bind" )
+                                    ( ObjectProp Nothing
+                                      ( Ref Nothing
+                                        ( Imported
+                                          ( ModuleName "Golden.LongStackBind.Test" )
+                                          ( Name "bindStateT" )
+                                        )
                                       )
+                                      ( PropName "bind" )
                                     )
                                     ( Ref Nothing
                                       ( Imported
@@ -8071,11 +8891,14 @@ UberModule
                                     ( ParamNamed Nothing ( Name "x4" ) :| [] )
                                     ( AppN Nothing
                                       ( AppN Nothing
-                                        ( Ref Nothing
-                                          ( Imported
-                                            ( ModuleName "Golden.LongStackBind.Test" )
-                                            ( Name "discard" )
+                                        ( ObjectProp Nothing
+                                          ( Ref Nothing
+                                            ( Imported
+                                              ( ModuleName "Golden.LongStackBind.Test" )
+                                              ( Name "bindStateT" )
+                                            )
                                           )
+                                          ( PropName "bind" )
                                         )
                                         ( AppN Nothing
                                           ( Ref Nothing
@@ -8102,11 +8925,14 @@ UberModule
                                         ( ParamUnused Nothing :| [] )
                                         ( AppN Nothing
                                           ( AppN Nothing
-                                            ( Ref Nothing
-                                              ( Imported
-                                                ( ModuleName "Golden.LongStackBind.Test" )
-                                                ( Name "bind" )
+                                            ( ObjectProp Nothing
+                                              ( Ref Nothing
+                                                ( Imported
+                                                  ( ModuleName "Golden.LongStackBind.Test" )
+                                                  ( Name "bindStateT" )
+                                                )
                                               )
+                                              ( PropName "bind" )
                                             )
                                             ( Ref Nothing
                                               ( Imported
@@ -8119,11 +8945,14 @@ UberModule
                                             ( ParamNamed Nothing ( Name "x5" ) :| [] )
                                             ( AppN Nothing
                                               ( AppN Nothing
-                                                ( Ref Nothing
-                                                  ( Imported
-                                                    ( ModuleName "Golden.LongStackBind.Test" )
-                                                    ( Name "discard" )
+                                                ( ObjectProp Nothing
+                                                  ( Ref Nothing
+                                                    ( Imported
+                                                      ( ModuleName "Golden.LongStackBind.Test" )
+                                                      ( Name "bindStateT" )
+                                                    )
                                                   )
+                                                  ( PropName "bind" )
                                                 )
                                                 ( AppN Nothing
                                                   ( Ref Nothing
@@ -8150,11 +8979,14 @@ UberModule
                                                 ( ParamUnused Nothing :| [] )
                                                 ( AppN Nothing
                                                   ( AppN Nothing
-                                                    ( Ref Nothing
-                                                      ( Imported
-                                                        ( ModuleName "Golden.LongStackBind.Test" )
-                                                        ( Name "bind" )
+                                                    ( ObjectProp Nothing
+                                                      ( Ref Nothing
+                                                        ( Imported
+                                                          ( ModuleName "Golden.LongStackBind.Test" )
+                                                          ( Name "bindStateT" )
+                                                        )
                                                       )
+                                                      ( PropName "bind" )
                                                     )
                                                     ( Ref Nothing
                                                       ( Imported
@@ -8167,11 +8999,14 @@ UberModule
                                                     ( ParamNamed Nothing ( Name "x6" ) :| [] )
                                                     ( AppN Nothing
                                                       ( AppN Nothing
-                                                        ( Ref Nothing
-                                                          ( Imported
-                                                            ( ModuleName "Golden.LongStackBind.Test" )
-                                                            ( Name "discard" )
+                                                        ( ObjectProp Nothing
+                                                          ( Ref Nothing
+                                                            ( Imported
+                                                              ( ModuleName "Golden.LongStackBind.Test" )
+                                                              ( Name "bindStateT" )
+                                                            )
                                                           )
+                                                          ( PropName "bind" )
                                                         )
                                                         ( AppN Nothing
                                                           ( Ref Nothing
@@ -8198,11 +9033,14 @@ UberModule
                                                         ( ParamUnused Nothing :| [] )
                                                         ( AppN Nothing
                                                           ( AppN Nothing
-                                                            ( Ref Nothing
-                                                              ( Imported
-                                                                ( ModuleName "Golden.LongStackBind.Test" )
-                                                                ( Name "bind" )
+                                                            ( ObjectProp Nothing
+                                                              ( Ref Nothing
+                                                                ( Imported
+                                                                  ( ModuleName "Golden.LongStackBind.Test" )
+                                                                  ( Name "bindStateT" )
+                                                                )
                                                               )
+                                                              ( PropName "bind" )
                                                             )
                                                             ( Ref Nothing
                                                               ( Imported
@@ -8217,11 +9055,14 @@ UberModule
                                                             )
                                                             ( AppN Nothing
                                                               ( AppN Nothing
-                                                                ( Ref Nothing
-                                                                  ( Imported
-                                                                    ( ModuleName "Golden.LongStackBind.Test" )
-                                                                    ( Name "discard" )
+                                                                ( ObjectProp Nothing
+                                                                  ( Ref Nothing
+                                                                    ( Imported
+                                                                      ( ModuleName "Golden.LongStackBind.Test" )
+                                                                      ( Name "bindStateT" )
+                                                                    )
                                                                   )
+                                                                  ( PropName "bind" )
                                                                 )
                                                                 ( AppN Nothing
                                                                   ( Ref Nothing
@@ -8248,11 +9089,14 @@ UberModule
                                                                 ( ParamUnused Nothing :| [] )
                                                                 ( AppN Nothing
                                                                   ( AppN Nothing
-                                                                    ( Ref Nothing
-                                                                      ( Imported
-                                                                        ( ModuleName "Golden.LongStackBind.Test" )
-                                                                        ( Name "bind" )
+                                                                    ( ObjectProp Nothing
+                                                                      ( Ref Nothing
+                                                                        ( Imported
+                                                                          ( ModuleName "Golden.LongStackBind.Test" )
+                                                                          ( Name "bindStateT" )
+                                                                        )
                                                                       )
+                                                                      ( PropName "bind" )
                                                                     )
                                                                     ( Ref Nothing
                                                                       ( Imported
@@ -8267,11 +9111,14 @@ UberModule
                                                                     )
                                                                     ( AppN Nothing
                                                                       ( AppN Nothing
-                                                                        ( Ref Nothing
-                                                                          ( Imported
-                                                                            ( ModuleName "Golden.LongStackBind.Test" )
-                                                                            ( Name "discard" )
+                                                                        ( ObjectProp Nothing
+                                                                          ( Ref Nothing
+                                                                            ( Imported
+                                                                              ( ModuleName "Golden.LongStackBind.Test" )
+                                                                              ( Name "bindStateT" )
+                                                                            )
                                                                           )
+                                                                          ( PropName "bind" )
                                                                         )
                                                                         ( AppN Nothing
                                                                           ( Ref Nothing
@@ -8300,11 +9147,14 @@ UberModule
                                                                         ( ParamUnused Nothing :| [] )
                                                                         ( AppN Nothing
                                                                           ( AppN Nothing
-                                                                            ( Ref Nothing
-                                                                              ( Imported
-                                                                                ( ModuleName "Golden.LongStackBind.Test" )
-                                                                                ( Name "bind" )
+                                                                            ( ObjectProp Nothing
+                                                                              ( Ref Nothing
+                                                                                ( Imported
+                                                                                  ( ModuleName "Golden.LongStackBind.Test" )
+                                                                                  ( Name "bindStateT" )
+                                                                                )
                                                                               )
+                                                                              ( PropName "bind" )
                                                                             )
                                                                             ( Ref Nothing
                                                                               ( Imported
@@ -8319,11 +9169,14 @@ UberModule
                                                                             )
                                                                             ( AppN Nothing
                                                                               ( AppN Nothing
-                                                                                ( Ref Nothing
-                                                                                  ( Imported
-                                                                                    ( ModuleName "Golden.LongStackBind.Test" )
-                                                                                    ( Name "discard" )
+                                                                                ( ObjectProp Nothing
+                                                                                  ( Ref Nothing
+                                                                                    ( Imported
+                                                                                      ( ModuleName "Golden.LongStackBind.Test" )
+                                                                                      ( Name "bindStateT" )
+                                                                                    )
                                                                                   )
+                                                                                  ( PropName "bind" )
                                                                                 )
                                                                                 ( AppN Nothing
                                                                                   ( Ref Nothing
@@ -8352,11 +9205,14 @@ UberModule
                                                                                 ( ParamUnused Nothing :| [] )
                                                                                 ( AppN Nothing
                                                                                   ( AppN Nothing
-                                                                                    ( Ref Nothing
-                                                                                      ( Imported
-                                                                                        ( ModuleName "Golden.LongStackBind.Test" )
-                                                                                        ( Name "bind" )
+                                                                                    ( ObjectProp Nothing
+                                                                                      ( Ref Nothing
+                                                                                        ( Imported
+                                                                                          ( ModuleName "Golden.LongStackBind.Test" )
+                                                                                          ( Name "bindStateT" )
+                                                                                        )
                                                                                       )
+                                                                                      ( PropName "bind" )
                                                                                     )
                                                                                     ( Ref Nothing
                                                                                       ( Imported
@@ -8371,11 +9227,14 @@ UberModule
                                                                                     )
                                                                                     ( AppN Nothing
                                                                                       ( AppN Nothing
-                                                                                        ( Ref Nothing
-                                                                                          ( Imported
-                                                                                            ( ModuleName "Golden.LongStackBind.Test" )
-                                                                                            ( Name "discard" )
+                                                                                        ( ObjectProp Nothing
+                                                                                          ( Ref Nothing
+                                                                                            ( Imported
+                                                                                              ( ModuleName "Golden.LongStackBind.Test" )
+                                                                                              ( Name "bindStateT" )
+                                                                                            )
                                                                                           )
+                                                                                          ( PropName "bind" )
                                                                                         )
                                                                                         ( AppN Nothing
                                                                                           ( Ref Nothing
@@ -8404,11 +9263,14 @@ UberModule
                                                                                         ( ParamUnused Nothing :| [] )
                                                                                         ( AppN Nothing
                                                                                           ( AppN Nothing
-                                                                                            ( Ref Nothing
-                                                                                              ( Imported
-                                                                                                ( ModuleName "Golden.LongStackBind.Test" )
-                                                                                                ( Name "bind" )
+                                                                                            ( ObjectProp Nothing
+                                                                                              ( Ref Nothing
+                                                                                                ( Imported
+                                                                                                  ( ModuleName "Golden.LongStackBind.Test" )
+                                                                                                  ( Name "bindStateT" )
+                                                                                                )
                                                                                               )
+                                                                                              ( PropName "bind" )
                                                                                             )
                                                                                             ( Ref Nothing
                                                                                               ( Imported
@@ -8423,11 +9285,14 @@ UberModule
                                                                                             )
                                                                                             ( AppN Nothing
                                                                                               ( AppN Nothing
-                                                                                                ( Ref Nothing
-                                                                                                  ( Imported
-                                                                                                    ( ModuleName "Golden.LongStackBind.Test" )
-                                                                                                    ( Name "discard" )
+                                                                                                ( ObjectProp Nothing
+                                                                                                  ( Ref Nothing
+                                                                                                    ( Imported
+                                                                                                      ( ModuleName "Golden.LongStackBind.Test" )
+                                                                                                      ( Name "bindStateT" )
+                                                                                                    )
                                                                                                   )
+                                                                                                  ( PropName "bind" )
                                                                                                 )
                                                                                                 ( AppN Nothing
                                                                                                   ( Ref Nothing
@@ -8456,11 +9321,14 @@ UberModule
                                                                                                 ( ParamUnused Nothing :| [] )
                                                                                                 ( AppN Nothing
                                                                                                   ( AppN Nothing
-                                                                                                    ( Ref Nothing
-                                                                                                      ( Imported
-                                                                                                        ( ModuleName "Golden.LongStackBind.Test" )
-                                                                                                        ( Name "bind" )
+                                                                                                    ( ObjectProp Nothing
+                                                                                                      ( Ref Nothing
+                                                                                                        ( Imported
+                                                                                                          ( ModuleName "Golden.LongStackBind.Test" )
+                                                                                                          ( Name "bindStateT" )
+                                                                                                        )
                                                                                                       )
+                                                                                                      ( PropName "bind" )
                                                                                                     )
                                                                                                     ( Ref Nothing
                                                                                                       ( Imported
@@ -8475,11 +9343,14 @@ UberModule
                                                                                                     )
                                                                                                     ( AppN Nothing
                                                                                                       ( AppN Nothing
-                                                                                                        ( Ref Nothing
-                                                                                                          ( Imported
-                                                                                                            ( ModuleName "Golden.LongStackBind.Test" )
-                                                                                                            ( Name "discard" )
+                                                                                                        ( ObjectProp Nothing
+                                                                                                          ( Ref Nothing
+                                                                                                            ( Imported
+                                                                                                              ( ModuleName "Golden.LongStackBind.Test" )
+                                                                                                              ( Name "bindStateT" )
+                                                                                                            )
                                                                                                           )
+                                                                                                          ( PropName "bind" )
                                                                                                         )
                                                                                                         ( AppN Nothing
                                                                                                           ( Ref Nothing
@@ -8508,11 +9379,14 @@ UberModule
                                                                                                         ( ParamUnused Nothing :| [] )
                                                                                                         ( AppN Nothing
                                                                                                           ( AppN Nothing
-                                                                                                            ( Ref Nothing
-                                                                                                              ( Imported
-                                                                                                                ( ModuleName "Golden.LongStackBind.Test" )
-                                                                                                                ( Name "bind" )
+                                                                                                            ( ObjectProp Nothing
+                                                                                                              ( Ref Nothing
+                                                                                                                ( Imported
+                                                                                                                  ( ModuleName "Golden.LongStackBind.Test" )
+                                                                                                                  ( Name "bindStateT" )
+                                                                                                                )
                                                                                                               )
+                                                                                                              ( PropName "bind" )
                                                                                                             )
                                                                                                             ( Ref Nothing
                                                                                                               ( Imported
@@ -8527,11 +9401,14 @@ UberModule
                                                                                                             )
                                                                                                             ( AppN Nothing
                                                                                                               ( AppN Nothing
-                                                                                                                ( Ref Nothing
-                                                                                                                  ( Imported
-                                                                                                                    ( ModuleName "Golden.LongStackBind.Test" )
-                                                                                                                    ( Name "discard" )
+                                                                                                                ( ObjectProp Nothing
+                                                                                                                  ( Ref Nothing
+                                                                                                                    ( Imported
+                                                                                                                      ( ModuleName "Golden.LongStackBind.Test" )
+                                                                                                                      ( Name "bindStateT" )
+                                                                                                                    )
                                                                                                                   )
+                                                                                                                  ( PropName "bind" )
                                                                                                                 )
                                                                                                                 ( AppN Nothing
                                                                                                                   ( Ref Nothing
@@ -8560,11 +9437,14 @@ UberModule
                                                                                                                 ( ParamUnused Nothing :| [] )
                                                                                                                 ( AppN Nothing
                                                                                                                   ( AppN Nothing
-                                                                                                                    ( Ref Nothing
-                                                                                                                      ( Imported
-                                                                                                                        ( ModuleName "Golden.LongStackBind.Test" )
-                                                                                                                        ( Name "bind" )
+                                                                                                                    ( ObjectProp Nothing
+                                                                                                                      ( Ref Nothing
+                                                                                                                        ( Imported
+                                                                                                                          ( ModuleName "Golden.LongStackBind.Test" )
+                                                                                                                          ( Name "bindStateT" )
+                                                                                                                        )
                                                                                                                       )
+                                                                                                                      ( PropName "bind" )
                                                                                                                     )
                                                                                                                     ( Ref Nothing
                                                                                                                       ( Imported
@@ -8579,11 +9459,14 @@ UberModule
                                                                                                                     )
                                                                                                                     ( AppN Nothing
                                                                                                                       ( AppN Nothing
-                                                                                                                        ( Ref Nothing
-                                                                                                                          ( Imported
-                                                                                                                            ( ModuleName "Golden.LongStackBind.Test" )
-                                                                                                                            ( Name "discard" )
+                                                                                                                        ( ObjectProp Nothing
+                                                                                                                          ( Ref Nothing
+                                                                                                                            ( Imported
+                                                                                                                              ( ModuleName "Golden.LongStackBind.Test" )
+                                                                                                                              ( Name "bindStateT" )
+                                                                                                                            )
                                                                                                                           )
+                                                                                                                          ( PropName "bind" )
                                                                                                                         )
                                                                                                                         ( AppN Nothing
                                                                                                                           ( Ref Nothing
@@ -8612,11 +9495,14 @@ UberModule
                                                                                                                         ( ParamUnused Nothing :| [] )
                                                                                                                         ( AppN Nothing
                                                                                                                           ( AppN Nothing
-                                                                                                                            ( Ref Nothing
-                                                                                                                              ( Imported
-                                                                                                                                ( ModuleName "Golden.LongStackBind.Test" )
-                                                                                                                                ( Name "bind" )
+                                                                                                                            ( ObjectProp Nothing
+                                                                                                                              ( Ref Nothing
+                                                                                                                                ( Imported
+                                                                                                                                  ( ModuleName "Golden.LongStackBind.Test" )
+                                                                                                                                  ( Name "bindStateT" )
+                                                                                                                                )
                                                                                                                               )
+                                                                                                                              ( PropName "bind" )
                                                                                                                             )
                                                                                                                             ( Ref Nothing
                                                                                                                               ( Imported
@@ -8631,11 +9517,14 @@ UberModule
                                                                                                                             )
                                                                                                                             ( AppN Nothing
                                                                                                                               ( AppN Nothing
-                                                                                                                                ( Ref Nothing
-                                                                                                                                  ( Imported
-                                                                                                                                    ( ModuleName "Golden.LongStackBind.Test" )
-                                                                                                                                    ( Name "discard" )
+                                                                                                                                ( ObjectProp Nothing
+                                                                                                                                  ( Ref Nothing
+                                                                                                                                    ( Imported
+                                                                                                                                      ( ModuleName "Golden.LongStackBind.Test" )
+                                                                                                                                      ( Name "bindStateT" )
+                                                                                                                                    )
                                                                                                                                   )
+                                                                                                                                  ( PropName "bind" )
                                                                                                                                 )
                                                                                                                                 ( AppN Nothing
                                                                                                                                   ( Ref Nothing
@@ -8664,11 +9553,14 @@ UberModule
                                                                                                                                 ( ParamUnused Nothing :| [] )
                                                                                                                                 ( AppN Nothing
                                                                                                                                   ( AppN Nothing
-                                                                                                                                    ( Ref Nothing
-                                                                                                                                      ( Imported
-                                                                                                                                        ( ModuleName "Golden.LongStackBind.Test" )
-                                                                                                                                        ( Name "bind" )
+                                                                                                                                    ( ObjectProp Nothing
+                                                                                                                                      ( Ref Nothing
+                                                                                                                                        ( Imported
+                                                                                                                                          ( ModuleName "Golden.LongStackBind.Test" )
+                                                                                                                                          ( Name "bindStateT" )
+                                                                                                                                        )
                                                                                                                                       )
+                                                                                                                                      ( PropName "bind" )
                                                                                                                                     )
                                                                                                                                     ( Ref Nothing
                                                                                                                                       ( Imported
@@ -8683,11 +9575,14 @@ UberModule
                                                                                                                                     )
                                                                                                                                     ( AppN Nothing
                                                                                                                                       ( AppN Nothing
-                                                                                                                                        ( Ref Nothing
-                                                                                                                                          ( Imported
-                                                                                                                                            ( ModuleName "Golden.LongStackBind.Test" )
-                                                                                                                                            ( Name "discard" )
+                                                                                                                                        ( ObjectProp Nothing
+                                                                                                                                          ( Ref Nothing
+                                                                                                                                            ( Imported
+                                                                                                                                              ( ModuleName "Golden.LongStackBind.Test" )
+                                                                                                                                              ( Name "bindStateT" )
+                                                                                                                                            )
                                                                                                                                           )
+                                                                                                                                          ( PropName "bind" )
                                                                                                                                         )
                                                                                                                                         ( AppN Nothing
                                                                                                                                           ( Ref Nothing
@@ -8716,11 +9611,14 @@ UberModule
                                                                                                                                         ( ParamUnused Nothing :| [] )
                                                                                                                                         ( AppN Nothing
                                                                                                                                           ( AppN Nothing
-                                                                                                                                            ( Ref Nothing
-                                                                                                                                              ( Imported
-                                                                                                                                                ( ModuleName "Golden.LongStackBind.Test" )
-                                                                                                                                                ( Name "bind" )
+                                                                                                                                            ( ObjectProp Nothing
+                                                                                                                                              ( Ref Nothing
+                                                                                                                                                ( Imported
+                                                                                                                                                  ( ModuleName "Golden.LongStackBind.Test" )
+                                                                                                                                                  ( Name "bindStateT" )
+                                                                                                                                                )
                                                                                                                                               )
+                                                                                                                                              ( PropName "bind" )
                                                                                                                                             )
                                                                                                                                             ( Ref Nothing
                                                                                                                                               ( Imported
@@ -8735,11 +9633,14 @@ UberModule
                                                                                                                                             )
                                                                                                                                             ( AppN Nothing
                                                                                                                                               ( AppN Nothing
-                                                                                                                                                ( Ref Nothing
-                                                                                                                                                  ( Imported
-                                                                                                                                                    ( ModuleName "Golden.LongStackBind.Test" )
-                                                                                                                                                    ( Name "discard" )
+                                                                                                                                                ( ObjectProp Nothing
+                                                                                                                                                  ( Ref Nothing
+                                                                                                                                                    ( Imported
+                                                                                                                                                      ( ModuleName "Golden.LongStackBind.Test" )
+                                                                                                                                                      ( Name "bindStateT" )
+                                                                                                                                                    )
                                                                                                                                                   )
+                                                                                                                                                  ( PropName "bind" )
                                                                                                                                                 )
                                                                                                                                                 ( AppN Nothing
                                                                                                                                                   ( Ref Nothing
@@ -8768,11 +9669,14 @@ UberModule
                                                                                                                                                 ( ParamUnused Nothing :| [] )
                                                                                                                                                 ( AppN Nothing
                                                                                                                                                   ( AppN Nothing
-                                                                                                                                                    ( Ref Nothing
-                                                                                                                                                      ( Imported
-                                                                                                                                                        ( ModuleName "Golden.LongStackBind.Test" )
-                                                                                                                                                        ( Name "bind" )
+                                                                                                                                                    ( ObjectProp Nothing
+                                                                                                                                                      ( Ref Nothing
+                                                                                                                                                        ( Imported
+                                                                                                                                                          ( ModuleName "Golden.LongStackBind.Test" )
+                                                                                                                                                          ( Name "bindStateT" )
+                                                                                                                                                        )
                                                                                                                                                       )
+                                                                                                                                                      ( PropName "bind" )
                                                                                                                                                     )
                                                                                                                                                     ( Ref Nothing
                                                                                                                                                       ( Imported
@@ -8787,11 +9691,14 @@ UberModule
                                                                                                                                                     )
                                                                                                                                                     ( AppN Nothing
                                                                                                                                                       ( AppN Nothing
-                                                                                                                                                        ( Ref Nothing
-                                                                                                                                                          ( Imported
-                                                                                                                                                            ( ModuleName "Golden.LongStackBind.Test" )
-                                                                                                                                                            ( Name "discard" )
+                                                                                                                                                        ( ObjectProp Nothing
+                                                                                                                                                          ( Ref Nothing
+                                                                                                                                                            ( Imported
+                                                                                                                                                              ( ModuleName "Golden.LongStackBind.Test" )
+                                                                                                                                                              ( Name "bindStateT" )
+                                                                                                                                                            )
                                                                                                                                                           )
+                                                                                                                                                          ( PropName "bind" )
                                                                                                                                                         )
                                                                                                                                                         ( AppN Nothing
                                                                                                                                                           ( Ref Nothing
@@ -8820,11 +9727,14 @@ UberModule
                                                                                                                                                         ( ParamUnused Nothing :| [] )
                                                                                                                                                         ( AppN Nothing
                                                                                                                                                           ( AppN Nothing
-                                                                                                                                                            ( Ref Nothing
-                                                                                                                                                              ( Imported
-                                                                                                                                                                ( ModuleName "Golden.LongStackBind.Test" )
-                                                                                                                                                                ( Name "bind" )
+                                                                                                                                                            ( ObjectProp Nothing
+                                                                                                                                                              ( Ref Nothing
+                                                                                                                                                                ( Imported
+                                                                                                                                                                  ( ModuleName "Golden.LongStackBind.Test" )
+                                                                                                                                                                  ( Name "bindStateT" )
+                                                                                                                                                                )
                                                                                                                                                               )
+                                                                                                                                                              ( PropName "bind" )
                                                                                                                                                             )
                                                                                                                                                             ( Ref Nothing
                                                                                                                                                               ( Imported
@@ -8839,11 +9749,14 @@ UberModule
                                                                                                                                                             )
                                                                                                                                                             ( AppN Nothing
                                                                                                                                                               ( AppN Nothing
-                                                                                                                                                                ( Ref Nothing
-                                                                                                                                                                  ( Imported
-                                                                                                                                                                    ( ModuleName "Golden.LongStackBind.Test" )
-                                                                                                                                                                    ( Name "discard" )
+                                                                                                                                                                ( ObjectProp Nothing
+                                                                                                                                                                  ( Ref Nothing
+                                                                                                                                                                    ( Imported
+                                                                                                                                                                      ( ModuleName "Golden.LongStackBind.Test" )
+                                                                                                                                                                      ( Name "bindStateT" )
+                                                                                                                                                                    )
                                                                                                                                                                   )
+                                                                                                                                                                  ( PropName "bind" )
                                                                                                                                                                 )
                                                                                                                                                                 ( AppN Nothing
                                                                                                                                                                   ( Ref Nothing
@@ -8872,11 +9785,14 @@ UberModule
                                                                                                                                                                 ( ParamUnused Nothing :| [] )
                                                                                                                                                                 ( AppN Nothing
                                                                                                                                                                   ( AppN Nothing
-                                                                                                                                                                    ( Ref Nothing
-                                                                                                                                                                      ( Imported
-                                                                                                                                                                        ( ModuleName "Golden.LongStackBind.Test" )
-                                                                                                                                                                        ( Name "bind" )
+                                                                                                                                                                    ( ObjectProp Nothing
+                                                                                                                                                                      ( Ref Nothing
+                                                                                                                                                                        ( Imported
+                                                                                                                                                                          ( ModuleName "Golden.LongStackBind.Test" )
+                                                                                                                                                                          ( Name "bindStateT" )
+                                                                                                                                                                        )
                                                                                                                                                                       )
+                                                                                                                                                                      ( PropName "bind" )
                                                                                                                                                                     )
                                                                                                                                                                     ( Ref Nothing
                                                                                                                                                                       ( Imported
@@ -8891,11 +9807,14 @@ UberModule
                                                                                                                                                                     )
                                                                                                                                                                     ( AppN Nothing
                                                                                                                                                                       ( AppN Nothing
-                                                                                                                                                                        ( Ref Nothing
-                                                                                                                                                                          ( Imported
-                                                                                                                                                                            ( ModuleName "Golden.LongStackBind.Test" )
-                                                                                                                                                                            ( Name "discard" )
+                                                                                                                                                                        ( ObjectProp Nothing
+                                                                                                                                                                          ( Ref Nothing
+                                                                                                                                                                            ( Imported
+                                                                                                                                                                              ( ModuleName "Golden.LongStackBind.Test" )
+                                                                                                                                                                              ( Name "bindStateT" )
+                                                                                                                                                                            )
                                                                                                                                                                           )
+                                                                                                                                                                          ( PropName "bind" )
                                                                                                                                                                         )
                                                                                                                                                                         ( AppN Nothing
                                                                                                                                                                           ( Ref Nothing
@@ -8925,7 +9844,7 @@ UberModule
                                                                                                                                                                         ( AppN Nothing
                                                                                                                                                                           ( Ref Nothing
                                                                                                                                                                             ( Local
-                                                                                                                                                                              ( Name "$kont6569" )
+                                                                                                                                                                              ( Name "$kont6211" )
                                                                                                                                                                             )
                                                                                                                                                                           )
                                                                                                                                                                           ( Ref Nothing
@@ -9019,7 +9938,7 @@ UberModule
         { qnameModuleName = ModuleName "Golden.LongStackBind.Test", qnameName = Name "compute"
         }, Let Nothing
         ( Standalone
-          ( Nothing, Name "v$608", AppN Nothing
+          ( Nothing, Name "v$603", AppN Nothing
             ( Ref Nothing ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "go" ) ) )
             ( LiteralInt Nothing 0 :| [] )
           ) :| []
@@ -9027,20 +9946,20 @@ UberModule
         ( IfThenElse Nothing
           ( Eq Nothing
             ( LiteralString Nothing "Data.Either∷Either.Left" )
-            ( ReflectCtor Nothing ( Ref Nothing ( Local ( Name "v$608" ) ) ) )
+            ( ReflectCtor Nothing ( Ref Nothing ( Local ( Name "v$603" ) ) ) )
           )
           ( Ctor Nothing SumType
             ( ModuleName "Data.Either" )
             ( TyName "Either" )
             ( CtorName "Left" )
-            [ DataArgumentByIndex Nothing SumType 0 ( Ref Nothing ( Local ( Name "v$608" ) ) ) ]
+            [ DataArgumentByIndex Nothing SumType 0 ( Ref Nothing ( Local ( Name "v$603" ) ) ) ]
           )
           ( Ctor Nothing SumType
             ( ModuleName "Data.Either" )
             ( TyName "Either" )
             ( CtorName "Right" )
             [ DataArgumentByIndex Nothing ProductType 0
-              ( DataArgumentByIndex Nothing SumType 0 ( Ref Nothing ( Local ( Name "v$608" ) ) ) )
+              ( DataArgumentByIndex Nothing SumType 0 ( Ref Nothing ( Local ( Name "v$603" ) ) ) )
             ]
           )
         )
@@ -9055,7 +9974,7 @@ UberModule
       ),
       ( Name "main", Let Nothing
         ( Standalone
-          ( Nothing, Name "$cse6556", DataArgumentByIndex Nothing SumType 0
+          ( Nothing, Name "$cse6198", DataArgumentByIndex Nothing SumType 0
             ( Ref Nothing
               ( Imported ( ModuleName "Golden.LongStackBind.Test" ) ( Name "compute" ) )
             )
@@ -9083,7 +10002,7 @@ UberModule
                     ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "foreign" ) ) )
                     ( PropName "showStringImpl" )
                   )
-                  ( Ref Nothing ( Local ( Name "$cse6556" ) ) :| [] )
+                  ( Ref Nothing ( Local ( Name "$cse6198" ) ) :| [] )
                 )
                 ( LiteralString Nothing ")" )
               )
@@ -9096,7 +10015,7 @@ UberModule
                     ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "foreign" ) ) )
                     ( PropName "showIntImpl" )
                   )
-                  ( Ref Nothing ( Local ( Name "$cse6556" ) ) :| [] )
+                  ( Ref Nothing ( Local ( Name "$cse6198" ) ) :| [] )
                 )
                 ( LiteralString Nothing ")" )
               )
diff --git a/test/ps/output/Golden.LongStackBind.Test/golden.lua b/test/ps/output/Golden.LongStackBind.Test/golden.lua
index 680632a9..7b951005 100644
--- a/test/ps/output/Golden.LongStackBind.Test/golden.lua
+++ b/test/ps/output/Golden.LongStackBind.Test/golden.lua
@@ -45,8 +45,6 @@ local Data_Show_foreign = {
 local Effect_Console_foreign = {
   log = function(s) return function() print(s) end end
 }
-local Data_Functor_map = function(dict) return dict.map end
-local Control_Applicative_pure = function(dict) return dict.pure end
 local Control_Monad_ap = function(dictMonad)
   local bind = (dictMonad.Bind1()).bind
   return function(f)
@@ -178,7 +176,7 @@ Control_Monad_State_Trans_applyStateT = function(dictMonad)
         map = function(f_S_0)
           return function(v_S_1)
             return function(s_S_0)
-              return Data_Functor_map(((dictMonad.Bind1()).Apply0()).Functor0())(function( v1_S_0 )
+              return (((dictMonad.Bind1()).Apply0()).Functor0()).map(function( v1_S_0 )
                 return Data_Tuple_Tuple_S_w(f_S_0(v1_S_0[1]), v1_S_0[2])
               end)(v_S_1(s_S_0))
             end
@@ -215,11 +213,9 @@ local Golden_LongStackBind_Test_monadExceptT = Control_Monad_Except_Trans_monadE
   end
 })
 local Golden_LongStackBind_Test_bindStateT = Control_Monad_State_Trans_bindStateT(Golden_LongStackBind_Test_monadExceptT)
-local Golden_LongStackBind_Test_bind = Golden_LongStackBind_Test_bindStateT.bind
 local Golden_LongStackBind_Test_get = function(x_S_2)
   return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple_S_w(x_S_2, x_S_2))
 end
-local Golden_LongStackBind_Test_discard = Golden_LongStackBind_Test_bindStateT.bind
 local Golden_LongStackBind_Test_put = function(s_S_1)
   return function()
     return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple_S_w(Data_Unit_unit, s_S_1))
@@ -230,28 +226,28 @@ local Golden_LongStackBind_Test_add_S_w = function(x_S_3, y_S_0)
 end
 local Golden_LongStackBind_Test_go = (function()
   local _S_kont0 = function(x1_S_0)
-    return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x141 )
-      return Golden_LongStackBind_Test_discard(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x141, 1)))(function(  )
-        return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x142 )
-          return Golden_LongStackBind_Test_discard(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x142, 1)))(function(  )
-            return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x143 )
-              return Golden_LongStackBind_Test_discard(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x143, 1)))(function(  )
-                return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x144 )
-                  return Golden_LongStackBind_Test_discard(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x144, 1)))(function(  )
-                    return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x145 )
-                      return Golden_LongStackBind_Test_discard(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x145, 1)))(function(  )
-                        return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x146 )
-                          return Golden_LongStackBind_Test_discard(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x146, 1)))(function(  )
-                            return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x147 )
-                              return Golden_LongStackBind_Test_discard(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x147, 1)))(function(  )
-                                return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x148 )
-                                  return Golden_LongStackBind_Test_discard(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x148, 1)))(function(  )
-                                    return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x149 )
-                                      return Golden_LongStackBind_Test_discard(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x149, 1)))(function(  )
-                                        return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x150 )
-                                          return Golden_LongStackBind_Test_discard(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x150, 1)))(function(  )
-                                            return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( final )
-                                              return Control_Applicative_pure(Control_Monad_State_Trans_applicativeStateT(Golden_LongStackBind_Test_monadExceptT))(Golden_LongStackBind_Test_add_S_w(x1_S_0, final))
+    return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_get)(function( x141 )
+      return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x141, 1)))(function(  )
+        return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_get)(function( x142 )
+          return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x142, 1)))(function(  )
+            return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_get)(function( x143 )
+              return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x143, 1)))(function(  )
+                return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_get)(function( x144 )
+                  return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x144, 1)))(function(  )
+                    return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_get)(function( x145 )
+                      return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x145, 1)))(function(  )
+                        return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_get)(function( x146 )
+                          return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x146, 1)))(function(  )
+                            return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_get)(function( x147 )
+                              return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x147, 1)))(function(  )
+                                return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_get)(function( x148 )
+                                  return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x148, 1)))(function(  )
+                                    return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_get)(function( x149 )
+                                      return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x149, 1)))(function(  )
+                                        return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_get)(function( x150 )
+                                          return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x150, 1)))(function(  )
+                                            return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_get)(function( final )
+                                              return (Control_Monad_State_Trans_applicativeStateT(Golden_LongStackBind_Test_monadExceptT)).pure(Golden_LongStackBind_Test_add_S_w(x1_S_0, final))
                                             end)
                                           end)
                                         end)
@@ -275,46 +271,46 @@ local Golden_LongStackBind_Test_go = (function()
     end)
   end
   local _S_kont1 = function(x1_S_1)
-    return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x121 )
-      return Golden_LongStackBind_Test_discard(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x121, 1)))(function(  )
-        return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x122 )
-          return Golden_LongStackBind_Test_discard(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x122, 1)))(function(  )
-            return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x123 )
-              return Golden_LongStackBind_Test_discard(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x123, 1)))(function(  )
-                return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x124 )
-                  return Golden_LongStackBind_Test_discard(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x124, 1)))(function(  )
-                    return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x125 )
-                      return Golden_LongStackBind_Test_discard(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x125, 1)))(function(  )
-                        return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x126 )
-                          return Golden_LongStackBind_Test_discard(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x126, 1)))(function(  )
-                            return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x127 )
-                              return Golden_LongStackBind_Test_discard(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x127, 1)))(function(  )
-                                return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x128 )
-                                  return Golden_LongStackBind_Test_discard(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x128, 1)))(function(  )
-                                    return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x129 )
-                                      return Golden_LongStackBind_Test_discard(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x129, 1)))(function(  )
-                                        return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x130 )
-                                          return Golden_LongStackBind_Test_discard(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x130, 1)))(function(  )
-                                            return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x131 )
-                                              return Golden_LongStackBind_Test_discard(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x131, 1)))(function(  )
-                                                return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x132 )
-                                                  return Golden_LongStackBind_Test_discard(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x132, 1)))(function(  )
-                                                    return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x133 )
-                                                      return Golden_LongStackBind_Test_discard(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x133, 1)))(function(  )
-                                                        return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x134 )
-                                                          return Golden_LongStackBind_Test_discard(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x134, 1)))(function(  )
-                                                            return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x135 )
-                                                              return Golden_LongStackBind_Test_discard(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x135, 1)))(function(  )
-                                                                return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x136 )
-                                                                  return Golden_LongStackBind_Test_discard(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x136, 1)))(function(  )
-                                                                    return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x137 )
-                                                                      return Golden_LongStackBind_Test_discard(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x137, 1)))(function(  )
-                                                                        return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x138 )
-                                                                          return Golden_LongStackBind_Test_discard(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x138, 1)))(function(  )
-                                                                            return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x139 )
-                                                                              return Golden_LongStackBind_Test_discard(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x139, 1)))(function(  )
-                                                                                return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x140 )
-                                                                                  return Golden_LongStackBind_Test_discard(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x140, 1)))(function(  )
+    return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_get)(function( x121 )
+      return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x121, 1)))(function(  )
+        return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_get)(function( x122 )
+          return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x122, 1)))(function(  )
+            return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_get)(function( x123 )
+              return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x123, 1)))(function(  )
+                return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_get)(function( x124 )
+                  return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x124, 1)))(function(  )
+                    return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_get)(function( x125 )
+                      return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x125, 1)))(function(  )
+                        return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_get)(function( x126 )
+                          return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x126, 1)))(function(  )
+                            return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_get)(function( x127 )
+                              return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x127, 1)))(function(  )
+                                return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_get)(function( x128 )
+                                  return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x128, 1)))(function(  )
+                                    return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_get)(function( x129 )
+                                      return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x129, 1)))(function(  )
+                                        return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_get)(function( x130 )
+                                          return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x130, 1)))(function(  )
+                                            return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_get)(function( x131 )
+                                              return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x131, 1)))(function(  )
+                                                return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_get)(function( x132 )
+                                                  return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x132, 1)))(function(  )
+                                                    return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_get)(function( x133 )
+                                                      return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x133, 1)))(function(  )
+                                                        return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_get)(function( x134 )
+                                                          return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x134, 1)))(function(  )
+                                                            return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_get)(function( x135 )
+                                                              return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x135, 1)))(function(  )
+                                                                return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_get)(function( x136 )
+                                                                  return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x136, 1)))(function(  )
+                                                                    return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_get)(function( x137 )
+                                                                      return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x137, 1)))(function(  )
+                                                                        return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_get)(function( x138 )
+                                                                          return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x138, 1)))(function(  )
+                                                                            return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_get)(function( x139 )
+                                                                              return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x139, 1)))(function(  )
+                                                                                return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_get)(function( x140 )
+                                                                                  return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x140, 1)))(function(  )
                                                                                     return _S_kont0(x1_S_1)
                                                                                   end)
                                                                                 end)
@@ -358,46 +354,46 @@ local Golden_LongStackBind_Test_go = (function()
     end)
   end
   local _S_kont2 = function(x1_S_2)
-    return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x101 )
-      return Golden_LongStackBind_Test_discard(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x101, 1)))(function(  )
-        return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x102 )
-          return Golden_LongStackBind_Test_discard(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x102, 1)))(function(  )
-            return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x103 )
-              return Golden_LongStackBind_Test_discard(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x103, 1)))(function(  )
-                return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x104 )
-                  return Golden_LongStackBind_Test_discard(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x104, 1)))(function(  )
-                    return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x105 )
-                      return Golden_LongStackBind_Test_discard(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x105, 1)))(function(  )
-                        return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x106 )
-                          return Golden_LongStackBind_Test_discard(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x106, 1)))(function(  )
-                            return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x107 )
-                              return Golden_LongStackBind_Test_discard(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x107, 1)))(function(  )
-                                return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x108 )
-                                  return Golden_LongStackBind_Test_discard(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x108, 1)))(function(  )
-                                    return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x109 )
-                                      return Golden_LongStackBind_Test_discard(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x109, 1)))(function(  )
-                                        return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x110 )
-                                          return Golden_LongStackBind_Test_discard(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x110, 1)))(function(  )
-                                            return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x111 )
-                                              return Golden_LongStackBind_Test_discard(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x111, 1)))(function(  )
-                                                return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x112 )
-                                                  return Golden_LongStackBind_Test_discard(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x112, 1)))(function(  )
-                                                    return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x113 )
-                                                      return Golden_LongStackBind_Test_discard(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x113, 1)))(function(  )
-                                                        return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x114 )
-                                                          return Golden_LongStackBind_Test_discard(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x114, 1)))(function(  )
-                                                            return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x115 )
-                                                              return Golden_LongStackBind_Test_discard(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x115, 1)))(function(  )
-                                                                return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x116 )
-                                                                  return Golden_LongStackBind_Test_discard(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x116, 1)))(function(  )
-                                                                    return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x117 )
-                                                                      return Golden_LongStackBind_Test_discard(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x117, 1)))(function(  )
-                                                                        return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x118 )
-                                                                          return Golden_LongStackBind_Test_discard(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x118, 1)))(function(  )
-                                                                            return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x119 )
-                                                                              return Golden_LongStackBind_Test_discard(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x119, 1)))(function(  )
-                                                                                return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x120 )
-                                                                                  return Golden_LongStackBind_Test_discard(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x120, 1)))(function(  )
+    return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_get)(function( x101 )
+      return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x101, 1)))(function(  )
+        return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_get)(function( x102 )
+          return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x102, 1)))(function(  )
+            return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_get)(function( x103 )
+              return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x103, 1)))(function(  )
+                return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_get)(function( x104 )
+                  return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x104, 1)))(function(  )
+                    return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_get)(function( x105 )
+                      return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x105, 1)))(function(  )
+                        return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_get)(function( x106 )
+                          return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x106, 1)))(function(  )
+                            return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_get)(function( x107 )
+                              return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x107, 1)))(function(  )
+                                return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_get)(function( x108 )
+                                  return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x108, 1)))(function(  )
+                                    return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_get)(function( x109 )
+                                      return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x109, 1)))(function(  )
+                                        return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_get)(function( x110 )
+                                          return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x110, 1)))(function(  )
+                                            return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_get)(function( x111 )
+                                              return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x111, 1)))(function(  )
+                                                return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_get)(function( x112 )
+                                                  return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x112, 1)))(function(  )
+                                                    return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_get)(function( x113 )
+                                                      return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x113, 1)))(function(  )
+                                                        return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_get)(function( x114 )
+                                                          return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x114, 1)))(function(  )
+                                                            return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_get)(function( x115 )
+                                                              return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x115, 1)))(function(  )
+                                                                return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_get)(function( x116 )
+                                                                  return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x116, 1)))(function(  )
+                                                                    return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_get)(function( x117 )
+                                                                      return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x117, 1)))(function(  )
+                                                                        return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_get)(function( x118 )
+                                                                          return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x118, 1)))(function(  )
+                                                                            return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_get)(function( x119 )
+                                                                              return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x119, 1)))(function(  )
+                                                                                return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_get)(function( x120 )
+                                                                                  return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x120, 1)))(function(  )
                                                                                     return _S_kont1(x1_S_2)
                                                                                   end)
                                                                                 end)
@@ -441,46 +437,46 @@ local Golden_LongStackBind_Test_go = (function()
     end)
   end
   local _S_kont3 = function(x1_S_3)
-    return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x81 )
-      return Golden_LongStackBind_Test_discard(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x81, 1)))(function(  )
-        return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x82 )
-          return Golden_LongStackBind_Test_discard(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x82, 1)))(function(  )
-            return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x83 )
-              return Golden_LongStackBind_Test_discard(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x83, 1)))(function(  )
-                return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x84 )
-                  return Golden_LongStackBind_Test_discard(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x84, 1)))(function(  )
-                    return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x85 )
-                      return Golden_LongStackBind_Test_discard(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x85, 1)))(function(  )
-                        return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x86 )
-                          return Golden_LongStackBind_Test_discard(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x86, 1)))(function(  )
-                            return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x87 )
-                              return Golden_LongStackBind_Test_discard(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x87, 1)))(function(  )
-                                return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x88 )
-                                  return Golden_LongStackBind_Test_discard(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x88, 1)))(function(  )
-                                    return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x89 )
-                                      return Golden_LongStackBind_Test_discard(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x89, 1)))(function(  )
-                                        return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x90 )
-                                          return Golden_LongStackBind_Test_discard(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x90, 1)))(function(  )
-                                            return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x91 )
-                                              return Golden_LongStackBind_Test_discard(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x91, 1)))(function(  )
-                                                return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x92 )
-                                                  return Golden_LongStackBind_Test_discard(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x92, 1)))(function(  )
-                                                    return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x93 )
-                                                      return Golden_LongStackBind_Test_discard(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x93, 1)))(function(  )
-                                                        return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x94 )
-                                                          return Golden_LongStackBind_Test_discard(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x94, 1)))(function(  )
-                                                            return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x95 )
-                                                              return Golden_LongStackBind_Test_discard(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x95, 1)))(function(  )
-                                                                return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x96 )
-                                                                  return Golden_LongStackBind_Test_discard(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x96, 1)))(function(  )
-                                                                    return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x97 )
-                                                                      return Golden_LongStackBind_Test_discard(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x97, 1)))(function(  )
-                                                                        return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x98 )
-                                                                          return Golden_LongStackBind_Test_discard(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x98, 1)))(function(  )
-                                                                            return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x99 )
-                                                                              return Golden_LongStackBind_Test_discard(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x99, 1)))(function(  )
-                                                                                return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x100 )
-                                                                                  return Golden_LongStackBind_Test_discard(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x100, 1)))(function(  )
+    return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_get)(function( x81 )
+      return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x81, 1)))(function(  )
+        return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_get)(function( x82 )
+          return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x82, 1)))(function(  )
+            return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_get)(function( x83 )
+              return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x83, 1)))(function(  )
+                return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_get)(function( x84 )
+                  return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x84, 1)))(function(  )
+                    return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_get)(function( x85 )
+                      return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x85, 1)))(function(  )
+                        return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_get)(function( x86 )
+                          return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x86, 1)))(function(  )
+                            return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_get)(function( x87 )
+                              return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x87, 1)))(function(  )
+                                return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_get)(function( x88 )
+                                  return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x88, 1)))(function(  )
+                                    return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_get)(function( x89 )
+                                      return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x89, 1)))(function(  )
+                                        return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_get)(function( x90 )
+                                          return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x90, 1)))(function(  )
+                                            return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_get)(function( x91 )
+                                              return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x91, 1)))(function(  )
+                                                return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_get)(function( x92 )
+                                                  return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x92, 1)))(function(  )
+                                                    return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_get)(function( x93 )
+                                                      return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x93, 1)))(function(  )
+                                                        return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_get)(function( x94 )
+                                                          return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x94, 1)))(function(  )
+                                                            return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_get)(function( x95 )
+                                                              return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x95, 1)))(function(  )
+                                                                return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_get)(function( x96 )
+                                                                  return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x96, 1)))(function(  )
+                                                                    return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_get)(function( x97 )
+                                                                      return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x97, 1)))(function(  )
+                                                                        return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_get)(function( x98 )
+                                                                          return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x98, 1)))(function(  )
+                                                                            return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_get)(function( x99 )
+                                                                              return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x99, 1)))(function(  )
+                                                                                return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_get)(function( x100 )
+                                                                                  return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x100, 1)))(function(  )
                                                                                     return _S_kont2(x1_S_3)
                                                                                   end)
                                                                                 end)
@@ -524,46 +520,46 @@ local Golden_LongStackBind_Test_go = (function()
     end)
   end
   local _S_kont4 = function(x1_S_4)
-    return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x61 )
-      return Golden_LongStackBind_Test_discard(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x61, 1)))(function(  )
-        return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x62 )
-          return Golden_LongStackBind_Test_discard(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x62, 1)))(function(  )
-            return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x63 )
-              return Golden_LongStackBind_Test_discard(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x63, 1)))(function(  )
-                return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x64 )
-                  return Golden_LongStackBind_Test_discard(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x64, 1)))(function(  )
-                    return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x65 )
-                      return Golden_LongStackBind_Test_discard(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x65, 1)))(function(  )
-                        return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x66 )
-                          return Golden_LongStackBind_Test_discard(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x66, 1)))(function(  )
-                            return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x67 )
-                              return Golden_LongStackBind_Test_discard(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x67, 1)))(function(  )
-                                return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x68 )
-                                  return Golden_LongStackBind_Test_discard(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x68, 1)))(function(  )
-                                    return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x69 )
-                                      return Golden_LongStackBind_Test_discard(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x69, 1)))(function(  )
-                                        return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x70 )
-                                          return Golden_LongStackBind_Test_discard(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x70, 1)))(function(  )
-                                            return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x71 )
-                                              return Golden_LongStackBind_Test_discard(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x71, 1)))(function(  )
-                                                return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x72 )
-                                                  return Golden_LongStackBind_Test_discard(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x72, 1)))(function(  )
-                                                    return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x73 )
-                                                      return Golden_LongStackBind_Test_discard(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x73, 1)))(function(  )
-                                                        return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x74 )
-                                                          return Golden_LongStackBind_Test_discard(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x74, 1)))(function(  )
-                                                            return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x75 )
-                                                              return Golden_LongStackBind_Test_discard(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x75, 1)))(function(  )
-                                                                return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x76 )
-                                                                  return Golden_LongStackBind_Test_discard(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x76, 1)))(function(  )
-                                                                    return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x77 )
-                                                                      return Golden_LongStackBind_Test_discard(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x77, 1)))(function(  )
-                                                                        return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x78 )
-                                                                          return Golden_LongStackBind_Test_discard(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x78, 1)))(function(  )
-                                                                            return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x79 )
-                                                                              return Golden_LongStackBind_Test_discard(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x79, 1)))(function(  )
-                                                                                return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x80 )
-                                                                                  return Golden_LongStackBind_Test_discard(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x80, 1)))(function(  )
+    return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_get)(function( x61 )
+      return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x61, 1)))(function(  )
+        return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_get)(function( x62 )
+          return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x62, 1)))(function(  )
+            return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_get)(function( x63 )
+              return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x63, 1)))(function(  )
+                return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_get)(function( x64 )
+                  return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x64, 1)))(function(  )
+                    return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_get)(function( x65 )
+                      return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x65, 1)))(function(  )
+                        return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_get)(function( x66 )
+                          return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x66, 1)))(function(  )
+                            return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_get)(function( x67 )
+                              return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x67, 1)))(function(  )
+                                return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_get)(function( x68 )
+                                  return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x68, 1)))(function(  )
+                                    return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_get)(function( x69 )
+                                      return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x69, 1)))(function(  )
+                                        return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_get)(function( x70 )
+                                          return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x70, 1)))(function(  )
+                                            return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_get)(function( x71 )
+                                              return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x71, 1)))(function(  )
+                                                return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_get)(function( x72 )
+                                                  return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x72, 1)))(function(  )
+                                                    return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_get)(function( x73 )
+                                                      return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x73, 1)))(function(  )
+                                                        return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_get)(function( x74 )
+                                                          return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x74, 1)))(function(  )
+                                                            return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_get)(function( x75 )
+                                                              return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x75, 1)))(function(  )
+                                                                return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_get)(function( x76 )
+                                                                  return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x76, 1)))(function(  )
+                                                                    return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_get)(function( x77 )
+                                                                      return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x77, 1)))(function(  )
+                                                                        return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_get)(function( x78 )
+                                                                          return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x78, 1)))(function(  )
+                                                                            return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_get)(function( x79 )
+                                                                              return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x79, 1)))(function(  )
+                                                                                return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_get)(function( x80 )
+                                                                                  return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x80, 1)))(function(  )
                                                                                     return _S_kont3(x1_S_4)
                                                                                   end)
                                                                                 end)
@@ -607,46 +603,46 @@ local Golden_LongStackBind_Test_go = (function()
     end)
   end
   local _S_kont5 = function(x1_S_5)
-    return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x41 )
-      return Golden_LongStackBind_Test_discard(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x41, 1)))(function(  )
-        return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x42 )
-          return Golden_LongStackBind_Test_discard(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x42, 1)))(function(  )
-            return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x43 )
-              return Golden_LongStackBind_Test_discard(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x43, 1)))(function(  )
-                return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x44 )
-                  return Golden_LongStackBind_Test_discard(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x44, 1)))(function(  )
-                    return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x45 )
-                      return Golden_LongStackBind_Test_discard(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x45, 1)))(function(  )
-                        return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x46 )
-                          return Golden_LongStackBind_Test_discard(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x46, 1)))(function(  )
-                            return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x47 )
-                              return Golden_LongStackBind_Test_discard(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x47, 1)))(function(  )
-                                return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x48 )
-                                  return Golden_LongStackBind_Test_discard(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x48, 1)))(function(  )
-                                    return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x49 )
-                                      return Golden_LongStackBind_Test_discard(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x49, 1)))(function(  )
-                                        return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x50 )
-                                          return Golden_LongStackBind_Test_discard(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x50, 1)))(function(  )
-                                            return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x51 )
-                                              return Golden_LongStackBind_Test_discard(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x51, 1)))(function(  )
-                                                return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x52 )
-                                                  return Golden_LongStackBind_Test_discard(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x52, 1)))(function(  )
-                                                    return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x53 )
-                                                      return Golden_LongStackBind_Test_discard(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x53, 1)))(function(  )
-                                                        return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x54 )
-                                                          return Golden_LongStackBind_Test_discard(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x54, 1)))(function(  )
-                                                            return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x55 )
-                                                              return Golden_LongStackBind_Test_discard(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x55, 1)))(function(  )
-                                                                return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x56 )
-                                                                  return Golden_LongStackBind_Test_discard(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x56, 1)))(function(  )
-                                                                    return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x57 )
-                                                                      return Golden_LongStackBind_Test_discard(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x57, 1)))(function(  )
-                                                                        return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x58 )
-                                                                          return Golden_LongStackBind_Test_discard(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x58, 1)))(function(  )
-                                                                            return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x59 )
-                                                                              return Golden_LongStackBind_Test_discard(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x59, 1)))(function(  )
-                                                                                return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x60 )
-                                                                                  return Golden_LongStackBind_Test_discard(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x60, 1)))(function(  )
+    return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_get)(function( x41 )
+      return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x41, 1)))(function(  )
+        return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_get)(function( x42 )
+          return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x42, 1)))(function(  )
+            return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_get)(function( x43 )
+              return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x43, 1)))(function(  )
+                return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_get)(function( x44 )
+                  return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x44, 1)))(function(  )
+                    return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_get)(function( x45 )
+                      return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x45, 1)))(function(  )
+                        return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_get)(function( x46 )
+                          return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x46, 1)))(function(  )
+                            return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_get)(function( x47 )
+                              return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x47, 1)))(function(  )
+                                return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_get)(function( x48 )
+                                  return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x48, 1)))(function(  )
+                                    return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_get)(function( x49 )
+                                      return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x49, 1)))(function(  )
+                                        return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_get)(function( x50 )
+                                          return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x50, 1)))(function(  )
+                                            return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_get)(function( x51 )
+                                              return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x51, 1)))(function(  )
+                                                return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_get)(function( x52 )
+                                                  return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x52, 1)))(function(  )
+                                                    return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_get)(function( x53 )
+                                                      return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x53, 1)))(function(  )
+                                                        return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_get)(function( x54 )
+                                                          return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x54, 1)))(function(  )
+                                                            return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_get)(function( x55 )
+                                                              return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x55, 1)))(function(  )
+                                                                return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_get)(function( x56 )
+                                                                  return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x56, 1)))(function(  )
+                                                                    return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_get)(function( x57 )
+                                                                      return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x57, 1)))(function(  )
+                                                                        return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_get)(function( x58 )
+                                                                          return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x58, 1)))(function(  )
+                                                                            return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_get)(function( x59 )
+                                                                              return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x59, 1)))(function(  )
+                                                                                return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_get)(function( x60 )
+                                                                                  return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x60, 1)))(function(  )
                                                                                     return _S_kont4(x1_S_5)
                                                                                   end)
                                                                                 end)
@@ -690,46 +686,46 @@ local Golden_LongStackBind_Test_go = (function()
     end)
   end
   local _S_kont6 = function(x1_S_6)
-    return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x21 )
-      return Golden_LongStackBind_Test_discard(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x21, 1)))(function(  )
-        return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x22 )
-          return Golden_LongStackBind_Test_discard(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x22, 1)))(function(  )
-            return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x23 )
-              return Golden_LongStackBind_Test_discard(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x23, 1)))(function(  )
-                return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x24 )
-                  return Golden_LongStackBind_Test_discard(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x24, 1)))(function(  )
-                    return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x25 )
-                      return Golden_LongStackBind_Test_discard(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x25, 1)))(function(  )
-                        return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x26 )
-                          return Golden_LongStackBind_Test_discard(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x26, 1)))(function(  )
-                            return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x27 )
-                              return Golden_LongStackBind_Test_discard(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x27, 1)))(function(  )
-                                return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x28 )
-                                  return Golden_LongStackBind_Test_discard(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x28, 1)))(function(  )
-                                    return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x29 )
-                                      return Golden_LongStackBind_Test_discard(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x29, 1)))(function(  )
-                                        return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x30 )
-                                          return Golden_LongStackBind_Test_discard(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x30, 1)))(function(  )
-                                            return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x31 )
-                                              return Golden_LongStackBind_Test_discard(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x31, 1)))(function(  )
-                                                return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x32 )
-                                                  return Golden_LongStackBind_Test_discard(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x32, 1)))(function(  )
-                                                    return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x33 )
-                                                      return Golden_LongStackBind_Test_discard(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x33, 1)))(function(  )
-                                                        return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x34 )
-                                                          return Golden_LongStackBind_Test_discard(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x34, 1)))(function(  )
-                                                            return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x35 )
-                                                              return Golden_LongStackBind_Test_discard(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x35, 1)))(function(  )
-                                                                return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x36 )
-                                                                  return Golden_LongStackBind_Test_discard(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x36, 1)))(function(  )
-                                                                    return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x37 )
-                                                                      return Golden_LongStackBind_Test_discard(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x37, 1)))(function(  )
-                                                                        return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x38 )
-                                                                          return Golden_LongStackBind_Test_discard(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x38, 1)))(function(  )
-                                                                            return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x39 )
-                                                                              return Golden_LongStackBind_Test_discard(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x39, 1)))(function(  )
-                                                                                return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x40 )
-                                                                                  return Golden_LongStackBind_Test_discard(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x40, 1)))(function(  )
+    return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_get)(function( x21 )
+      return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x21, 1)))(function(  )
+        return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_get)(function( x22 )
+          return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x22, 1)))(function(  )
+            return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_get)(function( x23 )
+              return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x23, 1)))(function(  )
+                return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_get)(function( x24 )
+                  return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x24, 1)))(function(  )
+                    return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_get)(function( x25 )
+                      return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x25, 1)))(function(  )
+                        return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_get)(function( x26 )
+                          return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x26, 1)))(function(  )
+                            return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_get)(function( x27 )
+                              return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x27, 1)))(function(  )
+                                return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_get)(function( x28 )
+                                  return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x28, 1)))(function(  )
+                                    return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_get)(function( x29 )
+                                      return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x29, 1)))(function(  )
+                                        return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_get)(function( x30 )
+                                          return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x30, 1)))(function(  )
+                                            return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_get)(function( x31 )
+                                              return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x31, 1)))(function(  )
+                                                return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_get)(function( x32 )
+                                                  return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x32, 1)))(function(  )
+                                                    return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_get)(function( x33 )
+                                                      return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x33, 1)))(function(  )
+                                                        return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_get)(function( x34 )
+                                                          return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x34, 1)))(function(  )
+                                                            return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_get)(function( x35 )
+                                                              return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x35, 1)))(function(  )
+                                                                return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_get)(function( x36 )
+                                                                  return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x36, 1)))(function(  )
+                                                                    return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_get)(function( x37 )
+                                                                      return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x37, 1)))(function(  )
+                                                                        return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_get)(function( x38 )
+                                                                          return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x38, 1)))(function(  )
+                                                                            return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_get)(function( x39 )
+                                                                              return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x39, 1)))(function(  )
+                                                                                return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_get)(function( x40 )
+                                                                                  return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x40, 1)))(function(  )
                                                                                     return _S_kont5(x1_S_6)
                                                                                   end)
                                                                                 end)
@@ -772,46 +768,46 @@ local Golden_LongStackBind_Test_go = (function()
       end)
     end)
   end
-  return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x1 )
-    return Golden_LongStackBind_Test_discard(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x1, 1)))(function(  )
-      return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x2 )
-        return Golden_LongStackBind_Test_discard(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x2, 1)))(function(  )
-          return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x3 )
-            return Golden_LongStackBind_Test_discard(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x3, 1)))(function(  )
-              return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x4 )
-                return Golden_LongStackBind_Test_discard(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x4, 1)))(function(  )
-                  return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x5 )
-                    return Golden_LongStackBind_Test_discard(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x5, 1)))(function(  )
-                      return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x6 )
-                        return Golden_LongStackBind_Test_discard(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x6, 1)))(function(  )
-                          return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x7 )
-                            return Golden_LongStackBind_Test_discard(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x7, 1)))(function(  )
-                              return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x8 )
-                                return Golden_LongStackBind_Test_discard(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x8, 1)))(function(  )
-                                  return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x9 )
-                                    return Golden_LongStackBind_Test_discard(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x9, 1)))(function(  )
-                                      return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x10 )
-                                        return Golden_LongStackBind_Test_discard(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x10, 1)))(function(  )
-                                          return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x11 )
-                                            return Golden_LongStackBind_Test_discard(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x11, 1)))(function(  )
-                                              return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x12 )
-                                                return Golden_LongStackBind_Test_discard(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x12, 1)))(function(  )
-                                                  return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x13 )
-                                                    return Golden_LongStackBind_Test_discard(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x13, 1)))(function(  )
-                                                      return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x14 )
-                                                        return Golden_LongStackBind_Test_discard(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x14, 1)))(function(  )
-                                                          return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x15 )
-                                                            return Golden_LongStackBind_Test_discard(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x15, 1)))(function(  )
-                                                              return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x16 )
-                                                                return Golden_LongStackBind_Test_discard(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x16, 1)))(function(  )
-                                                                  return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x17 )
-                                                                    return Golden_LongStackBind_Test_discard(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x17, 1)))(function(  )
-                                                                      return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x18 )
-                                                                        return Golden_LongStackBind_Test_discard(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x18, 1)))(function(  )
-                                                                          return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x19 )
-                                                                            return Golden_LongStackBind_Test_discard(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x19, 1)))(function(  )
-                                                                              return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x20 )
-                                                                                return Golden_LongStackBind_Test_discard(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x20, 1)))(function(  )
+  return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_get)(function( x1 )
+    return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x1, 1)))(function(  )
+      return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_get)(function( x2 )
+        return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x2, 1)))(function(  )
+          return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_get)(function( x3 )
+            return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x3, 1)))(function(  )
+              return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_get)(function( x4 )
+                return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x4, 1)))(function(  )
+                  return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_get)(function( x5 )
+                    return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x5, 1)))(function(  )
+                      return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_get)(function( x6 )
+                        return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x6, 1)))(function(  )
+                          return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_get)(function( x7 )
+                            return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x7, 1)))(function(  )
+                              return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_get)(function( x8 )
+                                return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x8, 1)))(function(  )
+                                  return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_get)(function( x9 )
+                                    return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x9, 1)))(function(  )
+                                      return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_get)(function( x10 )
+                                        return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x10, 1)))(function(  )
+                                          return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_get)(function( x11 )
+                                            return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x11, 1)))(function(  )
+                                              return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_get)(function( x12 )
+                                                return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x12, 1)))(function(  )
+                                                  return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_get)(function( x13 )
+                                                    return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x13, 1)))(function(  )
+                                                      return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_get)(function( x14 )
+                                                        return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x14, 1)))(function(  )
+                                                          return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_get)(function( x15 )
+                                                            return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x15, 1)))(function(  )
+                                                              return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_get)(function( x16 )
+                                                                return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x16, 1)))(function(  )
+                                                                  return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_get)(function( x17 )
+                                                                    return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x17, 1)))(function(  )
+                                                                      return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_get)(function( x18 )
+                                                                        return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x18, 1)))(function(  )
+                                                                          return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_get)(function( x19 )
+                                                                            return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x19, 1)))(function(  )
+                                                                              return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_get)(function( x20 )
+                                                                                return Golden_LongStackBind_Test_bindStateT.bind(Golden_LongStackBind_Test_put(Golden_LongStackBind_Test_add_S_w(x20, 1)))(function(  )
                                                                                   return _S_kont6(x1)
                                                                                 end)
                                                                               end)
diff --git a/test/ps/output/Golden.LongStateBind.Test/golden.ir b/test/ps/output/Golden.LongStateBind.Test/golden.ir
index 766f0848..4ab3d069 100644
--- a/test/ps/output/Golden.LongStateBind.Test/golden.ir
+++ b/test/ps/output/Golden.LongStateBind.Test/golden.ir
@@ -54,12 +54,12 @@ UberModule
             ( LiteralObject Nothing
               [
                 ( PropName "map", AbsN Nothing
-                  ( ParamNamed Nothing ( Name "f$523" ) :| [] )
+                  ( ParamNamed Nothing ( Name "f$511" ) :| [] )
                   ( AbsN Nothing
-                    ( ParamNamed Nothing ( Name "m$524" ) :| [] )
+                    ( ParamNamed Nothing ( Name "m$512" ) :| [] )
                     ( AppN Nothing
-                      ( Ref Nothing ( Local ( Name "f$523" ) ) )
-                      ( Ref Nothing ( Local ( Name "m$524" ) ) :| [] )
+                      ( Ref Nothing ( Local ( Name "f$511" ) ) )
+                      ( Ref Nothing ( Local ( Name "m$512" ) ) :| [] )
                     )
                   )
                 )
@@ -77,8 +77,8 @@ UberModule
             ( LiteralObject Nothing
               [
                 ( PropName "pure", AbsN Nothing
-                  ( ParamNamed Nothing ( Name "x$525" ) :| [] )
-                  ( Ref Nothing ( Local ( Name "x$525" ) ) )
+                  ( ParamNamed Nothing ( Name "x$513" ) :| [] )
+                  ( Ref Nothing ( Local ( Name "x$513" ) ) )
                 ),
                 ( PropName "Apply0", AbsN Nothing
                   ( ParamUnused Nothing :| [] )
@@ -94,12 +94,12 @@ UberModule
             ( LiteralObject Nothing
               [
                 ( PropName "bind", AbsN Nothing
-                  ( ParamNamed Nothing ( Name "v$78" ) :| [] )
+                  ( ParamNamed Nothing ( Name "v$75" ) :| [] )
                   ( AbsN Nothing
-                    ( ParamNamed Nothing ( Name "f$79" ) :| [] )
+                    ( ParamNamed Nothing ( Name "f$76" ) :| [] )
                     ( AppN Nothing
-                      ( Ref Nothing ( Local ( Name "f$79" ) ) )
-                      ( Ref Nothing ( Local ( Name "v$78" ) ) :| [] )
+                      ( Ref Nothing ( Local ( Name "f$76" ) ) )
+                      ( Ref Nothing ( Local ( Name "v$75" ) ) :| [] )
                     )
                   )
                 ),
@@ -215,7 +215,7 @@ UberModule
               [
                 ( PropName "apply", Let Nothing
                   ( Standalone
-                    ( Nothing, Name "dictMonad$526", AppN Nothing
+                    ( Nothing, Name "dictMonad$514", AppN Nothing
                       ( Ref Nothing
                         ( Imported
                           ( ModuleName "Control.Monad.State.Trans" )
@@ -227,10 +227,10 @@ UberModule
                   )
                   ( Let Nothing
                     ( Standalone
-                      ( Nothing, Name "bind$527", ObjectProp Nothing
+                      ( Nothing, Name "bind$515", ObjectProp Nothing
                         ( AppN Nothing
                           ( ObjectProp Nothing
-                            ( Ref Nothing ( Local ( Name "dictMonad$526" ) ) )
+                            ( Ref Nothing ( Local ( Name "dictMonad$514" ) ) )
                             ( PropName "Bind1" )
                           )
                           ( Ref Nothing
@@ -241,28 +241,28 @@ UberModule
                       ) :| []
                     )
                     ( AbsN Nothing
-                      ( ParamNamed Nothing ( Name "f$528" ) :| [] )
+                      ( ParamNamed Nothing ( Name "f$516" ) :| [] )
                       ( AbsN Nothing
-                        ( ParamNamed Nothing ( Name "a$529" ) :| [] )
+                        ( ParamNamed Nothing ( Name "a$517" ) :| [] )
                         ( AppN Nothing
                           ( AppN Nothing
-                            ( Ref Nothing ( Local ( Name "bind$527" ) ) )
-                            ( Ref Nothing ( Local ( Name "f$528" ) ) :| [] )
+                            ( Ref Nothing ( Local ( Name "bind$515" ) ) )
+                            ( Ref Nothing ( Local ( Name "f$516" ) ) :| [] )
                           )
                           ( AbsN Nothing
-                            ( ParamNamed Nothing ( Name "f'$530" ) :| [] )
+                            ( ParamNamed Nothing ( Name "f'$518" ) :| [] )
                             ( AppN Nothing
                               ( AppN Nothing
-                                ( Ref Nothing ( Local ( Name "bind$527" ) ) )
-                                ( Ref Nothing ( Local ( Name "a$529" ) ) :| [] )
+                                ( Ref Nothing ( Local ( Name "bind$515" ) ) )
+                                ( Ref Nothing ( Local ( Name "a$517" ) ) :| [] )
                               )
                               ( AbsN Nothing
-                                ( ParamNamed Nothing ( Name "a'$531" ) :| [] )
+                                ( ParamNamed Nothing ( Name "a'$519" ) :| [] )
                                 ( AppN Nothing
                                   ( ObjectProp Nothing
                                     ( AppN Nothing
                                       ( ObjectProp Nothing
-                                        ( Ref Nothing ( Local ( Name "dictMonad$526" ) ) )
+                                        ( Ref Nothing ( Local ( Name "dictMonad$514" ) ) )
                                         ( PropName "Applicative0" )
                                       )
                                       ( Ref Nothing
@@ -275,8 +275,8 @@ UberModule
                                     ( PropName "pure" )
                                   )
                                   ( AppN Nothing
-                                    ( Ref Nothing ( Local ( Name "f'$530" ) ) )
-                                    ( Ref Nothing ( Local ( Name "a'$531" ) ) :| [] ) :| []
+                                    ( Ref Nothing ( Local ( Name "f'$518" ) ) )
+                                    ( Ref Nothing ( Local ( Name "a'$519" ) ) :| [] ) :| []
                                   )
                                 ) :| []
                               )
@@ -292,11 +292,11 @@ UberModule
                   ( LiteralObject Nothing
                     [
                       ( PropName "map", AbsN Nothing
-                        ( ParamNamed Nothing ( Name "f$519" ) :| [] )
+                        ( ParamNamed Nothing ( Name "f$507" ) :| [] )
                         ( AbsN Nothing
-                          ( ParamNamed Nothing ( Name "v$520" ) :| [] )
+                          ( ParamNamed Nothing ( Name "v$508" ) :| [] )
                           ( AbsN Nothing
-                            ( ParamNamed Nothing ( Name "s$521" ) :| [] )
+                            ( ParamNamed Nothing ( Name "s$509" ) :| [] )
                             ( AppN Nothing
                               ( AppN Nothing
                                 ( ObjectProp Nothing
@@ -334,26 +334,26 @@ UberModule
                                   ( PropName "map" )
                                 )
                                 ( AbsN Nothing
-                                  ( ParamNamed Nothing ( Name "v1$522" ) :| [] )
+                                  ( ParamNamed Nothing ( Name "v1$510" ) :| [] )
                                   ( AppN Nothing
                                     ( Ref Nothing
                                       ( Imported ( ModuleName "Data.Tuple" ) ( Name "Tuple$w" ) )
                                     )
                                     ( AppN Nothing
-                                      ( Ref Nothing ( Local ( Name "f$519" ) ) )
+                                      ( Ref Nothing ( Local ( Name "f$507" ) ) )
                                       ( DataArgumentByIndex Nothing ProductType 0
-                                        ( Ref Nothing ( Local ( Name "v1$522" ) ) ) :| []
+                                        ( Ref Nothing ( Local ( Name "v1$510" ) ) ) :| []
                                       ) :|
                                       [ DataArgumentByIndex Nothing ProductType 1
-                                        ( Ref Nothing ( Local ( Name "v1$522" ) ) )
+                                        ( Ref Nothing ( Local ( Name "v1$510" ) ) )
                                       ]
                                     )
                                   ) :| []
                                 )
                               )
                               ( AppN Nothing
-                                ( Ref Nothing ( Local ( Name "v$520" ) ) )
-                                ( Ref Nothing ( Local ( Name "s$521" ) ) :| [] ) :| []
+                                ( Ref Nothing ( Local ( Name "v$508" ) ) )
+                                ( Ref Nothing ( Local ( Name "s$509" ) ) :| [] ) :| []
                               )
                             )
                           )
@@ -420,44 +420,31 @@ UberModule
         )
         ( Ref Nothing ( Imported ( ModuleName "Data.Identity" ) ( Name "monadIdentity" ) ) :| [] )
       ), Standalone
-      ( QName
-        { qnameModuleName = ModuleName "Golden.LongStateBind.Test", qnameName = Name "bind"
-        }, ObjectProp Nothing
-        ( Ref Nothing
-          ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "bindStateT" ) )
-        )
-        ( PropName "bind" )
-      ), Standalone
       ( QName
         { qnameModuleName = ModuleName "Golden.LongStateBind.Test", qnameName = Name "get"
         }, AbsN Nothing
-        ( ParamNamed Nothing ( Name "x$1758" ) :| [] )
+        ( ParamNamed Nothing ( Name "x$2499" ) :| [] )
         ( AppN Nothing
           ( Ref Nothing ( Imported ( ModuleName "Data.Tuple" ) ( Name "Tuple$w" ) ) )
-          ( Ref Nothing ( Local ( Name "x$1758" ) ) :| [ Ref Nothing ( Local ( Name "x$1758" ) ) ] )
-        )
-      ), Standalone
-      ( QName
-        { qnameModuleName = ModuleName "Golden.LongStateBind.Test", qnameName = Name "discard"
-        }, ObjectProp Nothing
-        ( Ref Nothing
-          ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "bindStateT" ) )
+          ( Ref Nothing ( Local ( Name "x$2499" ) ) :| [ Ref Nothing ( Local ( Name "x$2499" ) ) ] )
         )
-        ( PropName "bind" )
       ), Standalone
       ( QName
         { qnameModuleName = ModuleName "Golden.LongStateBind.Test", qnameName = Name "go"
         }, Let Nothing
         ( Standalone
-          ( Nothing, Name "$kont1768$w", AbsN Nothing
+          ( Nothing, Name "$kont2511$w", AbsN Nothing
             ( ParamNamed Nothing
-              ( Name "x1$1769" ) :|
-              [ ParamNamed Nothing ( Name "x100$1770" ) ]
+              ( Name "x1$2512" ) :|
+              [ ParamNamed Nothing ( Name "x100$2513" ) ]
             )
             ( AppN Nothing
               ( AppN Nothing
-                ( Ref Nothing
-                  ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "bind" ) )
+                ( ObjectProp Nothing
+                  ( Ref Nothing
+                    ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "bindStateT" ) )
+                  )
+                  ( PropName "bind" )
                 )
                 ( Ref Nothing
                   ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "get" ) ) :| []
@@ -467,8 +454,14 @@ UberModule
                 ( ParamNamed Nothing ( Name "x141" ) :| [] )
                 ( AppN Nothing
                   ( AppN Nothing
-                    ( Ref Nothing
-                      ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "discard" ) )
+                    ( ObjectProp Nothing
+                      ( Ref Nothing
+                        ( Imported
+                          ( ModuleName "Golden.LongStateBind.Test" )
+                          ( Name "bindStateT" )
+                        )
+                      )
+                      ( PropName "bind" )
                     )
                     ( AbsN Nothing
                       ( ParamUnused Nothing :| [] )
@@ -488,8 +481,14 @@ UberModule
                     ( ParamUnused Nothing :| [] )
                     ( AppN Nothing
                       ( AppN Nothing
-                        ( Ref Nothing
-                          ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "bind" ) )
+                        ( ObjectProp Nothing
+                          ( Ref Nothing
+                            ( Imported
+                              ( ModuleName "Golden.LongStateBind.Test" )
+                              ( Name "bindStateT" )
+                            )
+                          )
+                          ( PropName "bind" )
                         )
                         ( Ref Nothing
                           ( Imported
@@ -502,11 +501,14 @@ UberModule
                         ( ParamNamed Nothing ( Name "x142" ) :| [] )
                         ( AppN Nothing
                           ( AppN Nothing
-                            ( Ref Nothing
-                              ( Imported
-                                ( ModuleName "Golden.LongStateBind.Test" )
-                                ( Name "discard" )
+                            ( ObjectProp Nothing
+                              ( Ref Nothing
+                                ( Imported
+                                  ( ModuleName "Golden.LongStateBind.Test" )
+                                  ( Name "bindStateT" )
+                                )
                               )
+                              ( PropName "bind" )
                             )
                             ( AbsN Nothing
                               ( ParamUnused Nothing :| [] )
@@ -528,11 +530,14 @@ UberModule
                             ( ParamUnused Nothing :| [] )
                             ( AppN Nothing
                               ( AppN Nothing
-                                ( Ref Nothing
-                                  ( Imported
-                                    ( ModuleName "Golden.LongStateBind.Test" )
-                                    ( Name "bind" )
+                                ( ObjectProp Nothing
+                                  ( Ref Nothing
+                                    ( Imported
+                                      ( ModuleName "Golden.LongStateBind.Test" )
+                                      ( Name "bindStateT" )
+                                    )
                                   )
+                                  ( PropName "bind" )
                                 )
                                 ( Ref Nothing
                                   ( Imported
@@ -545,11 +550,14 @@ UberModule
                                 ( ParamNamed Nothing ( Name "x143" ) :| [] )
                                 ( AppN Nothing
                                   ( AppN Nothing
-                                    ( Ref Nothing
-                                      ( Imported
-                                        ( ModuleName "Golden.LongStateBind.Test" )
-                                        ( Name "discard" )
+                                    ( ObjectProp Nothing
+                                      ( Ref Nothing
+                                        ( Imported
+                                          ( ModuleName "Golden.LongStateBind.Test" )
+                                          ( Name "bindStateT" )
+                                        )
                                       )
+                                      ( PropName "bind" )
                                     )
                                     ( AbsN Nothing
                                       ( ParamUnused Nothing :| [] )
@@ -577,11 +585,14 @@ UberModule
                                     ( ParamUnused Nothing :| [] )
                                     ( AppN Nothing
                                       ( AppN Nothing
-                                        ( Ref Nothing
-                                          ( Imported
-                                            ( ModuleName "Golden.LongStateBind.Test" )
-                                            ( Name "bind" )
+                                        ( ObjectProp Nothing
+                                          ( Ref Nothing
+                                            ( Imported
+                                              ( ModuleName "Golden.LongStateBind.Test" )
+                                              ( Name "bindStateT" )
+                                            )
                                           )
+                                          ( PropName "bind" )
                                         )
                                         ( Ref Nothing
                                           ( Imported
@@ -594,11 +605,14 @@ UberModule
                                         ( ParamNamed Nothing ( Name "x144" ) :| [] )
                                         ( AppN Nothing
                                           ( AppN Nothing
-                                            ( Ref Nothing
-                                              ( Imported
-                                                ( ModuleName "Golden.LongStateBind.Test" )
-                                                ( Name "discard" )
+                                            ( ObjectProp Nothing
+                                              ( Ref Nothing
+                                                ( Imported
+                                                  ( ModuleName "Golden.LongStateBind.Test" )
+                                                  ( Name "bindStateT" )
+                                                )
                                               )
+                                              ( PropName "bind" )
                                             )
                                             ( AbsN Nothing
                                               ( ParamUnused Nothing :| [] )
@@ -626,11 +640,14 @@ UberModule
                                             ( ParamUnused Nothing :| [] )
                                             ( AppN Nothing
                                               ( AppN Nothing
-                                                ( Ref Nothing
-                                                  ( Imported
-                                                    ( ModuleName "Golden.LongStateBind.Test" )
-                                                    ( Name "bind" )
+                                                ( ObjectProp Nothing
+                                                  ( Ref Nothing
+                                                    ( Imported
+                                                      ( ModuleName "Golden.LongStateBind.Test" )
+                                                      ( Name "bindStateT" )
+                                                    )
                                                   )
+                                                  ( PropName "bind" )
                                                 )
                                                 ( Ref Nothing
                                                   ( Imported
@@ -643,11 +660,14 @@ UberModule
                                                 ( ParamNamed Nothing ( Name "x145" ) :| [] )
                                                 ( AppN Nothing
                                                   ( AppN Nothing
-                                                    ( Ref Nothing
-                                                      ( Imported
-                                                        ( ModuleName "Golden.LongStateBind.Test" )
-                                                        ( Name "discard" )
+                                                    ( ObjectProp Nothing
+                                                      ( Ref Nothing
+                                                        ( Imported
+                                                          ( ModuleName "Golden.LongStateBind.Test" )
+                                                          ( Name "bindStateT" )
+                                                        )
                                                       )
+                                                      ( PropName "bind" )
                                                     )
                                                     ( AbsN Nothing
                                                       ( ParamUnused Nothing :| [] )
@@ -677,11 +697,14 @@ UberModule
                                                     ( ParamUnused Nothing :| [] )
                                                     ( AppN Nothing
                                                       ( AppN Nothing
-                                                        ( Ref Nothing
-                                                          ( Imported
-                                                            ( ModuleName "Golden.LongStateBind.Test" )
-                                                            ( Name "bind" )
+                                                        ( ObjectProp Nothing
+                                                          ( Ref Nothing
+                                                            ( Imported
+                                                              ( ModuleName "Golden.LongStateBind.Test" )
+                                                              ( Name "bindStateT" )
+                                                            )
                                                           )
+                                                          ( PropName "bind" )
                                                         )
                                                         ( Ref Nothing
                                                           ( Imported
@@ -696,11 +719,14 @@ UberModule
                                                         )
                                                         ( AppN Nothing
                                                           ( AppN Nothing
-                                                            ( Ref Nothing
-                                                              ( Imported
-                                                                ( ModuleName "Golden.LongStateBind.Test" )
-                                                                ( Name "discard" )
+                                                            ( ObjectProp Nothing
+                                                              ( Ref Nothing
+                                                                ( Imported
+                                                                  ( ModuleName "Golden.LongStateBind.Test" )
+                                                                  ( Name "bindStateT" )
+                                                                )
                                                               )
+                                                              ( PropName "bind" )
                                                             )
                                                             ( AbsN Nothing
                                                               ( ParamUnused Nothing :| [] )
@@ -730,11 +756,14 @@ UberModule
                                                             ( ParamUnused Nothing :| [] )
                                                             ( AppN Nothing
                                                               ( AppN Nothing
-                                                                ( Ref Nothing
-                                                                  ( Imported
-                                                                    ( ModuleName "Golden.LongStateBind.Test" )
-                                                                    ( Name "bind" )
+                                                                ( ObjectProp Nothing
+                                                                  ( Ref Nothing
+                                                                    ( Imported
+                                                                      ( ModuleName "Golden.LongStateBind.Test" )
+                                                                      ( Name "bindStateT" )
+                                                                    )
                                                                   )
+                                                                  ( PropName "bind" )
                                                                 )
                                                                 ( Ref Nothing
                                                                   ( Imported
@@ -749,11 +778,14 @@ UberModule
                                                                 )
                                                                 ( AppN Nothing
                                                                   ( AppN Nothing
-                                                                    ( Ref Nothing
-                                                                      ( Imported
-                                                                        ( ModuleName "Golden.LongStateBind.Test" )
-                                                                        ( Name "discard" )
+                                                                    ( ObjectProp Nothing
+                                                                      ( Ref Nothing
+                                                                        ( Imported
+                                                                          ( ModuleName "Golden.LongStateBind.Test" )
+                                                                          ( Name "bindStateT" )
+                                                                        )
                                                                       )
+                                                                      ( PropName "bind" )
                                                                     )
                                                                     ( AbsN Nothing
                                                                       ( ParamUnused Nothing :| [] )
@@ -785,11 +817,14 @@ UberModule
                                                                     ( ParamUnused Nothing :| [] )
                                                                     ( AppN Nothing
                                                                       ( AppN Nothing
-                                                                        ( Ref Nothing
-                                                                          ( Imported
-                                                                            ( ModuleName "Golden.LongStateBind.Test" )
-                                                                            ( Name "bind" )
+                                                                        ( ObjectProp Nothing
+                                                                          ( Ref Nothing
+                                                                            ( Imported
+                                                                              ( ModuleName "Golden.LongStateBind.Test" )
+                                                                              ( Name "bindStateT" )
+                                                                            )
                                                                           )
+                                                                          ( PropName "bind" )
                                                                         )
                                                                         ( Ref Nothing
                                                                           ( Imported
@@ -804,11 +839,14 @@ UberModule
                                                                         )
                                                                         ( AppN Nothing
                                                                           ( AppN Nothing
-                                                                            ( Ref Nothing
-                                                                              ( Imported
-                                                                                ( ModuleName "Golden.LongStateBind.Test" )
-                                                                                ( Name "discard" )
+                                                                            ( ObjectProp Nothing
+                                                                              ( Ref Nothing
+                                                                                ( Imported
+                                                                                  ( ModuleName "Golden.LongStateBind.Test" )
+                                                                                  ( Name "bindStateT" )
+                                                                                )
                                                                               )
+                                                                              ( PropName "bind" )
                                                                             )
                                                                             ( AbsN Nothing
                                                                               ( ParamUnused Nothing :| [] )
@@ -840,11 +878,14 @@ UberModule
                                                                             ( ParamUnused Nothing :| [] )
                                                                             ( AppN Nothing
                                                                               ( AppN Nothing
-                                                                                ( Ref Nothing
-                                                                                  ( Imported
-                                                                                    ( ModuleName "Golden.LongStateBind.Test" )
-                                                                                    ( Name "bind" )
+                                                                                ( ObjectProp Nothing
+                                                                                  ( Ref Nothing
+                                                                                    ( Imported
+                                                                                      ( ModuleName "Golden.LongStateBind.Test" )
+                                                                                      ( Name "bindStateT" )
+                                                                                    )
                                                                                   )
+                                                                                  ( PropName "bind" )
                                                                                 )
                                                                                 ( Ref Nothing
                                                                                   ( Imported
@@ -859,11 +900,14 @@ UberModule
                                                                                 )
                                                                                 ( AppN Nothing
                                                                                   ( AppN Nothing
-                                                                                    ( Ref Nothing
-                                                                                      ( Imported
-                                                                                        ( ModuleName "Golden.LongStateBind.Test" )
-                                                                                        ( Name "discard" )
+                                                                                    ( ObjectProp Nothing
+                                                                                      ( Ref Nothing
+                                                                                        ( Imported
+                                                                                          ( ModuleName "Golden.LongStateBind.Test" )
+                                                                                          ( Name "bindStateT" )
+                                                                                        )
                                                                                       )
+                                                                                      ( PropName "bind" )
                                                                                     )
                                                                                     ( AbsN Nothing
                                                                                       ( ParamUnused Nothing :| [] )
@@ -895,11 +939,14 @@ UberModule
                                                                                     ( ParamUnused Nothing :| [] )
                                                                                     ( AppN Nothing
                                                                                       ( AppN Nothing
-                                                                                        ( Ref Nothing
-                                                                                          ( Imported
-                                                                                            ( ModuleName "Golden.LongStateBind.Test" )
-                                                                                            ( Name "bind" )
+                                                                                        ( ObjectProp Nothing
+                                                                                          ( Ref Nothing
+                                                                                            ( Imported
+                                                                                              ( ModuleName "Golden.LongStateBind.Test" )
+                                                                                              ( Name "bindStateT" )
+                                                                                            )
                                                                                           )
+                                                                                          ( PropName "bind" )
                                                                                         )
                                                                                         ( Ref Nothing
                                                                                           ( Imported
@@ -914,11 +961,14 @@ UberModule
                                                                                         )
                                                                                         ( AppN Nothing
                                                                                           ( AppN Nothing
-                                                                                            ( Ref Nothing
-                                                                                              ( Imported
-                                                                                                ( ModuleName "Golden.LongStateBind.Test" )
-                                                                                                ( Name "discard" )
+                                                                                            ( ObjectProp Nothing
+                                                                                              ( Ref Nothing
+                                                                                                ( Imported
+                                                                                                  ( ModuleName "Golden.LongStateBind.Test" )
+                                                                                                  ( Name "bindStateT" )
+                                                                                                )
                                                                                               )
+                                                                                              ( PropName "bind" )
                                                                                             )
                                                                                             ( AbsN Nothing
                                                                                               ( ParamUnused Nothing :| [] )
@@ -950,11 +1000,14 @@ UberModule
                                                                                             ( ParamUnused Nothing :| [] )
                                                                                             ( AppN Nothing
                                                                                               ( AppN Nothing
-                                                                                                ( Ref Nothing
-                                                                                                  ( Imported
-                                                                                                    ( ModuleName "Golden.LongStateBind.Test" )
-                                                                                                    ( Name "bind" )
+                                                                                                ( ObjectProp Nothing
+                                                                                                  ( Ref Nothing
+                                                                                                    ( Imported
+                                                                                                      ( ModuleName "Golden.LongStateBind.Test" )
+                                                                                                      ( Name "bindStateT" )
+                                                                                                    )
                                                                                                   )
+                                                                                                  ( PropName "bind" )
                                                                                                 )
                                                                                                 ( Ref Nothing
                                                                                                   ( Imported
@@ -989,12 +1042,12 @@ UberModule
                                                                                                     ( PrimBinOp Nothing PrimAdd
                                                                                                       ( Ref Nothing
                                                                                                         ( Local
-                                                                                                          ( Name "x1$1769" )
+                                                                                                          ( Name "x1$2512" )
                                                                                                         )
                                                                                                       )
                                                                                                       ( Ref Nothing
                                                                                                         ( Local
-                                                                                                          ( Name "x100$1770" )
+                                                                                                          ( Name "x100$2513" )
                                                                                                         )
                                                                                                       )
                                                                                                     )
@@ -1049,15 +1102,18 @@ UberModule
             )
           ) :|
           [ Standalone
-            ( Nothing, Name "$kont1771$w", AbsN Nothing
+            ( Nothing, Name "$kont2514$w", AbsN Nothing
               ( ParamNamed Nothing
-                ( Name "x1$1772" ) :|
-                [ ParamNamed Nothing ( Name "x100$1773" ) ]
+                ( Name "x1$2515" ) :|
+                [ ParamNamed Nothing ( Name "x100$2516" ) ]
               )
               ( AppN Nothing
                 ( AppN Nothing
-                  ( Ref Nothing
-                    ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "bind" ) )
+                  ( ObjectProp Nothing
+                    ( Ref Nothing
+                      ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "bindStateT" ) )
+                    )
+                    ( PropName "bind" )
                   )
                   ( Ref Nothing
                     ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "get" ) ) :| []
@@ -1067,8 +1123,14 @@ UberModule
                   ( ParamNamed Nothing ( Name "x121" ) :| [] )
                   ( AppN Nothing
                     ( AppN Nothing
-                      ( Ref Nothing
-                        ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "discard" ) )
+                      ( ObjectProp Nothing
+                        ( Ref Nothing
+                          ( Imported
+                            ( ModuleName "Golden.LongStateBind.Test" )
+                            ( Name "bindStateT" )
+                          )
+                        )
+                        ( PropName "bind" )
                       )
                       ( AbsN Nothing
                         ( ParamUnused Nothing :| [] )
@@ -1090,8 +1152,14 @@ UberModule
                       ( ParamUnused Nothing :| [] )
                       ( AppN Nothing
                         ( AppN Nothing
-                          ( Ref Nothing
-                            ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "bind" ) )
+                          ( ObjectProp Nothing
+                            ( Ref Nothing
+                              ( Imported
+                                ( ModuleName "Golden.LongStateBind.Test" )
+                                ( Name "bindStateT" )
+                              )
+                            )
+                            ( PropName "bind" )
                           )
                           ( Ref Nothing
                             ( Imported
@@ -1104,11 +1172,14 @@ UberModule
                           ( ParamNamed Nothing ( Name "x122" ) :| [] )
                           ( AppN Nothing
                             ( AppN Nothing
-                              ( Ref Nothing
-                                ( Imported
-                                  ( ModuleName "Golden.LongStateBind.Test" )
-                                  ( Name "discard" )
+                              ( ObjectProp Nothing
+                                ( Ref Nothing
+                                  ( Imported
+                                    ( ModuleName "Golden.LongStateBind.Test" )
+                                    ( Name "bindStateT" )
+                                  )
                                 )
+                                ( PropName "bind" )
                               )
                               ( AbsN Nothing
                                 ( ParamUnused Nothing :| [] )
@@ -1130,11 +1201,14 @@ UberModule
                               ( ParamUnused Nothing :| [] )
                               ( AppN Nothing
                                 ( AppN Nothing
-                                  ( Ref Nothing
-                                    ( Imported
-                                      ( ModuleName "Golden.LongStateBind.Test" )
-                                      ( Name "bind" )
+                                  ( ObjectProp Nothing
+                                    ( Ref Nothing
+                                      ( Imported
+                                        ( ModuleName "Golden.LongStateBind.Test" )
+                                        ( Name "bindStateT" )
+                                      )
                                     )
+                                    ( PropName "bind" )
                                   )
                                   ( Ref Nothing
                                     ( Imported
@@ -1147,11 +1221,14 @@ UberModule
                                   ( ParamNamed Nothing ( Name "x123" ) :| [] )
                                   ( AppN Nothing
                                     ( AppN Nothing
-                                      ( Ref Nothing
-                                        ( Imported
-                                          ( ModuleName "Golden.LongStateBind.Test" )
-                                          ( Name "discard" )
+                                      ( ObjectProp Nothing
+                                        ( Ref Nothing
+                                          ( Imported
+                                            ( ModuleName "Golden.LongStateBind.Test" )
+                                            ( Name "bindStateT" )
+                                          )
                                         )
+                                        ( PropName "bind" )
                                       )
                                       ( AbsN Nothing
                                         ( ParamUnused Nothing :| [] )
@@ -1179,11 +1256,14 @@ UberModule
                                       ( ParamUnused Nothing :| [] )
                                       ( AppN Nothing
                                         ( AppN Nothing
-                                          ( Ref Nothing
-                                            ( Imported
-                                              ( ModuleName "Golden.LongStateBind.Test" )
-                                              ( Name "bind" )
+                                          ( ObjectProp Nothing
+                                            ( Ref Nothing
+                                              ( Imported
+                                                ( ModuleName "Golden.LongStateBind.Test" )
+                                                ( Name "bindStateT" )
+                                              )
                                             )
+                                            ( PropName "bind" )
                                           )
                                           ( Ref Nothing
                                             ( Imported
@@ -1196,11 +1276,14 @@ UberModule
                                           ( ParamNamed Nothing ( Name "x124" ) :| [] )
                                           ( AppN Nothing
                                             ( AppN Nothing
-                                              ( Ref Nothing
-                                                ( Imported
-                                                  ( ModuleName "Golden.LongStateBind.Test" )
-                                                  ( Name "discard" )
+                                              ( ObjectProp Nothing
+                                                ( Ref Nothing
+                                                  ( Imported
+                                                    ( ModuleName "Golden.LongStateBind.Test" )
+                                                    ( Name "bindStateT" )
+                                                  )
                                                 )
+                                                ( PropName "bind" )
                                               )
                                               ( AbsN Nothing
                                                 ( ParamUnused Nothing :| [] )
@@ -1228,11 +1311,14 @@ UberModule
                                               ( ParamUnused Nothing :| [] )
                                               ( AppN Nothing
                                                 ( AppN Nothing
-                                                  ( Ref Nothing
-                                                    ( Imported
-                                                      ( ModuleName "Golden.LongStateBind.Test" )
-                                                      ( Name "bind" )
+                                                  ( ObjectProp Nothing
+                                                    ( Ref Nothing
+                                                      ( Imported
+                                                        ( ModuleName "Golden.LongStateBind.Test" )
+                                                        ( Name "bindStateT" )
+                                                      )
                                                     )
+                                                    ( PropName "bind" )
                                                   )
                                                   ( Ref Nothing
                                                     ( Imported
@@ -1245,11 +1331,14 @@ UberModule
                                                   ( ParamNamed Nothing ( Name "x125" ) :| [] )
                                                   ( AppN Nothing
                                                     ( AppN Nothing
-                                                      ( Ref Nothing
-                                                        ( Imported
-                                                          ( ModuleName "Golden.LongStateBind.Test" )
-                                                          ( Name "discard" )
+                                                      ( ObjectProp Nothing
+                                                        ( Ref Nothing
+                                                          ( Imported
+                                                            ( ModuleName "Golden.LongStateBind.Test" )
+                                                            ( Name "bindStateT" )
+                                                          )
                                                         )
+                                                        ( PropName "bind" )
                                                       )
                                                       ( AbsN Nothing
                                                         ( ParamUnused Nothing :| [] )
@@ -1279,11 +1368,14 @@ UberModule
                                                       ( ParamUnused Nothing :| [] )
                                                       ( AppN Nothing
                                                         ( AppN Nothing
-                                                          ( Ref Nothing
-                                                            ( Imported
-                                                              ( ModuleName "Golden.LongStateBind.Test" )
-                                                              ( Name "bind" )
+                                                          ( ObjectProp Nothing
+                                                            ( Ref Nothing
+                                                              ( Imported
+                                                                ( ModuleName "Golden.LongStateBind.Test" )
+                                                                ( Name "bindStateT" )
+                                                              )
                                                             )
+                                                            ( PropName "bind" )
                                                           )
                                                           ( Ref Nothing
                                                             ( Imported
@@ -1298,11 +1390,14 @@ UberModule
                                                           )
                                                           ( AppN Nothing
                                                             ( AppN Nothing
-                                                              ( Ref Nothing
-                                                                ( Imported
-                                                                  ( ModuleName "Golden.LongStateBind.Test" )
-                                                                  ( Name "discard" )
+                                                              ( ObjectProp Nothing
+                                                                ( Ref Nothing
+                                                                  ( Imported
+                                                                    ( ModuleName "Golden.LongStateBind.Test" )
+                                                                    ( Name "bindStateT" )
+                                                                  )
                                                                 )
+                                                                ( PropName "bind" )
                                                               )
                                                               ( AbsN Nothing
                                                                 ( ParamUnused Nothing :| [] )
@@ -1332,11 +1427,14 @@ UberModule
                                                               ( ParamUnused Nothing :| [] )
                                                               ( AppN Nothing
                                                                 ( AppN Nothing
-                                                                  ( Ref Nothing
-                                                                    ( Imported
-                                                                      ( ModuleName "Golden.LongStateBind.Test" )
-                                                                      ( Name "bind" )
+                                                                  ( ObjectProp Nothing
+                                                                    ( Ref Nothing
+                                                                      ( Imported
+                                                                        ( ModuleName "Golden.LongStateBind.Test" )
+                                                                        ( Name "bindStateT" )
+                                                                      )
                                                                     )
+                                                                    ( PropName "bind" )
                                                                   )
                                                                   ( Ref Nothing
                                                                     ( Imported
@@ -1351,11 +1449,14 @@ UberModule
                                                                   )
                                                                   ( AppN Nothing
                                                                     ( AppN Nothing
-                                                                      ( Ref Nothing
-                                                                        ( Imported
-                                                                          ( ModuleName "Golden.LongStateBind.Test" )
-                                                                          ( Name "discard" )
+                                                                      ( ObjectProp Nothing
+                                                                        ( Ref Nothing
+                                                                          ( Imported
+                                                                            ( ModuleName "Golden.LongStateBind.Test" )
+                                                                            ( Name "bindStateT" )
+                                                                          )
                                                                         )
+                                                                        ( PropName "bind" )
                                                                       )
                                                                       ( AbsN Nothing
                                                                         ( ParamUnused Nothing :| [] )
@@ -1387,12 +1488,15 @@ UberModule
                                                                       ( ParamUnused Nothing :| [] )
                                                                       ( AppN Nothing
                                                                         ( AppN Nothing
-                                                                          ( Ref Nothing
-                                                                            ( Imported
-                                                                              ( ModuleName "Golden.LongStateBind.Test" )
-                                                                              ( Name "bind" )
-                                                                            )
-                                                                          )
+                                                                          ( ObjectProp Nothing
+                                                                            ( Ref Nothing
+                                                                              ( Imported
+                                                                                ( ModuleName "Golden.LongStateBind.Test" )
+                                                                                ( Name "bindStateT" )
+                                                                              )
+                                                                            )
+                                                                            ( PropName "bind" )
+                                                                          )
                                                                           ( Ref Nothing
                                                                             ( Imported
                                                                               ( ModuleName "Golden.LongStateBind.Test" )
@@ -1406,11 +1510,14 @@ UberModule
                                                                           )
                                                                           ( AppN Nothing
                                                                             ( AppN Nothing
-                                                                              ( Ref Nothing
-                                                                                ( Imported
-                                                                                  ( ModuleName "Golden.LongStateBind.Test" )
-                                                                                  ( Name "discard" )
+                                                                              ( ObjectProp Nothing
+                                                                                ( Ref Nothing
+                                                                                  ( Imported
+                                                                                    ( ModuleName "Golden.LongStateBind.Test" )
+                                                                                    ( Name "bindStateT" )
+                                                                                  )
                                                                                 )
+                                                                                ( PropName "bind" )
                                                                               )
                                                                               ( AbsN Nothing
                                                                                 ( ParamUnused Nothing :| [] )
@@ -1442,11 +1549,14 @@ UberModule
                                                                               ( ParamUnused Nothing :| [] )
                                                                               ( AppN Nothing
                                                                                 ( AppN Nothing
-                                                                                  ( Ref Nothing
-                                                                                    ( Imported
-                                                                                      ( ModuleName "Golden.LongStateBind.Test" )
-                                                                                      ( Name "bind" )
+                                                                                  ( ObjectProp Nothing
+                                                                                    ( Ref Nothing
+                                                                                      ( Imported
+                                                                                        ( ModuleName "Golden.LongStateBind.Test" )
+                                                                                        ( Name "bindStateT" )
+                                                                                      )
                                                                                     )
+                                                                                    ( PropName "bind" )
                                                                                   )
                                                                                   ( Ref Nothing
                                                                                     ( Imported
@@ -1461,11 +1571,14 @@ UberModule
                                                                                   )
                                                                                   ( AppN Nothing
                                                                                     ( AppN Nothing
-                                                                                      ( Ref Nothing
-                                                                                        ( Imported
-                                                                                          ( ModuleName "Golden.LongStateBind.Test" )
-                                                                                          ( Name "discard" )
+                                                                                      ( ObjectProp Nothing
+                                                                                        ( Ref Nothing
+                                                                                          ( Imported
+                                                                                            ( ModuleName "Golden.LongStateBind.Test" )
+                                                                                            ( Name "bindStateT" )
+                                                                                          )
                                                                                         )
+                                                                                        ( PropName "bind" )
                                                                                       )
                                                                                       ( AbsN Nothing
                                                                                         ( ParamUnused Nothing :| [] )
@@ -1497,11 +1610,14 @@ UberModule
                                                                                       ( ParamUnused Nothing :| [] )
                                                                                       ( AppN Nothing
                                                                                         ( AppN Nothing
-                                                                                          ( Ref Nothing
-                                                                                            ( Imported
-                                                                                              ( ModuleName "Golden.LongStateBind.Test" )
-                                                                                              ( Name "bind" )
+                                                                                          ( ObjectProp Nothing
+                                                                                            ( Ref Nothing
+                                                                                              ( Imported
+                                                                                                ( ModuleName "Golden.LongStateBind.Test" )
+                                                                                                ( Name "bindStateT" )
+                                                                                              )
                                                                                             )
+                                                                                            ( PropName "bind" )
                                                                                           )
                                                                                           ( Ref Nothing
                                                                                             ( Imported
@@ -1516,11 +1632,14 @@ UberModule
                                                                                           )
                                                                                           ( AppN Nothing
                                                                                             ( AppN Nothing
-                                                                                              ( Ref Nothing
-                                                                                                ( Imported
-                                                                                                  ( ModuleName "Golden.LongStateBind.Test" )
-                                                                                                  ( Name "discard" )
+                                                                                              ( ObjectProp Nothing
+                                                                                                ( Ref Nothing
+                                                                                                  ( Imported
+                                                                                                    ( ModuleName "Golden.LongStateBind.Test" )
+                                                                                                    ( Name "bindStateT" )
+                                                                                                  )
                                                                                                 )
+                                                                                                ( PropName "bind" )
                                                                                               )
                                                                                               ( AbsN Nothing
                                                                                                 ( ParamUnused Nothing :| [] )
@@ -1552,11 +1671,14 @@ UberModule
                                                                                               ( ParamUnused Nothing :| [] )
                                                                                               ( AppN Nothing
                                                                                                 ( AppN Nothing
-                                                                                                  ( Ref Nothing
-                                                                                                    ( Imported
-                                                                                                      ( ModuleName "Golden.LongStateBind.Test" )
-                                                                                                      ( Name "bind" )
+                                                                                                  ( ObjectProp Nothing
+                                                                                                    ( Ref Nothing
+                                                                                                      ( Imported
+                                                                                                        ( ModuleName "Golden.LongStateBind.Test" )
+                                                                                                        ( Name "bindStateT" )
+                                                                                                      )
                                                                                                     )
+                                                                                                    ( PropName "bind" )
                                                                                                   )
                                                                                                   ( Ref Nothing
                                                                                                     ( Imported
@@ -1571,11 +1693,14 @@ UberModule
                                                                                                   )
                                                                                                   ( AppN Nothing
                                                                                                     ( AppN Nothing
-                                                                                                      ( Ref Nothing
-                                                                                                        ( Imported
-                                                                                                          ( ModuleName "Golden.LongStateBind.Test" )
-                                                                                                          ( Name "discard" )
+                                                                                                      ( ObjectProp Nothing
+                                                                                                        ( Ref Nothing
+                                                                                                          ( Imported
+                                                                                                            ( ModuleName "Golden.LongStateBind.Test" )
+                                                                                                            ( Name "bindStateT" )
+                                                                                                          )
                                                                                                         )
+                                                                                                        ( PropName "bind" )
                                                                                                       )
                                                                                                       ( AbsN Nothing
                                                                                                         ( ParamUnused Nothing :| [] )
@@ -1607,11 +1732,14 @@ UberModule
                                                                                                       ( ParamUnused Nothing :| [] )
                                                                                                       ( AppN Nothing
                                                                                                         ( AppN Nothing
-                                                                                                          ( Ref Nothing
-                                                                                                            ( Imported
-                                                                                                              ( ModuleName "Golden.LongStateBind.Test" )
-                                                                                                              ( Name "bind" )
+                                                                                                          ( ObjectProp Nothing
+                                                                                                            ( Ref Nothing
+                                                                                                              ( Imported
+                                                                                                                ( ModuleName "Golden.LongStateBind.Test" )
+                                                                                                                ( Name "bindStateT" )
+                                                                                                              )
                                                                                                             )
+                                                                                                            ( PropName "bind" )
                                                                                                           )
                                                                                                           ( Ref Nothing
                                                                                                             ( Imported
@@ -1626,11 +1754,14 @@ UberModule
                                                                                                           )
                                                                                                           ( AppN Nothing
                                                                                                             ( AppN Nothing
-                                                                                                              ( Ref Nothing
-                                                                                                                ( Imported
-                                                                                                                  ( ModuleName "Golden.LongStateBind.Test" )
-                                                                                                                  ( Name "discard" )
+                                                                                                              ( ObjectProp Nothing
+                                                                                                                ( Ref Nothing
+                                                                                                                  ( Imported
+                                                                                                                    ( ModuleName "Golden.LongStateBind.Test" )
+                                                                                                                    ( Name "bindStateT" )
+                                                                                                                  )
                                                                                                                 )
+                                                                                                                ( PropName "bind" )
                                                                                                               )
                                                                                                               ( AbsN Nothing
                                                                                                                 ( ParamUnused Nothing :| [] )
@@ -1662,11 +1793,14 @@ UberModule
                                                                                                               ( ParamUnused Nothing :| [] )
                                                                                                               ( AppN Nothing
                                                                                                                 ( AppN Nothing
-                                                                                                                  ( Ref Nothing
-                                                                                                                    ( Imported
-                                                                                                                      ( ModuleName "Golden.LongStateBind.Test" )
-                                                                                                                      ( Name "bind" )
+                                                                                                                  ( ObjectProp Nothing
+                                                                                                                    ( Ref Nothing
+                                                                                                                      ( Imported
+                                                                                                                        ( ModuleName "Golden.LongStateBind.Test" )
+                                                                                                                        ( Name "bindStateT" )
+                                                                                                                      )
                                                                                                                     )
+                                                                                                                    ( PropName "bind" )
                                                                                                                   )
                                                                                                                   ( Ref Nothing
                                                                                                                     ( Imported
@@ -1681,11 +1815,14 @@ UberModule
                                                                                                                   )
                                                                                                                   ( AppN Nothing
                                                                                                                     ( AppN Nothing
-                                                                                                                      ( Ref Nothing
-                                                                                                                        ( Imported
-                                                                                                                          ( ModuleName "Golden.LongStateBind.Test" )
-                                                                                                                          ( Name "discard" )
+                                                                                                                      ( ObjectProp Nothing
+                                                                                                                        ( Ref Nothing
+                                                                                                                          ( Imported
+                                                                                                                            ( ModuleName "Golden.LongStateBind.Test" )
+                                                                                                                            ( Name "bindStateT" )
+                                                                                                                          )
                                                                                                                         )
+                                                                                                                        ( PropName "bind" )
                                                                                                                       )
                                                                                                                       ( AbsN Nothing
                                                                                                                         ( ParamUnused Nothing :| [] )
@@ -1717,11 +1854,14 @@ UberModule
                                                                                                                       ( ParamUnused Nothing :| [] )
                                                                                                                       ( AppN Nothing
                                                                                                                         ( AppN Nothing
-                                                                                                                          ( Ref Nothing
-                                                                                                                            ( Imported
-                                                                                                                              ( ModuleName "Golden.LongStateBind.Test" )
-                                                                                                                              ( Name "bind" )
+                                                                                                                          ( ObjectProp Nothing
+                                                                                                                            ( Ref Nothing
+                                                                                                                              ( Imported
+                                                                                                                                ( ModuleName "Golden.LongStateBind.Test" )
+                                                                                                                                ( Name "bindStateT" )
+                                                                                                                              )
                                                                                                                             )
+                                                                                                                            ( PropName "bind" )
                                                                                                                           )
                                                                                                                           ( Ref Nothing
                                                                                                                             ( Imported
@@ -1736,11 +1876,14 @@ UberModule
                                                                                                                           )
                                                                                                                           ( AppN Nothing
                                                                                                                             ( AppN Nothing
-                                                                                                                              ( Ref Nothing
-                                                                                                                                ( Imported
-                                                                                                                                  ( ModuleName "Golden.LongStateBind.Test" )
-                                                                                                                                  ( Name "discard" )
+                                                                                                                              ( ObjectProp Nothing
+                                                                                                                                ( Ref Nothing
+                                                                                                                                  ( Imported
+                                                                                                                                    ( ModuleName "Golden.LongStateBind.Test" )
+                                                                                                                                    ( Name "bindStateT" )
+                                                                                                                                  )
                                                                                                                                 )
+                                                                                                                                ( PropName "bind" )
                                                                                                                               )
                                                                                                                               ( AbsN Nothing
                                                                                                                                 ( ParamUnused Nothing :| [] )
@@ -1772,11 +1915,14 @@ UberModule
                                                                                                                               ( ParamUnused Nothing :| [] )
                                                                                                                               ( AppN Nothing
                                                                                                                                 ( AppN Nothing
-                                                                                                                                  ( Ref Nothing
-                                                                                                                                    ( Imported
-                                                                                                                                      ( ModuleName "Golden.LongStateBind.Test" )
-                                                                                                                                      ( Name "bind" )
+                                                                                                                                  ( ObjectProp Nothing
+                                                                                                                                    ( Ref Nothing
+                                                                                                                                      ( Imported
+                                                                                                                                        ( ModuleName "Golden.LongStateBind.Test" )
+                                                                                                                                        ( Name "bindStateT" )
+                                                                                                                                      )
                                                                                                                                     )
+                                                                                                                                    ( PropName "bind" )
                                                                                                                                   )
                                                                                                                                   ( Ref Nothing
                                                                                                                                     ( Imported
@@ -1791,11 +1937,14 @@ UberModule
                                                                                                                                   )
                                                                                                                                   ( AppN Nothing
                                                                                                                                     ( AppN Nothing
-                                                                                                                                      ( Ref Nothing
-                                                                                                                                        ( Imported
-                                                                                                                                          ( ModuleName "Golden.LongStateBind.Test" )
-                                                                                                                                          ( Name "discard" )
+                                                                                                                                      ( ObjectProp Nothing
+                                                                                                                                        ( Ref Nothing
+                                                                                                                                          ( Imported
+                                                                                                                                            ( ModuleName "Golden.LongStateBind.Test" )
+                                                                                                                                            ( Name "bindStateT" )
+                                                                                                                                          )
                                                                                                                                         )
+                                                                                                                                        ( PropName "bind" )
                                                                                                                                       )
                                                                                                                                       ( AbsN Nothing
                                                                                                                                         ( ParamUnused Nothing :| [] )
@@ -1827,11 +1976,14 @@ UberModule
                                                                                                                                       ( ParamUnused Nothing :| [] )
                                                                                                                                       ( AppN Nothing
                                                                                                                                         ( AppN Nothing
-                                                                                                                                          ( Ref Nothing
-                                                                                                                                            ( Imported
-                                                                                                                                              ( ModuleName "Golden.LongStateBind.Test" )
-                                                                                                                                              ( Name "bind" )
+                                                                                                                                          ( ObjectProp Nothing
+                                                                                                                                            ( Ref Nothing
+                                                                                                                                              ( Imported
+                                                                                                                                                ( ModuleName "Golden.LongStateBind.Test" )
+                                                                                                                                                ( Name "bindStateT" )
+                                                                                                                                              )
                                                                                                                                             )
+                                                                                                                                            ( PropName "bind" )
                                                                                                                                           )
                                                                                                                                           ( Ref Nothing
                                                                                                                                             ( Imported
@@ -1846,11 +1998,14 @@ UberModule
                                                                                                                                           )
                                                                                                                                           ( AppN Nothing
                                                                                                                                             ( AppN Nothing
-                                                                                                                                              ( Ref Nothing
-                                                                                                                                                ( Imported
-                                                                                                                                                  ( ModuleName "Golden.LongStateBind.Test" )
-                                                                                                                                                  ( Name "discard" )
+                                                                                                                                              ( ObjectProp Nothing
+                                                                                                                                                ( Ref Nothing
+                                                                                                                                                  ( Imported
+                                                                                                                                                    ( ModuleName "Golden.LongStateBind.Test" )
+                                                                                                                                                    ( Name "bindStateT" )
+                                                                                                                                                  )
                                                                                                                                                 )
+                                                                                                                                                ( PropName "bind" )
                                                                                                                                               )
                                                                                                                                               ( AbsN Nothing
                                                                                                                                                 ( ParamUnused Nothing :| [] )
@@ -1882,11 +2037,14 @@ UberModule
                                                                                                                                               ( ParamUnused Nothing :| [] )
                                                                                                                                               ( AppN Nothing
                                                                                                                                                 ( AppN Nothing
-                                                                                                                                                  ( Ref Nothing
-                                                                                                                                                    ( Imported
-                                                                                                                                                      ( ModuleName "Golden.LongStateBind.Test" )
-                                                                                                                                                      ( Name "bind" )
+                                                                                                                                                  ( ObjectProp Nothing
+                                                                                                                                                    ( Ref Nothing
+                                                                                                                                                      ( Imported
+                                                                                                                                                        ( ModuleName "Golden.LongStateBind.Test" )
+                                                                                                                                                        ( Name "bindStateT" )
+                                                                                                                                                      )
                                                                                                                                                     )
+                                                                                                                                                    ( PropName "bind" )
                                                                                                                                                   )
                                                                                                                                                   ( Ref Nothing
                                                                                                                                                     ( Imported
@@ -1901,11 +2059,14 @@ UberModule
                                                                                                                                                   )
                                                                                                                                                   ( AppN Nothing
                                                                                                                                                     ( AppN Nothing
-                                                                                                                                                      ( Ref Nothing
-                                                                                                                                                        ( Imported
-                                                                                                                                                          ( ModuleName "Golden.LongStateBind.Test" )
-                                                                                                                                                          ( Name "discard" )
+                                                                                                                                                      ( ObjectProp Nothing
+                                                                                                                                                        ( Ref Nothing
+                                                                                                                                                          ( Imported
+                                                                                                                                                            ( ModuleName "Golden.LongStateBind.Test" )
+                                                                                                                                                            ( Name "bindStateT" )
+                                                                                                                                                          )
                                                                                                                                                         )
+                                                                                                                                                        ( PropName "bind" )
                                                                                                                                                       )
                                                                                                                                                       ( AbsN Nothing
                                                                                                                                                         ( ParamUnused Nothing :| [] )
@@ -1937,11 +2098,14 @@ UberModule
                                                                                                                                                       ( ParamUnused Nothing :| [] )
                                                                                                                                                       ( AppN Nothing
                                                                                                                                                         ( AppN Nothing
-                                                                                                                                                          ( Ref Nothing
-                                                                                                                                                            ( Imported
-                                                                                                                                                              ( ModuleName "Golden.LongStateBind.Test" )
-                                                                                                                                                              ( Name "bind" )
+                                                                                                                                                          ( ObjectProp Nothing
+                                                                                                                                                            ( Ref Nothing
+                                                                                                                                                              ( Imported
+                                                                                                                                                                ( ModuleName "Golden.LongStateBind.Test" )
+                                                                                                                                                                ( Name "bindStateT" )
+                                                                                                                                                              )
                                                                                                                                                             )
+                                                                                                                                                            ( PropName "bind" )
                                                                                                                                                           )
                                                                                                                                                           ( Ref Nothing
                                                                                                                                                             ( Imported
@@ -1956,11 +2120,14 @@ UberModule
                                                                                                                                                           )
                                                                                                                                                           ( AppN Nothing
                                                                                                                                                             ( AppN Nothing
-                                                                                                                                                              ( Ref Nothing
-                                                                                                                                                                ( Imported
-                                                                                                                                                                  ( ModuleName "Golden.LongStateBind.Test" )
-                                                                                                                                                                  ( Name "discard" )
+                                                                                                                                                              ( ObjectProp Nothing
+                                                                                                                                                                ( Ref Nothing
+                                                                                                                                                                  ( Imported
+                                                                                                                                                                    ( ModuleName "Golden.LongStateBind.Test" )
+                                                                                                                                                                    ( Name "bindStateT" )
+                                                                                                                                                                  )
                                                                                                                                                                 )
+                                                                                                                                                                ( PropName "bind" )
                                                                                                                                                               )
                                                                                                                                                               ( AbsN Nothing
                                                                                                                                                                 ( ParamUnused Nothing :| [] )
@@ -1992,11 +2159,14 @@ UberModule
                                                                                                                                                               ( ParamUnused Nothing :| [] )
                                                                                                                                                               ( AppN Nothing
                                                                                                                                                                 ( AppN Nothing
-                                                                                                                                                                  ( Ref Nothing
-                                                                                                                                                                    ( Imported
-                                                                                                                                                                      ( ModuleName "Golden.LongStateBind.Test" )
-                                                                                                                                                                      ( Name "bind" )
+                                                                                                                                                                  ( ObjectProp Nothing
+                                                                                                                                                                    ( Ref Nothing
+                                                                                                                                                                      ( Imported
+                                                                                                                                                                        ( ModuleName "Golden.LongStateBind.Test" )
+                                                                                                                                                                        ( Name "bindStateT" )
+                                                                                                                                                                      )
                                                                                                                                                                     )
+                                                                                                                                                                    ( PropName "bind" )
                                                                                                                                                                   )
                                                                                                                                                                   ( Ref Nothing
                                                                                                                                                                     ( Imported
@@ -2011,11 +2181,14 @@ UberModule
                                                                                                                                                                   )
                                                                                                                                                                   ( AppN Nothing
                                                                                                                                                                     ( AppN Nothing
-                                                                                                                                                                      ( Ref Nothing
-                                                                                                                                                                        ( Imported
-                                                                                                                                                                          ( ModuleName "Golden.LongStateBind.Test" )
-                                                                                                                                                                          ( Name "discard" )
+                                                                                                                                                                      ( ObjectProp Nothing
+                                                                                                                                                                        ( Ref Nothing
+                                                                                                                                                                          ( Imported
+                                                                                                                                                                            ( ModuleName "Golden.LongStateBind.Test" )
+                                                                                                                                                                            ( Name "bindStateT" )
+                                                                                                                                                                          )
                                                                                                                                                                         )
+                                                                                                                                                                        ( PropName "bind" )
                                                                                                                                                                       )
                                                                                                                                                                       ( AbsN Nothing
                                                                                                                                                                         ( ParamUnused Nothing :| [] )
@@ -2047,11 +2220,14 @@ UberModule
                                                                                                                                                                       ( ParamUnused Nothing :| [] )
                                                                                                                                                                       ( AppN Nothing
                                                                                                                                                                         ( AppN Nothing
-                                                                                                                                                                          ( Ref Nothing
-                                                                                                                                                                            ( Imported
-                                                                                                                                                                              ( ModuleName "Golden.LongStateBind.Test" )
-                                                                                                                                                                              ( Name "bind" )
+                                                                                                                                                                          ( ObjectProp Nothing
+                                                                                                                                                                            ( Ref Nothing
+                                                                                                                                                                              ( Imported
+                                                                                                                                                                                ( ModuleName "Golden.LongStateBind.Test" )
+                                                                                                                                                                                ( Name "bindStateT" )
+                                                                                                                                                                              )
                                                                                                                                                                             )
+                                                                                                                                                                            ( PropName "bind" )
                                                                                                                                                                           )
                                                                                                                                                                           ( Ref Nothing
                                                                                                                                                                             ( Imported
@@ -2066,11 +2242,14 @@ UberModule
                                                                                                                                                                           )
                                                                                                                                                                           ( AppN Nothing
                                                                                                                                                                             ( AppN Nothing
-                                                                                                                                                                              ( Ref Nothing
-                                                                                                                                                                                ( Imported
-                                                                                                                                                                                  ( ModuleName "Golden.LongStateBind.Test" )
-                                                                                                                                                                                  ( Name "discard" )
+                                                                                                                                                                              ( ObjectProp Nothing
+                                                                                                                                                                                ( Ref Nothing
+                                                                                                                                                                                  ( Imported
+                                                                                                                                                                                    ( ModuleName "Golden.LongStateBind.Test" )
+                                                                                                                                                                                    ( Name "bindStateT" )
+                                                                                                                                                                                  )
                                                                                                                                                                                 )
+                                                                                                                                                                                ( PropName "bind" )
                                                                                                                                                                               )
                                                                                                                                                                               ( AbsN Nothing
                                                                                                                                                                                 ( ParamUnused Nothing :| [] )
@@ -2103,16 +2282,16 @@ UberModule
                                                                                                                                                                               ( AppN Nothing
                                                                                                                                                                                 ( Ref Nothing
                                                                                                                                                                                   ( Local
-                                                                                                                                                                                    ( Name "$kont1768$w" )
+                                                                                                                                                                                    ( Name "$kont2511$w" )
                                                                                                                                                                                   )
                                                                                                                                                                                 )
                                                                                                                                                                                 ( Ref Nothing
                                                                                                                                                                                   ( Local
-                                                                                                                                                                                    ( Name "x1$1772" )
+                                                                                                                                                                                    ( Name "x1$2515" )
                                                                                                                                                                                   ) :|
                                                                                                                                                                                   [ Ref Nothing
                                                                                                                                                                                     ( Local
-                                                                                                                                                                                      ( Name "x100$1773" )
+                                                                                                                                                                                      ( Name "x100$2516" )
                                                                                                                                                                                     )
                                                                                                                                                                                   ]
                                                                                                                                                                                 )
@@ -2198,15 +2377,18 @@ UberModule
                 )
               )
             ), Standalone
-            ( Nothing, Name "$kont1774$w", AbsN Nothing
+            ( Nothing, Name "$kont2517$w", AbsN Nothing
               ( ParamNamed Nothing
-                ( Name "x1$1775" ) :|
-                [ ParamNamed Nothing ( Name "x100$1776" ) ]
+                ( Name "x1$2518" ) :|
+                [ ParamNamed Nothing ( Name "x100$2519" ) ]
               )
               ( AppN Nothing
                 ( AppN Nothing
-                  ( Ref Nothing
-                    ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "bind" ) )
+                  ( ObjectProp Nothing
+                    ( Ref Nothing
+                      ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "bindStateT" ) )
+                    )
+                    ( PropName "bind" )
                   )
                   ( Ref Nothing
                     ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "get" ) ) :| []
@@ -2216,8 +2398,14 @@ UberModule
                   ( ParamNamed Nothing ( Name "x101" ) :| [] )
                   ( AppN Nothing
                     ( AppN Nothing
-                      ( Ref Nothing
-                        ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "discard" ) )
+                      ( ObjectProp Nothing
+                        ( Ref Nothing
+                          ( Imported
+                            ( ModuleName "Golden.LongStateBind.Test" )
+                            ( Name "bindStateT" )
+                          )
+                        )
+                        ( PropName "bind" )
                       )
                       ( AbsN Nothing
                         ( ParamUnused Nothing :| [] )
@@ -2239,8 +2427,14 @@ UberModule
                       ( ParamUnused Nothing :| [] )
                       ( AppN Nothing
                         ( AppN Nothing
-                          ( Ref Nothing
-                            ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "bind" ) )
+                          ( ObjectProp Nothing
+                            ( Ref Nothing
+                              ( Imported
+                                ( ModuleName "Golden.LongStateBind.Test" )
+                                ( Name "bindStateT" )
+                              )
+                            )
+                            ( PropName "bind" )
                           )
                           ( Ref Nothing
                             ( Imported
@@ -2253,11 +2447,14 @@ UberModule
                           ( ParamNamed Nothing ( Name "x102" ) :| [] )
                           ( AppN Nothing
                             ( AppN Nothing
-                              ( Ref Nothing
-                                ( Imported
-                                  ( ModuleName "Golden.LongStateBind.Test" )
-                                  ( Name "discard" )
+                              ( ObjectProp Nothing
+                                ( Ref Nothing
+                                  ( Imported
+                                    ( ModuleName "Golden.LongStateBind.Test" )
+                                    ( Name "bindStateT" )
+                                  )
                                 )
+                                ( PropName "bind" )
                               )
                               ( AbsN Nothing
                                 ( ParamUnused Nothing :| [] )
@@ -2279,11 +2476,14 @@ UberModule
                               ( ParamUnused Nothing :| [] )
                               ( AppN Nothing
                                 ( AppN Nothing
-                                  ( Ref Nothing
-                                    ( Imported
-                                      ( ModuleName "Golden.LongStateBind.Test" )
-                                      ( Name "bind" )
+                                  ( ObjectProp Nothing
+                                    ( Ref Nothing
+                                      ( Imported
+                                        ( ModuleName "Golden.LongStateBind.Test" )
+                                        ( Name "bindStateT" )
+                                      )
                                     )
+                                    ( PropName "bind" )
                                   )
                                   ( Ref Nothing
                                     ( Imported
@@ -2296,11 +2496,14 @@ UberModule
                                   ( ParamNamed Nothing ( Name "x103" ) :| [] )
                                   ( AppN Nothing
                                     ( AppN Nothing
-                                      ( Ref Nothing
-                                        ( Imported
-                                          ( ModuleName "Golden.LongStateBind.Test" )
-                                          ( Name "discard" )
+                                      ( ObjectProp Nothing
+                                        ( Ref Nothing
+                                          ( Imported
+                                            ( ModuleName "Golden.LongStateBind.Test" )
+                                            ( Name "bindStateT" )
+                                          )
                                         )
+                                        ( PropName "bind" )
                                       )
                                       ( AbsN Nothing
                                         ( ParamUnused Nothing :| [] )
@@ -2328,11 +2531,14 @@ UberModule
                                       ( ParamUnused Nothing :| [] )
                                       ( AppN Nothing
                                         ( AppN Nothing
-                                          ( Ref Nothing
-                                            ( Imported
-                                              ( ModuleName "Golden.LongStateBind.Test" )
-                                              ( Name "bind" )
+                                          ( ObjectProp Nothing
+                                            ( Ref Nothing
+                                              ( Imported
+                                                ( ModuleName "Golden.LongStateBind.Test" )
+                                                ( Name "bindStateT" )
+                                              )
                                             )
+                                            ( PropName "bind" )
                                           )
                                           ( Ref Nothing
                                             ( Imported
@@ -2345,11 +2551,14 @@ UberModule
                                           ( ParamNamed Nothing ( Name "x104" ) :| [] )
                                           ( AppN Nothing
                                             ( AppN Nothing
-                                              ( Ref Nothing
-                                                ( Imported
-                                                  ( ModuleName "Golden.LongStateBind.Test" )
-                                                  ( Name "discard" )
+                                              ( ObjectProp Nothing
+                                                ( Ref Nothing
+                                                  ( Imported
+                                                    ( ModuleName "Golden.LongStateBind.Test" )
+                                                    ( Name "bindStateT" )
+                                                  )
                                                 )
+                                                ( PropName "bind" )
                                               )
                                               ( AbsN Nothing
                                                 ( ParamUnused Nothing :| [] )
@@ -2377,11 +2586,14 @@ UberModule
                                               ( ParamUnused Nothing :| [] )
                                               ( AppN Nothing
                                                 ( AppN Nothing
-                                                  ( Ref Nothing
-                                                    ( Imported
-                                                      ( ModuleName "Golden.LongStateBind.Test" )
-                                                      ( Name "bind" )
+                                                  ( ObjectProp Nothing
+                                                    ( Ref Nothing
+                                                      ( Imported
+                                                        ( ModuleName "Golden.LongStateBind.Test" )
+                                                        ( Name "bindStateT" )
+                                                      )
                                                     )
+                                                    ( PropName "bind" )
                                                   )
                                                   ( Ref Nothing
                                                     ( Imported
@@ -2394,11 +2606,14 @@ UberModule
                                                   ( ParamNamed Nothing ( Name "x105" ) :| [] )
                                                   ( AppN Nothing
                                                     ( AppN Nothing
-                                                      ( Ref Nothing
-                                                        ( Imported
-                                                          ( ModuleName "Golden.LongStateBind.Test" )
-                                                          ( Name "discard" )
+                                                      ( ObjectProp Nothing
+                                                        ( Ref Nothing
+                                                          ( Imported
+                                                            ( ModuleName "Golden.LongStateBind.Test" )
+                                                            ( Name "bindStateT" )
+                                                          )
                                                         )
+                                                        ( PropName "bind" )
                                                       )
                                                       ( AbsN Nothing
                                                         ( ParamUnused Nothing :| [] )
@@ -2428,11 +2643,14 @@ UberModule
                                                       ( ParamUnused Nothing :| [] )
                                                       ( AppN Nothing
                                                         ( AppN Nothing
-                                                          ( Ref Nothing
-                                                            ( Imported
-                                                              ( ModuleName "Golden.LongStateBind.Test" )
-                                                              ( Name "bind" )
+                                                          ( ObjectProp Nothing
+                                                            ( Ref Nothing
+                                                              ( Imported
+                                                                ( ModuleName "Golden.LongStateBind.Test" )
+                                                                ( Name "bindStateT" )
+                                                              )
                                                             )
+                                                            ( PropName "bind" )
                                                           )
                                                           ( Ref Nothing
                                                             ( Imported
@@ -2447,11 +2665,14 @@ UberModule
                                                           )
                                                           ( AppN Nothing
                                                             ( AppN Nothing
-                                                              ( Ref Nothing
-                                                                ( Imported
-                                                                  ( ModuleName "Golden.LongStateBind.Test" )
-                                                                  ( Name "discard" )
+                                                              ( ObjectProp Nothing
+                                                                ( Ref Nothing
+                                                                  ( Imported
+                                                                    ( ModuleName "Golden.LongStateBind.Test" )
+                                                                    ( Name "bindStateT" )
+                                                                  )
                                                                 )
+                                                                ( PropName "bind" )
                                                               )
                                                               ( AbsN Nothing
                                                                 ( ParamUnused Nothing :| [] )
@@ -2481,11 +2702,14 @@ UberModule
                                                               ( ParamUnused Nothing :| [] )
                                                               ( AppN Nothing
                                                                 ( AppN Nothing
-                                                                  ( Ref Nothing
-                                                                    ( Imported
-                                                                      ( ModuleName "Golden.LongStateBind.Test" )
-                                                                      ( Name "bind" )
+                                                                  ( ObjectProp Nothing
+                                                                    ( Ref Nothing
+                                                                      ( Imported
+                                                                        ( ModuleName "Golden.LongStateBind.Test" )
+                                                                        ( Name "bindStateT" )
+                                                                      )
                                                                     )
+                                                                    ( PropName "bind" )
                                                                   )
                                                                   ( Ref Nothing
                                                                     ( Imported
@@ -2500,11 +2724,14 @@ UberModule
                                                                   )
                                                                   ( AppN Nothing
                                                                     ( AppN Nothing
-                                                                      ( Ref Nothing
-                                                                        ( Imported
-                                                                          ( ModuleName "Golden.LongStateBind.Test" )
-                                                                          ( Name "discard" )
+                                                                      ( ObjectProp Nothing
+                                                                        ( Ref Nothing
+                                                                          ( Imported
+                                                                            ( ModuleName "Golden.LongStateBind.Test" )
+                                                                            ( Name "bindStateT" )
+                                                                          )
                                                                         )
+                                                                        ( PropName "bind" )
                                                                       )
                                                                       ( AbsN Nothing
                                                                         ( ParamUnused Nothing :| [] )
@@ -2536,11 +2763,14 @@ UberModule
                                                                       ( ParamUnused Nothing :| [] )
                                                                       ( AppN Nothing
                                                                         ( AppN Nothing
-                                                                          ( Ref Nothing
-                                                                            ( Imported
-                                                                              ( ModuleName "Golden.LongStateBind.Test" )
-                                                                              ( Name "bind" )
+                                                                          ( ObjectProp Nothing
+                                                                            ( Ref Nothing
+                                                                              ( Imported
+                                                                                ( ModuleName "Golden.LongStateBind.Test" )
+                                                                                ( Name "bindStateT" )
+                                                                              )
                                                                             )
+                                                                            ( PropName "bind" )
                                                                           )
                                                                           ( Ref Nothing
                                                                             ( Imported
@@ -2555,11 +2785,14 @@ UberModule
                                                                           )
                                                                           ( AppN Nothing
                                                                             ( AppN Nothing
-                                                                              ( Ref Nothing
-                                                                                ( Imported
-                                                                                  ( ModuleName "Golden.LongStateBind.Test" )
-                                                                                  ( Name "discard" )
+                                                                              ( ObjectProp Nothing
+                                                                                ( Ref Nothing
+                                                                                  ( Imported
+                                                                                    ( ModuleName "Golden.LongStateBind.Test" )
+                                                                                    ( Name "bindStateT" )
+                                                                                  )
                                                                                 )
+                                                                                ( PropName "bind" )
                                                                               )
                                                                               ( AbsN Nothing
                                                                                 ( ParamUnused Nothing :| [] )
@@ -2591,11 +2824,14 @@ UberModule
                                                                               ( ParamUnused Nothing :| [] )
                                                                               ( AppN Nothing
                                                                                 ( AppN Nothing
-                                                                                  ( Ref Nothing
-                                                                                    ( Imported
-                                                                                      ( ModuleName "Golden.LongStateBind.Test" )
-                                                                                      ( Name "bind" )
+                                                                                  ( ObjectProp Nothing
+                                                                                    ( Ref Nothing
+                                                                                      ( Imported
+                                                                                        ( ModuleName "Golden.LongStateBind.Test" )
+                                                                                        ( Name "bindStateT" )
+                                                                                      )
                                                                                     )
+                                                                                    ( PropName "bind" )
                                                                                   )
                                                                                   ( Ref Nothing
                                                                                     ( Imported
@@ -2610,11 +2846,14 @@ UberModule
                                                                                   )
                                                                                   ( AppN Nothing
                                                                                     ( AppN Nothing
-                                                                                      ( Ref Nothing
-                                                                                        ( Imported
-                                                                                          ( ModuleName "Golden.LongStateBind.Test" )
-                                                                                          ( Name "discard" )
+                                                                                      ( ObjectProp Nothing
+                                                                                        ( Ref Nothing
+                                                                                          ( Imported
+                                                                                            ( ModuleName "Golden.LongStateBind.Test" )
+                                                                                            ( Name "bindStateT" )
+                                                                                          )
                                                                                         )
+                                                                                        ( PropName "bind" )
                                                                                       )
                                                                                       ( AbsN Nothing
                                                                                         ( ParamUnused Nothing :| [] )
@@ -2646,11 +2885,14 @@ UberModule
                                                                                       ( ParamUnused Nothing :| [] )
                                                                                       ( AppN Nothing
                                                                                         ( AppN Nothing
-                                                                                          ( Ref Nothing
-                                                                                            ( Imported
-                                                                                              ( ModuleName "Golden.LongStateBind.Test" )
-                                                                                              ( Name "bind" )
+                                                                                          ( ObjectProp Nothing
+                                                                                            ( Ref Nothing
+                                                                                              ( Imported
+                                                                                                ( ModuleName "Golden.LongStateBind.Test" )
+                                                                                                ( Name "bindStateT" )
+                                                                                              )
                                                                                             )
+                                                                                            ( PropName "bind" )
                                                                                           )
                                                                                           ( Ref Nothing
                                                                                             ( Imported
@@ -2665,11 +2907,14 @@ UberModule
                                                                                           )
                                                                                           ( AppN Nothing
                                                                                             ( AppN Nothing
-                                                                                              ( Ref Nothing
-                                                                                                ( Imported
-                                                                                                  ( ModuleName "Golden.LongStateBind.Test" )
-                                                                                                  ( Name "discard" )
+                                                                                              ( ObjectProp Nothing
+                                                                                                ( Ref Nothing
+                                                                                                  ( Imported
+                                                                                                    ( ModuleName "Golden.LongStateBind.Test" )
+                                                                                                    ( Name "bindStateT" )
+                                                                                                  )
                                                                                                 )
+                                                                                                ( PropName "bind" )
                                                                                               )
                                                                                               ( AbsN Nothing
                                                                                                 ( ParamUnused Nothing :| [] )
@@ -2701,11 +2946,14 @@ UberModule
                                                                                               ( ParamUnused Nothing :| [] )
                                                                                               ( AppN Nothing
                                                                                                 ( AppN Nothing
-                                                                                                  ( Ref Nothing
-                                                                                                    ( Imported
-                                                                                                      ( ModuleName "Golden.LongStateBind.Test" )
-                                                                                                      ( Name "bind" )
+                                                                                                  ( ObjectProp Nothing
+                                                                                                    ( Ref Nothing
+                                                                                                      ( Imported
+                                                                                                        ( ModuleName "Golden.LongStateBind.Test" )
+                                                                                                        ( Name "bindStateT" )
+                                                                                                      )
                                                                                                     )
+                                                                                                    ( PropName "bind" )
                                                                                                   )
                                                                                                   ( Ref Nothing
                                                                                                     ( Imported
@@ -2720,11 +2968,14 @@ UberModule
                                                                                                   )
                                                                                                   ( AppN Nothing
                                                                                                     ( AppN Nothing
-                                                                                                      ( Ref Nothing
-                                                                                                        ( Imported
-                                                                                                          ( ModuleName "Golden.LongStateBind.Test" )
-                                                                                                          ( Name "discard" )
+                                                                                                      ( ObjectProp Nothing
+                                                                                                        ( Ref Nothing
+                                                                                                          ( Imported
+                                                                                                            ( ModuleName "Golden.LongStateBind.Test" )
+                                                                                                            ( Name "bindStateT" )
+                                                                                                          )
                                                                                                         )
+                                                                                                        ( PropName "bind" )
                                                                                                       )
                                                                                                       ( AbsN Nothing
                                                                                                         ( ParamUnused Nothing :| [] )
@@ -2756,11 +3007,14 @@ UberModule
                                                                                                       ( ParamUnused Nothing :| [] )
                                                                                                       ( AppN Nothing
                                                                                                         ( AppN Nothing
-                                                                                                          ( Ref Nothing
-                                                                                                            ( Imported
-                                                                                                              ( ModuleName "Golden.LongStateBind.Test" )
-                                                                                                              ( Name "bind" )
+                                                                                                          ( ObjectProp Nothing
+                                                                                                            ( Ref Nothing
+                                                                                                              ( Imported
+                                                                                                                ( ModuleName "Golden.LongStateBind.Test" )
+                                                                                                                ( Name "bindStateT" )
+                                                                                                              )
                                                                                                             )
+                                                                                                            ( PropName "bind" )
                                                                                                           )
                                                                                                           ( Ref Nothing
                                                                                                             ( Imported
@@ -2775,11 +3029,14 @@ UberModule
                                                                                                           )
                                                                                                           ( AppN Nothing
                                                                                                             ( AppN Nothing
-                                                                                                              ( Ref Nothing
-                                                                                                                ( Imported
-                                                                                                                  ( ModuleName "Golden.LongStateBind.Test" )
-                                                                                                                  ( Name "discard" )
+                                                                                                              ( ObjectProp Nothing
+                                                                                                                ( Ref Nothing
+                                                                                                                  ( Imported
+                                                                                                                    ( ModuleName "Golden.LongStateBind.Test" )
+                                                                                                                    ( Name "bindStateT" )
+                                                                                                                  )
                                                                                                                 )
+                                                                                                                ( PropName "bind" )
                                                                                                               )
                                                                                                               ( AbsN Nothing
                                                                                                                 ( ParamUnused Nothing :| [] )
@@ -2811,11 +3068,14 @@ UberModule
                                                                                                               ( ParamUnused Nothing :| [] )
                                                                                                               ( AppN Nothing
                                                                                                                 ( AppN Nothing
-                                                                                                                  ( Ref Nothing
-                                                                                                                    ( Imported
-                                                                                                                      ( ModuleName "Golden.LongStateBind.Test" )
-                                                                                                                      ( Name "bind" )
+                                                                                                                  ( ObjectProp Nothing
+                                                                                                                    ( Ref Nothing
+                                                                                                                      ( Imported
+                                                                                                                        ( ModuleName "Golden.LongStateBind.Test" )
+                                                                                                                        ( Name "bindStateT" )
+                                                                                                                      )
                                                                                                                     )
+                                                                                                                    ( PropName "bind" )
                                                                                                                   )
                                                                                                                   ( Ref Nothing
                                                                                                                     ( Imported
@@ -2830,11 +3090,14 @@ UberModule
                                                                                                                   )
                                                                                                                   ( AppN Nothing
                                                                                                                     ( AppN Nothing
-                                                                                                                      ( Ref Nothing
-                                                                                                                        ( Imported
-                                                                                                                          ( ModuleName "Golden.LongStateBind.Test" )
-                                                                                                                          ( Name "discard" )
+                                                                                                                      ( ObjectProp Nothing
+                                                                                                                        ( Ref Nothing
+                                                                                                                          ( Imported
+                                                                                                                            ( ModuleName "Golden.LongStateBind.Test" )
+                                                                                                                            ( Name "bindStateT" )
+                                                                                                                          )
                                                                                                                         )
+                                                                                                                        ( PropName "bind" )
                                                                                                                       )
                                                                                                                       ( AbsN Nothing
                                                                                                                         ( ParamUnused Nothing :| [] )
@@ -2866,11 +3129,14 @@ UberModule
                                                                                                                       ( ParamUnused Nothing :| [] )
                                                                                                                       ( AppN Nothing
                                                                                                                         ( AppN Nothing
-                                                                                                                          ( Ref Nothing
-                                                                                                                            ( Imported
-                                                                                                                              ( ModuleName "Golden.LongStateBind.Test" )
-                                                                                                                              ( Name "bind" )
+                                                                                                                          ( ObjectProp Nothing
+                                                                                                                            ( Ref Nothing
+                                                                                                                              ( Imported
+                                                                                                                                ( ModuleName "Golden.LongStateBind.Test" )
+                                                                                                                                ( Name "bindStateT" )
+                                                                                                                              )
                                                                                                                             )
+                                                                                                                            ( PropName "bind" )
                                                                                                                           )
                                                                                                                           ( Ref Nothing
                                                                                                                             ( Imported
@@ -2885,11 +3151,14 @@ UberModule
                                                                                                                           )
                                                                                                                           ( AppN Nothing
                                                                                                                             ( AppN Nothing
-                                                                                                                              ( Ref Nothing
-                                                                                                                                ( Imported
-                                                                                                                                  ( ModuleName "Golden.LongStateBind.Test" )
-                                                                                                                                  ( Name "discard" )
+                                                                                                                              ( ObjectProp Nothing
+                                                                                                                                ( Ref Nothing
+                                                                                                                                  ( Imported
+                                                                                                                                    ( ModuleName "Golden.LongStateBind.Test" )
+                                                                                                                                    ( Name "bindStateT" )
+                                                                                                                                  )
                                                                                                                                 )
+                                                                                                                                ( PropName "bind" )
                                                                                                                               )
                                                                                                                               ( AbsN Nothing
                                                                                                                                 ( ParamUnused Nothing :| [] )
@@ -2921,11 +3190,14 @@ UberModule
                                                                                                                               ( ParamUnused Nothing :| [] )
                                                                                                                               ( AppN Nothing
                                                                                                                                 ( AppN Nothing
-                                                                                                                                  ( Ref Nothing
-                                                                                                                                    ( Imported
-                                                                                                                                      ( ModuleName "Golden.LongStateBind.Test" )
-                                                                                                                                      ( Name "bind" )
+                                                                                                                                  ( ObjectProp Nothing
+                                                                                                                                    ( Ref Nothing
+                                                                                                                                      ( Imported
+                                                                                                                                        ( ModuleName "Golden.LongStateBind.Test" )
+                                                                                                                                        ( Name "bindStateT" )
+                                                                                                                                      )
                                                                                                                                     )
+                                                                                                                                    ( PropName "bind" )
                                                                                                                                   )
                                                                                                                                   ( Ref Nothing
                                                                                                                                     ( Imported
@@ -2940,11 +3212,14 @@ UberModule
                                                                                                                                   )
                                                                                                                                   ( AppN Nothing
                                                                                                                                     ( AppN Nothing
-                                                                                                                                      ( Ref Nothing
-                                                                                                                                        ( Imported
-                                                                                                                                          ( ModuleName "Golden.LongStateBind.Test" )
-                                                                                                                                          ( Name "discard" )
+                                                                                                                                      ( ObjectProp Nothing
+                                                                                                                                        ( Ref Nothing
+                                                                                                                                          ( Imported
+                                                                                                                                            ( ModuleName "Golden.LongStateBind.Test" )
+                                                                                                                                            ( Name "bindStateT" )
+                                                                                                                                          )
                                                                                                                                         )
+                                                                                                                                        ( PropName "bind" )
                                                                                                                                       )
                                                                                                                                       ( AbsN Nothing
                                                                                                                                         ( ParamUnused Nothing :| [] )
@@ -2976,11 +3251,14 @@ UberModule
                                                                                                                                       ( ParamUnused Nothing :| [] )
                                                                                                                                       ( AppN Nothing
                                                                                                                                         ( AppN Nothing
-                                                                                                                                          ( Ref Nothing
-                                                                                                                                            ( Imported
-                                                                                                                                              ( ModuleName "Golden.LongStateBind.Test" )
-                                                                                                                                              ( Name "bind" )
+                                                                                                                                          ( ObjectProp Nothing
+                                                                                                                                            ( Ref Nothing
+                                                                                                                                              ( Imported
+                                                                                                                                                ( ModuleName "Golden.LongStateBind.Test" )
+                                                                                                                                                ( Name "bindStateT" )
+                                                                                                                                              )
                                                                                                                                             )
+                                                                                                                                            ( PropName "bind" )
                                                                                                                                           )
                                                                                                                                           ( Ref Nothing
                                                                                                                                             ( Imported
@@ -2995,11 +3273,14 @@ UberModule
                                                                                                                                           )
                                                                                                                                           ( AppN Nothing
                                                                                                                                             ( AppN Nothing
-                                                                                                                                              ( Ref Nothing
-                                                                                                                                                ( Imported
-                                                                                                                                                  ( ModuleName "Golden.LongStateBind.Test" )
-                                                                                                                                                  ( Name "discard" )
+                                                                                                                                              ( ObjectProp Nothing
+                                                                                                                                                ( Ref Nothing
+                                                                                                                                                  ( Imported
+                                                                                                                                                    ( ModuleName "Golden.LongStateBind.Test" )
+                                                                                                                                                    ( Name "bindStateT" )
+                                                                                                                                                  )
                                                                                                                                                 )
+                                                                                                                                                ( PropName "bind" )
                                                                                                                                               )
                                                                                                                                               ( AbsN Nothing
                                                                                                                                                 ( ParamUnused Nothing :| [] )
@@ -3031,11 +3312,14 @@ UberModule
                                                                                                                                               ( ParamUnused Nothing :| [] )
                                                                                                                                               ( AppN Nothing
                                                                                                                                                 ( AppN Nothing
-                                                                                                                                                  ( Ref Nothing
-                                                                                                                                                    ( Imported
-                                                                                                                                                      ( ModuleName "Golden.LongStateBind.Test" )
-                                                                                                                                                      ( Name "bind" )
+                                                                                                                                                  ( ObjectProp Nothing
+                                                                                                                                                    ( Ref Nothing
+                                                                                                                                                      ( Imported
+                                                                                                                                                        ( ModuleName "Golden.LongStateBind.Test" )
+                                                                                                                                                        ( Name "bindStateT" )
+                                                                                                                                                      )
                                                                                                                                                     )
+                                                                                                                                                    ( PropName "bind" )
                                                                                                                                                   )
                                                                                                                                                   ( Ref Nothing
                                                                                                                                                     ( Imported
@@ -3050,11 +3334,14 @@ UberModule
                                                                                                                                                   )
                                                                                                                                                   ( AppN Nothing
                                                                                                                                                     ( AppN Nothing
-                                                                                                                                                      ( Ref Nothing
-                                                                                                                                                        ( Imported
-                                                                                                                                                          ( ModuleName "Golden.LongStateBind.Test" )
-                                                                                                                                                          ( Name "discard" )
+                                                                                                                                                      ( ObjectProp Nothing
+                                                                                                                                                        ( Ref Nothing
+                                                                                                                                                          ( Imported
+                                                                                                                                                            ( ModuleName "Golden.LongStateBind.Test" )
+                                                                                                                                                            ( Name "bindStateT" )
+                                                                                                                                                          )
                                                                                                                                                         )
+                                                                                                                                                        ( PropName "bind" )
                                                                                                                                                       )
                                                                                                                                                       ( AbsN Nothing
                                                                                                                                                         ( ParamUnused Nothing :| [] )
@@ -3086,11 +3373,14 @@ UberModule
                                                                                                                                                       ( ParamUnused Nothing :| [] )
                                                                                                                                                       ( AppN Nothing
                                                                                                                                                         ( AppN Nothing
-                                                                                                                                                          ( Ref Nothing
-                                                                                                                                                            ( Imported
-                                                                                                                                                              ( ModuleName "Golden.LongStateBind.Test" )
-                                                                                                                                                              ( Name "bind" )
+                                                                                                                                                          ( ObjectProp Nothing
+                                                                                                                                                            ( Ref Nothing
+                                                                                                                                                              ( Imported
+                                                                                                                                                                ( ModuleName "Golden.LongStateBind.Test" )
+                                                                                                                                                                ( Name "bindStateT" )
+                                                                                                                                                              )
                                                                                                                                                             )
+                                                                                                                                                            ( PropName "bind" )
                                                                                                                                                           )
                                                                                                                                                           ( Ref Nothing
                                                                                                                                                             ( Imported
@@ -3105,11 +3395,14 @@ UberModule
                                                                                                                                                           )
                                                                                                                                                           ( AppN Nothing
                                                                                                                                                             ( AppN Nothing
-                                                                                                                                                              ( Ref Nothing
-                                                                                                                                                                ( Imported
-                                                                                                                                                                  ( ModuleName "Golden.LongStateBind.Test" )
-                                                                                                                                                                  ( Name "discard" )
+                                                                                                                                                              ( ObjectProp Nothing
+                                                                                                                                                                ( Ref Nothing
+                                                                                                                                                                  ( Imported
+                                                                                                                                                                    ( ModuleName "Golden.LongStateBind.Test" )
+                                                                                                                                                                    ( Name "bindStateT" )
+                                                                                                                                                                  )
                                                                                                                                                                 )
+                                                                                                                                                                ( PropName "bind" )
                                                                                                                                                               )
                                                                                                                                                               ( AbsN Nothing
                                                                                                                                                                 ( ParamUnused Nothing :| [] )
@@ -3141,11 +3434,14 @@ UberModule
                                                                                                                                                               ( ParamUnused Nothing :| [] )
                                                                                                                                                               ( AppN Nothing
                                                                                                                                                                 ( AppN Nothing
-                                                                                                                                                                  ( Ref Nothing
-                                                                                                                                                                    ( Imported
-                                                                                                                                                                      ( ModuleName "Golden.LongStateBind.Test" )
-                                                                                                                                                                      ( Name "bind" )
+                                                                                                                                                                  ( ObjectProp Nothing
+                                                                                                                                                                    ( Ref Nothing
+                                                                                                                                                                      ( Imported
+                                                                                                                                                                        ( ModuleName "Golden.LongStateBind.Test" )
+                                                                                                                                                                        ( Name "bindStateT" )
+                                                                                                                                                                      )
                                                                                                                                                                     )
+                                                                                                                                                                    ( PropName "bind" )
                                                                                                                                                                   )
                                                                                                                                                                   ( Ref Nothing
                                                                                                                                                                     ( Imported
@@ -3160,11 +3456,14 @@ UberModule
                                                                                                                                                                   )
                                                                                                                                                                   ( AppN Nothing
                                                                                                                                                                     ( AppN Nothing
-                                                                                                                                                                      ( Ref Nothing
-                                                                                                                                                                        ( Imported
-                                                                                                                                                                          ( ModuleName "Golden.LongStateBind.Test" )
-                                                                                                                                                                          ( Name "discard" )
+                                                                                                                                                                      ( ObjectProp Nothing
+                                                                                                                                                                        ( Ref Nothing
+                                                                                                                                                                          ( Imported
+                                                                                                                                                                            ( ModuleName "Golden.LongStateBind.Test" )
+                                                                                                                                                                            ( Name "bindStateT" )
+                                                                                                                                                                          )
                                                                                                                                                                         )
+                                                                                                                                                                        ( PropName "bind" )
                                                                                                                                                                       )
                                                                                                                                                                       ( AbsN Nothing
                                                                                                                                                                         ( ParamUnused Nothing :| [] )
@@ -3196,11 +3495,14 @@ UberModule
                                                                                                                                                                       ( ParamUnused Nothing :| [] )
                                                                                                                                                                       ( AppN Nothing
                                                                                                                                                                         ( AppN Nothing
-                                                                                                                                                                          ( Ref Nothing
-                                                                                                                                                                            ( Imported
-                                                                                                                                                                              ( ModuleName "Golden.LongStateBind.Test" )
-                                                                                                                                                                              ( Name "bind" )
+                                                                                                                                                                          ( ObjectProp Nothing
+                                                                                                                                                                            ( Ref Nothing
+                                                                                                                                                                              ( Imported
+                                                                                                                                                                                ( ModuleName "Golden.LongStateBind.Test" )
+                                                                                                                                                                                ( Name "bindStateT" )
+                                                                                                                                                                              )
                                                                                                                                                                             )
+                                                                                                                                                                            ( PropName "bind" )
                                                                                                                                                                           )
                                                                                                                                                                           ( Ref Nothing
                                                                                                                                                                             ( Imported
@@ -3215,11 +3517,14 @@ UberModule
                                                                                                                                                                           )
                                                                                                                                                                           ( AppN Nothing
                                                                                                                                                                             ( AppN Nothing
-                                                                                                                                                                              ( Ref Nothing
-                                                                                                                                                                                ( Imported
-                                                                                                                                                                                  ( ModuleName "Golden.LongStateBind.Test" )
-                                                                                                                                                                                  ( Name "discard" )
+                                                                                                                                                                              ( ObjectProp Nothing
+                                                                                                                                                                                ( Ref Nothing
+                                                                                                                                                                                  ( Imported
+                                                                                                                                                                                    ( ModuleName "Golden.LongStateBind.Test" )
+                                                                                                                                                                                    ( Name "bindStateT" )
+                                                                                                                                                                                  )
                                                                                                                                                                                 )
+                                                                                                                                                                                ( PropName "bind" )
                                                                                                                                                                               )
                                                                                                                                                                               ( AbsN Nothing
                                                                                                                                                                                 ( ParamUnused Nothing :| [] )
@@ -3252,16 +3557,16 @@ UberModule
                                                                                                                                                                               ( AppN Nothing
                                                                                                                                                                                 ( Ref Nothing
                                                                                                                                                                                   ( Local
-                                                                                                                                                                                    ( Name "$kont1771$w" )
+                                                                                                                                                                                    ( Name "$kont2514$w" )
                                                                                                                                                                                   )
                                                                                                                                                                                 )
                                                                                                                                                                                 ( Ref Nothing
                                                                                                                                                                                   ( Local
-                                                                                                                                                                                    ( Name "x1$1775" )
+                                                                                                                                                                                    ( Name "x1$2518" )
                                                                                                                                                                                   ) :|
                                                                                                                                                                                   [ Ref Nothing
                                                                                                                                                                                     ( Local
-                                                                                                                                                                                      ( Name "x100$1776" )
+                                                                                                                                                                                      ( Name "x100$2519" )
                                                                                                                                                                                     )
                                                                                                                                                                                   ]
                                                                                                                                                                                 )
@@ -3347,12 +3652,15 @@ UberModule
                 )
               )
             ), Standalone
-            ( Nothing, Name "$kont1777", AbsN Nothing
-              ( ParamNamed Nothing ( Name "x1$1778" ) :| [] )
+            ( Nothing, Name "$kont2520", AbsN Nothing
+              ( ParamNamed Nothing ( Name "x1$2521" ) :| [] )
               ( AppN Nothing
                 ( AppN Nothing
-                  ( Ref Nothing
-                    ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "bind" ) )
+                  ( ObjectProp Nothing
+                    ( Ref Nothing
+                      ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "bindStateT" ) )
+                    )
+                    ( PropName "bind" )
                   )
                   ( Ref Nothing
                     ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "get" ) ) :| []
@@ -3362,8 +3670,14 @@ UberModule
                   ( ParamNamed Nothing ( Name "x81" ) :| [] )
                   ( AppN Nothing
                     ( AppN Nothing
-                      ( Ref Nothing
-                        ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "discard" ) )
+                      ( ObjectProp Nothing
+                        ( Ref Nothing
+                          ( Imported
+                            ( ModuleName "Golden.LongStateBind.Test" )
+                            ( Name "bindStateT" )
+                          )
+                        )
+                        ( PropName "bind" )
                       )
                       ( AbsN Nothing
                         ( ParamUnused Nothing :| [] )
@@ -3385,8 +3699,14 @@ UberModule
                       ( ParamUnused Nothing :| [] )
                       ( AppN Nothing
                         ( AppN Nothing
-                          ( Ref Nothing
-                            ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "bind" ) )
+                          ( ObjectProp Nothing
+                            ( Ref Nothing
+                              ( Imported
+                                ( ModuleName "Golden.LongStateBind.Test" )
+                                ( Name "bindStateT" )
+                              )
+                            )
+                            ( PropName "bind" )
                           )
                           ( Ref Nothing
                             ( Imported
@@ -3399,11 +3719,14 @@ UberModule
                           ( ParamNamed Nothing ( Name "x82" ) :| [] )
                           ( AppN Nothing
                             ( AppN Nothing
-                              ( Ref Nothing
-                                ( Imported
-                                  ( ModuleName "Golden.LongStateBind.Test" )
-                                  ( Name "discard" )
+                              ( ObjectProp Nothing
+                                ( Ref Nothing
+                                  ( Imported
+                                    ( ModuleName "Golden.LongStateBind.Test" )
+                                    ( Name "bindStateT" )
+                                  )
                                 )
+                                ( PropName "bind" )
                               )
                               ( AbsN Nothing
                                 ( ParamUnused Nothing :| [] )
@@ -3425,11 +3748,14 @@ UberModule
                               ( ParamUnused Nothing :| [] )
                               ( AppN Nothing
                                 ( AppN Nothing
-                                  ( Ref Nothing
-                                    ( Imported
-                                      ( ModuleName "Golden.LongStateBind.Test" )
-                                      ( Name "bind" )
+                                  ( ObjectProp Nothing
+                                    ( Ref Nothing
+                                      ( Imported
+                                        ( ModuleName "Golden.LongStateBind.Test" )
+                                        ( Name "bindStateT" )
+                                      )
                                     )
+                                    ( PropName "bind" )
                                   )
                                   ( Ref Nothing
                                     ( Imported
@@ -3442,11 +3768,14 @@ UberModule
                                   ( ParamNamed Nothing ( Name "x83" ) :| [] )
                                   ( AppN Nothing
                                     ( AppN Nothing
-                                      ( Ref Nothing
-                                        ( Imported
-                                          ( ModuleName "Golden.LongStateBind.Test" )
-                                          ( Name "discard" )
+                                      ( ObjectProp Nothing
+                                        ( Ref Nothing
+                                          ( Imported
+                                            ( ModuleName "Golden.LongStateBind.Test" )
+                                            ( Name "bindStateT" )
+                                          )
                                         )
+                                        ( PropName "bind" )
                                       )
                                       ( AbsN Nothing
                                         ( ParamUnused Nothing :| [] )
@@ -3474,11 +3803,14 @@ UberModule
                                       ( ParamUnused Nothing :| [] )
                                       ( AppN Nothing
                                         ( AppN Nothing
-                                          ( Ref Nothing
-                                            ( Imported
-                                              ( ModuleName "Golden.LongStateBind.Test" )
-                                              ( Name "bind" )
+                                          ( ObjectProp Nothing
+                                            ( Ref Nothing
+                                              ( Imported
+                                                ( ModuleName "Golden.LongStateBind.Test" )
+                                                ( Name "bindStateT" )
+                                              )
                                             )
+                                            ( PropName "bind" )
                                           )
                                           ( Ref Nothing
                                             ( Imported
@@ -3491,11 +3823,14 @@ UberModule
                                           ( ParamNamed Nothing ( Name "x84" ) :| [] )
                                           ( AppN Nothing
                                             ( AppN Nothing
-                                              ( Ref Nothing
-                                                ( Imported
-                                                  ( ModuleName "Golden.LongStateBind.Test" )
-                                                  ( Name "discard" )
+                                              ( ObjectProp Nothing
+                                                ( Ref Nothing
+                                                  ( Imported
+                                                    ( ModuleName "Golden.LongStateBind.Test" )
+                                                    ( Name "bindStateT" )
+                                                  )
                                                 )
+                                                ( PropName "bind" )
                                               )
                                               ( AbsN Nothing
                                                 ( ParamUnused Nothing :| [] )
@@ -3523,11 +3858,14 @@ UberModule
                                               ( ParamUnused Nothing :| [] )
                                               ( AppN Nothing
                                                 ( AppN Nothing
-                                                  ( Ref Nothing
-                                                    ( Imported
-                                                      ( ModuleName "Golden.LongStateBind.Test" )
-                                                      ( Name "bind" )
+                                                  ( ObjectProp Nothing
+                                                    ( Ref Nothing
+                                                      ( Imported
+                                                        ( ModuleName "Golden.LongStateBind.Test" )
+                                                        ( Name "bindStateT" )
+                                                      )
                                                     )
+                                                    ( PropName "bind" )
                                                   )
                                                   ( Ref Nothing
                                                     ( Imported
@@ -3540,11 +3878,14 @@ UberModule
                                                   ( ParamNamed Nothing ( Name "x85" ) :| [] )
                                                   ( AppN Nothing
                                                     ( AppN Nothing
-                                                      ( Ref Nothing
-                                                        ( Imported
-                                                          ( ModuleName "Golden.LongStateBind.Test" )
-                                                          ( Name "discard" )
+                                                      ( ObjectProp Nothing
+                                                        ( Ref Nothing
+                                                          ( Imported
+                                                            ( ModuleName "Golden.LongStateBind.Test" )
+                                                            ( Name "bindStateT" )
+                                                          )
                                                         )
+                                                        ( PropName "bind" )
                                                       )
                                                       ( AbsN Nothing
                                                         ( ParamUnused Nothing :| [] )
@@ -3574,11 +3915,14 @@ UberModule
                                                       ( ParamUnused Nothing :| [] )
                                                       ( AppN Nothing
                                                         ( AppN Nothing
-                                                          ( Ref Nothing
-                                                            ( Imported
-                                                              ( ModuleName "Golden.LongStateBind.Test" )
-                                                              ( Name "bind" )
+                                                          ( ObjectProp Nothing
+                                                            ( Ref Nothing
+                                                              ( Imported
+                                                                ( ModuleName "Golden.LongStateBind.Test" )
+                                                                ( Name "bindStateT" )
+                                                              )
                                                             )
+                                                            ( PropName "bind" )
                                                           )
                                                           ( Ref Nothing
                                                             ( Imported
@@ -3593,11 +3937,14 @@ UberModule
                                                           )
                                                           ( AppN Nothing
                                                             ( AppN Nothing
-                                                              ( Ref Nothing
-                                                                ( Imported
-                                                                  ( ModuleName "Golden.LongStateBind.Test" )
-                                                                  ( Name "discard" )
+                                                              ( ObjectProp Nothing
+                                                                ( Ref Nothing
+                                                                  ( Imported
+                                                                    ( ModuleName "Golden.LongStateBind.Test" )
+                                                                    ( Name "bindStateT" )
+                                                                  )
                                                                 )
+                                                                ( PropName "bind" )
                                                               )
                                                               ( AbsN Nothing
                                                                 ( ParamUnused Nothing :| [] )
@@ -3627,11 +3974,14 @@ UberModule
                                                               ( ParamUnused Nothing :| [] )
                                                               ( AppN Nothing
                                                                 ( AppN Nothing
-                                                                  ( Ref Nothing
-                                                                    ( Imported
-                                                                      ( ModuleName "Golden.LongStateBind.Test" )
-                                                                      ( Name "bind" )
+                                                                  ( ObjectProp Nothing
+                                                                    ( Ref Nothing
+                                                                      ( Imported
+                                                                        ( ModuleName "Golden.LongStateBind.Test" )
+                                                                        ( Name "bindStateT" )
+                                                                      )
                                                                     )
+                                                                    ( PropName "bind" )
                                                                   )
                                                                   ( Ref Nothing
                                                                     ( Imported
@@ -3646,11 +3996,14 @@ UberModule
                                                                   )
                                                                   ( AppN Nothing
                                                                     ( AppN Nothing
-                                                                      ( Ref Nothing
-                                                                        ( Imported
-                                                                          ( ModuleName "Golden.LongStateBind.Test" )
-                                                                          ( Name "discard" )
+                                                                      ( ObjectProp Nothing
+                                                                        ( Ref Nothing
+                                                                          ( Imported
+                                                                            ( ModuleName "Golden.LongStateBind.Test" )
+                                                                            ( Name "bindStateT" )
+                                                                          )
                                                                         )
+                                                                        ( PropName "bind" )
                                                                       )
                                                                       ( AbsN Nothing
                                                                         ( ParamUnused Nothing :| [] )
@@ -3682,11 +4035,14 @@ UberModule
                                                                       ( ParamUnused Nothing :| [] )
                                                                       ( AppN Nothing
                                                                         ( AppN Nothing
-                                                                          ( Ref Nothing
-                                                                            ( Imported
-                                                                              ( ModuleName "Golden.LongStateBind.Test" )
-                                                                              ( Name "bind" )
+                                                                          ( ObjectProp Nothing
+                                                                            ( Ref Nothing
+                                                                              ( Imported
+                                                                                ( ModuleName "Golden.LongStateBind.Test" )
+                                                                                ( Name "bindStateT" )
+                                                                              )
                                                                             )
+                                                                            ( PropName "bind" )
                                                                           )
                                                                           ( Ref Nothing
                                                                             ( Imported
@@ -3701,11 +4057,14 @@ UberModule
                                                                           )
                                                                           ( AppN Nothing
                                                                             ( AppN Nothing
-                                                                              ( Ref Nothing
-                                                                                ( Imported
-                                                                                  ( ModuleName "Golden.LongStateBind.Test" )
-                                                                                  ( Name "discard" )
+                                                                              ( ObjectProp Nothing
+                                                                                ( Ref Nothing
+                                                                                  ( Imported
+                                                                                    ( ModuleName "Golden.LongStateBind.Test" )
+                                                                                    ( Name "bindStateT" )
+                                                                                  )
                                                                                 )
+                                                                                ( PropName "bind" )
                                                                               )
                                                                               ( AbsN Nothing
                                                                                 ( ParamUnused Nothing :| [] )
@@ -3737,11 +4096,14 @@ UberModule
                                                                               ( ParamUnused Nothing :| [] )
                                                                               ( AppN Nothing
                                                                                 ( AppN Nothing
-                                                                                  ( Ref Nothing
-                                                                                    ( Imported
-                                                                                      ( ModuleName "Golden.LongStateBind.Test" )
-                                                                                      ( Name "bind" )
+                                                                                  ( ObjectProp Nothing
+                                                                                    ( Ref Nothing
+                                                                                      ( Imported
+                                                                                        ( ModuleName "Golden.LongStateBind.Test" )
+                                                                                        ( Name "bindStateT" )
+                                                                                      )
                                                                                     )
+                                                                                    ( PropName "bind" )
                                                                                   )
                                                                                   ( Ref Nothing
                                                                                     ( Imported
@@ -3756,11 +4118,14 @@ UberModule
                                                                                   )
                                                                                   ( AppN Nothing
                                                                                     ( AppN Nothing
-                                                                                      ( Ref Nothing
-                                                                                        ( Imported
-                                                                                          ( ModuleName "Golden.LongStateBind.Test" )
-                                                                                          ( Name "discard" )
+                                                                                      ( ObjectProp Nothing
+                                                                                        ( Ref Nothing
+                                                                                          ( Imported
+                                                                                            ( ModuleName "Golden.LongStateBind.Test" )
+                                                                                            ( Name "bindStateT" )
+                                                                                          )
                                                                                         )
+                                                                                        ( PropName "bind" )
                                                                                       )
                                                                                       ( AbsN Nothing
                                                                                         ( ParamUnused Nothing :| [] )
@@ -3792,11 +4157,14 @@ UberModule
                                                                                       ( ParamUnused Nothing :| [] )
                                                                                       ( AppN Nothing
                                                                                         ( AppN Nothing
-                                                                                          ( Ref Nothing
-                                                                                            ( Imported
-                                                                                              ( ModuleName "Golden.LongStateBind.Test" )
-                                                                                              ( Name "bind" )
+                                                                                          ( ObjectProp Nothing
+                                                                                            ( Ref Nothing
+                                                                                              ( Imported
+                                                                                                ( ModuleName "Golden.LongStateBind.Test" )
+                                                                                                ( Name "bindStateT" )
+                                                                                              )
                                                                                             )
+                                                                                            ( PropName "bind" )
                                                                                           )
                                                                                           ( Ref Nothing
                                                                                             ( Imported
@@ -3811,11 +4179,14 @@ UberModule
                                                                                           )
                                                                                           ( AppN Nothing
                                                                                             ( AppN Nothing
-                                                                                              ( Ref Nothing
-                                                                                                ( Imported
-                                                                                                  ( ModuleName "Golden.LongStateBind.Test" )
-                                                                                                  ( Name "discard" )
+                                                                                              ( ObjectProp Nothing
+                                                                                                ( Ref Nothing
+                                                                                                  ( Imported
+                                                                                                    ( ModuleName "Golden.LongStateBind.Test" )
+                                                                                                    ( Name "bindStateT" )
+                                                                                                  )
                                                                                                 )
+                                                                                                ( PropName "bind" )
                                                                                               )
                                                                                               ( AbsN Nothing
                                                                                                 ( ParamUnused Nothing :| [] )
@@ -3847,11 +4218,14 @@ UberModule
                                                                                               ( ParamUnused Nothing :| [] )
                                                                                               ( AppN Nothing
                                                                                                 ( AppN Nothing
-                                                                                                  ( Ref Nothing
-                                                                                                    ( Imported
-                                                                                                      ( ModuleName "Golden.LongStateBind.Test" )
-                                                                                                      ( Name "bind" )
+                                                                                                  ( ObjectProp Nothing
+                                                                                                    ( Ref Nothing
+                                                                                                      ( Imported
+                                                                                                        ( ModuleName "Golden.LongStateBind.Test" )
+                                                                                                        ( Name "bindStateT" )
+                                                                                                      )
                                                                                                     )
+                                                                                                    ( PropName "bind" )
                                                                                                   )
                                                                                                   ( Ref Nothing
                                                                                                     ( Imported
@@ -3866,11 +4240,14 @@ UberModule
                                                                                                   )
                                                                                                   ( AppN Nothing
                                                                                                     ( AppN Nothing
-                                                                                                      ( Ref Nothing
-                                                                                                        ( Imported
-                                                                                                          ( ModuleName "Golden.LongStateBind.Test" )
-                                                                                                          ( Name "discard" )
+                                                                                                      ( ObjectProp Nothing
+                                                                                                        ( Ref Nothing
+                                                                                                          ( Imported
+                                                                                                            ( ModuleName "Golden.LongStateBind.Test" )
+                                                                                                            ( Name "bindStateT" )
+                                                                                                          )
                                                                                                         )
+                                                                                                        ( PropName "bind" )
                                                                                                       )
                                                                                                       ( AbsN Nothing
                                                                                                         ( ParamUnused Nothing :| [] )
@@ -3902,11 +4279,14 @@ UberModule
                                                                                                       ( ParamUnused Nothing :| [] )
                                                                                                       ( AppN Nothing
                                                                                                         ( AppN Nothing
-                                                                                                          ( Ref Nothing
-                                                                                                            ( Imported
-                                                                                                              ( ModuleName "Golden.LongStateBind.Test" )
-                                                                                                              ( Name "bind" )
+                                                                                                          ( ObjectProp Nothing
+                                                                                                            ( Ref Nothing
+                                                                                                              ( Imported
+                                                                                                                ( ModuleName "Golden.LongStateBind.Test" )
+                                                                                                                ( Name "bindStateT" )
+                                                                                                              )
                                                                                                             )
+                                                                                                            ( PropName "bind" )
                                                                                                           )
                                                                                                           ( Ref Nothing
                                                                                                             ( Imported
@@ -3921,11 +4301,14 @@ UberModule
                                                                                                           )
                                                                                                           ( AppN Nothing
                                                                                                             ( AppN Nothing
-                                                                                                              ( Ref Nothing
-                                                                                                                ( Imported
-                                                                                                                  ( ModuleName "Golden.LongStateBind.Test" )
-                                                                                                                  ( Name "discard" )
+                                                                                                              ( ObjectProp Nothing
+                                                                                                                ( Ref Nothing
+                                                                                                                  ( Imported
+                                                                                                                    ( ModuleName "Golden.LongStateBind.Test" )
+                                                                                                                    ( Name "bindStateT" )
+                                                                                                                  )
                                                                                                                 )
+                                                                                                                ( PropName "bind" )
                                                                                                               )
                                                                                                               ( AbsN Nothing
                                                                                                                 ( ParamUnused Nothing :| [] )
@@ -3957,11 +4340,14 @@ UberModule
                                                                                                               ( ParamUnused Nothing :| [] )
                                                                                                               ( AppN Nothing
                                                                                                                 ( AppN Nothing
-                                                                                                                  ( Ref Nothing
-                                                                                                                    ( Imported
-                                                                                                                      ( ModuleName "Golden.LongStateBind.Test" )
-                                                                                                                      ( Name "bind" )
+                                                                                                                  ( ObjectProp Nothing
+                                                                                                                    ( Ref Nothing
+                                                                                                                      ( Imported
+                                                                                                                        ( ModuleName "Golden.LongStateBind.Test" )
+                                                                                                                        ( Name "bindStateT" )
+                                                                                                                      )
                                                                                                                     )
+                                                                                                                    ( PropName "bind" )
                                                                                                                   )
                                                                                                                   ( Ref Nothing
                                                                                                                     ( Imported
@@ -3976,11 +4362,14 @@ UberModule
                                                                                                                   )
                                                                                                                   ( AppN Nothing
                                                                                                                     ( AppN Nothing
-                                                                                                                      ( Ref Nothing
-                                                                                                                        ( Imported
-                                                                                                                          ( ModuleName "Golden.LongStateBind.Test" )
-                                                                                                                          ( Name "discard" )
+                                                                                                                      ( ObjectProp Nothing
+                                                                                                                        ( Ref Nothing
+                                                                                                                          ( Imported
+                                                                                                                            ( ModuleName "Golden.LongStateBind.Test" )
+                                                                                                                            ( Name "bindStateT" )
+                                                                                                                          )
                                                                                                                         )
+                                                                                                                        ( PropName "bind" )
                                                                                                                       )
                                                                                                                       ( AbsN Nothing
                                                                                                                         ( ParamUnused Nothing :| [] )
@@ -4012,11 +4401,14 @@ UberModule
                                                                                                                       ( ParamUnused Nothing :| [] )
                                                                                                                       ( AppN Nothing
                                                                                                                         ( AppN Nothing
-                                                                                                                          ( Ref Nothing
-                                                                                                                            ( Imported
-                                                                                                                              ( ModuleName "Golden.LongStateBind.Test" )
-                                                                                                                              ( Name "bind" )
+                                                                                                                          ( ObjectProp Nothing
+                                                                                                                            ( Ref Nothing
+                                                                                                                              ( Imported
+                                                                                                                                ( ModuleName "Golden.LongStateBind.Test" )
+                                                                                                                                ( Name "bindStateT" )
+                                                                                                                              )
                                                                                                                             )
+                                                                                                                            ( PropName "bind" )
                                                                                                                           )
                                                                                                                           ( Ref Nothing
                                                                                                                             ( Imported
@@ -4031,11 +4423,14 @@ UberModule
                                                                                                                           )
                                                                                                                           ( AppN Nothing
                                                                                                                             ( AppN Nothing
-                                                                                                                              ( Ref Nothing
-                                                                                                                                ( Imported
-                                                                                                                                  ( ModuleName "Golden.LongStateBind.Test" )
-                                                                                                                                  ( Name "discard" )
+                                                                                                                              ( ObjectProp Nothing
+                                                                                                                                ( Ref Nothing
+                                                                                                                                  ( Imported
+                                                                                                                                    ( ModuleName "Golden.LongStateBind.Test" )
+                                                                                                                                    ( Name "bindStateT" )
+                                                                                                                                  )
                                                                                                                                 )
+                                                                                                                                ( PropName "bind" )
                                                                                                                               )
                                                                                                                               ( AbsN Nothing
                                                                                                                                 ( ParamUnused Nothing :| [] )
@@ -4067,11 +4462,14 @@ UberModule
                                                                                                                               ( ParamUnused Nothing :| [] )
                                                                                                                               ( AppN Nothing
                                                                                                                                 ( AppN Nothing
-                                                                                                                                  ( Ref Nothing
-                                                                                                                                    ( Imported
-                                                                                                                                      ( ModuleName "Golden.LongStateBind.Test" )
-                                                                                                                                      ( Name "bind" )
+                                                                                                                                  ( ObjectProp Nothing
+                                                                                                                                    ( Ref Nothing
+                                                                                                                                      ( Imported
+                                                                                                                                        ( ModuleName "Golden.LongStateBind.Test" )
+                                                                                                                                        ( Name "bindStateT" )
+                                                                                                                                      )
                                                                                                                                     )
+                                                                                                                                    ( PropName "bind" )
                                                                                                                                   )
                                                                                                                                   ( Ref Nothing
                                                                                                                                     ( Imported
@@ -4086,11 +4484,14 @@ UberModule
                                                                                                                                   )
                                                                                                                                   ( AppN Nothing
                                                                                                                                     ( AppN Nothing
-                                                                                                                                      ( Ref Nothing
-                                                                                                                                        ( Imported
-                                                                                                                                          ( ModuleName "Golden.LongStateBind.Test" )
-                                                                                                                                          ( Name "discard" )
+                                                                                                                                      ( ObjectProp Nothing
+                                                                                                                                        ( Ref Nothing
+                                                                                                                                          ( Imported
+                                                                                                                                            ( ModuleName "Golden.LongStateBind.Test" )
+                                                                                                                                            ( Name "bindStateT" )
+                                                                                                                                          )
                                                                                                                                         )
+                                                                                                                                        ( PropName "bind" )
                                                                                                                                       )
                                                                                                                                       ( AbsN Nothing
                                                                                                                                         ( ParamUnused Nothing :| [] )
@@ -4122,11 +4523,14 @@ UberModule
                                                                                                                                       ( ParamUnused Nothing :| [] )
                                                                                                                                       ( AppN Nothing
                                                                                                                                         ( AppN Nothing
-                                                                                                                                          ( Ref Nothing
-                                                                                                                                            ( Imported
-                                                                                                                                              ( ModuleName "Golden.LongStateBind.Test" )
-                                                                                                                                              ( Name "bind" )
+                                                                                                                                          ( ObjectProp Nothing
+                                                                                                                                            ( Ref Nothing
+                                                                                                                                              ( Imported
+                                                                                                                                                ( ModuleName "Golden.LongStateBind.Test" )
+                                                                                                                                                ( Name "bindStateT" )
+                                                                                                                                              )
                                                                                                                                             )
+                                                                                                                                            ( PropName "bind" )
                                                                                                                                           )
                                                                                                                                           ( Ref Nothing
                                                                                                                                             ( Imported
@@ -4141,11 +4545,14 @@ UberModule
                                                                                                                                           )
                                                                                                                                           ( AppN Nothing
                                                                                                                                             ( AppN Nothing
-                                                                                                                                              ( Ref Nothing
-                                                                                                                                                ( Imported
-                                                                                                                                                  ( ModuleName "Golden.LongStateBind.Test" )
-                                                                                                                                                  ( Name "discard" )
+                                                                                                                                              ( ObjectProp Nothing
+                                                                                                                                                ( Ref Nothing
+                                                                                                                                                  ( Imported
+                                                                                                                                                    ( ModuleName "Golden.LongStateBind.Test" )
+                                                                                                                                                    ( Name "bindStateT" )
+                                                                                                                                                  )
                                                                                                                                                 )
+                                                                                                                                                ( PropName "bind" )
                                                                                                                                               )
                                                                                                                                               ( AbsN Nothing
                                                                                                                                                 ( ParamUnused Nothing :| [] )
@@ -4177,11 +4584,14 @@ UberModule
                                                                                                                                               ( ParamUnused Nothing :| [] )
                                                                                                                                               ( AppN Nothing
                                                                                                                                                 ( AppN Nothing
-                                                                                                                                                  ( Ref Nothing
-                                                                                                                                                    ( Imported
-                                                                                                                                                      ( ModuleName "Golden.LongStateBind.Test" )
-                                                                                                                                                      ( Name "bind" )
+                                                                                                                                                  ( ObjectProp Nothing
+                                                                                                                                                    ( Ref Nothing
+                                                                                                                                                      ( Imported
+                                                                                                                                                        ( ModuleName "Golden.LongStateBind.Test" )
+                                                                                                                                                        ( Name "bindStateT" )
+                                                                                                                                                      )
                                                                                                                                                     )
+                                                                                                                                                    ( PropName "bind" )
                                                                                                                                                   )
                                                                                                                                                   ( Ref Nothing
                                                                                                                                                     ( Imported
@@ -4196,11 +4606,14 @@ UberModule
                                                                                                                                                   )
                                                                                                                                                   ( AppN Nothing
                                                                                                                                                     ( AppN Nothing
-                                                                                                                                                      ( Ref Nothing
-                                                                                                                                                        ( Imported
-                                                                                                                                                          ( ModuleName "Golden.LongStateBind.Test" )
-                                                                                                                                                          ( Name "discard" )
+                                                                                                                                                      ( ObjectProp Nothing
+                                                                                                                                                        ( Ref Nothing
+                                                                                                                                                          ( Imported
+                                                                                                                                                            ( ModuleName "Golden.LongStateBind.Test" )
+                                                                                                                                                            ( Name "bindStateT" )
+                                                                                                                                                          )
                                                                                                                                                         )
+                                                                                                                                                        ( PropName "bind" )
                                                                                                                                                       )
                                                                                                                                                       ( AbsN Nothing
                                                                                                                                                         ( ParamUnused Nothing :| [] )
@@ -4232,11 +4645,14 @@ UberModule
                                                                                                                                                       ( ParamUnused Nothing :| [] )
                                                                                                                                                       ( AppN Nothing
                                                                                                                                                         ( AppN Nothing
-                                                                                                                                                          ( Ref Nothing
-                                                                                                                                                            ( Imported
-                                                                                                                                                              ( ModuleName "Golden.LongStateBind.Test" )
-                                                                                                                                                              ( Name "bind" )
+                                                                                                                                                          ( ObjectProp Nothing
+                                                                                                                                                            ( Ref Nothing
+                                                                                                                                                              ( Imported
+                                                                                                                                                                ( ModuleName "Golden.LongStateBind.Test" )
+                                                                                                                                                                ( Name "bindStateT" )
+                                                                                                                                                              )
                                                                                                                                                             )
+                                                                                                                                                            ( PropName "bind" )
                                                                                                                                                           )
                                                                                                                                                           ( Ref Nothing
                                                                                                                                                             ( Imported
@@ -4251,11 +4667,14 @@ UberModule
                                                                                                                                                           )
                                                                                                                                                           ( AppN Nothing
                                                                                                                                                             ( AppN Nothing
-                                                                                                                                                              ( Ref Nothing
-                                                                                                                                                                ( Imported
-                                                                                                                                                                  ( ModuleName "Golden.LongStateBind.Test" )
-                                                                                                                                                                  ( Name "discard" )
+                                                                                                                                                              ( ObjectProp Nothing
+                                                                                                                                                                ( Ref Nothing
+                                                                                                                                                                  ( Imported
+                                                                                                                                                                    ( ModuleName "Golden.LongStateBind.Test" )
+                                                                                                                                                                    ( Name "bindStateT" )
+                                                                                                                                                                  )
                                                                                                                                                                 )
+                                                                                                                                                                ( PropName "bind" )
                                                                                                                                                               )
                                                                                                                                                               ( AbsN Nothing
                                                                                                                                                                 ( ParamUnused Nothing :| [] )
@@ -4287,11 +4706,14 @@ UberModule
                                                                                                                                                               ( ParamUnused Nothing :| [] )
                                                                                                                                                               ( AppN Nothing
                                                                                                                                                                 ( AppN Nothing
-                                                                                                                                                                  ( Ref Nothing
-                                                                                                                                                                    ( Imported
-                                                                                                                                                                      ( ModuleName "Golden.LongStateBind.Test" )
-                                                                                                                                                                      ( Name "bind" )
+                                                                                                                                                                  ( ObjectProp Nothing
+                                                                                                                                                                    ( Ref Nothing
+                                                                                                                                                                      ( Imported
+                                                                                                                                                                        ( ModuleName "Golden.LongStateBind.Test" )
+                                                                                                                                                                        ( Name "bindStateT" )
+                                                                                                                                                                      )
                                                                                                                                                                     )
+                                                                                                                                                                    ( PropName "bind" )
                                                                                                                                                                   )
                                                                                                                                                                   ( Ref Nothing
                                                                                                                                                                     ( Imported
@@ -4306,11 +4728,14 @@ UberModule
                                                                                                                                                                   )
                                                                                                                                                                   ( AppN Nothing
                                                                                                                                                                     ( AppN Nothing
-                                                                                                                                                                      ( Ref Nothing
-                                                                                                                                                                        ( Imported
-                                                                                                                                                                          ( ModuleName "Golden.LongStateBind.Test" )
-                                                                                                                                                                          ( Name "discard" )
+                                                                                                                                                                      ( ObjectProp Nothing
+                                                                                                                                                                        ( Ref Nothing
+                                                                                                                                                                          ( Imported
+                                                                                                                                                                            ( ModuleName "Golden.LongStateBind.Test" )
+                                                                                                                                                                            ( Name "bindStateT" )
+                                                                                                                                                                          )
                                                                                                                                                                         )
+                                                                                                                                                                        ( PropName "bind" )
                                                                                                                                                                       )
                                                                                                                                                                       ( AbsN Nothing
                                                                                                                                                                         ( ParamUnused Nothing :| [] )
@@ -4342,11 +4767,14 @@ UberModule
                                                                                                                                                                       ( ParamUnused Nothing :| [] )
                                                                                                                                                                       ( AppN Nothing
                                                                                                                                                                         ( AppN Nothing
-                                                                                                                                                                          ( Ref Nothing
-                                                                                                                                                                            ( Imported
-                                                                                                                                                                              ( ModuleName "Golden.LongStateBind.Test" )
-                                                                                                                                                                              ( Name "bind" )
+                                                                                                                                                                          ( ObjectProp Nothing
+                                                                                                                                                                            ( Ref Nothing
+                                                                                                                                                                              ( Imported
+                                                                                                                                                                                ( ModuleName "Golden.LongStateBind.Test" )
+                                                                                                                                                                                ( Name "bindStateT" )
+                                                                                                                                                                              )
                                                                                                                                                                             )
+                                                                                                                                                                            ( PropName "bind" )
                                                                                                                                                                           )
                                                                                                                                                                           ( Ref Nothing
                                                                                                                                                                             ( Imported
@@ -4361,11 +4789,14 @@ UberModule
                                                                                                                                                                           )
                                                                                                                                                                           ( AppN Nothing
                                                                                                                                                                             ( AppN Nothing
-                                                                                                                                                                              ( Ref Nothing
-                                                                                                                                                                                ( Imported
-                                                                                                                                                                                  ( ModuleName "Golden.LongStateBind.Test" )
-                                                                                                                                                                                  ( Name "discard" )
+                                                                                                                                                                              ( ObjectProp Nothing
+                                                                                                                                                                                ( Ref Nothing
+                                                                                                                                                                                  ( Imported
+                                                                                                                                                                                    ( ModuleName "Golden.LongStateBind.Test" )
+                                                                                                                                                                                    ( Name "bindStateT" )
+                                                                                                                                                                                  )
                                                                                                                                                                                 )
+                                                                                                                                                                                ( PropName "bind" )
                                                                                                                                                                               )
                                                                                                                                                                               ( AbsN Nothing
                                                                                                                                                                                 ( ParamUnused Nothing :| [] )
@@ -4398,12 +4829,12 @@ UberModule
                                                                                                                                                                               ( AppN Nothing
                                                                                                                                                                                 ( Ref Nothing
                                                                                                                                                                                   ( Local
-                                                                                                                                                                                    ( Name "$kont1774$w" )
+                                                                                                                                                                                    ( Name "$kont2517$w" )
                                                                                                                                                                                   )
                                                                                                                                                                                 )
                                                                                                                                                                                 ( Ref Nothing
                                                                                                                                                                                   ( Local
-                                                                                                                                                                                    ( Name "x1$1778" )
+                                                                                                                                                                                    ( Name "x1$2521" )
                                                                                                                                                                                   ) :|
                                                                                                                                                                                   [ Ref Nothing
                                                                                                                                                                                     ( Local
@@ -4493,12 +4924,15 @@ UberModule
                 )
               )
             ), Standalone
-            ( Nothing, Name "$kont1779", AbsN Nothing
-              ( ParamNamed Nothing ( Name "x1$1780" ) :| [] )
+            ( Nothing, Name "$kont2522", AbsN Nothing
+              ( ParamNamed Nothing ( Name "x1$2523" ) :| [] )
               ( AppN Nothing
                 ( AppN Nothing
-                  ( Ref Nothing
-                    ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "bind" ) )
+                  ( ObjectProp Nothing
+                    ( Ref Nothing
+                      ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "bindStateT" ) )
+                    )
+                    ( PropName "bind" )
                   )
                   ( Ref Nothing
                     ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "get" ) ) :| []
@@ -4508,8 +4942,14 @@ UberModule
                   ( ParamNamed Nothing ( Name "x61" ) :| [] )
                   ( AppN Nothing
                     ( AppN Nothing
-                      ( Ref Nothing
-                        ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "discard" ) )
+                      ( ObjectProp Nothing
+                        ( Ref Nothing
+                          ( Imported
+                            ( ModuleName "Golden.LongStateBind.Test" )
+                            ( Name "bindStateT" )
+                          )
+                        )
+                        ( PropName "bind" )
                       )
                       ( AbsN Nothing
                         ( ParamUnused Nothing :| [] )
@@ -4531,8 +4971,14 @@ UberModule
                       ( ParamUnused Nothing :| [] )
                       ( AppN Nothing
                         ( AppN Nothing
-                          ( Ref Nothing
-                            ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "bind" ) )
+                          ( ObjectProp Nothing
+                            ( Ref Nothing
+                              ( Imported
+                                ( ModuleName "Golden.LongStateBind.Test" )
+                                ( Name "bindStateT" )
+                              )
+                            )
+                            ( PropName "bind" )
                           )
                           ( Ref Nothing
                             ( Imported
@@ -4545,11 +4991,14 @@ UberModule
                           ( ParamNamed Nothing ( Name "x62" ) :| [] )
                           ( AppN Nothing
                             ( AppN Nothing
-                              ( Ref Nothing
-                                ( Imported
-                                  ( ModuleName "Golden.LongStateBind.Test" )
-                                  ( Name "discard" )
+                              ( ObjectProp Nothing
+                                ( Ref Nothing
+                                  ( Imported
+                                    ( ModuleName "Golden.LongStateBind.Test" )
+                                    ( Name "bindStateT" )
+                                  )
                                 )
+                                ( PropName "bind" )
                               )
                               ( AbsN Nothing
                                 ( ParamUnused Nothing :| [] )
@@ -4571,11 +5020,14 @@ UberModule
                               ( ParamUnused Nothing :| [] )
                               ( AppN Nothing
                                 ( AppN Nothing
-                                  ( Ref Nothing
-                                    ( Imported
-                                      ( ModuleName "Golden.LongStateBind.Test" )
-                                      ( Name "bind" )
+                                  ( ObjectProp Nothing
+                                    ( Ref Nothing
+                                      ( Imported
+                                        ( ModuleName "Golden.LongStateBind.Test" )
+                                        ( Name "bindStateT" )
+                                      )
                                     )
+                                    ( PropName "bind" )
                                   )
                                   ( Ref Nothing
                                     ( Imported
@@ -4588,11 +5040,14 @@ UberModule
                                   ( ParamNamed Nothing ( Name "x63" ) :| [] )
                                   ( AppN Nothing
                                     ( AppN Nothing
-                                      ( Ref Nothing
-                                        ( Imported
-                                          ( ModuleName "Golden.LongStateBind.Test" )
-                                          ( Name "discard" )
+                                      ( ObjectProp Nothing
+                                        ( Ref Nothing
+                                          ( Imported
+                                            ( ModuleName "Golden.LongStateBind.Test" )
+                                            ( Name "bindStateT" )
+                                          )
                                         )
+                                        ( PropName "bind" )
                                       )
                                       ( AbsN Nothing
                                         ( ParamUnused Nothing :| [] )
@@ -4620,11 +5075,14 @@ UberModule
                                       ( ParamUnused Nothing :| [] )
                                       ( AppN Nothing
                                         ( AppN Nothing
-                                          ( Ref Nothing
-                                            ( Imported
-                                              ( ModuleName "Golden.LongStateBind.Test" )
-                                              ( Name "bind" )
+                                          ( ObjectProp Nothing
+                                            ( Ref Nothing
+                                              ( Imported
+                                                ( ModuleName "Golden.LongStateBind.Test" )
+                                                ( Name "bindStateT" )
+                                              )
                                             )
+                                            ( PropName "bind" )
                                           )
                                           ( Ref Nothing
                                             ( Imported
@@ -4637,11 +5095,14 @@ UberModule
                                           ( ParamNamed Nothing ( Name "x64" ) :| [] )
                                           ( AppN Nothing
                                             ( AppN Nothing
-                                              ( Ref Nothing
-                                                ( Imported
-                                                  ( ModuleName "Golden.LongStateBind.Test" )
-                                                  ( Name "discard" )
+                                              ( ObjectProp Nothing
+                                                ( Ref Nothing
+                                                  ( Imported
+                                                    ( ModuleName "Golden.LongStateBind.Test" )
+                                                    ( Name "bindStateT" )
+                                                  )
                                                 )
+                                                ( PropName "bind" )
                                               )
                                               ( AbsN Nothing
                                                 ( ParamUnused Nothing :| [] )
@@ -4669,11 +5130,14 @@ UberModule
                                               ( ParamUnused Nothing :| [] )
                                               ( AppN Nothing
                                                 ( AppN Nothing
-                                                  ( Ref Nothing
-                                                    ( Imported
-                                                      ( ModuleName "Golden.LongStateBind.Test" )
-                                                      ( Name "bind" )
+                                                  ( ObjectProp Nothing
+                                                    ( Ref Nothing
+                                                      ( Imported
+                                                        ( ModuleName "Golden.LongStateBind.Test" )
+                                                        ( Name "bindStateT" )
+                                                      )
                                                     )
+                                                    ( PropName "bind" )
                                                   )
                                                   ( Ref Nothing
                                                     ( Imported
@@ -4686,11 +5150,14 @@ UberModule
                                                   ( ParamNamed Nothing ( Name "x65" ) :| [] )
                                                   ( AppN Nothing
                                                     ( AppN Nothing
-                                                      ( Ref Nothing
-                                                        ( Imported
-                                                          ( ModuleName "Golden.LongStateBind.Test" )
-                                                          ( Name "discard" )
+                                                      ( ObjectProp Nothing
+                                                        ( Ref Nothing
+                                                          ( Imported
+                                                            ( ModuleName "Golden.LongStateBind.Test" )
+                                                            ( Name "bindStateT" )
+                                                          )
                                                         )
+                                                        ( PropName "bind" )
                                                       )
                                                       ( AbsN Nothing
                                                         ( ParamUnused Nothing :| [] )
@@ -4720,11 +5187,14 @@ UberModule
                                                       ( ParamUnused Nothing :| [] )
                                                       ( AppN Nothing
                                                         ( AppN Nothing
-                                                          ( Ref Nothing
-                                                            ( Imported
-                                                              ( ModuleName "Golden.LongStateBind.Test" )
-                                                              ( Name "bind" )
+                                                          ( ObjectProp Nothing
+                                                            ( Ref Nothing
+                                                              ( Imported
+                                                                ( ModuleName "Golden.LongStateBind.Test" )
+                                                                ( Name "bindStateT" )
+                                                              )
                                                             )
+                                                            ( PropName "bind" )
                                                           )
                                                           ( Ref Nothing
                                                             ( Imported
@@ -4739,11 +5209,14 @@ UberModule
                                                           )
                                                           ( AppN Nothing
                                                             ( AppN Nothing
-                                                              ( Ref Nothing
-                                                                ( Imported
-                                                                  ( ModuleName "Golden.LongStateBind.Test" )
-                                                                  ( Name "discard" )
+                                                              ( ObjectProp Nothing
+                                                                ( Ref Nothing
+                                                                  ( Imported
+                                                                    ( ModuleName "Golden.LongStateBind.Test" )
+                                                                    ( Name "bindStateT" )
+                                                                  )
                                                                 )
+                                                                ( PropName "bind" )
                                                               )
                                                               ( AbsN Nothing
                                                                 ( ParamUnused Nothing :| [] )
@@ -4773,11 +5246,14 @@ UberModule
                                                               ( ParamUnused Nothing :| [] )
                                                               ( AppN Nothing
                                                                 ( AppN Nothing
-                                                                  ( Ref Nothing
-                                                                    ( Imported
-                                                                      ( ModuleName "Golden.LongStateBind.Test" )
-                                                                      ( Name "bind" )
+                                                                  ( ObjectProp Nothing
+                                                                    ( Ref Nothing
+                                                                      ( Imported
+                                                                        ( ModuleName "Golden.LongStateBind.Test" )
+                                                                        ( Name "bindStateT" )
+                                                                      )
                                                                     )
+                                                                    ( PropName "bind" )
                                                                   )
                                                                   ( Ref Nothing
                                                                     ( Imported
@@ -4792,11 +5268,14 @@ UberModule
                                                                   )
                                                                   ( AppN Nothing
                                                                     ( AppN Nothing
-                                                                      ( Ref Nothing
-                                                                        ( Imported
-                                                                          ( ModuleName "Golden.LongStateBind.Test" )
-                                                                          ( Name "discard" )
+                                                                      ( ObjectProp Nothing
+                                                                        ( Ref Nothing
+                                                                          ( Imported
+                                                                            ( ModuleName "Golden.LongStateBind.Test" )
+                                                                            ( Name "bindStateT" )
+                                                                          )
                                                                         )
+                                                                        ( PropName "bind" )
                                                                       )
                                                                       ( AbsN Nothing
                                                                         ( ParamUnused Nothing :| [] )
@@ -4828,11 +5307,14 @@ UberModule
                                                                       ( ParamUnused Nothing :| [] )
                                                                       ( AppN Nothing
                                                                         ( AppN Nothing
-                                                                          ( Ref Nothing
-                                                                            ( Imported
-                                                                              ( ModuleName "Golden.LongStateBind.Test" )
-                                                                              ( Name "bind" )
+                                                                          ( ObjectProp Nothing
+                                                                            ( Ref Nothing
+                                                                              ( Imported
+                                                                                ( ModuleName "Golden.LongStateBind.Test" )
+                                                                                ( Name "bindStateT" )
+                                                                              )
                                                                             )
+                                                                            ( PropName "bind" )
                                                                           )
                                                                           ( Ref Nothing
                                                                             ( Imported
@@ -4847,11 +5329,14 @@ UberModule
                                                                           )
                                                                           ( AppN Nothing
                                                                             ( AppN Nothing
-                                                                              ( Ref Nothing
-                                                                                ( Imported
-                                                                                  ( ModuleName "Golden.LongStateBind.Test" )
-                                                                                  ( Name "discard" )
+                                                                              ( ObjectProp Nothing
+                                                                                ( Ref Nothing
+                                                                                  ( Imported
+                                                                                    ( ModuleName "Golden.LongStateBind.Test" )
+                                                                                    ( Name "bindStateT" )
+                                                                                  )
                                                                                 )
+                                                                                ( PropName "bind" )
                                                                               )
                                                                               ( AbsN Nothing
                                                                                 ( ParamUnused Nothing :| [] )
@@ -4883,11 +5368,14 @@ UberModule
                                                                               ( ParamUnused Nothing :| [] )
                                                                               ( AppN Nothing
                                                                                 ( AppN Nothing
-                                                                                  ( Ref Nothing
-                                                                                    ( Imported
-                                                                                      ( ModuleName "Golden.LongStateBind.Test" )
-                                                                                      ( Name "bind" )
+                                                                                  ( ObjectProp Nothing
+                                                                                    ( Ref Nothing
+                                                                                      ( Imported
+                                                                                        ( ModuleName "Golden.LongStateBind.Test" )
+                                                                                        ( Name "bindStateT" )
+                                                                                      )
                                                                                     )
+                                                                                    ( PropName "bind" )
                                                                                   )
                                                                                   ( Ref Nothing
                                                                                     ( Imported
@@ -4902,11 +5390,14 @@ UberModule
                                                                                   )
                                                                                   ( AppN Nothing
                                                                                     ( AppN Nothing
-                                                                                      ( Ref Nothing
-                                                                                        ( Imported
-                                                                                          ( ModuleName "Golden.LongStateBind.Test" )
-                                                                                          ( Name "discard" )
+                                                                                      ( ObjectProp Nothing
+                                                                                        ( Ref Nothing
+                                                                                          ( Imported
+                                                                                            ( ModuleName "Golden.LongStateBind.Test" )
+                                                                                            ( Name "bindStateT" )
+                                                                                          )
                                                                                         )
+                                                                                        ( PropName "bind" )
                                                                                       )
                                                                                       ( AbsN Nothing
                                                                                         ( ParamUnused Nothing :| [] )
@@ -4938,11 +5429,14 @@ UberModule
                                                                                       ( ParamUnused Nothing :| [] )
                                                                                       ( AppN Nothing
                                                                                         ( AppN Nothing
-                                                                                          ( Ref Nothing
-                                                                                            ( Imported
-                                                                                              ( ModuleName "Golden.LongStateBind.Test" )
-                                                                                              ( Name "bind" )
+                                                                                          ( ObjectProp Nothing
+                                                                                            ( Ref Nothing
+                                                                                              ( Imported
+                                                                                                ( ModuleName "Golden.LongStateBind.Test" )
+                                                                                                ( Name "bindStateT" )
+                                                                                              )
                                                                                             )
+                                                                                            ( PropName "bind" )
                                                                                           )
                                                                                           ( Ref Nothing
                                                                                             ( Imported
@@ -4957,11 +5451,14 @@ UberModule
                                                                                           )
                                                                                           ( AppN Nothing
                                                                                             ( AppN Nothing
-                                                                                              ( Ref Nothing
-                                                                                                ( Imported
-                                                                                                  ( ModuleName "Golden.LongStateBind.Test" )
-                                                                                                  ( Name "discard" )
+                                                                                              ( ObjectProp Nothing
+                                                                                                ( Ref Nothing
+                                                                                                  ( Imported
+                                                                                                    ( ModuleName "Golden.LongStateBind.Test" )
+                                                                                                    ( Name "bindStateT" )
+                                                                                                  )
                                                                                                 )
+                                                                                                ( PropName "bind" )
                                                                                               )
                                                                                               ( AbsN Nothing
                                                                                                 ( ParamUnused Nothing :| [] )
@@ -4993,11 +5490,14 @@ UberModule
                                                                                               ( ParamUnused Nothing :| [] )
                                                                                               ( AppN Nothing
                                                                                                 ( AppN Nothing
-                                                                                                  ( Ref Nothing
-                                                                                                    ( Imported
-                                                                                                      ( ModuleName "Golden.LongStateBind.Test" )
-                                                                                                      ( Name "bind" )
+                                                                                                  ( ObjectProp Nothing
+                                                                                                    ( Ref Nothing
+                                                                                                      ( Imported
+                                                                                                        ( ModuleName "Golden.LongStateBind.Test" )
+                                                                                                        ( Name "bindStateT" )
+                                                                                                      )
                                                                                                     )
+                                                                                                    ( PropName "bind" )
                                                                                                   )
                                                                                                   ( Ref Nothing
                                                                                                     ( Imported
@@ -5012,11 +5512,14 @@ UberModule
                                                                                                   )
                                                                                                   ( AppN Nothing
                                                                                                     ( AppN Nothing
-                                                                                                      ( Ref Nothing
-                                                                                                        ( Imported
-                                                                                                          ( ModuleName "Golden.LongStateBind.Test" )
-                                                                                                          ( Name "discard" )
+                                                                                                      ( ObjectProp Nothing
+                                                                                                        ( Ref Nothing
+                                                                                                          ( Imported
+                                                                                                            ( ModuleName "Golden.LongStateBind.Test" )
+                                                                                                            ( Name "bindStateT" )
+                                                                                                          )
                                                                                                         )
+                                                                                                        ( PropName "bind" )
                                                                                                       )
                                                                                                       ( AbsN Nothing
                                                                                                         ( ParamUnused Nothing :| [] )
@@ -5048,11 +5551,14 @@ UberModule
                                                                                                       ( ParamUnused Nothing :| [] )
                                                                                                       ( AppN Nothing
                                                                                                         ( AppN Nothing
-                                                                                                          ( Ref Nothing
-                                                                                                            ( Imported
-                                                                                                              ( ModuleName "Golden.LongStateBind.Test" )
-                                                                                                              ( Name "bind" )
+                                                                                                          ( ObjectProp Nothing
+                                                                                                            ( Ref Nothing
+                                                                                                              ( Imported
+                                                                                                                ( ModuleName "Golden.LongStateBind.Test" )
+                                                                                                                ( Name "bindStateT" )
+                                                                                                              )
                                                                                                             )
+                                                                                                            ( PropName "bind" )
                                                                                                           )
                                                                                                           ( Ref Nothing
                                                                                                             ( Imported
@@ -5067,11 +5573,14 @@ UberModule
                                                                                                           )
                                                                                                           ( AppN Nothing
                                                                                                             ( AppN Nothing
-                                                                                                              ( Ref Nothing
-                                                                                                                ( Imported
-                                                                                                                  ( ModuleName "Golden.LongStateBind.Test" )
-                                                                                                                  ( Name "discard" )
+                                                                                                              ( ObjectProp Nothing
+                                                                                                                ( Ref Nothing
+                                                                                                                  ( Imported
+                                                                                                                    ( ModuleName "Golden.LongStateBind.Test" )
+                                                                                                                    ( Name "bindStateT" )
+                                                                                                                  )
                                                                                                                 )
+                                                                                                                ( PropName "bind" )
                                                                                                               )
                                                                                                               ( AbsN Nothing
                                                                                                                 ( ParamUnused Nothing :| [] )
@@ -5103,11 +5612,14 @@ UberModule
                                                                                                               ( ParamUnused Nothing :| [] )
                                                                                                               ( AppN Nothing
                                                                                                                 ( AppN Nothing
-                                                                                                                  ( Ref Nothing
-                                                                                                                    ( Imported
-                                                                                                                      ( ModuleName "Golden.LongStateBind.Test" )
-                                                                                                                      ( Name "bind" )
+                                                                                                                  ( ObjectProp Nothing
+                                                                                                                    ( Ref Nothing
+                                                                                                                      ( Imported
+                                                                                                                        ( ModuleName "Golden.LongStateBind.Test" )
+                                                                                                                        ( Name "bindStateT" )
+                                                                                                                      )
                                                                                                                     )
+                                                                                                                    ( PropName "bind" )
                                                                                                                   )
                                                                                                                   ( Ref Nothing
                                                                                                                     ( Imported
@@ -5122,11 +5634,14 @@ UberModule
                                                                                                                   )
                                                                                                                   ( AppN Nothing
                                                                                                                     ( AppN Nothing
-                                                                                                                      ( Ref Nothing
-                                                                                                                        ( Imported
-                                                                                                                          ( ModuleName "Golden.LongStateBind.Test" )
-                                                                                                                          ( Name "discard" )
+                                                                                                                      ( ObjectProp Nothing
+                                                                                                                        ( Ref Nothing
+                                                                                                                          ( Imported
+                                                                                                                            ( ModuleName "Golden.LongStateBind.Test" )
+                                                                                                                            ( Name "bindStateT" )
+                                                                                                                          )
                                                                                                                         )
+                                                                                                                        ( PropName "bind" )
                                                                                                                       )
                                                                                                                       ( AbsN Nothing
                                                                                                                         ( ParamUnused Nothing :| [] )
@@ -5158,11 +5673,14 @@ UberModule
                                                                                                                       ( ParamUnused Nothing :| [] )
                                                                                                                       ( AppN Nothing
                                                                                                                         ( AppN Nothing
-                                                                                                                          ( Ref Nothing
-                                                                                                                            ( Imported
-                                                                                                                              ( ModuleName "Golden.LongStateBind.Test" )
-                                                                                                                              ( Name "bind" )
+                                                                                                                          ( ObjectProp Nothing
+                                                                                                                            ( Ref Nothing
+                                                                                                                              ( Imported
+                                                                                                                                ( ModuleName "Golden.LongStateBind.Test" )
+                                                                                                                                ( Name "bindStateT" )
+                                                                                                                              )
                                                                                                                             )
+                                                                                                                            ( PropName "bind" )
                                                                                                                           )
                                                                                                                           ( Ref Nothing
                                                                                                                             ( Imported
@@ -5177,11 +5695,14 @@ UberModule
                                                                                                                           )
                                                                                                                           ( AppN Nothing
                                                                                                                             ( AppN Nothing
-                                                                                                                              ( Ref Nothing
-                                                                                                                                ( Imported
-                                                                                                                                  ( ModuleName "Golden.LongStateBind.Test" )
-                                                                                                                                  ( Name "discard" )
+                                                                                                                              ( ObjectProp Nothing
+                                                                                                                                ( Ref Nothing
+                                                                                                                                  ( Imported
+                                                                                                                                    ( ModuleName "Golden.LongStateBind.Test" )
+                                                                                                                                    ( Name "bindStateT" )
+                                                                                                                                  )
                                                                                                                                 )
+                                                                                                                                ( PropName "bind" )
                                                                                                                               )
                                                                                                                               ( AbsN Nothing
                                                                                                                                 ( ParamUnused Nothing :| [] )
@@ -5213,11 +5734,14 @@ UberModule
                                                                                                                               ( ParamUnused Nothing :| [] )
                                                                                                                               ( AppN Nothing
                                                                                                                                 ( AppN Nothing
-                                                                                                                                  ( Ref Nothing
-                                                                                                                                    ( Imported
-                                                                                                                                      ( ModuleName "Golden.LongStateBind.Test" )
-                                                                                                                                      ( Name "bind" )
+                                                                                                                                  ( ObjectProp Nothing
+                                                                                                                                    ( Ref Nothing
+                                                                                                                                      ( Imported
+                                                                                                                                        ( ModuleName "Golden.LongStateBind.Test" )
+                                                                                                                                        ( Name "bindStateT" )
+                                                                                                                                      )
                                                                                                                                     )
+                                                                                                                                    ( PropName "bind" )
                                                                                                                                   )
                                                                                                                                   ( Ref Nothing
                                                                                                                                     ( Imported
@@ -5232,11 +5756,14 @@ UberModule
                                                                                                                                   )
                                                                                                                                   ( AppN Nothing
                                                                                                                                     ( AppN Nothing
-                                                                                                                                      ( Ref Nothing
-                                                                                                                                        ( Imported
-                                                                                                                                          ( ModuleName "Golden.LongStateBind.Test" )
-                                                                                                                                          ( Name "discard" )
+                                                                                                                                      ( ObjectProp Nothing
+                                                                                                                                        ( Ref Nothing
+                                                                                                                                          ( Imported
+                                                                                                                                            ( ModuleName "Golden.LongStateBind.Test" )
+                                                                                                                                            ( Name "bindStateT" )
+                                                                                                                                          )
                                                                                                                                         )
+                                                                                                                                        ( PropName "bind" )
                                                                                                                                       )
                                                                                                                                       ( AbsN Nothing
                                                                                                                                         ( ParamUnused Nothing :| [] )
@@ -5268,11 +5795,14 @@ UberModule
                                                                                                                                       ( ParamUnused Nothing :| [] )
                                                                                                                                       ( AppN Nothing
                                                                                                                                         ( AppN Nothing
-                                                                                                                                          ( Ref Nothing
-                                                                                                                                            ( Imported
-                                                                                                                                              ( ModuleName "Golden.LongStateBind.Test" )
-                                                                                                                                              ( Name "bind" )
+                                                                                                                                          ( ObjectProp Nothing
+                                                                                                                                            ( Ref Nothing
+                                                                                                                                              ( Imported
+                                                                                                                                                ( ModuleName "Golden.LongStateBind.Test" )
+                                                                                                                                                ( Name "bindStateT" )
+                                                                                                                                              )
                                                                                                                                             )
+                                                                                                                                            ( PropName "bind" )
                                                                                                                                           )
                                                                                                                                           ( Ref Nothing
                                                                                                                                             ( Imported
@@ -5287,11 +5817,14 @@ UberModule
                                                                                                                                           )
                                                                                                                                           ( AppN Nothing
                                                                                                                                             ( AppN Nothing
-                                                                                                                                              ( Ref Nothing
-                                                                                                                                                ( Imported
-                                                                                                                                                  ( ModuleName "Golden.LongStateBind.Test" )
-                                                                                                                                                  ( Name "discard" )
+                                                                                                                                              ( ObjectProp Nothing
+                                                                                                                                                ( Ref Nothing
+                                                                                                                                                  ( Imported
+                                                                                                                                                    ( ModuleName "Golden.LongStateBind.Test" )
+                                                                                                                                                    ( Name "bindStateT" )
+                                                                                                                                                  )
                                                                                                                                                 )
+                                                                                                                                                ( PropName "bind" )
                                                                                                                                               )
                                                                                                                                               ( AbsN Nothing
                                                                                                                                                 ( ParamUnused Nothing :| [] )
@@ -5323,11 +5856,14 @@ UberModule
                                                                                                                                               ( ParamUnused Nothing :| [] )
                                                                                                                                               ( AppN Nothing
                                                                                                                                                 ( AppN Nothing
-                                                                                                                                                  ( Ref Nothing
-                                                                                                                                                    ( Imported
-                                                                                                                                                      ( ModuleName "Golden.LongStateBind.Test" )
-                                                                                                                                                      ( Name "bind" )
+                                                                                                                                                  ( ObjectProp Nothing
+                                                                                                                                                    ( Ref Nothing
+                                                                                                                                                      ( Imported
+                                                                                                                                                        ( ModuleName "Golden.LongStateBind.Test" )
+                                                                                                                                                        ( Name "bindStateT" )
+                                                                                                                                                      )
                                                                                                                                                     )
+                                                                                                                                                    ( PropName "bind" )
                                                                                                                                                   )
                                                                                                                                                   ( Ref Nothing
                                                                                                                                                     ( Imported
@@ -5342,11 +5878,14 @@ UberModule
                                                                                                                                                   )
                                                                                                                                                   ( AppN Nothing
                                                                                                                                                     ( AppN Nothing
-                                                                                                                                                      ( Ref Nothing
-                                                                                                                                                        ( Imported
-                                                                                                                                                          ( ModuleName "Golden.LongStateBind.Test" )
-                                                                                                                                                          ( Name "discard" )
+                                                                                                                                                      ( ObjectProp Nothing
+                                                                                                                                                        ( Ref Nothing
+                                                                                                                                                          ( Imported
+                                                                                                                                                            ( ModuleName "Golden.LongStateBind.Test" )
+                                                                                                                                                            ( Name "bindStateT" )
+                                                                                                                                                          )
                                                                                                                                                         )
+                                                                                                                                                        ( PropName "bind" )
                                                                                                                                                       )
                                                                                                                                                       ( AbsN Nothing
                                                                                                                                                         ( ParamUnused Nothing :| [] )
@@ -5378,11 +5917,14 @@ UberModule
                                                                                                                                                       ( ParamUnused Nothing :| [] )
                                                                                                                                                       ( AppN Nothing
                                                                                                                                                         ( AppN Nothing
-                                                                                                                                                          ( Ref Nothing
-                                                                                                                                                            ( Imported
-                                                                                                                                                              ( ModuleName "Golden.LongStateBind.Test" )
-                                                                                                                                                              ( Name "bind" )
+                                                                                                                                                          ( ObjectProp Nothing
+                                                                                                                                                            ( Ref Nothing
+                                                                                                                                                              ( Imported
+                                                                                                                                                                ( ModuleName "Golden.LongStateBind.Test" )
+                                                                                                                                                                ( Name "bindStateT" )
+                                                                                                                                                              )
                                                                                                                                                             )
+                                                                                                                                                            ( PropName "bind" )
                                                                                                                                                           )
                                                                                                                                                           ( Ref Nothing
                                                                                                                                                             ( Imported
@@ -5397,11 +5939,14 @@ UberModule
                                                                                                                                                           )
                                                                                                                                                           ( AppN Nothing
                                                                                                                                                             ( AppN Nothing
-                                                                                                                                                              ( Ref Nothing
-                                                                                                                                                                ( Imported
-                                                                                                                                                                  ( ModuleName "Golden.LongStateBind.Test" )
-                                                                                                                                                                  ( Name "discard" )
+                                                                                                                                                              ( ObjectProp Nothing
+                                                                                                                                                                ( Ref Nothing
+                                                                                                                                                                  ( Imported
+                                                                                                                                                                    ( ModuleName "Golden.LongStateBind.Test" )
+                                                                                                                                                                    ( Name "bindStateT" )
+                                                                                                                                                                  )
                                                                                                                                                                 )
+                                                                                                                                                                ( PropName "bind" )
                                                                                                                                                               )
                                                                                                                                                               ( AbsN Nothing
                                                                                                                                                                 ( ParamUnused Nothing :| [] )
@@ -5433,11 +5978,14 @@ UberModule
                                                                                                                                                               ( ParamUnused Nothing :| [] )
                                                                                                                                                               ( AppN Nothing
                                                                                                                                                                 ( AppN Nothing
-                                                                                                                                                                  ( Ref Nothing
-                                                                                                                                                                    ( Imported
-                                                                                                                                                                      ( ModuleName "Golden.LongStateBind.Test" )
-                                                                                                                                                                      ( Name "bind" )
+                                                                                                                                                                  ( ObjectProp Nothing
+                                                                                                                                                                    ( Ref Nothing
+                                                                                                                                                                      ( Imported
+                                                                                                                                                                        ( ModuleName "Golden.LongStateBind.Test" )
+                                                                                                                                                                        ( Name "bindStateT" )
+                                                                                                                                                                      )
                                                                                                                                                                     )
+                                                                                                                                                                    ( PropName "bind" )
                                                                                                                                                                   )
                                                                                                                                                                   ( Ref Nothing
                                                                                                                                                                     ( Imported
@@ -5452,11 +6000,14 @@ UberModule
                                                                                                                                                                   )
                                                                                                                                                                   ( AppN Nothing
                                                                                                                                                                     ( AppN Nothing
-                                                                                                                                                                      ( Ref Nothing
-                                                                                                                                                                        ( Imported
-                                                                                                                                                                          ( ModuleName "Golden.LongStateBind.Test" )
-                                                                                                                                                                          ( Name "discard" )
+                                                                                                                                                                      ( ObjectProp Nothing
+                                                                                                                                                                        ( Ref Nothing
+                                                                                                                                                                          ( Imported
+                                                                                                                                                                            ( ModuleName "Golden.LongStateBind.Test" )
+                                                                                                                                                                            ( Name "bindStateT" )
+                                                                                                                                                                          )
                                                                                                                                                                         )
+                                                                                                                                                                        ( PropName "bind" )
                                                                                                                                                                       )
                                                                                                                                                                       ( AbsN Nothing
                                                                                                                                                                         ( ParamUnused Nothing :| [] )
@@ -5488,11 +6039,14 @@ UberModule
                                                                                                                                                                       ( ParamUnused Nothing :| [] )
                                                                                                                                                                       ( AppN Nothing
                                                                                                                                                                         ( AppN Nothing
-                                                                                                                                                                          ( Ref Nothing
-                                                                                                                                                                            ( Imported
-                                                                                                                                                                              ( ModuleName "Golden.LongStateBind.Test" )
-                                                                                                                                                                              ( Name "bind" )
+                                                                                                                                                                          ( ObjectProp Nothing
+                                                                                                                                                                            ( Ref Nothing
+                                                                                                                                                                              ( Imported
+                                                                                                                                                                                ( ModuleName "Golden.LongStateBind.Test" )
+                                                                                                                                                                                ( Name "bindStateT" )
+                                                                                                                                                                              )
                                                                                                                                                                             )
+                                                                                                                                                                            ( PropName "bind" )
                                                                                                                                                                           )
                                                                                                                                                                           ( Ref Nothing
                                                                                                                                                                             ( Imported
@@ -5507,11 +6061,14 @@ UberModule
                                                                                                                                                                           )
                                                                                                                                                                           ( AppN Nothing
                                                                                                                                                                             ( AppN Nothing
-                                                                                                                                                                              ( Ref Nothing
-                                                                                                                                                                                ( Imported
-                                                                                                                                                                                  ( ModuleName "Golden.LongStateBind.Test" )
-                                                                                                                                                                                  ( Name "discard" )
+                                                                                                                                                                              ( ObjectProp Nothing
+                                                                                                                                                                                ( Ref Nothing
+                                                                                                                                                                                  ( Imported
+                                                                                                                                                                                    ( ModuleName "Golden.LongStateBind.Test" )
+                                                                                                                                                                                    ( Name "bindStateT" )
+                                                                                                                                                                                  )
                                                                                                                                                                                 )
+                                                                                                                                                                                ( PropName "bind" )
                                                                                                                                                                               )
                                                                                                                                                                               ( AbsN Nothing
                                                                                                                                                                                 ( ParamUnused Nothing :| [] )
@@ -5544,12 +6101,12 @@ UberModule
                                                                                                                                                                               ( AppN Nothing
                                                                                                                                                                                 ( Ref Nothing
                                                                                                                                                                                   ( Local
-                                                                                                                                                                                    ( Name "$kont1777" )
+                                                                                                                                                                                    ( Name "$kont2520" )
                                                                                                                                                                                   )
                                                                                                                                                                                 )
                                                                                                                                                                                 ( Ref Nothing
                                                                                                                                                                                   ( Local
-                                                                                                                                                                                    ( Name "x1$1780" )
+                                                                                                                                                                                    ( Name "x1$2523" )
                                                                                                                                                                                   ) :| []
                                                                                                                                                                                 )
                                                                                                                                                                               ) :| []
@@ -5634,12 +6191,15 @@ UberModule
                 )
               )
             ), Standalone
-            ( Nothing, Name "$kont1781", AbsN Nothing
-              ( ParamNamed Nothing ( Name "x1$1782" ) :| [] )
+            ( Nothing, Name "$kont2524", AbsN Nothing
+              ( ParamNamed Nothing ( Name "x1$2525" ) :| [] )
               ( AppN Nothing
                 ( AppN Nothing
-                  ( Ref Nothing
-                    ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "bind" ) )
+                  ( ObjectProp Nothing
+                    ( Ref Nothing
+                      ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "bindStateT" ) )
+                    )
+                    ( PropName "bind" )
                   )
                   ( Ref Nothing
                     ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "get" ) ) :| []
@@ -5649,8 +6209,14 @@ UberModule
                   ( ParamNamed Nothing ( Name "x41" ) :| [] )
                   ( AppN Nothing
                     ( AppN Nothing
-                      ( Ref Nothing
-                        ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "discard" ) )
+                      ( ObjectProp Nothing
+                        ( Ref Nothing
+                          ( Imported
+                            ( ModuleName "Golden.LongStateBind.Test" )
+                            ( Name "bindStateT" )
+                          )
+                        )
+                        ( PropName "bind" )
                       )
                       ( AbsN Nothing
                         ( ParamUnused Nothing :| [] )
@@ -5672,12 +6238,18 @@ UberModule
                       ( ParamUnused Nothing :| [] )
                       ( AppN Nothing
                         ( AppN Nothing
-                          ( Ref Nothing
-                            ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "bind" ) )
-                          )
-                          ( Ref Nothing
-                            ( Imported
-                              ( ModuleName "Golden.LongStateBind.Test" )
+                          ( ObjectProp Nothing
+                            ( Ref Nothing
+                              ( Imported
+                                ( ModuleName "Golden.LongStateBind.Test" )
+                                ( Name "bindStateT" )
+                              )
+                            )
+                            ( PropName "bind" )
+                          )
+                          ( Ref Nothing
+                            ( Imported
+                              ( ModuleName "Golden.LongStateBind.Test" )
                               ( Name "get" )
                             ) :| []
                           )
@@ -5686,11 +6258,14 @@ UberModule
                           ( ParamNamed Nothing ( Name "x42" ) :| [] )
                           ( AppN Nothing
                             ( AppN Nothing
-                              ( Ref Nothing
-                                ( Imported
-                                  ( ModuleName "Golden.LongStateBind.Test" )
-                                  ( Name "discard" )
+                              ( ObjectProp Nothing
+                                ( Ref Nothing
+                                  ( Imported
+                                    ( ModuleName "Golden.LongStateBind.Test" )
+                                    ( Name "bindStateT" )
+                                  )
                                 )
+                                ( PropName "bind" )
                               )
                               ( AbsN Nothing
                                 ( ParamUnused Nothing :| [] )
@@ -5712,11 +6287,14 @@ UberModule
                               ( ParamUnused Nothing :| [] )
                               ( AppN Nothing
                                 ( AppN Nothing
-                                  ( Ref Nothing
-                                    ( Imported
-                                      ( ModuleName "Golden.LongStateBind.Test" )
-                                      ( Name "bind" )
+                                  ( ObjectProp Nothing
+                                    ( Ref Nothing
+                                      ( Imported
+                                        ( ModuleName "Golden.LongStateBind.Test" )
+                                        ( Name "bindStateT" )
+                                      )
                                     )
+                                    ( PropName "bind" )
                                   )
                                   ( Ref Nothing
                                     ( Imported
@@ -5729,11 +6307,14 @@ UberModule
                                   ( ParamNamed Nothing ( Name "x43" ) :| [] )
                                   ( AppN Nothing
                                     ( AppN Nothing
-                                      ( Ref Nothing
-                                        ( Imported
-                                          ( ModuleName "Golden.LongStateBind.Test" )
-                                          ( Name "discard" )
+                                      ( ObjectProp Nothing
+                                        ( Ref Nothing
+                                          ( Imported
+                                            ( ModuleName "Golden.LongStateBind.Test" )
+                                            ( Name "bindStateT" )
+                                          )
                                         )
+                                        ( PropName "bind" )
                                       )
                                       ( AbsN Nothing
                                         ( ParamUnused Nothing :| [] )
@@ -5761,11 +6342,14 @@ UberModule
                                       ( ParamUnused Nothing :| [] )
                                       ( AppN Nothing
                                         ( AppN Nothing
-                                          ( Ref Nothing
-                                            ( Imported
-                                              ( ModuleName "Golden.LongStateBind.Test" )
-                                              ( Name "bind" )
+                                          ( ObjectProp Nothing
+                                            ( Ref Nothing
+                                              ( Imported
+                                                ( ModuleName "Golden.LongStateBind.Test" )
+                                                ( Name "bindStateT" )
+                                              )
                                             )
+                                            ( PropName "bind" )
                                           )
                                           ( Ref Nothing
                                             ( Imported
@@ -5778,11 +6362,14 @@ UberModule
                                           ( ParamNamed Nothing ( Name "x44" ) :| [] )
                                           ( AppN Nothing
                                             ( AppN Nothing
-                                              ( Ref Nothing
-                                                ( Imported
-                                                  ( ModuleName "Golden.LongStateBind.Test" )
-                                                  ( Name "discard" )
+                                              ( ObjectProp Nothing
+                                                ( Ref Nothing
+                                                  ( Imported
+                                                    ( ModuleName "Golden.LongStateBind.Test" )
+                                                    ( Name "bindStateT" )
+                                                  )
                                                 )
+                                                ( PropName "bind" )
                                               )
                                               ( AbsN Nothing
                                                 ( ParamUnused Nothing :| [] )
@@ -5810,11 +6397,14 @@ UberModule
                                               ( ParamUnused Nothing :| [] )
                                               ( AppN Nothing
                                                 ( AppN Nothing
-                                                  ( Ref Nothing
-                                                    ( Imported
-                                                      ( ModuleName "Golden.LongStateBind.Test" )
-                                                      ( Name "bind" )
+                                                  ( ObjectProp Nothing
+                                                    ( Ref Nothing
+                                                      ( Imported
+                                                        ( ModuleName "Golden.LongStateBind.Test" )
+                                                        ( Name "bindStateT" )
+                                                      )
                                                     )
+                                                    ( PropName "bind" )
                                                   )
                                                   ( Ref Nothing
                                                     ( Imported
@@ -5827,11 +6417,14 @@ UberModule
                                                   ( ParamNamed Nothing ( Name "x45" ) :| [] )
                                                   ( AppN Nothing
                                                     ( AppN Nothing
-                                                      ( Ref Nothing
-                                                        ( Imported
-                                                          ( ModuleName "Golden.LongStateBind.Test" )
-                                                          ( Name "discard" )
+                                                      ( ObjectProp Nothing
+                                                        ( Ref Nothing
+                                                          ( Imported
+                                                            ( ModuleName "Golden.LongStateBind.Test" )
+                                                            ( Name "bindStateT" )
+                                                          )
                                                         )
+                                                        ( PropName "bind" )
                                                       )
                                                       ( AbsN Nothing
                                                         ( ParamUnused Nothing :| [] )
@@ -5861,11 +6454,14 @@ UberModule
                                                       ( ParamUnused Nothing :| [] )
                                                       ( AppN Nothing
                                                         ( AppN Nothing
-                                                          ( Ref Nothing
-                                                            ( Imported
-                                                              ( ModuleName "Golden.LongStateBind.Test" )
-                                                              ( Name "bind" )
+                                                          ( ObjectProp Nothing
+                                                            ( Ref Nothing
+                                                              ( Imported
+                                                                ( ModuleName "Golden.LongStateBind.Test" )
+                                                                ( Name "bindStateT" )
+                                                              )
                                                             )
+                                                            ( PropName "bind" )
                                                           )
                                                           ( Ref Nothing
                                                             ( Imported
@@ -5880,11 +6476,14 @@ UberModule
                                                           )
                                                           ( AppN Nothing
                                                             ( AppN Nothing
-                                                              ( Ref Nothing
-                                                                ( Imported
-                                                                  ( ModuleName "Golden.LongStateBind.Test" )
-                                                                  ( Name "discard" )
+                                                              ( ObjectProp Nothing
+                                                                ( Ref Nothing
+                                                                  ( Imported
+                                                                    ( ModuleName "Golden.LongStateBind.Test" )
+                                                                    ( Name "bindStateT" )
+                                                                  )
                                                                 )
+                                                                ( PropName "bind" )
                                                               )
                                                               ( AbsN Nothing
                                                                 ( ParamUnused Nothing :| [] )
@@ -5914,11 +6513,14 @@ UberModule
                                                               ( ParamUnused Nothing :| [] )
                                                               ( AppN Nothing
                                                                 ( AppN Nothing
-                                                                  ( Ref Nothing
-                                                                    ( Imported
-                                                                      ( ModuleName "Golden.LongStateBind.Test" )
-                                                                      ( Name "bind" )
+                                                                  ( ObjectProp Nothing
+                                                                    ( Ref Nothing
+                                                                      ( Imported
+                                                                        ( ModuleName "Golden.LongStateBind.Test" )
+                                                                        ( Name "bindStateT" )
+                                                                      )
                                                                     )
+                                                                    ( PropName "bind" )
                                                                   )
                                                                   ( Ref Nothing
                                                                     ( Imported
@@ -5933,11 +6535,14 @@ UberModule
                                                                   )
                                                                   ( AppN Nothing
                                                                     ( AppN Nothing
-                                                                      ( Ref Nothing
-                                                                        ( Imported
-                                                                          ( ModuleName "Golden.LongStateBind.Test" )
-                                                                          ( Name "discard" )
+                                                                      ( ObjectProp Nothing
+                                                                        ( Ref Nothing
+                                                                          ( Imported
+                                                                            ( ModuleName "Golden.LongStateBind.Test" )
+                                                                            ( Name "bindStateT" )
+                                                                          )
                                                                         )
+                                                                        ( PropName "bind" )
                                                                       )
                                                                       ( AbsN Nothing
                                                                         ( ParamUnused Nothing :| [] )
@@ -5969,11 +6574,14 @@ UberModule
                                                                       ( ParamUnused Nothing :| [] )
                                                                       ( AppN Nothing
                                                                         ( AppN Nothing
-                                                                          ( Ref Nothing
-                                                                            ( Imported
-                                                                              ( ModuleName "Golden.LongStateBind.Test" )
-                                                                              ( Name "bind" )
+                                                                          ( ObjectProp Nothing
+                                                                            ( Ref Nothing
+                                                                              ( Imported
+                                                                                ( ModuleName "Golden.LongStateBind.Test" )
+                                                                                ( Name "bindStateT" )
+                                                                              )
                                                                             )
+                                                                            ( PropName "bind" )
                                                                           )
                                                                           ( Ref Nothing
                                                                             ( Imported
@@ -5988,11 +6596,14 @@ UberModule
                                                                           )
                                                                           ( AppN Nothing
                                                                             ( AppN Nothing
-                                                                              ( Ref Nothing
-                                                                                ( Imported
-                                                                                  ( ModuleName "Golden.LongStateBind.Test" )
-                                                                                  ( Name "discard" )
+                                                                              ( ObjectProp Nothing
+                                                                                ( Ref Nothing
+                                                                                  ( Imported
+                                                                                    ( ModuleName "Golden.LongStateBind.Test" )
+                                                                                    ( Name "bindStateT" )
+                                                                                  )
                                                                                 )
+                                                                                ( PropName "bind" )
                                                                               )
                                                                               ( AbsN Nothing
                                                                                 ( ParamUnused Nothing :| [] )
@@ -6024,11 +6635,14 @@ UberModule
                                                                               ( ParamUnused Nothing :| [] )
                                                                               ( AppN Nothing
                                                                                 ( AppN Nothing
-                                                                                  ( Ref Nothing
-                                                                                    ( Imported
-                                                                                      ( ModuleName "Golden.LongStateBind.Test" )
-                                                                                      ( Name "bind" )
+                                                                                  ( ObjectProp Nothing
+                                                                                    ( Ref Nothing
+                                                                                      ( Imported
+                                                                                        ( ModuleName "Golden.LongStateBind.Test" )
+                                                                                        ( Name "bindStateT" )
+                                                                                      )
                                                                                     )
+                                                                                    ( PropName "bind" )
                                                                                   )
                                                                                   ( Ref Nothing
                                                                                     ( Imported
@@ -6043,11 +6657,14 @@ UberModule
                                                                                   )
                                                                                   ( AppN Nothing
                                                                                     ( AppN Nothing
-                                                                                      ( Ref Nothing
-                                                                                        ( Imported
-                                                                                          ( ModuleName "Golden.LongStateBind.Test" )
-                                                                                          ( Name "discard" )
+                                                                                      ( ObjectProp Nothing
+                                                                                        ( Ref Nothing
+                                                                                          ( Imported
+                                                                                            ( ModuleName "Golden.LongStateBind.Test" )
+                                                                                            ( Name "bindStateT" )
+                                                                                          )
                                                                                         )
+                                                                                        ( PropName "bind" )
                                                                                       )
                                                                                       ( AbsN Nothing
                                                                                         ( ParamUnused Nothing :| [] )
@@ -6079,11 +6696,14 @@ UberModule
                                                                                       ( ParamUnused Nothing :| [] )
                                                                                       ( AppN Nothing
                                                                                         ( AppN Nothing
-                                                                                          ( Ref Nothing
-                                                                                            ( Imported
-                                                                                              ( ModuleName "Golden.LongStateBind.Test" )
-                                                                                              ( Name "bind" )
+                                                                                          ( ObjectProp Nothing
+                                                                                            ( Ref Nothing
+                                                                                              ( Imported
+                                                                                                ( ModuleName "Golden.LongStateBind.Test" )
+                                                                                                ( Name "bindStateT" )
+                                                                                              )
                                                                                             )
+                                                                                            ( PropName "bind" )
                                                                                           )
                                                                                           ( Ref Nothing
                                                                                             ( Imported
@@ -6098,11 +6718,14 @@ UberModule
                                                                                           )
                                                                                           ( AppN Nothing
                                                                                             ( AppN Nothing
-                                                                                              ( Ref Nothing
-                                                                                                ( Imported
-                                                                                                  ( ModuleName "Golden.LongStateBind.Test" )
-                                                                                                  ( Name "discard" )
+                                                                                              ( ObjectProp Nothing
+                                                                                                ( Ref Nothing
+                                                                                                  ( Imported
+                                                                                                    ( ModuleName "Golden.LongStateBind.Test" )
+                                                                                                    ( Name "bindStateT" )
+                                                                                                  )
                                                                                                 )
+                                                                                                ( PropName "bind" )
                                                                                               )
                                                                                               ( AbsN Nothing
                                                                                                 ( ParamUnused Nothing :| [] )
@@ -6134,11 +6757,14 @@ UberModule
                                                                                               ( ParamUnused Nothing :| [] )
                                                                                               ( AppN Nothing
                                                                                                 ( AppN Nothing
-                                                                                                  ( Ref Nothing
-                                                                                                    ( Imported
-                                                                                                      ( ModuleName "Golden.LongStateBind.Test" )
-                                                                                                      ( Name "bind" )
+                                                                                                  ( ObjectProp Nothing
+                                                                                                    ( Ref Nothing
+                                                                                                      ( Imported
+                                                                                                        ( ModuleName "Golden.LongStateBind.Test" )
+                                                                                                        ( Name "bindStateT" )
+                                                                                                      )
                                                                                                     )
+                                                                                                    ( PropName "bind" )
                                                                                                   )
                                                                                                   ( Ref Nothing
                                                                                                     ( Imported
@@ -6153,11 +6779,14 @@ UberModule
                                                                                                   )
                                                                                                   ( AppN Nothing
                                                                                                     ( AppN Nothing
-                                                                                                      ( Ref Nothing
-                                                                                                        ( Imported
-                                                                                                          ( ModuleName "Golden.LongStateBind.Test" )
-                                                                                                          ( Name "discard" )
+                                                                                                      ( ObjectProp Nothing
+                                                                                                        ( Ref Nothing
+                                                                                                          ( Imported
+                                                                                                            ( ModuleName "Golden.LongStateBind.Test" )
+                                                                                                            ( Name "bindStateT" )
+                                                                                                          )
                                                                                                         )
+                                                                                                        ( PropName "bind" )
                                                                                                       )
                                                                                                       ( AbsN Nothing
                                                                                                         ( ParamUnused Nothing :| [] )
@@ -6189,11 +6818,14 @@ UberModule
                                                                                                       ( ParamUnused Nothing :| [] )
                                                                                                       ( AppN Nothing
                                                                                                         ( AppN Nothing
-                                                                                                          ( Ref Nothing
-                                                                                                            ( Imported
-                                                                                                              ( ModuleName "Golden.LongStateBind.Test" )
-                                                                                                              ( Name "bind" )
+                                                                                                          ( ObjectProp Nothing
+                                                                                                            ( Ref Nothing
+                                                                                                              ( Imported
+                                                                                                                ( ModuleName "Golden.LongStateBind.Test" )
+                                                                                                                ( Name "bindStateT" )
+                                                                                                              )
                                                                                                             )
+                                                                                                            ( PropName "bind" )
                                                                                                           )
                                                                                                           ( Ref Nothing
                                                                                                             ( Imported
@@ -6208,11 +6840,14 @@ UberModule
                                                                                                           )
                                                                                                           ( AppN Nothing
                                                                                                             ( AppN Nothing
-                                                                                                              ( Ref Nothing
-                                                                                                                ( Imported
-                                                                                                                  ( ModuleName "Golden.LongStateBind.Test" )
-                                                                                                                  ( Name "discard" )
+                                                                                                              ( ObjectProp Nothing
+                                                                                                                ( Ref Nothing
+                                                                                                                  ( Imported
+                                                                                                                    ( ModuleName "Golden.LongStateBind.Test" )
+                                                                                                                    ( Name "bindStateT" )
+                                                                                                                  )
                                                                                                                 )
+                                                                                                                ( PropName "bind" )
                                                                                                               )
                                                                                                               ( AbsN Nothing
                                                                                                                 ( ParamUnused Nothing :| [] )
@@ -6244,11 +6879,14 @@ UberModule
                                                                                                               ( ParamUnused Nothing :| [] )
                                                                                                               ( AppN Nothing
                                                                                                                 ( AppN Nothing
-                                                                                                                  ( Ref Nothing
-                                                                                                                    ( Imported
-                                                                                                                      ( ModuleName "Golden.LongStateBind.Test" )
-                                                                                                                      ( Name "bind" )
+                                                                                                                  ( ObjectProp Nothing
+                                                                                                                    ( Ref Nothing
+                                                                                                                      ( Imported
+                                                                                                                        ( ModuleName "Golden.LongStateBind.Test" )
+                                                                                                                        ( Name "bindStateT" )
+                                                                                                                      )
                                                                                                                     )
+                                                                                                                    ( PropName "bind" )
                                                                                                                   )
                                                                                                                   ( Ref Nothing
                                                                                                                     ( Imported
@@ -6263,11 +6901,14 @@ UberModule
                                                                                                                   )
                                                                                                                   ( AppN Nothing
                                                                                                                     ( AppN Nothing
-                                                                                                                      ( Ref Nothing
-                                                                                                                        ( Imported
-                                                                                                                          ( ModuleName "Golden.LongStateBind.Test" )
-                                                                                                                          ( Name "discard" )
+                                                                                                                      ( ObjectProp Nothing
+                                                                                                                        ( Ref Nothing
+                                                                                                                          ( Imported
+                                                                                                                            ( ModuleName "Golden.LongStateBind.Test" )
+                                                                                                                            ( Name "bindStateT" )
+                                                                                                                          )
                                                                                                                         )
+                                                                                                                        ( PropName "bind" )
                                                                                                                       )
                                                                                                                       ( AbsN Nothing
                                                                                                                         ( ParamUnused Nothing :| [] )
@@ -6299,11 +6940,14 @@ UberModule
                                                                                                                       ( ParamUnused Nothing :| [] )
                                                                                                                       ( AppN Nothing
                                                                                                                         ( AppN Nothing
-                                                                                                                          ( Ref Nothing
-                                                                                                                            ( Imported
-                                                                                                                              ( ModuleName "Golden.LongStateBind.Test" )
-                                                                                                                              ( Name "bind" )
+                                                                                                                          ( ObjectProp Nothing
+                                                                                                                            ( Ref Nothing
+                                                                                                                              ( Imported
+                                                                                                                                ( ModuleName "Golden.LongStateBind.Test" )
+                                                                                                                                ( Name "bindStateT" )
+                                                                                                                              )
                                                                                                                             )
+                                                                                                                            ( PropName "bind" )
                                                                                                                           )
                                                                                                                           ( Ref Nothing
                                                                                                                             ( Imported
@@ -6318,11 +6962,14 @@ UberModule
                                                                                                                           )
                                                                                                                           ( AppN Nothing
                                                                                                                             ( AppN Nothing
-                                                                                                                              ( Ref Nothing
-                                                                                                                                ( Imported
-                                                                                                                                  ( ModuleName "Golden.LongStateBind.Test" )
-                                                                                                                                  ( Name "discard" )
+                                                                                                                              ( ObjectProp Nothing
+                                                                                                                                ( Ref Nothing
+                                                                                                                                  ( Imported
+                                                                                                                                    ( ModuleName "Golden.LongStateBind.Test" )
+                                                                                                                                    ( Name "bindStateT" )
+                                                                                                                                  )
                                                                                                                                 )
+                                                                                                                                ( PropName "bind" )
                                                                                                                               )
                                                                                                                               ( AbsN Nothing
                                                                                                                                 ( ParamUnused Nothing :| [] )
@@ -6354,11 +7001,14 @@ UberModule
                                                                                                                               ( ParamUnused Nothing :| [] )
                                                                                                                               ( AppN Nothing
                                                                                                                                 ( AppN Nothing
-                                                                                                                                  ( Ref Nothing
-                                                                                                                                    ( Imported
-                                                                                                                                      ( ModuleName "Golden.LongStateBind.Test" )
-                                                                                                                                      ( Name "bind" )
+                                                                                                                                  ( ObjectProp Nothing
+                                                                                                                                    ( Ref Nothing
+                                                                                                                                      ( Imported
+                                                                                                                                        ( ModuleName "Golden.LongStateBind.Test" )
+                                                                                                                                        ( Name "bindStateT" )
+                                                                                                                                      )
                                                                                                                                     )
+                                                                                                                                    ( PropName "bind" )
                                                                                                                                   )
                                                                                                                                   ( Ref Nothing
                                                                                                                                     ( Imported
@@ -6373,11 +7023,14 @@ UberModule
                                                                                                                                   )
                                                                                                                                   ( AppN Nothing
                                                                                                                                     ( AppN Nothing
-                                                                                                                                      ( Ref Nothing
-                                                                                                                                        ( Imported
-                                                                                                                                          ( ModuleName "Golden.LongStateBind.Test" )
-                                                                                                                                          ( Name "discard" )
+                                                                                                                                      ( ObjectProp Nothing
+                                                                                                                                        ( Ref Nothing
+                                                                                                                                          ( Imported
+                                                                                                                                            ( ModuleName "Golden.LongStateBind.Test" )
+                                                                                                                                            ( Name "bindStateT" )
+                                                                                                                                          )
                                                                                                                                         )
+                                                                                                                                        ( PropName "bind" )
                                                                                                                                       )
                                                                                                                                       ( AbsN Nothing
                                                                                                                                         ( ParamUnused Nothing :| [] )
@@ -6409,11 +7062,14 @@ UberModule
                                                                                                                                       ( ParamUnused Nothing :| [] )
                                                                                                                                       ( AppN Nothing
                                                                                                                                         ( AppN Nothing
-                                                                                                                                          ( Ref Nothing
-                                                                                                                                            ( Imported
-                                                                                                                                              ( ModuleName "Golden.LongStateBind.Test" )
-                                                                                                                                              ( Name "bind" )
+                                                                                                                                          ( ObjectProp Nothing
+                                                                                                                                            ( Ref Nothing
+                                                                                                                                              ( Imported
+                                                                                                                                                ( ModuleName "Golden.LongStateBind.Test" )
+                                                                                                                                                ( Name "bindStateT" )
+                                                                                                                                              )
                                                                                                                                             )
+                                                                                                                                            ( PropName "bind" )
                                                                                                                                           )
                                                                                                                                           ( Ref Nothing
                                                                                                                                             ( Imported
@@ -6428,11 +7084,14 @@ UberModule
                                                                                                                                           )
                                                                                                                                           ( AppN Nothing
                                                                                                                                             ( AppN Nothing
-                                                                                                                                              ( Ref Nothing
-                                                                                                                                                ( Imported
-                                                                                                                                                  ( ModuleName "Golden.LongStateBind.Test" )
-                                                                                                                                                  ( Name "discard" )
+                                                                                                                                              ( ObjectProp Nothing
+                                                                                                                                                ( Ref Nothing
+                                                                                                                                                  ( Imported
+                                                                                                                                                    ( ModuleName "Golden.LongStateBind.Test" )
+                                                                                                                                                    ( Name "bindStateT" )
+                                                                                                                                                  )
                                                                                                                                                 )
+                                                                                                                                                ( PropName "bind" )
                                                                                                                                               )
                                                                                                                                               ( AbsN Nothing
                                                                                                                                                 ( ParamUnused Nothing :| [] )
@@ -6464,11 +7123,14 @@ UberModule
                                                                                                                                               ( ParamUnused Nothing :| [] )
                                                                                                                                               ( AppN Nothing
                                                                                                                                                 ( AppN Nothing
-                                                                                                                                                  ( Ref Nothing
-                                                                                                                                                    ( Imported
-                                                                                                                                                      ( ModuleName "Golden.LongStateBind.Test" )
-                                                                                                                                                      ( Name "bind" )
+                                                                                                                                                  ( ObjectProp Nothing
+                                                                                                                                                    ( Ref Nothing
+                                                                                                                                                      ( Imported
+                                                                                                                                                        ( ModuleName "Golden.LongStateBind.Test" )
+                                                                                                                                                        ( Name "bindStateT" )
+                                                                                                                                                      )
                                                                                                                                                     )
+                                                                                                                                                    ( PropName "bind" )
                                                                                                                                                   )
                                                                                                                                                   ( Ref Nothing
                                                                                                                                                     ( Imported
@@ -6483,11 +7145,14 @@ UberModule
                                                                                                                                                   )
                                                                                                                                                   ( AppN Nothing
                                                                                                                                                     ( AppN Nothing
-                                                                                                                                                      ( Ref Nothing
-                                                                                                                                                        ( Imported
-                                                                                                                                                          ( ModuleName "Golden.LongStateBind.Test" )
-                                                                                                                                                          ( Name "discard" )
+                                                                                                                                                      ( ObjectProp Nothing
+                                                                                                                                                        ( Ref Nothing
+                                                                                                                                                          ( Imported
+                                                                                                                                                            ( ModuleName "Golden.LongStateBind.Test" )
+                                                                                                                                                            ( Name "bindStateT" )
+                                                                                                                                                          )
                                                                                                                                                         )
+                                                                                                                                                        ( PropName "bind" )
                                                                                                                                                       )
                                                                                                                                                       ( AbsN Nothing
                                                                                                                                                         ( ParamUnused Nothing :| [] )
@@ -6519,11 +7184,14 @@ UberModule
                                                                                                                                                       ( ParamUnused Nothing :| [] )
                                                                                                                                                       ( AppN Nothing
                                                                                                                                                         ( AppN Nothing
-                                                                                                                                                          ( Ref Nothing
-                                                                                                                                                            ( Imported
-                                                                                                                                                              ( ModuleName "Golden.LongStateBind.Test" )
-                                                                                                                                                              ( Name "bind" )
+                                                                                                                                                          ( ObjectProp Nothing
+                                                                                                                                                            ( Ref Nothing
+                                                                                                                                                              ( Imported
+                                                                                                                                                                ( ModuleName "Golden.LongStateBind.Test" )
+                                                                                                                                                                ( Name "bindStateT" )
+                                                                                                                                                              )
                                                                                                                                                             )
+                                                                                                                                                            ( PropName "bind" )
                                                                                                                                                           )
                                                                                                                                                           ( Ref Nothing
                                                                                                                                                             ( Imported
@@ -6538,11 +7206,14 @@ UberModule
                                                                                                                                                           )
                                                                                                                                                           ( AppN Nothing
                                                                                                                                                             ( AppN Nothing
-                                                                                                                                                              ( Ref Nothing
-                                                                                                                                                                ( Imported
-                                                                                                                                                                  ( ModuleName "Golden.LongStateBind.Test" )
-                                                                                                                                                                  ( Name "discard" )
+                                                                                                                                                              ( ObjectProp Nothing
+                                                                                                                                                                ( Ref Nothing
+                                                                                                                                                                  ( Imported
+                                                                                                                                                                    ( ModuleName "Golden.LongStateBind.Test" )
+                                                                                                                                                                    ( Name "bindStateT" )
+                                                                                                                                                                  )
                                                                                                                                                                 )
+                                                                                                                                                                ( PropName "bind" )
                                                                                                                                                               )
                                                                                                                                                               ( AbsN Nothing
                                                                                                                                                                 ( ParamUnused Nothing :| [] )
@@ -6574,11 +7245,14 @@ UberModule
                                                                                                                                                               ( ParamUnused Nothing :| [] )
                                                                                                                                                               ( AppN Nothing
                                                                                                                                                                 ( AppN Nothing
-                                                                                                                                                                  ( Ref Nothing
-                                                                                                                                                                    ( Imported
-                                                                                                                                                                      ( ModuleName "Golden.LongStateBind.Test" )
-                                                                                                                                                                      ( Name "bind" )
+                                                                                                                                                                  ( ObjectProp Nothing
+                                                                                                                                                                    ( Ref Nothing
+                                                                                                                                                                      ( Imported
+                                                                                                                                                                        ( ModuleName "Golden.LongStateBind.Test" )
+                                                                                                                                                                        ( Name "bindStateT" )
+                                                                                                                                                                      )
                                                                                                                                                                     )
+                                                                                                                                                                    ( PropName "bind" )
                                                                                                                                                                   )
                                                                                                                                                                   ( Ref Nothing
                                                                                                                                                                     ( Imported
@@ -6593,11 +7267,14 @@ UberModule
                                                                                                                                                                   )
                                                                                                                                                                   ( AppN Nothing
                                                                                                                                                                     ( AppN Nothing
-                                                                                                                                                                      ( Ref Nothing
-                                                                                                                                                                        ( Imported
-                                                                                                                                                                          ( ModuleName "Golden.LongStateBind.Test" )
-                                                                                                                                                                          ( Name "discard" )
+                                                                                                                                                                      ( ObjectProp Nothing
+                                                                                                                                                                        ( Ref Nothing
+                                                                                                                                                                          ( Imported
+                                                                                                                                                                            ( ModuleName "Golden.LongStateBind.Test" )
+                                                                                                                                                                            ( Name "bindStateT" )
+                                                                                                                                                                          )
                                                                                                                                                                         )
+                                                                                                                                                                        ( PropName "bind" )
                                                                                                                                                                       )
                                                                                                                                                                       ( AbsN Nothing
                                                                                                                                                                         ( ParamUnused Nothing :| [] )
@@ -6629,11 +7306,14 @@ UberModule
                                                                                                                                                                       ( ParamUnused Nothing :| [] )
                                                                                                                                                                       ( AppN Nothing
                                                                                                                                                                         ( AppN Nothing
-                                                                                                                                                                          ( Ref Nothing
-                                                                                                                                                                            ( Imported
-                                                                                                                                                                              ( ModuleName "Golden.LongStateBind.Test" )
-                                                                                                                                                                              ( Name "bind" )
+                                                                                                                                                                          ( ObjectProp Nothing
+                                                                                                                                                                            ( Ref Nothing
+                                                                                                                                                                              ( Imported
+                                                                                                                                                                                ( ModuleName "Golden.LongStateBind.Test" )
+                                                                                                                                                                                ( Name "bindStateT" )
+                                                                                                                                                                              )
                                                                                                                                                                             )
+                                                                                                                                                                            ( PropName "bind" )
                                                                                                                                                                           )
                                                                                                                                                                           ( Ref Nothing
                                                                                                                                                                             ( Imported
@@ -6648,11 +7328,14 @@ UberModule
                                                                                                                                                                           )
                                                                                                                                                                           ( AppN Nothing
                                                                                                                                                                             ( AppN Nothing
-                                                                                                                                                                              ( Ref Nothing
-                                                                                                                                                                                ( Imported
-                                                                                                                                                                                  ( ModuleName "Golden.LongStateBind.Test" )
-                                                                                                                                                                                  ( Name "discard" )
+                                                                                                                                                                              ( ObjectProp Nothing
+                                                                                                                                                                                ( Ref Nothing
+                                                                                                                                                                                  ( Imported
+                                                                                                                                                                                    ( ModuleName "Golden.LongStateBind.Test" )
+                                                                                                                                                                                    ( Name "bindStateT" )
+                                                                                                                                                                                  )
                                                                                                                                                                                 )
+                                                                                                                                                                                ( PropName "bind" )
                                                                                                                                                                               )
                                                                                                                                                                               ( AbsN Nothing
                                                                                                                                                                                 ( ParamUnused Nothing :| [] )
@@ -6685,12 +7368,12 @@ UberModule
                                                                                                                                                                               ( AppN Nothing
                                                                                                                                                                                 ( Ref Nothing
                                                                                                                                                                                   ( Local
-                                                                                                                                                                                    ( Name "$kont1779" )
+                                                                                                                                                                                    ( Name "$kont2522" )
                                                                                                                                                                                   )
                                                                                                                                                                                 )
                                                                                                                                                                                 ( Ref Nothing
                                                                                                                                                                                   ( Local
-                                                                                                                                                                                    ( Name "x1$1782" )
+                                                                                                                                                                                    ( Name "x1$2525" )
                                                                                                                                                                                   ) :| []
                                                                                                                                                                                 )
                                                                                                                                                                               ) :| []
@@ -6775,12 +7458,15 @@ UberModule
                 )
               )
             ), Standalone
-            ( Nothing, Name "$kont1783", AbsN Nothing
-              ( ParamNamed Nothing ( Name "x1$1784" ) :| [] )
+            ( Nothing, Name "$kont2526", AbsN Nothing
+              ( ParamNamed Nothing ( Name "x1$2527" ) :| [] )
               ( AppN Nothing
                 ( AppN Nothing
-                  ( Ref Nothing
-                    ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "bind" ) )
+                  ( ObjectProp Nothing
+                    ( Ref Nothing
+                      ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "bindStateT" ) )
+                    )
+                    ( PropName "bind" )
                   )
                   ( Ref Nothing
                     ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "get" ) ) :| []
@@ -6790,8 +7476,14 @@ UberModule
                   ( ParamNamed Nothing ( Name "x21" ) :| [] )
                   ( AppN Nothing
                     ( AppN Nothing
-                      ( Ref Nothing
-                        ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "discard" ) )
+                      ( ObjectProp Nothing
+                        ( Ref Nothing
+                          ( Imported
+                            ( ModuleName "Golden.LongStateBind.Test" )
+                            ( Name "bindStateT" )
+                          )
+                        )
+                        ( PropName "bind" )
                       )
                       ( AbsN Nothing
                         ( ParamUnused Nothing :| [] )
@@ -6813,8 +7505,14 @@ UberModule
                       ( ParamUnused Nothing :| [] )
                       ( AppN Nothing
                         ( AppN Nothing
-                          ( Ref Nothing
-                            ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "bind" ) )
+                          ( ObjectProp Nothing
+                            ( Ref Nothing
+                              ( Imported
+                                ( ModuleName "Golden.LongStateBind.Test" )
+                                ( Name "bindStateT" )
+                              )
+                            )
+                            ( PropName "bind" )
                           )
                           ( Ref Nothing
                             ( Imported
@@ -6827,11 +7525,14 @@ UberModule
                           ( ParamNamed Nothing ( Name "x22" ) :| [] )
                           ( AppN Nothing
                             ( AppN Nothing
-                              ( Ref Nothing
-                                ( Imported
-                                  ( ModuleName "Golden.LongStateBind.Test" )
-                                  ( Name "discard" )
+                              ( ObjectProp Nothing
+                                ( Ref Nothing
+                                  ( Imported
+                                    ( ModuleName "Golden.LongStateBind.Test" )
+                                    ( Name "bindStateT" )
+                                  )
                                 )
+                                ( PropName "bind" )
                               )
                               ( AbsN Nothing
                                 ( ParamUnused Nothing :| [] )
@@ -6853,11 +7554,14 @@ UberModule
                               ( ParamUnused Nothing :| [] )
                               ( AppN Nothing
                                 ( AppN Nothing
-                                  ( Ref Nothing
-                                    ( Imported
-                                      ( ModuleName "Golden.LongStateBind.Test" )
-                                      ( Name "bind" )
+                                  ( ObjectProp Nothing
+                                    ( Ref Nothing
+                                      ( Imported
+                                        ( ModuleName "Golden.LongStateBind.Test" )
+                                        ( Name "bindStateT" )
+                                      )
                                     )
+                                    ( PropName "bind" )
                                   )
                                   ( Ref Nothing
                                     ( Imported
@@ -6869,12 +7573,15 @@ UberModule
                                 ( AbsN Nothing
                                   ( ParamNamed Nothing ( Name "x23" ) :| [] )
                                   ( AppN Nothing
-                                    ( AppN Nothing
-                                      ( Ref Nothing
-                                        ( Imported
-                                          ( ModuleName "Golden.LongStateBind.Test" )
-                                          ( Name "discard" )
+                                    ( AppN Nothing
+                                      ( ObjectProp Nothing
+                                        ( Ref Nothing
+                                          ( Imported
+                                            ( ModuleName "Golden.LongStateBind.Test" )
+                                            ( Name "bindStateT" )
+                                          )
                                         )
+                                        ( PropName "bind" )
                                       )
                                       ( AbsN Nothing
                                         ( ParamUnused Nothing :| [] )
@@ -6902,11 +7609,14 @@ UberModule
                                       ( ParamUnused Nothing :| [] )
                                       ( AppN Nothing
                                         ( AppN Nothing
-                                          ( Ref Nothing
-                                            ( Imported
-                                              ( ModuleName "Golden.LongStateBind.Test" )
-                                              ( Name "bind" )
+                                          ( ObjectProp Nothing
+                                            ( Ref Nothing
+                                              ( Imported
+                                                ( ModuleName "Golden.LongStateBind.Test" )
+                                                ( Name "bindStateT" )
+                                              )
                                             )
+                                            ( PropName "bind" )
                                           )
                                           ( Ref Nothing
                                             ( Imported
@@ -6919,11 +7629,14 @@ UberModule
                                           ( ParamNamed Nothing ( Name "x24" ) :| [] )
                                           ( AppN Nothing
                                             ( AppN Nothing
-                                              ( Ref Nothing
-                                                ( Imported
-                                                  ( ModuleName "Golden.LongStateBind.Test" )
-                                                  ( Name "discard" )
+                                              ( ObjectProp Nothing
+                                                ( Ref Nothing
+                                                  ( Imported
+                                                    ( ModuleName "Golden.LongStateBind.Test" )
+                                                    ( Name "bindStateT" )
+                                                  )
                                                 )
+                                                ( PropName "bind" )
                                               )
                                               ( AbsN Nothing
                                                 ( ParamUnused Nothing :| [] )
@@ -6951,11 +7664,14 @@ UberModule
                                               ( ParamUnused Nothing :| [] )
                                               ( AppN Nothing
                                                 ( AppN Nothing
-                                                  ( Ref Nothing
-                                                    ( Imported
-                                                      ( ModuleName "Golden.LongStateBind.Test" )
-                                                      ( Name "bind" )
+                                                  ( ObjectProp Nothing
+                                                    ( Ref Nothing
+                                                      ( Imported
+                                                        ( ModuleName "Golden.LongStateBind.Test" )
+                                                        ( Name "bindStateT" )
+                                                      )
                                                     )
+                                                    ( PropName "bind" )
                                                   )
                                                   ( Ref Nothing
                                                     ( Imported
@@ -6968,11 +7684,14 @@ UberModule
                                                   ( ParamNamed Nothing ( Name "x25" ) :| [] )
                                                   ( AppN Nothing
                                                     ( AppN Nothing
-                                                      ( Ref Nothing
-                                                        ( Imported
-                                                          ( ModuleName "Golden.LongStateBind.Test" )
-                                                          ( Name "discard" )
+                                                      ( ObjectProp Nothing
+                                                        ( Ref Nothing
+                                                          ( Imported
+                                                            ( ModuleName "Golden.LongStateBind.Test" )
+                                                            ( Name "bindStateT" )
+                                                          )
                                                         )
+                                                        ( PropName "bind" )
                                                       )
                                                       ( AbsN Nothing
                                                         ( ParamUnused Nothing :| [] )
@@ -7002,11 +7721,14 @@ UberModule
                                                       ( ParamUnused Nothing :| [] )
                                                       ( AppN Nothing
                                                         ( AppN Nothing
-                                                          ( Ref Nothing
-                                                            ( Imported
-                                                              ( ModuleName "Golden.LongStateBind.Test" )
-                                                              ( Name "bind" )
+                                                          ( ObjectProp Nothing
+                                                            ( Ref Nothing
+                                                              ( Imported
+                                                                ( ModuleName "Golden.LongStateBind.Test" )
+                                                                ( Name "bindStateT" )
+                                                              )
                                                             )
+                                                            ( PropName "bind" )
                                                           )
                                                           ( Ref Nothing
                                                             ( Imported
@@ -7021,11 +7743,14 @@ UberModule
                                                           )
                                                           ( AppN Nothing
                                                             ( AppN Nothing
-                                                              ( Ref Nothing
-                                                                ( Imported
-                                                                  ( ModuleName "Golden.LongStateBind.Test" )
-                                                                  ( Name "discard" )
+                                                              ( ObjectProp Nothing
+                                                                ( Ref Nothing
+                                                                  ( Imported
+                                                                    ( ModuleName "Golden.LongStateBind.Test" )
+                                                                    ( Name "bindStateT" )
+                                                                  )
                                                                 )
+                                                                ( PropName "bind" )
                                                               )
                                                               ( AbsN Nothing
                                                                 ( ParamUnused Nothing :| [] )
@@ -7055,11 +7780,14 @@ UberModule
                                                               ( ParamUnused Nothing :| [] )
                                                               ( AppN Nothing
                                                                 ( AppN Nothing
-                                                                  ( Ref Nothing
-                                                                    ( Imported
-                                                                      ( ModuleName "Golden.LongStateBind.Test" )
-                                                                      ( Name "bind" )
+                                                                  ( ObjectProp Nothing
+                                                                    ( Ref Nothing
+                                                                      ( Imported
+                                                                        ( ModuleName "Golden.LongStateBind.Test" )
+                                                                        ( Name "bindStateT" )
+                                                                      )
                                                                     )
+                                                                    ( PropName "bind" )
                                                                   )
                                                                   ( Ref Nothing
                                                                     ( Imported
@@ -7074,11 +7802,14 @@ UberModule
                                                                   )
                                                                   ( AppN Nothing
                                                                     ( AppN Nothing
-                                                                      ( Ref Nothing
-                                                                        ( Imported
-                                                                          ( ModuleName "Golden.LongStateBind.Test" )
-                                                                          ( Name "discard" )
+                                                                      ( ObjectProp Nothing
+                                                                        ( Ref Nothing
+                                                                          ( Imported
+                                                                            ( ModuleName "Golden.LongStateBind.Test" )
+                                                                            ( Name "bindStateT" )
+                                                                          )
                                                                         )
+                                                                        ( PropName "bind" )
                                                                       )
                                                                       ( AbsN Nothing
                                                                         ( ParamUnused Nothing :| [] )
@@ -7110,11 +7841,14 @@ UberModule
                                                                       ( ParamUnused Nothing :| [] )
                                                                       ( AppN Nothing
                                                                         ( AppN Nothing
-                                                                          ( Ref Nothing
-                                                                            ( Imported
-                                                                              ( ModuleName "Golden.LongStateBind.Test" )
-                                                                              ( Name "bind" )
+                                                                          ( ObjectProp Nothing
+                                                                            ( Ref Nothing
+                                                                              ( Imported
+                                                                                ( ModuleName "Golden.LongStateBind.Test" )
+                                                                                ( Name "bindStateT" )
+                                                                              )
                                                                             )
+                                                                            ( PropName "bind" )
                                                                           )
                                                                           ( Ref Nothing
                                                                             ( Imported
@@ -7129,11 +7863,14 @@ UberModule
                                                                           )
                                                                           ( AppN Nothing
                                                                             ( AppN Nothing
-                                                                              ( Ref Nothing
-                                                                                ( Imported
-                                                                                  ( ModuleName "Golden.LongStateBind.Test" )
-                                                                                  ( Name "discard" )
+                                                                              ( ObjectProp Nothing
+                                                                                ( Ref Nothing
+                                                                                  ( Imported
+                                                                                    ( ModuleName "Golden.LongStateBind.Test" )
+                                                                                    ( Name "bindStateT" )
+                                                                                  )
                                                                                 )
+                                                                                ( PropName "bind" )
                                                                               )
                                                                               ( AbsN Nothing
                                                                                 ( ParamUnused Nothing :| [] )
@@ -7165,11 +7902,14 @@ UberModule
                                                                               ( ParamUnused Nothing :| [] )
                                                                               ( AppN Nothing
                                                                                 ( AppN Nothing
-                                                                                  ( Ref Nothing
-                                                                                    ( Imported
-                                                                                      ( ModuleName "Golden.LongStateBind.Test" )
-                                                                                      ( Name "bind" )
+                                                                                  ( ObjectProp Nothing
+                                                                                    ( Ref Nothing
+                                                                                      ( Imported
+                                                                                        ( ModuleName "Golden.LongStateBind.Test" )
+                                                                                        ( Name "bindStateT" )
+                                                                                      )
                                                                                     )
+                                                                                    ( PropName "bind" )
                                                                                   )
                                                                                   ( Ref Nothing
                                                                                     ( Imported
@@ -7184,11 +7924,14 @@ UberModule
                                                                                   )
                                                                                   ( AppN Nothing
                                                                                     ( AppN Nothing
-                                                                                      ( Ref Nothing
-                                                                                        ( Imported
-                                                                                          ( ModuleName "Golden.LongStateBind.Test" )
-                                                                                          ( Name "discard" )
+                                                                                      ( ObjectProp Nothing
+                                                                                        ( Ref Nothing
+                                                                                          ( Imported
+                                                                                            ( ModuleName "Golden.LongStateBind.Test" )
+                                                                                            ( Name "bindStateT" )
+                                                                                          )
                                                                                         )
+                                                                                        ( PropName "bind" )
                                                                                       )
                                                                                       ( AbsN Nothing
                                                                                         ( ParamUnused Nothing :| [] )
@@ -7220,11 +7963,14 @@ UberModule
                                                                                       ( ParamUnused Nothing :| [] )
                                                                                       ( AppN Nothing
                                                                                         ( AppN Nothing
-                                                                                          ( Ref Nothing
-                                                                                            ( Imported
-                                                                                              ( ModuleName "Golden.LongStateBind.Test" )
-                                                                                              ( Name "bind" )
+                                                                                          ( ObjectProp Nothing
+                                                                                            ( Ref Nothing
+                                                                                              ( Imported
+                                                                                                ( ModuleName "Golden.LongStateBind.Test" )
+                                                                                                ( Name "bindStateT" )
+                                                                                              )
                                                                                             )
+                                                                                            ( PropName "bind" )
                                                                                           )
                                                                                           ( Ref Nothing
                                                                                             ( Imported
@@ -7239,11 +7985,14 @@ UberModule
                                                                                           )
                                                                                           ( AppN Nothing
                                                                                             ( AppN Nothing
-                                                                                              ( Ref Nothing
-                                                                                                ( Imported
-                                                                                                  ( ModuleName "Golden.LongStateBind.Test" )
-                                                                                                  ( Name "discard" )
+                                                                                              ( ObjectProp Nothing
+                                                                                                ( Ref Nothing
+                                                                                                  ( Imported
+                                                                                                    ( ModuleName "Golden.LongStateBind.Test" )
+                                                                                                    ( Name "bindStateT" )
+                                                                                                  )
                                                                                                 )
+                                                                                                ( PropName "bind" )
                                                                                               )
                                                                                               ( AbsN Nothing
                                                                                                 ( ParamUnused Nothing :| [] )
@@ -7275,11 +8024,14 @@ UberModule
                                                                                               ( ParamUnused Nothing :| [] )
                                                                                               ( AppN Nothing
                                                                                                 ( AppN Nothing
-                                                                                                  ( Ref Nothing
-                                                                                                    ( Imported
-                                                                                                      ( ModuleName "Golden.LongStateBind.Test" )
-                                                                                                      ( Name "bind" )
+                                                                                                  ( ObjectProp Nothing
+                                                                                                    ( Ref Nothing
+                                                                                                      ( Imported
+                                                                                                        ( ModuleName "Golden.LongStateBind.Test" )
+                                                                                                        ( Name "bindStateT" )
+                                                                                                      )
                                                                                                     )
+                                                                                                    ( PropName "bind" )
                                                                                                   )
                                                                                                   ( Ref Nothing
                                                                                                     ( Imported
@@ -7294,11 +8046,14 @@ UberModule
                                                                                                   )
                                                                                                   ( AppN Nothing
                                                                                                     ( AppN Nothing
-                                                                                                      ( Ref Nothing
-                                                                                                        ( Imported
-                                                                                                          ( ModuleName "Golden.LongStateBind.Test" )
-                                                                                                          ( Name "discard" )
+                                                                                                      ( ObjectProp Nothing
+                                                                                                        ( Ref Nothing
+                                                                                                          ( Imported
+                                                                                                            ( ModuleName "Golden.LongStateBind.Test" )
+                                                                                                            ( Name "bindStateT" )
+                                                                                                          )
                                                                                                         )
+                                                                                                        ( PropName "bind" )
                                                                                                       )
                                                                                                       ( AbsN Nothing
                                                                                                         ( ParamUnused Nothing :| [] )
@@ -7330,11 +8085,14 @@ UberModule
                                                                                                       ( ParamUnused Nothing :| [] )
                                                                                                       ( AppN Nothing
                                                                                                         ( AppN Nothing
-                                                                                                          ( Ref Nothing
-                                                                                                            ( Imported
-                                                                                                              ( ModuleName "Golden.LongStateBind.Test" )
-                                                                                                              ( Name "bind" )
+                                                                                                          ( ObjectProp Nothing
+                                                                                                            ( Ref Nothing
+                                                                                                              ( Imported
+                                                                                                                ( ModuleName "Golden.LongStateBind.Test" )
+                                                                                                                ( Name "bindStateT" )
+                                                                                                              )
                                                                                                             )
+                                                                                                            ( PropName "bind" )
                                                                                                           )
                                                                                                           ( Ref Nothing
                                                                                                             ( Imported
@@ -7349,11 +8107,14 @@ UberModule
                                                                                                           )
                                                                                                           ( AppN Nothing
                                                                                                             ( AppN Nothing
-                                                                                                              ( Ref Nothing
-                                                                                                                ( Imported
-                                                                                                                  ( ModuleName "Golden.LongStateBind.Test" )
-                                                                                                                  ( Name "discard" )
+                                                                                                              ( ObjectProp Nothing
+                                                                                                                ( Ref Nothing
+                                                                                                                  ( Imported
+                                                                                                                    ( ModuleName "Golden.LongStateBind.Test" )
+                                                                                                                    ( Name "bindStateT" )
+                                                                                                                  )
                                                                                                                 )
+                                                                                                                ( PropName "bind" )
                                                                                                               )
                                                                                                               ( AbsN Nothing
                                                                                                                 ( ParamUnused Nothing :| [] )
@@ -7385,11 +8146,14 @@ UberModule
                                                                                                               ( ParamUnused Nothing :| [] )
                                                                                                               ( AppN Nothing
                                                                                                                 ( AppN Nothing
-                                                                                                                  ( Ref Nothing
-                                                                                                                    ( Imported
-                                                                                                                      ( ModuleName "Golden.LongStateBind.Test" )
-                                                                                                                      ( Name "bind" )
+                                                                                                                  ( ObjectProp Nothing
+                                                                                                                    ( Ref Nothing
+                                                                                                                      ( Imported
+                                                                                                                        ( ModuleName "Golden.LongStateBind.Test" )
+                                                                                                                        ( Name "bindStateT" )
+                                                                                                                      )
                                                                                                                     )
+                                                                                                                    ( PropName "bind" )
                                                                                                                   )
                                                                                                                   ( Ref Nothing
                                                                                                                     ( Imported
@@ -7404,11 +8168,14 @@ UberModule
                                                                                                                   )
                                                                                                                   ( AppN Nothing
                                                                                                                     ( AppN Nothing
-                                                                                                                      ( Ref Nothing
-                                                                                                                        ( Imported
-                                                                                                                          ( ModuleName "Golden.LongStateBind.Test" )
-                                                                                                                          ( Name "discard" )
+                                                                                                                      ( ObjectProp Nothing
+                                                                                                                        ( Ref Nothing
+                                                                                                                          ( Imported
+                                                                                                                            ( ModuleName "Golden.LongStateBind.Test" )
+                                                                                                                            ( Name "bindStateT" )
+                                                                                                                          )
                                                                                                                         )
+                                                                                                                        ( PropName "bind" )
                                                                                                                       )
                                                                                                                       ( AbsN Nothing
                                                                                                                         ( ParamUnused Nothing :| [] )
@@ -7440,11 +8207,14 @@ UberModule
                                                                                                                       ( ParamUnused Nothing :| [] )
                                                                                                                       ( AppN Nothing
                                                                                                                         ( AppN Nothing
-                                                                                                                          ( Ref Nothing
-                                                                                                                            ( Imported
-                                                                                                                              ( ModuleName "Golden.LongStateBind.Test" )
-                                                                                                                              ( Name "bind" )
+                                                                                                                          ( ObjectProp Nothing
+                                                                                                                            ( Ref Nothing
+                                                                                                                              ( Imported
+                                                                                                                                ( ModuleName "Golden.LongStateBind.Test" )
+                                                                                                                                ( Name "bindStateT" )
+                                                                                                                              )
                                                                                                                             )
+                                                                                                                            ( PropName "bind" )
                                                                                                                           )
                                                                                                                           ( Ref Nothing
                                                                                                                             ( Imported
@@ -7459,11 +8229,14 @@ UberModule
                                                                                                                           )
                                                                                                                           ( AppN Nothing
                                                                                                                             ( AppN Nothing
-                                                                                                                              ( Ref Nothing
-                                                                                                                                ( Imported
-                                                                                                                                  ( ModuleName "Golden.LongStateBind.Test" )
-                                                                                                                                  ( Name "discard" )
+                                                                                                                              ( ObjectProp Nothing
+                                                                                                                                ( Ref Nothing
+                                                                                                                                  ( Imported
+                                                                                                                                    ( ModuleName "Golden.LongStateBind.Test" )
+                                                                                                                                    ( Name "bindStateT" )
+                                                                                                                                  )
                                                                                                                                 )
+                                                                                                                                ( PropName "bind" )
                                                                                                                               )
                                                                                                                               ( AbsN Nothing
                                                                                                                                 ( ParamUnused Nothing :| [] )
@@ -7495,11 +8268,14 @@ UberModule
                                                                                                                               ( ParamUnused Nothing :| [] )
                                                                                                                               ( AppN Nothing
                                                                                                                                 ( AppN Nothing
-                                                                                                                                  ( Ref Nothing
-                                                                                                                                    ( Imported
-                                                                                                                                      ( ModuleName "Golden.LongStateBind.Test" )
-                                                                                                                                      ( Name "bind" )
+                                                                                                                                  ( ObjectProp Nothing
+                                                                                                                                    ( Ref Nothing
+                                                                                                                                      ( Imported
+                                                                                                                                        ( ModuleName "Golden.LongStateBind.Test" )
+                                                                                                                                        ( Name "bindStateT" )
+                                                                                                                                      )
                                                                                                                                     )
+                                                                                                                                    ( PropName "bind" )
                                                                                                                                   )
                                                                                                                                   ( Ref Nothing
                                                                                                                                     ( Imported
@@ -7514,11 +8290,14 @@ UberModule
                                                                                                                                   )
                                                                                                                                   ( AppN Nothing
                                                                                                                                     ( AppN Nothing
-                                                                                                                                      ( Ref Nothing
-                                                                                                                                        ( Imported
-                                                                                                                                          ( ModuleName "Golden.LongStateBind.Test" )
-                                                                                                                                          ( Name "discard" )
+                                                                                                                                      ( ObjectProp Nothing
+                                                                                                                                        ( Ref Nothing
+                                                                                                                                          ( Imported
+                                                                                                                                            ( ModuleName "Golden.LongStateBind.Test" )
+                                                                                                                                            ( Name "bindStateT" )
+                                                                                                                                          )
                                                                                                                                         )
+                                                                                                                                        ( PropName "bind" )
                                                                                                                                       )
                                                                                                                                       ( AbsN Nothing
                                                                                                                                         ( ParamUnused Nothing :| [] )
@@ -7550,11 +8329,14 @@ UberModule
                                                                                                                                       ( ParamUnused Nothing :| [] )
                                                                                                                                       ( AppN Nothing
                                                                                                                                         ( AppN Nothing
-                                                                                                                                          ( Ref Nothing
-                                                                                                                                            ( Imported
-                                                                                                                                              ( ModuleName "Golden.LongStateBind.Test" )
-                                                                                                                                              ( Name "bind" )
+                                                                                                                                          ( ObjectProp Nothing
+                                                                                                                                            ( Ref Nothing
+                                                                                                                                              ( Imported
+                                                                                                                                                ( ModuleName "Golden.LongStateBind.Test" )
+                                                                                                                                                ( Name "bindStateT" )
+                                                                                                                                              )
                                                                                                                                             )
+                                                                                                                                            ( PropName "bind" )
                                                                                                                                           )
                                                                                                                                           ( Ref Nothing
                                                                                                                                             ( Imported
@@ -7569,11 +8351,14 @@ UberModule
                                                                                                                                           )
                                                                                                                                           ( AppN Nothing
                                                                                                                                             ( AppN Nothing
-                                                                                                                                              ( Ref Nothing
-                                                                                                                                                ( Imported
-                                                                                                                                                  ( ModuleName "Golden.LongStateBind.Test" )
-                                                                                                                                                  ( Name "discard" )
+                                                                                                                                              ( ObjectProp Nothing
+                                                                                                                                                ( Ref Nothing
+                                                                                                                                                  ( Imported
+                                                                                                                                                    ( ModuleName "Golden.LongStateBind.Test" )
+                                                                                                                                                    ( Name "bindStateT" )
+                                                                                                                                                  )
                                                                                                                                                 )
+                                                                                                                                                ( PropName "bind" )
                                                                                                                                               )
                                                                                                                                               ( AbsN Nothing
                                                                                                                                                 ( ParamUnused Nothing :| [] )
@@ -7605,11 +8390,14 @@ UberModule
                                                                                                                                               ( ParamUnused Nothing :| [] )
                                                                                                                                               ( AppN Nothing
                                                                                                                                                 ( AppN Nothing
-                                                                                                                                                  ( Ref Nothing
-                                                                                                                                                    ( Imported
-                                                                                                                                                      ( ModuleName "Golden.LongStateBind.Test" )
-                                                                                                                                                      ( Name "bind" )
+                                                                                                                                                  ( ObjectProp Nothing
+                                                                                                                                                    ( Ref Nothing
+                                                                                                                                                      ( Imported
+                                                                                                                                                        ( ModuleName "Golden.LongStateBind.Test" )
+                                                                                                                                                        ( Name "bindStateT" )
+                                                                                                                                                      )
                                                                                                                                                     )
+                                                                                                                                                    ( PropName "bind" )
                                                                                                                                                   )
                                                                                                                                                   ( Ref Nothing
                                                                                                                                                     ( Imported
@@ -7624,11 +8412,14 @@ UberModule
                                                                                                                                                   )
                                                                                                                                                   ( AppN Nothing
                                                                                                                                                     ( AppN Nothing
-                                                                                                                                                      ( Ref Nothing
-                                                                                                                                                        ( Imported
-                                                                                                                                                          ( ModuleName "Golden.LongStateBind.Test" )
-                                                                                                                                                          ( Name "discard" )
+                                                                                                                                                      ( ObjectProp Nothing
+                                                                                                                                                        ( Ref Nothing
+                                                                                                                                                          ( Imported
+                                                                                                                                                            ( ModuleName "Golden.LongStateBind.Test" )
+                                                                                                                                                            ( Name "bindStateT" )
+                                                                                                                                                          )
                                                                                                                                                         )
+                                                                                                                                                        ( PropName "bind" )
                                                                                                                                                       )
                                                                                                                                                       ( AbsN Nothing
                                                                                                                                                         ( ParamUnused Nothing :| [] )
@@ -7660,11 +8451,14 @@ UberModule
                                                                                                                                                       ( ParamUnused Nothing :| [] )
                                                                                                                                                       ( AppN Nothing
                                                                                                                                                         ( AppN Nothing
-                                                                                                                                                          ( Ref Nothing
-                                                                                                                                                            ( Imported
-                                                                                                                                                              ( ModuleName "Golden.LongStateBind.Test" )
-                                                                                                                                                              ( Name "bind" )
+                                                                                                                                                          ( ObjectProp Nothing
+                                                                                                                                                            ( Ref Nothing
+                                                                                                                                                              ( Imported
+                                                                                                                                                                ( ModuleName "Golden.LongStateBind.Test" )
+                                                                                                                                                                ( Name "bindStateT" )
+                                                                                                                                                              )
                                                                                                                                                             )
+                                                                                                                                                            ( PropName "bind" )
                                                                                                                                                           )
                                                                                                                                                           ( Ref Nothing
                                                                                                                                                             ( Imported
@@ -7679,11 +8473,14 @@ UberModule
                                                                                                                                                           )
                                                                                                                                                           ( AppN Nothing
                                                                                                                                                             ( AppN Nothing
-                                                                                                                                                              ( Ref Nothing
-                                                                                                                                                                ( Imported
-                                                                                                                                                                  ( ModuleName "Golden.LongStateBind.Test" )
-                                                                                                                                                                  ( Name "discard" )
+                                                                                                                                                              ( ObjectProp Nothing
+                                                                                                                                                                ( Ref Nothing
+                                                                                                                                                                  ( Imported
+                                                                                                                                                                    ( ModuleName "Golden.LongStateBind.Test" )
+                                                                                                                                                                    ( Name "bindStateT" )
+                                                                                                                                                                  )
                                                                                                                                                                 )
+                                                                                                                                                                ( PropName "bind" )
                                                                                                                                                               )
                                                                                                                                                               ( AbsN Nothing
                                                                                                                                                                 ( ParamUnused Nothing :| [] )
@@ -7715,11 +8512,14 @@ UberModule
                                                                                                                                                               ( ParamUnused Nothing :| [] )
                                                                                                                                                               ( AppN Nothing
                                                                                                                                                                 ( AppN Nothing
-                                                                                                                                                                  ( Ref Nothing
-                                                                                                                                                                    ( Imported
-                                                                                                                                                                      ( ModuleName "Golden.LongStateBind.Test" )
-                                                                                                                                                                      ( Name "bind" )
+                                                                                                                                                                  ( ObjectProp Nothing
+                                                                                                                                                                    ( Ref Nothing
+                                                                                                                                                                      ( Imported
+                                                                                                                                                                        ( ModuleName "Golden.LongStateBind.Test" )
+                                                                                                                                                                        ( Name "bindStateT" )
+                                                                                                                                                                      )
                                                                                                                                                                     )
+                                                                                                                                                                    ( PropName "bind" )
                                                                                                                                                                   )
                                                                                                                                                                   ( Ref Nothing
                                                                                                                                                                     ( Imported
@@ -7734,11 +8534,14 @@ UberModule
                                                                                                                                                                   )
                                                                                                                                                                   ( AppN Nothing
                                                                                                                                                                     ( AppN Nothing
-                                                                                                                                                                      ( Ref Nothing
-                                                                                                                                                                        ( Imported
-                                                                                                                                                                          ( ModuleName "Golden.LongStateBind.Test" )
-                                                                                                                                                                          ( Name "discard" )
+                                                                                                                                                                      ( ObjectProp Nothing
+                                                                                                                                                                        ( Ref Nothing
+                                                                                                                                                                          ( Imported
+                                                                                                                                                                            ( ModuleName "Golden.LongStateBind.Test" )
+                                                                                                                                                                            ( Name "bindStateT" )
+                                                                                                                                                                          )
                                                                                                                                                                         )
+                                                                                                                                                                        ( PropName "bind" )
                                                                                                                                                                       )
                                                                                                                                                                       ( AbsN Nothing
                                                                                                                                                                         ( ParamUnused Nothing :| [] )
@@ -7770,11 +8573,14 @@ UberModule
                                                                                                                                                                       ( ParamUnused Nothing :| [] )
                                                                                                                                                                       ( AppN Nothing
                                                                                                                                                                         ( AppN Nothing
-                                                                                                                                                                          ( Ref Nothing
-                                                                                                                                                                            ( Imported
-                                                                                                                                                                              ( ModuleName "Golden.LongStateBind.Test" )
-                                                                                                                                                                              ( Name "bind" )
+                                                                                                                                                                          ( ObjectProp Nothing
+                                                                                                                                                                            ( Ref Nothing
+                                                                                                                                                                              ( Imported
+                                                                                                                                                                                ( ModuleName "Golden.LongStateBind.Test" )
+                                                                                                                                                                                ( Name "bindStateT" )
+                                                                                                                                                                              )
                                                                                                                                                                             )
+                                                                                                                                                                            ( PropName "bind" )
                                                                                                                                                                           )
                                                                                                                                                                           ( Ref Nothing
                                                                                                                                                                             ( Imported
@@ -7789,11 +8595,14 @@ UberModule
                                                                                                                                                                           )
                                                                                                                                                                           ( AppN Nothing
                                                                                                                                                                             ( AppN Nothing
-                                                                                                                                                                              ( Ref Nothing
-                                                                                                                                                                                ( Imported
-                                                                                                                                                                                  ( ModuleName "Golden.LongStateBind.Test" )
-                                                                                                                                                                                  ( Name "discard" )
+                                                                                                                                                                              ( ObjectProp Nothing
+                                                                                                                                                                                ( Ref Nothing
+                                                                                                                                                                                  ( Imported
+                                                                                                                                                                                    ( ModuleName "Golden.LongStateBind.Test" )
+                                                                                                                                                                                    ( Name "bindStateT" )
+                                                                                                                                                                                  )
                                                                                                                                                                                 )
+                                                                                                                                                                                ( PropName "bind" )
                                                                                                                                                                               )
                                                                                                                                                                               ( AbsN Nothing
                                                                                                                                                                                 ( ParamUnused Nothing :| [] )
@@ -7826,12 +8635,12 @@ UberModule
                                                                                                                                                                               ( AppN Nothing
                                                                                                                                                                                 ( Ref Nothing
                                                                                                                                                                                   ( Local
-                                                                                                                                                                                    ( Name "$kont1781" )
+                                                                                                                                                                                    ( Name "$kont2524" )
                                                                                                                                                                                   )
                                                                                                                                                                                 )
                                                                                                                                                                                 ( Ref Nothing
                                                                                                                                                                                   ( Local
-                                                                                                                                                                                    ( Name "x1$1784" )
+                                                                                                                                                                                    ( Name "x1$2527" )
                                                                                                                                                                                   ) :| []
                                                                                                                                                                                 )
                                                                                                                                                                               ) :| []
@@ -7920,7 +8729,12 @@ UberModule
         )
         ( AppN Nothing
           ( AppN Nothing
-            ( Ref Nothing ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "bind" ) ) )
+            ( ObjectProp Nothing
+              ( Ref Nothing
+                ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "bindStateT" ) )
+              )
+              ( PropName "bind" )
+            )
             ( Ref Nothing
               ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "get" ) ) :| []
             )
@@ -7929,8 +8743,11 @@ UberModule
             ( ParamNamed Nothing ( Name "x1" ) :| [] )
             ( AppN Nothing
               ( AppN Nothing
-                ( Ref Nothing
-                  ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "discard" ) )
+                ( ObjectProp Nothing
+                  ( Ref Nothing
+                    ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "bindStateT" ) )
+                  )
+                  ( PropName "bind" )
                 )
                 ( AbsN Nothing
                   ( ParamUnused Nothing :| [] )
@@ -7950,8 +8767,14 @@ UberModule
                 ( ParamUnused Nothing :| [] )
                 ( AppN Nothing
                   ( AppN Nothing
-                    ( Ref Nothing
-                      ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "bind" ) )
+                    ( ObjectProp Nothing
+                      ( Ref Nothing
+                        ( Imported
+                          ( ModuleName "Golden.LongStateBind.Test" )
+                          ( Name "bindStateT" )
+                        )
+                      )
+                      ( PropName "bind" )
                     )
                     ( Ref Nothing
                       ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "get" ) ) :| []
@@ -7961,8 +8784,14 @@ UberModule
                     ( ParamNamed Nothing ( Name "x2" ) :| [] )
                     ( AppN Nothing
                       ( AppN Nothing
-                        ( Ref Nothing
-                          ( Imported ( ModuleName "Golden.LongStateBind.Test" ) ( Name "discard" ) )
+                        ( ObjectProp Nothing
+                          ( Ref Nothing
+                            ( Imported
+                              ( ModuleName "Golden.LongStateBind.Test" )
+                              ( Name "bindStateT" )
+                            )
+                          )
+                          ( PropName "bind" )
                         )
                         ( AbsN Nothing
                           ( ParamUnused Nothing :| [] )
@@ -7984,11 +8813,14 @@ UberModule
                         ( ParamUnused Nothing :| [] )
                         ( AppN Nothing
                           ( AppN Nothing
-                            ( Ref Nothing
-                              ( Imported
-                                ( ModuleName "Golden.LongStateBind.Test" )
-                                ( Name "bind" )
+                            ( ObjectProp Nothing
+                              ( Ref Nothing
+                                ( Imported
+                                  ( ModuleName "Golden.LongStateBind.Test" )
+                                  ( Name "bindStateT" )
+                                )
                               )
+                              ( PropName "bind" )
                             )
                             ( Ref Nothing
                               ( Imported
@@ -8001,11 +8833,14 @@ UberModule
                             ( ParamNamed Nothing ( Name "x3" ) :| [] )
                             ( AppN Nothing
                               ( AppN Nothing
-                                ( Ref Nothing
-                                  ( Imported
-                                    ( ModuleName "Golden.LongStateBind.Test" )
-                                    ( Name "discard" )
+                                ( ObjectProp Nothing
+                                  ( Ref Nothing
+                                    ( Imported
+                                      ( ModuleName "Golden.LongStateBind.Test" )
+                                      ( Name "bindStateT" )
+                                    )
                                   )
+                                  ( PropName "bind" )
                                 )
                                 ( AbsN Nothing
                                   ( ParamUnused Nothing :| [] )
@@ -8027,11 +8862,14 @@ UberModule
                                 ( ParamUnused Nothing :| [] )
                                 ( AppN Nothing
                                   ( AppN Nothing
-                                    ( Ref Nothing
-                                      ( Imported
-                                        ( ModuleName "Golden.LongStateBind.Test" )
-                                        ( Name "bind" )
+                                    ( ObjectProp Nothing
+                                      ( Ref Nothing
+                                        ( Imported
+                                          ( ModuleName "Golden.LongStateBind.Test" )
+                                          ( Name "bindStateT" )
+                                        )
                                       )
+                                      ( PropName "bind" )
                                     )
                                     ( Ref Nothing
                                       ( Imported
@@ -8044,11 +8882,14 @@ UberModule
                                     ( ParamNamed Nothing ( Name "x4" ) :| [] )
                                     ( AppN Nothing
                                       ( AppN Nothing
-                                        ( Ref Nothing
-                                          ( Imported
-                                            ( ModuleName "Golden.LongStateBind.Test" )
-                                            ( Name "discard" )
+                                        ( ObjectProp Nothing
+                                          ( Ref Nothing
+                                            ( Imported
+                                              ( ModuleName "Golden.LongStateBind.Test" )
+                                              ( Name "bindStateT" )
+                                            )
                                           )
+                                          ( PropName "bind" )
                                         )
                                         ( AbsN Nothing
                                           ( ParamUnused Nothing :| [] )
@@ -8076,11 +8917,14 @@ UberModule
                                         ( ParamUnused Nothing :| [] )
                                         ( AppN Nothing
                                           ( AppN Nothing
-                                            ( Ref Nothing
-                                              ( Imported
-                                                ( ModuleName "Golden.LongStateBind.Test" )
-                                                ( Name "bind" )
+                                            ( ObjectProp Nothing
+                                              ( Ref Nothing
+                                                ( Imported
+                                                  ( ModuleName "Golden.LongStateBind.Test" )
+                                                  ( Name "bindStateT" )
+                                                )
                                               )
+                                              ( PropName "bind" )
                                             )
                                             ( Ref Nothing
                                               ( Imported
@@ -8093,11 +8937,14 @@ UberModule
                                             ( ParamNamed Nothing ( Name "x5" ) :| [] )
                                             ( AppN Nothing
                                               ( AppN Nothing
-                                                ( Ref Nothing
-                                                  ( Imported
-                                                    ( ModuleName "Golden.LongStateBind.Test" )
-                                                    ( Name "discard" )
+                                                ( ObjectProp Nothing
+                                                  ( Ref Nothing
+                                                    ( Imported
+                                                      ( ModuleName "Golden.LongStateBind.Test" )
+                                                      ( Name "bindStateT" )
+                                                    )
                                                   )
+                                                  ( PropName "bind" )
                                                 )
                                                 ( AbsN Nothing
                                                   ( ParamUnused Nothing :| [] )
@@ -8125,11 +8972,14 @@ UberModule
                                                 ( ParamUnused Nothing :| [] )
                                                 ( AppN Nothing
                                                   ( AppN Nothing
-                                                    ( Ref Nothing
-                                                      ( Imported
-                                                        ( ModuleName "Golden.LongStateBind.Test" )
-                                                        ( Name "bind" )
+                                                    ( ObjectProp Nothing
+                                                      ( Ref Nothing
+                                                        ( Imported
+                                                          ( ModuleName "Golden.LongStateBind.Test" )
+                                                          ( Name "bindStateT" )
+                                                        )
                                                       )
+                                                      ( PropName "bind" )
                                                     )
                                                     ( Ref Nothing
                                                       ( Imported
@@ -8142,11 +8992,14 @@ UberModule
                                                     ( ParamNamed Nothing ( Name "x6" ) :| [] )
                                                     ( AppN Nothing
                                                       ( AppN Nothing
-                                                        ( Ref Nothing
-                                                          ( Imported
-                                                            ( ModuleName "Golden.LongStateBind.Test" )
-                                                            ( Name "discard" )
+                                                        ( ObjectProp Nothing
+                                                          ( Ref Nothing
+                                                            ( Imported
+                                                              ( ModuleName "Golden.LongStateBind.Test" )
+                                                              ( Name "bindStateT" )
+                                                            )
                                                           )
+                                                          ( PropName "bind" )
                                                         )
                                                         ( AbsN Nothing
                                                           ( ParamUnused Nothing :| [] )
@@ -8176,11 +9029,14 @@ UberModule
                                                         ( ParamUnused Nothing :| [] )
                                                         ( AppN Nothing
                                                           ( AppN Nothing
-                                                            ( Ref Nothing
-                                                              ( Imported
-                                                                ( ModuleName "Golden.LongStateBind.Test" )
-                                                                ( Name "bind" )
+                                                            ( ObjectProp Nothing
+                                                              ( Ref Nothing
+                                                                ( Imported
+                                                                  ( ModuleName "Golden.LongStateBind.Test" )
+                                                                  ( Name "bindStateT" )
+                                                                )
                                                               )
+                                                              ( PropName "bind" )
                                                             )
                                                             ( Ref Nothing
                                                               ( Imported
@@ -8195,11 +9051,14 @@ UberModule
                                                             )
                                                             ( AppN Nothing
                                                               ( AppN Nothing
-                                                                ( Ref Nothing
-                                                                  ( Imported
-                                                                    ( ModuleName "Golden.LongStateBind.Test" )
-                                                                    ( Name "discard" )
+                                                                ( ObjectProp Nothing
+                                                                  ( Ref Nothing
+                                                                    ( Imported
+                                                                      ( ModuleName "Golden.LongStateBind.Test" )
+                                                                      ( Name "bindStateT" )
+                                                                    )
                                                                   )
+                                                                  ( PropName "bind" )
                                                                 )
                                                                 ( AbsN Nothing
                                                                   ( ParamUnused Nothing :| [] )
@@ -8229,11 +9088,14 @@ UberModule
                                                                 ( ParamUnused Nothing :| [] )
                                                                 ( AppN Nothing
                                                                   ( AppN Nothing
-                                                                    ( Ref Nothing
-                                                                      ( Imported
-                                                                        ( ModuleName "Golden.LongStateBind.Test" )
-                                                                        ( Name "bind" )
+                                                                    ( ObjectProp Nothing
+                                                                      ( Ref Nothing
+                                                                        ( Imported
+                                                                          ( ModuleName "Golden.LongStateBind.Test" )
+                                                                          ( Name "bindStateT" )
+                                                                        )
                                                                       )
+                                                                      ( PropName "bind" )
                                                                     )
                                                                     ( Ref Nothing
                                                                       ( Imported
@@ -8248,11 +9110,14 @@ UberModule
                                                                     )
                                                                     ( AppN Nothing
                                                                       ( AppN Nothing
-                                                                        ( Ref Nothing
-                                                                          ( Imported
-                                                                            ( ModuleName "Golden.LongStateBind.Test" )
-                                                                            ( Name "discard" )
+                                                                        ( ObjectProp Nothing
+                                                                          ( Ref Nothing
+                                                                            ( Imported
+                                                                              ( ModuleName "Golden.LongStateBind.Test" )
+                                                                              ( Name "bindStateT" )
+                                                                            )
                                                                           )
+                                                                          ( PropName "bind" )
                                                                         )
                                                                         ( AbsN Nothing
                                                                           ( ParamUnused Nothing :| [] )
@@ -8284,11 +9149,14 @@ UberModule
                                                                         ( ParamUnused Nothing :| [] )
                                                                         ( AppN Nothing
                                                                           ( AppN Nothing
-                                                                            ( Ref Nothing
-                                                                              ( Imported
-                                                                                ( ModuleName "Golden.LongStateBind.Test" )
-                                                                                ( Name "bind" )
+                                                                            ( ObjectProp Nothing
+                                                                              ( Ref Nothing
+                                                                                ( Imported
+                                                                                  ( ModuleName "Golden.LongStateBind.Test" )
+                                                                                  ( Name "bindStateT" )
+                                                                                )
                                                                               )
+                                                                              ( PropName "bind" )
                                                                             )
                                                                             ( Ref Nothing
                                                                               ( Imported
@@ -8303,11 +9171,14 @@ UberModule
                                                                             )
                                                                             ( AppN Nothing
                                                                               ( AppN Nothing
-                                                                                ( Ref Nothing
-                                                                                  ( Imported
-                                                                                    ( ModuleName "Golden.LongStateBind.Test" )
-                                                                                    ( Name "discard" )
+                                                                                ( ObjectProp Nothing
+                                                                                  ( Ref Nothing
+                                                                                    ( Imported
+                                                                                      ( ModuleName "Golden.LongStateBind.Test" )
+                                                                                      ( Name "bindStateT" )
+                                                                                    )
                                                                                   )
+                                                                                  ( PropName "bind" )
                                                                                 )
                                                                                 ( AbsN Nothing
                                                                                   ( ParamUnused Nothing :| [] )
@@ -8339,11 +9210,14 @@ UberModule
                                                                                 ( ParamUnused Nothing :| [] )
                                                                                 ( AppN Nothing
                                                                                   ( AppN Nothing
-                                                                                    ( Ref Nothing
-                                                                                      ( Imported
-                                                                                        ( ModuleName "Golden.LongStateBind.Test" )
-                                                                                        ( Name "bind" )
+                                                                                    ( ObjectProp Nothing
+                                                                                      ( Ref Nothing
+                                                                                        ( Imported
+                                                                                          ( ModuleName "Golden.LongStateBind.Test" )
+                                                                                          ( Name "bindStateT" )
+                                                                                        )
                                                                                       )
+                                                                                      ( PropName "bind" )
                                                                                     )
                                                                                     ( Ref Nothing
                                                                                       ( Imported
@@ -8358,11 +9232,14 @@ UberModule
                                                                                     )
                                                                                     ( AppN Nothing
                                                                                       ( AppN Nothing
-                                                                                        ( Ref Nothing
-                                                                                          ( Imported
-                                                                                            ( ModuleName "Golden.LongStateBind.Test" )
-                                                                                            ( Name "discard" )
+                                                                                        ( ObjectProp Nothing
+                                                                                          ( Ref Nothing
+                                                                                            ( Imported
+                                                                                              ( ModuleName "Golden.LongStateBind.Test" )
+                                                                                              ( Name "bindStateT" )
+                                                                                            )
                                                                                           )
+                                                                                          ( PropName "bind" )
                                                                                         )
                                                                                         ( AbsN Nothing
                                                                                           ( ParamUnused Nothing :| [] )
@@ -8394,11 +9271,14 @@ UberModule
                                                                                         ( ParamUnused Nothing :| [] )
                                                                                         ( AppN Nothing
                                                                                           ( AppN Nothing
-                                                                                            ( Ref Nothing
-                                                                                              ( Imported
-                                                                                                ( ModuleName "Golden.LongStateBind.Test" )
-                                                                                                ( Name "bind" )
+                                                                                            ( ObjectProp Nothing
+                                                                                              ( Ref Nothing
+                                                                                                ( Imported
+                                                                                                  ( ModuleName "Golden.LongStateBind.Test" )
+                                                                                                  ( Name "bindStateT" )
+                                                                                                )
                                                                                               )
+                                                                                              ( PropName "bind" )
                                                                                             )
                                                                                             ( Ref Nothing
                                                                                               ( Imported
@@ -8413,11 +9293,14 @@ UberModule
                                                                                             )
                                                                                             ( AppN Nothing
                                                                                               ( AppN Nothing
-                                                                                                ( Ref Nothing
-                                                                                                  ( Imported
-                                                                                                    ( ModuleName "Golden.LongStateBind.Test" )
-                                                                                                    ( Name "discard" )
+                                                                                                ( ObjectProp Nothing
+                                                                                                  ( Ref Nothing
+                                                                                                    ( Imported
+                                                                                                      ( ModuleName "Golden.LongStateBind.Test" )
+                                                                                                      ( Name "bindStateT" )
+                                                                                                    )
                                                                                                   )
+                                                                                                  ( PropName "bind" )
                                                                                                 )
                                                                                                 ( AbsN Nothing
                                                                                                   ( ParamUnused Nothing :| [] )
@@ -8449,11 +9332,14 @@ UberModule
                                                                                                 ( ParamUnused Nothing :| [] )
                                                                                                 ( AppN Nothing
                                                                                                   ( AppN Nothing
-                                                                                                    ( Ref Nothing
-                                                                                                      ( Imported
-                                                                                                        ( ModuleName "Golden.LongStateBind.Test" )
-                                                                                                        ( Name "bind" )
+                                                                                                    ( ObjectProp Nothing
+                                                                                                      ( Ref Nothing
+                                                                                                        ( Imported
+                                                                                                          ( ModuleName "Golden.LongStateBind.Test" )
+                                                                                                          ( Name "bindStateT" )
+                                                                                                        )
                                                                                                       )
+                                                                                                      ( PropName "bind" )
                                                                                                     )
                                                                                                     ( Ref Nothing
                                                                                                       ( Imported
@@ -8468,11 +9354,14 @@ UberModule
                                                                                                     )
                                                                                                     ( AppN Nothing
                                                                                                       ( AppN Nothing
-                                                                                                        ( Ref Nothing
-                                                                                                          ( Imported
-                                                                                                            ( ModuleName "Golden.LongStateBind.Test" )
-                                                                                                            ( Name "discard" )
+                                                                                                        ( ObjectProp Nothing
+                                                                                                          ( Ref Nothing
+                                                                                                            ( Imported
+                                                                                                              ( ModuleName "Golden.LongStateBind.Test" )
+                                                                                                              ( Name "bindStateT" )
+                                                                                                            )
                                                                                                           )
+                                                                                                          ( PropName "bind" )
                                                                                                         )
                                                                                                         ( AbsN Nothing
                                                                                                           ( ParamUnused Nothing :| [] )
@@ -8504,11 +9393,14 @@ UberModule
                                                                                                         ( ParamUnused Nothing :| [] )
                                                                                                         ( AppN Nothing
                                                                                                           ( AppN Nothing
-                                                                                                            ( Ref Nothing
-                                                                                                              ( Imported
-                                                                                                                ( ModuleName "Golden.LongStateBind.Test" )
-                                                                                                                ( Name "bind" )
+                                                                                                            ( ObjectProp Nothing
+                                                                                                              ( Ref Nothing
+                                                                                                                ( Imported
+                                                                                                                  ( ModuleName "Golden.LongStateBind.Test" )
+                                                                                                                  ( Name "bindStateT" )
+                                                                                                                )
                                                                                                               )
+                                                                                                              ( PropName "bind" )
                                                                                                             )
                                                                                                             ( Ref Nothing
                                                                                                               ( Imported
@@ -8523,11 +9415,14 @@ UberModule
                                                                                                             )
                                                                                                             ( AppN Nothing
                                                                                                               ( AppN Nothing
-                                                                                                                ( Ref Nothing
-                                                                                                                  ( Imported
-                                                                                                                    ( ModuleName "Golden.LongStateBind.Test" )
-                                                                                                                    ( Name "discard" )
+                                                                                                                ( ObjectProp Nothing
+                                                                                                                  ( Ref Nothing
+                                                                                                                    ( Imported
+                                                                                                                      ( ModuleName "Golden.LongStateBind.Test" )
+                                                                                                                      ( Name "bindStateT" )
+                                                                                                                    )
                                                                                                                   )
+                                                                                                                  ( PropName "bind" )
                                                                                                                 )
                                                                                                                 ( AbsN Nothing
                                                                                                                   ( ParamUnused Nothing :| [] )
@@ -8559,11 +9454,14 @@ UberModule
                                                                                                                 ( ParamUnused Nothing :| [] )
                                                                                                                 ( AppN Nothing
                                                                                                                   ( AppN Nothing
-                                                                                                                    ( Ref Nothing
-                                                                                                                      ( Imported
-                                                                                                                        ( ModuleName "Golden.LongStateBind.Test" )
-                                                                                                                        ( Name "bind" )
+                                                                                                                    ( ObjectProp Nothing
+                                                                                                                      ( Ref Nothing
+                                                                                                                        ( Imported
+                                                                                                                          ( ModuleName "Golden.LongStateBind.Test" )
+                                                                                                                          ( Name "bindStateT" )
+                                                                                                                        )
                                                                                                                       )
+                                                                                                                      ( PropName "bind" )
                                                                                                                     )
                                                                                                                     ( Ref Nothing
                                                                                                                       ( Imported
@@ -8578,11 +9476,14 @@ UberModule
                                                                                                                     )
                                                                                                                     ( AppN Nothing
                                                                                                                       ( AppN Nothing
-                                                                                                                        ( Ref Nothing
-                                                                                                                          ( Imported
-                                                                                                                            ( ModuleName "Golden.LongStateBind.Test" )
-                                                                                                                            ( Name "discard" )
+                                                                                                                        ( ObjectProp Nothing
+                                                                                                                          ( Ref Nothing
+                                                                                                                            ( Imported
+                                                                                                                              ( ModuleName "Golden.LongStateBind.Test" )
+                                                                                                                              ( Name "bindStateT" )
+                                                                                                                            )
                                                                                                                           )
+                                                                                                                          ( PropName "bind" )
                                                                                                                         )
                                                                                                                         ( AbsN Nothing
                                                                                                                           ( ParamUnused Nothing :| [] )
@@ -8614,11 +9515,14 @@ UberModule
                                                                                                                         ( ParamUnused Nothing :| [] )
                                                                                                                         ( AppN Nothing
                                                                                                                           ( AppN Nothing
-                                                                                                                            ( Ref Nothing
-                                                                                                                              ( Imported
-                                                                                                                                ( ModuleName "Golden.LongStateBind.Test" )
-                                                                                                                                ( Name "bind" )
+                                                                                                                            ( ObjectProp Nothing
+                                                                                                                              ( Ref Nothing
+                                                                                                                                ( Imported
+                                                                                                                                  ( ModuleName "Golden.LongStateBind.Test" )
+                                                                                                                                  ( Name "bindStateT" )
+                                                                                                                                )
                                                                                                                               )
+                                                                                                                              ( PropName "bind" )
                                                                                                                             )
                                                                                                                             ( Ref Nothing
                                                                                                                               ( Imported
@@ -8633,11 +9537,14 @@ UberModule
                                                                                                                             )
                                                                                                                             ( AppN Nothing
                                                                                                                               ( AppN Nothing
-                                                                                                                                ( Ref Nothing
-                                                                                                                                  ( Imported
-                                                                                                                                    ( ModuleName "Golden.LongStateBind.Test" )
-                                                                                                                                    ( Name "discard" )
+                                                                                                                                ( ObjectProp Nothing
+                                                                                                                                  ( Ref Nothing
+                                                                                                                                    ( Imported
+                                                                                                                                      ( ModuleName "Golden.LongStateBind.Test" )
+                                                                                                                                      ( Name "bindStateT" )
+                                                                                                                                    )
                                                                                                                                   )
+                                                                                                                                  ( PropName "bind" )
                                                                                                                                 )
                                                                                                                                 ( AbsN Nothing
                                                                                                                                   ( ParamUnused Nothing :| [] )
@@ -8669,11 +9576,14 @@ UberModule
                                                                                                                                 ( ParamUnused Nothing :| [] )
                                                                                                                                 ( AppN Nothing
                                                                                                                                   ( AppN Nothing
-                                                                                                                                    ( Ref Nothing
-                                                                                                                                      ( Imported
-                                                                                                                                        ( ModuleName "Golden.LongStateBind.Test" )
-                                                                                                                                        ( Name "bind" )
+                                                                                                                                    ( ObjectProp Nothing
+                                                                                                                                      ( Ref Nothing
+                                                                                                                                        ( Imported
+                                                                                                                                          ( ModuleName "Golden.LongStateBind.Test" )
+                                                                                                                                          ( Name "bindStateT" )
+                                                                                                                                        )
                                                                                                                                       )
+                                                                                                                                      ( PropName "bind" )
                                                                                                                                     )
                                                                                                                                     ( Ref Nothing
                                                                                                                                       ( Imported
@@ -8688,11 +9598,14 @@ UberModule
                                                                                                                                     )
                                                                                                                                     ( AppN Nothing
                                                                                                                                       ( AppN Nothing
-                                                                                                                                        ( Ref Nothing
-                                                                                                                                          ( Imported
-                                                                                                                                            ( ModuleName "Golden.LongStateBind.Test" )
-                                                                                                                                            ( Name "discard" )
+                                                                                                                                        ( ObjectProp Nothing
+                                                                                                                                          ( Ref Nothing
+                                                                                                                                            ( Imported
+                                                                                                                                              ( ModuleName "Golden.LongStateBind.Test" )
+                                                                                                                                              ( Name "bindStateT" )
+                                                                                                                                            )
                                                                                                                                           )
+                                                                                                                                          ( PropName "bind" )
                                                                                                                                         )
                                                                                                                                         ( AbsN Nothing
                                                                                                                                           ( ParamUnused Nothing :| [] )
@@ -8724,11 +9637,14 @@ UberModule
                                                                                                                                         ( ParamUnused Nothing :| [] )
                                                                                                                                         ( AppN Nothing
                                                                                                                                           ( AppN Nothing
-                                                                                                                                            ( Ref Nothing
-                                                                                                                                              ( Imported
-                                                                                                                                                ( ModuleName "Golden.LongStateBind.Test" )
-                                                                                                                                                ( Name "bind" )
+                                                                                                                                            ( ObjectProp Nothing
+                                                                                                                                              ( Ref Nothing
+                                                                                                                                                ( Imported
+                                                                                                                                                  ( ModuleName "Golden.LongStateBind.Test" )
+                                                                                                                                                  ( Name "bindStateT" )
+                                                                                                                                                )
                                                                                                                                               )
+                                                                                                                                              ( PropName "bind" )
                                                                                                                                             )
                                                                                                                                             ( Ref Nothing
                                                                                                                                               ( Imported
@@ -8743,11 +9659,14 @@ UberModule
                                                                                                                                             )
                                                                                                                                             ( AppN Nothing
                                                                                                                                               ( AppN Nothing
-                                                                                                                                                ( Ref Nothing
-                                                                                                                                                  ( Imported
-                                                                                                                                                    ( ModuleName "Golden.LongStateBind.Test" )
-                                                                                                                                                    ( Name "discard" )
+                                                                                                                                                ( ObjectProp Nothing
+                                                                                                                                                  ( Ref Nothing
+                                                                                                                                                    ( Imported
+                                                                                                                                                      ( ModuleName "Golden.LongStateBind.Test" )
+                                                                                                                                                      ( Name "bindStateT" )
+                                                                                                                                                    )
                                                                                                                                                   )
+                                                                                                                                                  ( PropName "bind" )
                                                                                                                                                 )
                                                                                                                                                 ( AbsN Nothing
                                                                                                                                                   ( ParamUnused Nothing :| [] )
@@ -8779,11 +9698,14 @@ UberModule
                                                                                                                                                 ( ParamUnused Nothing :| [] )
                                                                                                                                                 ( AppN Nothing
                                                                                                                                                   ( AppN Nothing
-                                                                                                                                                    ( Ref Nothing
-                                                                                                                                                      ( Imported
-                                                                                                                                                        ( ModuleName "Golden.LongStateBind.Test" )
-                                                                                                                                                        ( Name "bind" )
+                                                                                                                                                    ( ObjectProp Nothing
+                                                                                                                                                      ( Ref Nothing
+                                                                                                                                                        ( Imported
+                                                                                                                                                          ( ModuleName "Golden.LongStateBind.Test" )
+                                                                                                                                                          ( Name "bindStateT" )
+                                                                                                                                                        )
                                                                                                                                                       )
+                                                                                                                                                      ( PropName "bind" )
                                                                                                                                                     )
                                                                                                                                                     ( Ref Nothing
                                                                                                                                                       ( Imported
@@ -8798,11 +9720,14 @@ UberModule
                                                                                                                                                     )
                                                                                                                                                     ( AppN Nothing
                                                                                                                                                       ( AppN Nothing
-                                                                                                                                                        ( Ref Nothing
-                                                                                                                                                          ( Imported
-                                                                                                                                                            ( ModuleName "Golden.LongStateBind.Test" )
-                                                                                                                                                            ( Name "discard" )
+                                                                                                                                                        ( ObjectProp Nothing
+                                                                                                                                                          ( Ref Nothing
+                                                                                                                                                            ( Imported
+                                                                                                                                                              ( ModuleName "Golden.LongStateBind.Test" )
+                                                                                                                                                              ( Name "bindStateT" )
+                                                                                                                                                            )
                                                                                                                                                           )
+                                                                                                                                                          ( PropName "bind" )
                                                                                                                                                         )
                                                                                                                                                         ( AbsN Nothing
                                                                                                                                                           ( ParamUnused Nothing :| [] )
@@ -8834,11 +9759,14 @@ UberModule
                                                                                                                                                         ( ParamUnused Nothing :| [] )
                                                                                                                                                         ( AppN Nothing
                                                                                                                                                           ( AppN Nothing
-                                                                                                                                                            ( Ref Nothing
-                                                                                                                                                              ( Imported
-                                                                                                                                                                ( ModuleName "Golden.LongStateBind.Test" )
-                                                                                                                                                                ( Name "bind" )
+                                                                                                                                                            ( ObjectProp Nothing
+                                                                                                                                                              ( Ref Nothing
+                                                                                                                                                                ( Imported
+                                                                                                                                                                  ( ModuleName "Golden.LongStateBind.Test" )
+                                                                                                                                                                  ( Name "bindStateT" )
+                                                                                                                                                                )
                                                                                                                                                               )
+                                                                                                                                                              ( PropName "bind" )
                                                                                                                                                             )
                                                                                                                                                             ( Ref Nothing
                                                                                                                                                               ( Imported
@@ -8853,11 +9781,14 @@ UberModule
                                                                                                                                                             )
                                                                                                                                                             ( AppN Nothing
                                                                                                                                                               ( AppN Nothing
-                                                                                                                                                                ( Ref Nothing
-                                                                                                                                                                  ( Imported
-                                                                                                                                                                    ( ModuleName "Golden.LongStateBind.Test" )
-                                                                                                                                                                    ( Name "discard" )
+                                                                                                                                                                ( ObjectProp Nothing
+                                                                                                                                                                  ( Ref Nothing
+                                                                                                                                                                    ( Imported
+                                                                                                                                                                      ( ModuleName "Golden.LongStateBind.Test" )
+                                                                                                                                                                      ( Name "bindStateT" )
+                                                                                                                                                                    )
                                                                                                                                                                   )
+                                                                                                                                                                  ( PropName "bind" )
                                                                                                                                                                 )
                                                                                                                                                                 ( AbsN Nothing
                                                                                                                                                                   ( ParamUnused Nothing :| [] )
@@ -8889,11 +9820,14 @@ UberModule
                                                                                                                                                                 ( ParamUnused Nothing :| [] )
                                                                                                                                                                 ( AppN Nothing
                                                                                                                                                                   ( AppN Nothing
-                                                                                                                                                                    ( Ref Nothing
-                                                                                                                                                                      ( Imported
-                                                                                                                                                                        ( ModuleName "Golden.LongStateBind.Test" )
-                                                                                                                                                                        ( Name "bind" )
+                                                                                                                                                                    ( ObjectProp Nothing
+                                                                                                                                                                      ( Ref Nothing
+                                                                                                                                                                        ( Imported
+                                                                                                                                                                          ( ModuleName "Golden.LongStateBind.Test" )
+                                                                                                                                                                          ( Name "bindStateT" )
+                                                                                                                                                                        )
                                                                                                                                                                       )
+                                                                                                                                                                      ( PropName "bind" )
                                                                                                                                                                     )
                                                                                                                                                                     ( Ref Nothing
                                                                                                                                                                       ( Imported
@@ -8908,11 +9842,14 @@ UberModule
                                                                                                                                                                     )
                                                                                                                                                                     ( AppN Nothing
                                                                                                                                                                       ( AppN Nothing
-                                                                                                                                                                        ( Ref Nothing
-                                                                                                                                                                          ( Imported
-                                                                                                                                                                            ( ModuleName "Golden.LongStateBind.Test" )
-                                                                                                                                                                            ( Name "discard" )
+                                                                                                                                                                        ( ObjectProp Nothing
+                                                                                                                                                                          ( Ref Nothing
+                                                                                                                                                                            ( Imported
+                                                                                                                                                                              ( ModuleName "Golden.LongStateBind.Test" )
+                                                                                                                                                                              ( Name "bindStateT" )
+                                                                                                                                                                            )
                                                                                                                                                                           )
+                                                                                                                                                                          ( PropName "bind" )
                                                                                                                                                                         )
                                                                                                                                                                         ( AbsN Nothing
                                                                                                                                                                           ( ParamUnused Nothing :| [] )
@@ -8945,7 +9882,7 @@ UberModule
                                                                                                                                                                         ( AppN Nothing
                                                                                                                                                                           ( Ref Nothing
                                                                                                                                                                             ( Local
-                                                                                                                                                                              ( Name "$kont1783" )
+                                                                                                                                                                              ( Name "$kont2526" )
                                                                                                                                                                             )
                                                                                                                                                                           )
                                                                                                                                                                           ( Ref Nothing
diff --git a/test/ps/output/Golden.LongStateBind.Test/golden.lua b/test/ps/output/Golden.LongStateBind.Test/golden.lua
index 26d6684b..19de8a5a 100644
--- a/test/ps/output/Golden.LongStateBind.Test/golden.lua
+++ b/test/ps/output/Golden.LongStateBind.Test/golden.lua
@@ -101,54 +101,52 @@ Control_Monad_State_Trans_applicativeStateT = function(dictMonad)
   }
 end
 local Golden_LongStateBind_Test_bindStateT = Control_Monad_State_Trans_bindStateT(Data_Identity_monadIdentity)
-local Golden_LongStateBind_Test_bind = Golden_LongStateBind_Test_bindStateT.bind
 local Golden_LongStateBind_Test_get = function(x_S_1)
   return Data_Tuple_Tuple_S_w(x_S_1, x_S_1)
 end
-local Golden_LongStateBind_Test_discard = Golden_LongStateBind_Test_bindStateT.bind
 local Golden_LongStateBind_Test_go = (function()
   local _S_kont0_S_w = function(x1_S_0, x100_S_0)
-    return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x141 )
-      return Golden_LongStateBind_Test_discard(function()
+    return Golden_LongStateBind_Test_bindStateT.bind(Golden_LongStateBind_Test_get)(function( x141 )
+      return Golden_LongStateBind_Test_bindStateT.bind(function()
         return Data_Tuple_Tuple_S_w(Data_Unit_unit, x141 + 1)
       end)(function()
-        return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x142 )
-          return Golden_LongStateBind_Test_discard(function()
+        return Golden_LongStateBind_Test_bindStateT.bind(Golden_LongStateBind_Test_get)(function( x142 )
+          return Golden_LongStateBind_Test_bindStateT.bind(function()
             return Data_Tuple_Tuple_S_w(Data_Unit_unit, x142 + 1)
           end)(function()
-            return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x143 )
-              return Golden_LongStateBind_Test_discard(function()
+            return Golden_LongStateBind_Test_bindStateT.bind(Golden_LongStateBind_Test_get)(function( x143 )
+              return Golden_LongStateBind_Test_bindStateT.bind(function()
                 return Data_Tuple_Tuple_S_w(Data_Unit_unit, x143 + 1)
               end)(function()
-                return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x144 )
-                  return Golden_LongStateBind_Test_discard(function()
+                return Golden_LongStateBind_Test_bindStateT.bind(Golden_LongStateBind_Test_get)(function( x144 )
+                  return Golden_LongStateBind_Test_bindStateT.bind(function()
                     return Data_Tuple_Tuple_S_w(Data_Unit_unit, x144 + 1)
                   end)(function()
-                    return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x145 )
-                      return Golden_LongStateBind_Test_discard(function()
+                    return Golden_LongStateBind_Test_bindStateT.bind(Golden_LongStateBind_Test_get)(function( x145 )
+                      return Golden_LongStateBind_Test_bindStateT.bind(function(  )
                         return Data_Tuple_Tuple_S_w(Data_Unit_unit, x145 + 1)
                       end)(function()
-                        return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x146 )
-                          return Golden_LongStateBind_Test_discard(function()
+                        return Golden_LongStateBind_Test_bindStateT.bind(Golden_LongStateBind_Test_get)(function( x146 )
+                          return Golden_LongStateBind_Test_bindStateT.bind(function(  )
                             return Data_Tuple_Tuple_S_w(Data_Unit_unit, x146 + 1)
                           end)(function()
-                            return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x147 )
-                              return Golden_LongStateBind_Test_discard(function(  )
+                            return Golden_LongStateBind_Test_bindStateT.bind(Golden_LongStateBind_Test_get)(function( x147 )
+                              return Golden_LongStateBind_Test_bindStateT.bind(function(  )
                                 return Data_Tuple_Tuple_S_w(Data_Unit_unit, x147 + 1)
                               end)(function()
-                                return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x148 )
-                                  return Golden_LongStateBind_Test_discard(function(  )
+                                return Golden_LongStateBind_Test_bindStateT.bind(Golden_LongStateBind_Test_get)(function( x148 )
+                                  return Golden_LongStateBind_Test_bindStateT.bind(function(  )
                                     return Data_Tuple_Tuple_S_w(Data_Unit_unit, x148 + 1)
                                   end)(function()
-                                    return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x149 )
-                                      return Golden_LongStateBind_Test_discard(function(  )
+                                    return Golden_LongStateBind_Test_bindStateT.bind(Golden_LongStateBind_Test_get)(function( x149 )
+                                      return Golden_LongStateBind_Test_bindStateT.bind(function(  )
                                         return Data_Tuple_Tuple_S_w(Data_Unit_unit, x149 + 1)
                                       end)(function()
-                                        return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x150 )
-                                          return Golden_LongStateBind_Test_discard(function(  )
+                                        return Golden_LongStateBind_Test_bindStateT.bind(Golden_LongStateBind_Test_get)(function( x150 )
+                                          return Golden_LongStateBind_Test_bindStateT.bind(function(  )
                                             return Data_Tuple_Tuple_S_w(Data_Unit_unit, x150 + 1)
                                           end)(function()
-                                            return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( final )
+                                            return Golden_LongStateBind_Test_bindStateT.bind(Golden_LongStateBind_Test_get)(function( final )
                                               return (Control_Monad_State_Trans_applicativeStateT(Data_Identity_monadIdentity)).pure(x1_S_0 + x100_S_0 + final)
                                             end)
                                           end)
@@ -173,84 +171,84 @@ local Golden_LongStateBind_Test_go = (function()
     end)
   end
   local _S_kont1_S_w = function(x1_S_1, x100_S_1)
-    return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x121 )
-      return Golden_LongStateBind_Test_discard(function()
+    return Golden_LongStateBind_Test_bindStateT.bind(Golden_LongStateBind_Test_get)(function( x121 )
+      return Golden_LongStateBind_Test_bindStateT.bind(function()
         return Data_Tuple_Tuple_S_w(Data_Unit_unit, x121 + 1)
       end)(function()
-        return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x122 )
-          return Golden_LongStateBind_Test_discard(function()
+        return Golden_LongStateBind_Test_bindStateT.bind(Golden_LongStateBind_Test_get)(function( x122 )
+          return Golden_LongStateBind_Test_bindStateT.bind(function()
             return Data_Tuple_Tuple_S_w(Data_Unit_unit, x122 + 1)
           end)(function()
-            return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x123 )
-              return Golden_LongStateBind_Test_discard(function()
+            return Golden_LongStateBind_Test_bindStateT.bind(Golden_LongStateBind_Test_get)(function( x123 )
+              return Golden_LongStateBind_Test_bindStateT.bind(function()
                 return Data_Tuple_Tuple_S_w(Data_Unit_unit, x123 + 1)
               end)(function()
-                return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x124 )
-                  return Golden_LongStateBind_Test_discard(function()
+                return Golden_LongStateBind_Test_bindStateT.bind(Golden_LongStateBind_Test_get)(function( x124 )
+                  return Golden_LongStateBind_Test_bindStateT.bind(function()
                     return Data_Tuple_Tuple_S_w(Data_Unit_unit, x124 + 1)
                   end)(function()
-                    return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x125 )
-                      return Golden_LongStateBind_Test_discard(function()
+                    return Golden_LongStateBind_Test_bindStateT.bind(Golden_LongStateBind_Test_get)(function( x125 )
+                      return Golden_LongStateBind_Test_bindStateT.bind(function(  )
                         return Data_Tuple_Tuple_S_w(Data_Unit_unit, x125 + 1)
                       end)(function()
-                        return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x126 )
-                          return Golden_LongStateBind_Test_discard(function()
+                        return Golden_LongStateBind_Test_bindStateT.bind(Golden_LongStateBind_Test_get)(function( x126 )
+                          return Golden_LongStateBind_Test_bindStateT.bind(function(  )
                             return Data_Tuple_Tuple_S_w(Data_Unit_unit, x126 + 1)
                           end)(function()
-                            return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x127 )
-                              return Golden_LongStateBind_Test_discard(function(  )
+                            return Golden_LongStateBind_Test_bindStateT.bind(Golden_LongStateBind_Test_get)(function( x127 )
+                              return Golden_LongStateBind_Test_bindStateT.bind(function(  )
                                 return Data_Tuple_Tuple_S_w(Data_Unit_unit, x127 + 1)
                               end)(function()
-                                return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x128 )
-                                  return Golden_LongStateBind_Test_discard(function(  )
+                                return Golden_LongStateBind_Test_bindStateT.bind(Golden_LongStateBind_Test_get)(function( x128 )
+                                  return Golden_LongStateBind_Test_bindStateT.bind(function(  )
                                     return Data_Tuple_Tuple_S_w(Data_Unit_unit, x128 + 1)
                                   end)(function()
-                                    return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x129 )
-                                      return Golden_LongStateBind_Test_discard(function(  )
+                                    return Golden_LongStateBind_Test_bindStateT.bind(Golden_LongStateBind_Test_get)(function( x129 )
+                                      return Golden_LongStateBind_Test_bindStateT.bind(function(  )
                                         return Data_Tuple_Tuple_S_w(Data_Unit_unit, x129 + 1)
                                       end)(function()
-                                        return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x130 )
-                                          return Golden_LongStateBind_Test_discard(function(  )
+                                        return Golden_LongStateBind_Test_bindStateT.bind(Golden_LongStateBind_Test_get)(function( x130 )
+                                          return Golden_LongStateBind_Test_bindStateT.bind(function(  )
                                             return Data_Tuple_Tuple_S_w(Data_Unit_unit, x130 + 1)
                                           end)(function()
-                                            return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x131 )
-                                              return Golden_LongStateBind_Test_discard(function(  )
+                                            return Golden_LongStateBind_Test_bindStateT.bind(Golden_LongStateBind_Test_get)(function( x131 )
+                                              return Golden_LongStateBind_Test_bindStateT.bind(function(  )
                                                 return Data_Tuple_Tuple_S_w(Data_Unit_unit, x131 + 1)
                                               end)(function()
-                                                return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x132 )
-                                                  return Golden_LongStateBind_Test_discard(function(  )
+                                                return Golden_LongStateBind_Test_bindStateT.bind(Golden_LongStateBind_Test_get)(function( x132 )
+                                                  return Golden_LongStateBind_Test_bindStateT.bind(function(  )
                                                     return Data_Tuple_Tuple_S_w(Data_Unit_unit, x132 + 1)
                                                   end)(function()
-                                                    return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x133 )
-                                                      return Golden_LongStateBind_Test_discard(function(  )
+                                                    return Golden_LongStateBind_Test_bindStateT.bind(Golden_LongStateBind_Test_get)(function( x133 )
+                                                      return Golden_LongStateBind_Test_bindStateT.bind(function(  )
                                                         return Data_Tuple_Tuple_S_w(Data_Unit_unit, x133 + 1)
                                                       end)(function()
-                                                        return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x134 )
-                                                          return Golden_LongStateBind_Test_discard(function(  )
+                                                        return Golden_LongStateBind_Test_bindStateT.bind(Golden_LongStateBind_Test_get)(function( x134 )
+                                                          return Golden_LongStateBind_Test_bindStateT.bind(function(  )
                                                             return Data_Tuple_Tuple_S_w(Data_Unit_unit, x134 + 1)
                                                           end)(function()
-                                                            return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x135 )
-                                                              return Golden_LongStateBind_Test_discard(function(  )
+                                                            return Golden_LongStateBind_Test_bindStateT.bind(Golden_LongStateBind_Test_get)(function( x135 )
+                                                              return Golden_LongStateBind_Test_bindStateT.bind(function(  )
                                                                 return Data_Tuple_Tuple_S_w(Data_Unit_unit, x135 + 1)
                                                               end)(function()
-                                                                return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x136 )
-                                                                  return Golden_LongStateBind_Test_discard(function(  )
+                                                                return Golden_LongStateBind_Test_bindStateT.bind(Golden_LongStateBind_Test_get)(function( x136 )
+                                                                  return Golden_LongStateBind_Test_bindStateT.bind(function(  )
                                                                     return Data_Tuple_Tuple_S_w(Data_Unit_unit, x136 + 1)
                                                                   end)(function(  )
-                                                                    return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x137 )
-                                                                      return Golden_LongStateBind_Test_discard(function(  )
+                                                                    return Golden_LongStateBind_Test_bindStateT.bind(Golden_LongStateBind_Test_get)(function( x137 )
+                                                                      return Golden_LongStateBind_Test_bindStateT.bind(function(  )
                                                                         return Data_Tuple_Tuple_S_w(Data_Unit_unit, x137 + 1)
                                                                       end)(function(  )
-                                                                        return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x138 )
-                                                                          return Golden_LongStateBind_Test_discard(function(  )
+                                                                        return Golden_LongStateBind_Test_bindStateT.bind(Golden_LongStateBind_Test_get)(function( x138 )
+                                                                          return Golden_LongStateBind_Test_bindStateT.bind(function(  )
                                                                             return Data_Tuple_Tuple_S_w(Data_Unit_unit, x138 + 1)
                                                                           end)(function(  )
-                                                                            return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x139 )
-                                                                              return Golden_LongStateBind_Test_discard(function(  )
+                                                                            return Golden_LongStateBind_Test_bindStateT.bind(Golden_LongStateBind_Test_get)(function( x139 )
+                                                                              return Golden_LongStateBind_Test_bindStateT.bind(function(  )
                                                                                 return Data_Tuple_Tuple_S_w(Data_Unit_unit, x139 + 1)
                                                                               end)(function(  )
-                                                                                return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x140 )
-                                                                                  return Golden_LongStateBind_Test_discard(function(  )
+                                                                                return Golden_LongStateBind_Test_bindStateT.bind(Golden_LongStateBind_Test_get)(function( x140 )
+                                                                                  return Golden_LongStateBind_Test_bindStateT.bind(function(  )
                                                                                     return Data_Tuple_Tuple_S_w(Data_Unit_unit, x140 + 1)
                                                                                   end)(function(  )
                                                                                     return _S_kont0_S_w(x1_S_1, x100_S_1)
@@ -296,84 +294,84 @@ local Golden_LongStateBind_Test_go = (function()
     end)
   end
   local _S_kont2_S_w = function(x1_S_2, x100_S_2)
-    return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x101 )
-      return Golden_LongStateBind_Test_discard(function()
+    return Golden_LongStateBind_Test_bindStateT.bind(Golden_LongStateBind_Test_get)(function( x101 )
+      return Golden_LongStateBind_Test_bindStateT.bind(function()
         return Data_Tuple_Tuple_S_w(Data_Unit_unit, x101 + 1)
       end)(function()
-        return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x102 )
-          return Golden_LongStateBind_Test_discard(function()
+        return Golden_LongStateBind_Test_bindStateT.bind(Golden_LongStateBind_Test_get)(function( x102 )
+          return Golden_LongStateBind_Test_bindStateT.bind(function()
             return Data_Tuple_Tuple_S_w(Data_Unit_unit, x102 + 1)
           end)(function()
-            return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x103 )
-              return Golden_LongStateBind_Test_discard(function()
+            return Golden_LongStateBind_Test_bindStateT.bind(Golden_LongStateBind_Test_get)(function( x103 )
+              return Golden_LongStateBind_Test_bindStateT.bind(function()
                 return Data_Tuple_Tuple_S_w(Data_Unit_unit, x103 + 1)
               end)(function()
-                return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x104 )
-                  return Golden_LongStateBind_Test_discard(function()
+                return Golden_LongStateBind_Test_bindStateT.bind(Golden_LongStateBind_Test_get)(function( x104 )
+                  return Golden_LongStateBind_Test_bindStateT.bind(function()
                     return Data_Tuple_Tuple_S_w(Data_Unit_unit, x104 + 1)
                   end)(function()
-                    return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x105 )
-                      return Golden_LongStateBind_Test_discard(function()
+                    return Golden_LongStateBind_Test_bindStateT.bind(Golden_LongStateBind_Test_get)(function( x105 )
+                      return Golden_LongStateBind_Test_bindStateT.bind(function(  )
                         return Data_Tuple_Tuple_S_w(Data_Unit_unit, x105 + 1)
                       end)(function()
-                        return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x106 )
-                          return Golden_LongStateBind_Test_discard(function()
+                        return Golden_LongStateBind_Test_bindStateT.bind(Golden_LongStateBind_Test_get)(function( x106 )
+                          return Golden_LongStateBind_Test_bindStateT.bind(function(  )
                             return Data_Tuple_Tuple_S_w(Data_Unit_unit, x106 + 1)
                           end)(function()
-                            return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x107 )
-                              return Golden_LongStateBind_Test_discard(function(  )
+                            return Golden_LongStateBind_Test_bindStateT.bind(Golden_LongStateBind_Test_get)(function( x107 )
+                              return Golden_LongStateBind_Test_bindStateT.bind(function(  )
                                 return Data_Tuple_Tuple_S_w(Data_Unit_unit, x107 + 1)
                               end)(function()
-                                return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x108 )
-                                  return Golden_LongStateBind_Test_discard(function(  )
+                                return Golden_LongStateBind_Test_bindStateT.bind(Golden_LongStateBind_Test_get)(function( x108 )
+                                  return Golden_LongStateBind_Test_bindStateT.bind(function(  )
                                     return Data_Tuple_Tuple_S_w(Data_Unit_unit, x108 + 1)
                                   end)(function()
-                                    return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x109 )
-                                      return Golden_LongStateBind_Test_discard(function(  )
+                                    return Golden_LongStateBind_Test_bindStateT.bind(Golden_LongStateBind_Test_get)(function( x109 )
+                                      return Golden_LongStateBind_Test_bindStateT.bind(function(  )
                                         return Data_Tuple_Tuple_S_w(Data_Unit_unit, x109 + 1)
                                       end)(function()
-                                        return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x110 )
-                                          return Golden_LongStateBind_Test_discard(function(  )
+                                        return Golden_LongStateBind_Test_bindStateT.bind(Golden_LongStateBind_Test_get)(function( x110 )
+                                          return Golden_LongStateBind_Test_bindStateT.bind(function(  )
                                             return Data_Tuple_Tuple_S_w(Data_Unit_unit, x110 + 1)
                                           end)(function()
-                                            return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x111 )
-                                              return Golden_LongStateBind_Test_discard(function(  )
+                                            return Golden_LongStateBind_Test_bindStateT.bind(Golden_LongStateBind_Test_get)(function( x111 )
+                                              return Golden_LongStateBind_Test_bindStateT.bind(function(  )
                                                 return Data_Tuple_Tuple_S_w(Data_Unit_unit, x111 + 1)
                                               end)(function()
-                                                return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x112 )
-                                                  return Golden_LongStateBind_Test_discard(function(  )
+                                                return Golden_LongStateBind_Test_bindStateT.bind(Golden_LongStateBind_Test_get)(function( x112 )
+                                                  return Golden_LongStateBind_Test_bindStateT.bind(function(  )
                                                     return Data_Tuple_Tuple_S_w(Data_Unit_unit, x112 + 1)
                                                   end)(function()
-                                                    return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x113 )
-                                                      return Golden_LongStateBind_Test_discard(function(  )
+                                                    return Golden_LongStateBind_Test_bindStateT.bind(Golden_LongStateBind_Test_get)(function( x113 )
+                                                      return Golden_LongStateBind_Test_bindStateT.bind(function(  )
                                                         return Data_Tuple_Tuple_S_w(Data_Unit_unit, x113 + 1)
                                                       end)(function()
-                                                        return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x114 )
-                                                          return Golden_LongStateBind_Test_discard(function(  )
+                                                        return Golden_LongStateBind_Test_bindStateT.bind(Golden_LongStateBind_Test_get)(function( x114 )
+                                                          return Golden_LongStateBind_Test_bindStateT.bind(function(  )
                                                             return Data_Tuple_Tuple_S_w(Data_Unit_unit, x114 + 1)
                                                           end)(function()
-                                                            return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x115 )
-                                                              return Golden_LongStateBind_Test_discard(function(  )
+                                                            return Golden_LongStateBind_Test_bindStateT.bind(Golden_LongStateBind_Test_get)(function( x115 )
+                                                              return Golden_LongStateBind_Test_bindStateT.bind(function(  )
                                                                 return Data_Tuple_Tuple_S_w(Data_Unit_unit, x115 + 1)
                                                               end)(function()
-                                                                return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x116 )
-                                                                  return Golden_LongStateBind_Test_discard(function(  )
+                                                                return Golden_LongStateBind_Test_bindStateT.bind(Golden_LongStateBind_Test_get)(function( x116 )
+                                                                  return Golden_LongStateBind_Test_bindStateT.bind(function(  )
                                                                     return Data_Tuple_Tuple_S_w(Data_Unit_unit, x116 + 1)
                                                                   end)(function(  )
-                                                                    return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x117 )
-                                                                      return Golden_LongStateBind_Test_discard(function(  )
+                                                                    return Golden_LongStateBind_Test_bindStateT.bind(Golden_LongStateBind_Test_get)(function( x117 )
+                                                                      return Golden_LongStateBind_Test_bindStateT.bind(function(  )
                                                                         return Data_Tuple_Tuple_S_w(Data_Unit_unit, x117 + 1)
                                                                       end)(function(  )
-                                                                        return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x118 )
-                                                                          return Golden_LongStateBind_Test_discard(function(  )
+                                                                        return Golden_LongStateBind_Test_bindStateT.bind(Golden_LongStateBind_Test_get)(function( x118 )
+                                                                          return Golden_LongStateBind_Test_bindStateT.bind(function(  )
                                                                             return Data_Tuple_Tuple_S_w(Data_Unit_unit, x118 + 1)
                                                                           end)(function(  )
-                                                                            return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x119 )
-                                                                              return Golden_LongStateBind_Test_discard(function(  )
+                                                                            return Golden_LongStateBind_Test_bindStateT.bind(Golden_LongStateBind_Test_get)(function( x119 )
+                                                                              return Golden_LongStateBind_Test_bindStateT.bind(function(  )
                                                                                 return Data_Tuple_Tuple_S_w(Data_Unit_unit, x119 + 1)
                                                                               end)(function(  )
-                                                                                return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x120 )
-                                                                                  return Golden_LongStateBind_Test_discard(function(  )
+                                                                                return Golden_LongStateBind_Test_bindStateT.bind(Golden_LongStateBind_Test_get)(function( x120 )
+                                                                                  return Golden_LongStateBind_Test_bindStateT.bind(function(  )
                                                                                     return Data_Tuple_Tuple_S_w(Data_Unit_unit, x120 + 1)
                                                                                   end)(function(  )
                                                                                     return _S_kont1_S_w(x1_S_2, x100_S_2)
@@ -419,84 +417,84 @@ local Golden_LongStateBind_Test_go = (function()
     end)
   end
   local _S_kont3 = function(x1_S_3)
-    return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x81 )
-      return Golden_LongStateBind_Test_discard(function()
+    return Golden_LongStateBind_Test_bindStateT.bind(Golden_LongStateBind_Test_get)(function( x81 )
+      return Golden_LongStateBind_Test_bindStateT.bind(function()
         return Data_Tuple_Tuple_S_w(Data_Unit_unit, x81 + 1)
       end)(function()
-        return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x82 )
-          return Golden_LongStateBind_Test_discard(function()
+        return Golden_LongStateBind_Test_bindStateT.bind(Golden_LongStateBind_Test_get)(function( x82 )
+          return Golden_LongStateBind_Test_bindStateT.bind(function()
             return Data_Tuple_Tuple_S_w(Data_Unit_unit, x82 + 1)
           end)(function()
-            return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x83 )
-              return Golden_LongStateBind_Test_discard(function()
+            return Golden_LongStateBind_Test_bindStateT.bind(Golden_LongStateBind_Test_get)(function( x83 )
+              return Golden_LongStateBind_Test_bindStateT.bind(function()
                 return Data_Tuple_Tuple_S_w(Data_Unit_unit, x83 + 1)
               end)(function()
-                return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x84 )
-                  return Golden_LongStateBind_Test_discard(function()
+                return Golden_LongStateBind_Test_bindStateT.bind(Golden_LongStateBind_Test_get)(function( x84 )
+                  return Golden_LongStateBind_Test_bindStateT.bind(function()
                     return Data_Tuple_Tuple_S_w(Data_Unit_unit, x84 + 1)
                   end)(function()
-                    return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x85 )
-                      return Golden_LongStateBind_Test_discard(function()
+                    return Golden_LongStateBind_Test_bindStateT.bind(Golden_LongStateBind_Test_get)(function( x85 )
+                      return Golden_LongStateBind_Test_bindStateT.bind(function(  )
                         return Data_Tuple_Tuple_S_w(Data_Unit_unit, x85 + 1)
                       end)(function()
-                        return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x86 )
-                          return Golden_LongStateBind_Test_discard(function()
+                        return Golden_LongStateBind_Test_bindStateT.bind(Golden_LongStateBind_Test_get)(function( x86 )
+                          return Golden_LongStateBind_Test_bindStateT.bind(function(  )
                             return Data_Tuple_Tuple_S_w(Data_Unit_unit, x86 + 1)
                           end)(function()
-                            return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x87 )
-                              return Golden_LongStateBind_Test_discard(function(  )
+                            return Golden_LongStateBind_Test_bindStateT.bind(Golden_LongStateBind_Test_get)(function( x87 )
+                              return Golden_LongStateBind_Test_bindStateT.bind(function(  )
                                 return Data_Tuple_Tuple_S_w(Data_Unit_unit, x87 + 1)
                               end)(function()
-                                return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x88 )
-                                  return Golden_LongStateBind_Test_discard(function(  )
+                                return Golden_LongStateBind_Test_bindStateT.bind(Golden_LongStateBind_Test_get)(function( x88 )
+                                  return Golden_LongStateBind_Test_bindStateT.bind(function(  )
                                     return Data_Tuple_Tuple_S_w(Data_Unit_unit, x88 + 1)
                                   end)(function()
-                                    return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x89 )
-                                      return Golden_LongStateBind_Test_discard(function(  )
+                                    return Golden_LongStateBind_Test_bindStateT.bind(Golden_LongStateBind_Test_get)(function( x89 )
+                                      return Golden_LongStateBind_Test_bindStateT.bind(function(  )
                                         return Data_Tuple_Tuple_S_w(Data_Unit_unit, x89 + 1)
                                       end)(function()
-                                        return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x90 )
-                                          return Golden_LongStateBind_Test_discard(function(  )
+                                        return Golden_LongStateBind_Test_bindStateT.bind(Golden_LongStateBind_Test_get)(function( x90 )
+                                          return Golden_LongStateBind_Test_bindStateT.bind(function(  )
                                             return Data_Tuple_Tuple_S_w(Data_Unit_unit, x90 + 1)
                                           end)(function()
-                                            return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x91 )
-                                              return Golden_LongStateBind_Test_discard(function(  )
+                                            return Golden_LongStateBind_Test_bindStateT.bind(Golden_LongStateBind_Test_get)(function( x91 )
+                                              return Golden_LongStateBind_Test_bindStateT.bind(function(  )
                                                 return Data_Tuple_Tuple_S_w(Data_Unit_unit, x91 + 1)
                                               end)(function()
-                                                return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x92 )
-                                                  return Golden_LongStateBind_Test_discard(function(  )
+                                                return Golden_LongStateBind_Test_bindStateT.bind(Golden_LongStateBind_Test_get)(function( x92 )
+                                                  return Golden_LongStateBind_Test_bindStateT.bind(function(  )
                                                     return Data_Tuple_Tuple_S_w(Data_Unit_unit, x92 + 1)
                                                   end)(function()
-                                                    return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x93 )
-                                                      return Golden_LongStateBind_Test_discard(function(  )
+                                                    return Golden_LongStateBind_Test_bindStateT.bind(Golden_LongStateBind_Test_get)(function( x93 )
+                                                      return Golden_LongStateBind_Test_bindStateT.bind(function(  )
                                                         return Data_Tuple_Tuple_S_w(Data_Unit_unit, x93 + 1)
                                                       end)(function()
-                                                        return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x94 )
-                                                          return Golden_LongStateBind_Test_discard(function(  )
+                                                        return Golden_LongStateBind_Test_bindStateT.bind(Golden_LongStateBind_Test_get)(function( x94 )
+                                                          return Golden_LongStateBind_Test_bindStateT.bind(function(  )
                                                             return Data_Tuple_Tuple_S_w(Data_Unit_unit, x94 + 1)
                                                           end)(function()
-                                                            return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x95 )
-                                                              return Golden_LongStateBind_Test_discard(function(  )
+                                                            return Golden_LongStateBind_Test_bindStateT.bind(Golden_LongStateBind_Test_get)(function( x95 )
+                                                              return Golden_LongStateBind_Test_bindStateT.bind(function(  )
                                                                 return Data_Tuple_Tuple_S_w(Data_Unit_unit, x95 + 1)
                                                               end)(function()
-                                                                return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x96 )
-                                                                  return Golden_LongStateBind_Test_discard(function(  )
+                                                                return Golden_LongStateBind_Test_bindStateT.bind(Golden_LongStateBind_Test_get)(function( x96 )
+                                                                  return Golden_LongStateBind_Test_bindStateT.bind(function(  )
                                                                     return Data_Tuple_Tuple_S_w(Data_Unit_unit, x96 + 1)
                                                                   end)(function(  )
-                                                                    return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x97 )
-                                                                      return Golden_LongStateBind_Test_discard(function(  )
+                                                                    return Golden_LongStateBind_Test_bindStateT.bind(Golden_LongStateBind_Test_get)(function( x97 )
+                                                                      return Golden_LongStateBind_Test_bindStateT.bind(function(  )
                                                                         return Data_Tuple_Tuple_S_w(Data_Unit_unit, x97 + 1)
                                                                       end)(function(  )
-                                                                        return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x98 )
-                                                                          return Golden_LongStateBind_Test_discard(function(  )
+                                                                        return Golden_LongStateBind_Test_bindStateT.bind(Golden_LongStateBind_Test_get)(function( x98 )
+                                                                          return Golden_LongStateBind_Test_bindStateT.bind(function(  )
                                                                             return Data_Tuple_Tuple_S_w(Data_Unit_unit, x98 + 1)
                                                                           end)(function(  )
-                                                                            return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x99 )
-                                                                              return Golden_LongStateBind_Test_discard(function(  )
+                                                                            return Golden_LongStateBind_Test_bindStateT.bind(Golden_LongStateBind_Test_get)(function( x99 )
+                                                                              return Golden_LongStateBind_Test_bindStateT.bind(function(  )
                                                                                 return Data_Tuple_Tuple_S_w(Data_Unit_unit, x99 + 1)
                                                                               end)(function(  )
-                                                                                return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x100 )
-                                                                                  return Golden_LongStateBind_Test_discard(function(  )
+                                                                                return Golden_LongStateBind_Test_bindStateT.bind(Golden_LongStateBind_Test_get)(function( x100 )
+                                                                                  return Golden_LongStateBind_Test_bindStateT.bind(function(  )
                                                                                     return Data_Tuple_Tuple_S_w(Data_Unit_unit, x100 + 1)
                                                                                   end)(function(  )
                                                                                     return _S_kont2_S_w(x1_S_3, x100)
@@ -542,84 +540,84 @@ local Golden_LongStateBind_Test_go = (function()
     end)
   end
   local _S_kont4 = function(x1_S_4)
-    return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x61 )
-      return Golden_LongStateBind_Test_discard(function()
+    return Golden_LongStateBind_Test_bindStateT.bind(Golden_LongStateBind_Test_get)(function( x61 )
+      return Golden_LongStateBind_Test_bindStateT.bind(function()
         return Data_Tuple_Tuple_S_w(Data_Unit_unit, x61 + 1)
       end)(function()
-        return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x62 )
-          return Golden_LongStateBind_Test_discard(function()
+        return Golden_LongStateBind_Test_bindStateT.bind(Golden_LongStateBind_Test_get)(function( x62 )
+          return Golden_LongStateBind_Test_bindStateT.bind(function()
             return Data_Tuple_Tuple_S_w(Data_Unit_unit, x62 + 1)
           end)(function()
-            return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x63 )
-              return Golden_LongStateBind_Test_discard(function()
+            return Golden_LongStateBind_Test_bindStateT.bind(Golden_LongStateBind_Test_get)(function( x63 )
+              return Golden_LongStateBind_Test_bindStateT.bind(function()
                 return Data_Tuple_Tuple_S_w(Data_Unit_unit, x63 + 1)
               end)(function()
-                return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x64 )
-                  return Golden_LongStateBind_Test_discard(function()
+                return Golden_LongStateBind_Test_bindStateT.bind(Golden_LongStateBind_Test_get)(function( x64 )
+                  return Golden_LongStateBind_Test_bindStateT.bind(function()
                     return Data_Tuple_Tuple_S_w(Data_Unit_unit, x64 + 1)
                   end)(function()
-                    return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x65 )
-                      return Golden_LongStateBind_Test_discard(function()
+                    return Golden_LongStateBind_Test_bindStateT.bind(Golden_LongStateBind_Test_get)(function( x65 )
+                      return Golden_LongStateBind_Test_bindStateT.bind(function(  )
                         return Data_Tuple_Tuple_S_w(Data_Unit_unit, x65 + 1)
                       end)(function()
-                        return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x66 )
-                          return Golden_LongStateBind_Test_discard(function()
+                        return Golden_LongStateBind_Test_bindStateT.bind(Golden_LongStateBind_Test_get)(function( x66 )
+                          return Golden_LongStateBind_Test_bindStateT.bind(function(  )
                             return Data_Tuple_Tuple_S_w(Data_Unit_unit, x66 + 1)
                           end)(function()
-                            return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x67 )
-                              return Golden_LongStateBind_Test_discard(function(  )
+                            return Golden_LongStateBind_Test_bindStateT.bind(Golden_LongStateBind_Test_get)(function( x67 )
+                              return Golden_LongStateBind_Test_bindStateT.bind(function(  )
                                 return Data_Tuple_Tuple_S_w(Data_Unit_unit, x67 + 1)
                               end)(function()
-                                return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x68 )
-                                  return Golden_LongStateBind_Test_discard(function(  )
+                                return Golden_LongStateBind_Test_bindStateT.bind(Golden_LongStateBind_Test_get)(function( x68 )
+                                  return Golden_LongStateBind_Test_bindStateT.bind(function(  )
                                     return Data_Tuple_Tuple_S_w(Data_Unit_unit, x68 + 1)
                                   end)(function()
-                                    return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x69 )
-                                      return Golden_LongStateBind_Test_discard(function(  )
+                                    return Golden_LongStateBind_Test_bindStateT.bind(Golden_LongStateBind_Test_get)(function( x69 )
+                                      return Golden_LongStateBind_Test_bindStateT.bind(function(  )
                                         return Data_Tuple_Tuple_S_w(Data_Unit_unit, x69 + 1)
                                       end)(function()
-                                        return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x70 )
-                                          return Golden_LongStateBind_Test_discard(function(  )
+                                        return Golden_LongStateBind_Test_bindStateT.bind(Golden_LongStateBind_Test_get)(function( x70 )
+                                          return Golden_LongStateBind_Test_bindStateT.bind(function(  )
                                             return Data_Tuple_Tuple_S_w(Data_Unit_unit, x70 + 1)
                                           end)(function()
-                                            return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x71 )
-                                              return Golden_LongStateBind_Test_discard(function(  )
+                                            return Golden_LongStateBind_Test_bindStateT.bind(Golden_LongStateBind_Test_get)(function( x71 )
+                                              return Golden_LongStateBind_Test_bindStateT.bind(function(  )
                                                 return Data_Tuple_Tuple_S_w(Data_Unit_unit, x71 + 1)
                                               end)(function()
-                                                return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x72 )
-                                                  return Golden_LongStateBind_Test_discard(function(  )
+                                                return Golden_LongStateBind_Test_bindStateT.bind(Golden_LongStateBind_Test_get)(function( x72 )
+                                                  return Golden_LongStateBind_Test_bindStateT.bind(function(  )
                                                     return Data_Tuple_Tuple_S_w(Data_Unit_unit, x72 + 1)
                                                   end)(function()
-                                                    return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x73 )
-                                                      return Golden_LongStateBind_Test_discard(function(  )
+                                                    return Golden_LongStateBind_Test_bindStateT.bind(Golden_LongStateBind_Test_get)(function( x73 )
+                                                      return Golden_LongStateBind_Test_bindStateT.bind(function(  )
                                                         return Data_Tuple_Tuple_S_w(Data_Unit_unit, x73 + 1)
                                                       end)(function()
-                                                        return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x74 )
-                                                          return Golden_LongStateBind_Test_discard(function(  )
+                                                        return Golden_LongStateBind_Test_bindStateT.bind(Golden_LongStateBind_Test_get)(function( x74 )
+                                                          return Golden_LongStateBind_Test_bindStateT.bind(function(  )
                                                             return Data_Tuple_Tuple_S_w(Data_Unit_unit, x74 + 1)
                                                           end)(function()
-                                                            return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x75 )
-                                                              return Golden_LongStateBind_Test_discard(function(  )
+                                                            return Golden_LongStateBind_Test_bindStateT.bind(Golden_LongStateBind_Test_get)(function( x75 )
+                                                              return Golden_LongStateBind_Test_bindStateT.bind(function(  )
                                                                 return Data_Tuple_Tuple_S_w(Data_Unit_unit, x75 + 1)
                                                               end)(function()
-                                                                return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x76 )
-                                                                  return Golden_LongStateBind_Test_discard(function(  )
+                                                                return Golden_LongStateBind_Test_bindStateT.bind(Golden_LongStateBind_Test_get)(function( x76 )
+                                                                  return Golden_LongStateBind_Test_bindStateT.bind(function(  )
                                                                     return Data_Tuple_Tuple_S_w(Data_Unit_unit, x76 + 1)
                                                                   end)(function(  )
-                                                                    return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x77 )
-                                                                      return Golden_LongStateBind_Test_discard(function(  )
+                                                                    return Golden_LongStateBind_Test_bindStateT.bind(Golden_LongStateBind_Test_get)(function( x77 )
+                                                                      return Golden_LongStateBind_Test_bindStateT.bind(function(  )
                                                                         return Data_Tuple_Tuple_S_w(Data_Unit_unit, x77 + 1)
                                                                       end)(function(  )
-                                                                        return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x78 )
-                                                                          return Golden_LongStateBind_Test_discard(function(  )
+                                                                        return Golden_LongStateBind_Test_bindStateT.bind(Golden_LongStateBind_Test_get)(function( x78 )
+                                                                          return Golden_LongStateBind_Test_bindStateT.bind(function(  )
                                                                             return Data_Tuple_Tuple_S_w(Data_Unit_unit, x78 + 1)
                                                                           end)(function(  )
-                                                                            return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x79 )
-                                                                              return Golden_LongStateBind_Test_discard(function(  )
+                                                                            return Golden_LongStateBind_Test_bindStateT.bind(Golden_LongStateBind_Test_get)(function( x79 )
+                                                                              return Golden_LongStateBind_Test_bindStateT.bind(function(  )
                                                                                 return Data_Tuple_Tuple_S_w(Data_Unit_unit, x79 + 1)
                                                                               end)(function(  )
-                                                                                return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x80 )
-                                                                                  return Golden_LongStateBind_Test_discard(function(  )
+                                                                                return Golden_LongStateBind_Test_bindStateT.bind(Golden_LongStateBind_Test_get)(function( x80 )
+                                                                                  return Golden_LongStateBind_Test_bindStateT.bind(function(  )
                                                                                     return Data_Tuple_Tuple_S_w(Data_Unit_unit, x80 + 1)
                                                                                   end)(function(  )
                                                                                     return _S_kont3(x1_S_4)
@@ -665,84 +663,84 @@ local Golden_LongStateBind_Test_go = (function()
     end)
   end
   local _S_kont5 = function(x1_S_5)
-    return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x41 )
-      return Golden_LongStateBind_Test_discard(function()
+    return Golden_LongStateBind_Test_bindStateT.bind(Golden_LongStateBind_Test_get)(function( x41 )
+      return Golden_LongStateBind_Test_bindStateT.bind(function()
         return Data_Tuple_Tuple_S_w(Data_Unit_unit, x41 + 1)
       end)(function()
-        return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x42 )
-          return Golden_LongStateBind_Test_discard(function()
+        return Golden_LongStateBind_Test_bindStateT.bind(Golden_LongStateBind_Test_get)(function( x42 )
+          return Golden_LongStateBind_Test_bindStateT.bind(function()
             return Data_Tuple_Tuple_S_w(Data_Unit_unit, x42 + 1)
           end)(function()
-            return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x43 )
-              return Golden_LongStateBind_Test_discard(function()
+            return Golden_LongStateBind_Test_bindStateT.bind(Golden_LongStateBind_Test_get)(function( x43 )
+              return Golden_LongStateBind_Test_bindStateT.bind(function()
                 return Data_Tuple_Tuple_S_w(Data_Unit_unit, x43 + 1)
               end)(function()
-                return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x44 )
-                  return Golden_LongStateBind_Test_discard(function()
+                return Golden_LongStateBind_Test_bindStateT.bind(Golden_LongStateBind_Test_get)(function( x44 )
+                  return Golden_LongStateBind_Test_bindStateT.bind(function()
                     return Data_Tuple_Tuple_S_w(Data_Unit_unit, x44 + 1)
                   end)(function()
-                    return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x45 )
-                      return Golden_LongStateBind_Test_discard(function()
+                    return Golden_LongStateBind_Test_bindStateT.bind(Golden_LongStateBind_Test_get)(function( x45 )
+                      return Golden_LongStateBind_Test_bindStateT.bind(function(  )
                         return Data_Tuple_Tuple_S_w(Data_Unit_unit, x45 + 1)
                       end)(function()
-                        return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x46 )
-                          return Golden_LongStateBind_Test_discard(function()
+                        return Golden_LongStateBind_Test_bindStateT.bind(Golden_LongStateBind_Test_get)(function( x46 )
+                          return Golden_LongStateBind_Test_bindStateT.bind(function(  )
                             return Data_Tuple_Tuple_S_w(Data_Unit_unit, x46 + 1)
                           end)(function()
-                            return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x47 )
-                              return Golden_LongStateBind_Test_discard(function(  )
+                            return Golden_LongStateBind_Test_bindStateT.bind(Golden_LongStateBind_Test_get)(function( x47 )
+                              return Golden_LongStateBind_Test_bindStateT.bind(function(  )
                                 return Data_Tuple_Tuple_S_w(Data_Unit_unit, x47 + 1)
                               end)(function()
-                                return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x48 )
-                                  return Golden_LongStateBind_Test_discard(function(  )
+                                return Golden_LongStateBind_Test_bindStateT.bind(Golden_LongStateBind_Test_get)(function( x48 )
+                                  return Golden_LongStateBind_Test_bindStateT.bind(function(  )
                                     return Data_Tuple_Tuple_S_w(Data_Unit_unit, x48 + 1)
                                   end)(function()
-                                    return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x49 )
-                                      return Golden_LongStateBind_Test_discard(function(  )
+                                    return Golden_LongStateBind_Test_bindStateT.bind(Golden_LongStateBind_Test_get)(function( x49 )
+                                      return Golden_LongStateBind_Test_bindStateT.bind(function(  )
                                         return Data_Tuple_Tuple_S_w(Data_Unit_unit, x49 + 1)
                                       end)(function()
-                                        return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x50 )
-                                          return Golden_LongStateBind_Test_discard(function(  )
+                                        return Golden_LongStateBind_Test_bindStateT.bind(Golden_LongStateBind_Test_get)(function( x50 )
+                                          return Golden_LongStateBind_Test_bindStateT.bind(function(  )
                                             return Data_Tuple_Tuple_S_w(Data_Unit_unit, x50 + 1)
                                           end)(function()
-                                            return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x51 )
-                                              return Golden_LongStateBind_Test_discard(function(  )
+                                            return Golden_LongStateBind_Test_bindStateT.bind(Golden_LongStateBind_Test_get)(function( x51 )
+                                              return Golden_LongStateBind_Test_bindStateT.bind(function(  )
                                                 return Data_Tuple_Tuple_S_w(Data_Unit_unit, x51 + 1)
                                               end)(function()
-                                                return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x52 )
-                                                  return Golden_LongStateBind_Test_discard(function(  )
+                                                return Golden_LongStateBind_Test_bindStateT.bind(Golden_LongStateBind_Test_get)(function( x52 )
+                                                  return Golden_LongStateBind_Test_bindStateT.bind(function(  )
                                                     return Data_Tuple_Tuple_S_w(Data_Unit_unit, x52 + 1)
                                                   end)(function()
-                                                    return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x53 )
-                                                      return Golden_LongStateBind_Test_discard(function(  )
+                                                    return Golden_LongStateBind_Test_bindStateT.bind(Golden_LongStateBind_Test_get)(function( x53 )
+                                                      return Golden_LongStateBind_Test_bindStateT.bind(function(  )
                                                         return Data_Tuple_Tuple_S_w(Data_Unit_unit, x53 + 1)
                                                       end)(function()
-                                                        return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x54 )
-                                                          return Golden_LongStateBind_Test_discard(function(  )
+                                                        return Golden_LongStateBind_Test_bindStateT.bind(Golden_LongStateBind_Test_get)(function( x54 )
+                                                          return Golden_LongStateBind_Test_bindStateT.bind(function(  )
                                                             return Data_Tuple_Tuple_S_w(Data_Unit_unit, x54 + 1)
                                                           end)(function()
-                                                            return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x55 )
-                                                              return Golden_LongStateBind_Test_discard(function(  )
+                                                            return Golden_LongStateBind_Test_bindStateT.bind(Golden_LongStateBind_Test_get)(function( x55 )
+                                                              return Golden_LongStateBind_Test_bindStateT.bind(function(  )
                                                                 return Data_Tuple_Tuple_S_w(Data_Unit_unit, x55 + 1)
                                                               end)(function()
-                                                                return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x56 )
-                                                                  return Golden_LongStateBind_Test_discard(function(  )
+                                                                return Golden_LongStateBind_Test_bindStateT.bind(Golden_LongStateBind_Test_get)(function( x56 )
+                                                                  return Golden_LongStateBind_Test_bindStateT.bind(function(  )
                                                                     return Data_Tuple_Tuple_S_w(Data_Unit_unit, x56 + 1)
                                                                   end)(function(  )
-                                                                    return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x57 )
-                                                                      return Golden_LongStateBind_Test_discard(function(  )
+                                                                    return Golden_LongStateBind_Test_bindStateT.bind(Golden_LongStateBind_Test_get)(function( x57 )
+                                                                      return Golden_LongStateBind_Test_bindStateT.bind(function(  )
                                                                         return Data_Tuple_Tuple_S_w(Data_Unit_unit, x57 + 1)
                                                                       end)(function(  )
-                                                                        return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x58 )
-                                                                          return Golden_LongStateBind_Test_discard(function(  )
+                                                                        return Golden_LongStateBind_Test_bindStateT.bind(Golden_LongStateBind_Test_get)(function( x58 )
+                                                                          return Golden_LongStateBind_Test_bindStateT.bind(function(  )
                                                                             return Data_Tuple_Tuple_S_w(Data_Unit_unit, x58 + 1)
                                                                           end)(function(  )
-                                                                            return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x59 )
-                                                                              return Golden_LongStateBind_Test_discard(function(  )
+                                                                            return Golden_LongStateBind_Test_bindStateT.bind(Golden_LongStateBind_Test_get)(function( x59 )
+                                                                              return Golden_LongStateBind_Test_bindStateT.bind(function(  )
                                                                                 return Data_Tuple_Tuple_S_w(Data_Unit_unit, x59 + 1)
                                                                               end)(function(  )
-                                                                                return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x60 )
-                                                                                  return Golden_LongStateBind_Test_discard(function(  )
+                                                                                return Golden_LongStateBind_Test_bindStateT.bind(Golden_LongStateBind_Test_get)(function( x60 )
+                                                                                  return Golden_LongStateBind_Test_bindStateT.bind(function(  )
                                                                                     return Data_Tuple_Tuple_S_w(Data_Unit_unit, x60 + 1)
                                                                                   end)(function(  )
                                                                                     return _S_kont4(x1_S_5)
@@ -788,84 +786,84 @@ local Golden_LongStateBind_Test_go = (function()
     end)
   end
   local _S_kont6 = function(x1_S_6)
-    return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x21 )
-      return Golden_LongStateBind_Test_discard(function()
+    return Golden_LongStateBind_Test_bindStateT.bind(Golden_LongStateBind_Test_get)(function( x21 )
+      return Golden_LongStateBind_Test_bindStateT.bind(function()
         return Data_Tuple_Tuple_S_w(Data_Unit_unit, x21 + 1)
       end)(function()
-        return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x22 )
-          return Golden_LongStateBind_Test_discard(function()
+        return Golden_LongStateBind_Test_bindStateT.bind(Golden_LongStateBind_Test_get)(function( x22 )
+          return Golden_LongStateBind_Test_bindStateT.bind(function()
             return Data_Tuple_Tuple_S_w(Data_Unit_unit, x22 + 1)
           end)(function()
-            return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x23 )
-              return Golden_LongStateBind_Test_discard(function()
+            return Golden_LongStateBind_Test_bindStateT.bind(Golden_LongStateBind_Test_get)(function( x23 )
+              return Golden_LongStateBind_Test_bindStateT.bind(function()
                 return Data_Tuple_Tuple_S_w(Data_Unit_unit, x23 + 1)
               end)(function()
-                return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x24 )
-                  return Golden_LongStateBind_Test_discard(function()
+                return Golden_LongStateBind_Test_bindStateT.bind(Golden_LongStateBind_Test_get)(function( x24 )
+                  return Golden_LongStateBind_Test_bindStateT.bind(function()
                     return Data_Tuple_Tuple_S_w(Data_Unit_unit, x24 + 1)
                   end)(function()
-                    return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x25 )
-                      return Golden_LongStateBind_Test_discard(function()
+                    return Golden_LongStateBind_Test_bindStateT.bind(Golden_LongStateBind_Test_get)(function( x25 )
+                      return Golden_LongStateBind_Test_bindStateT.bind(function(  )
                         return Data_Tuple_Tuple_S_w(Data_Unit_unit, x25 + 1)
                       end)(function()
-                        return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x26 )
-                          return Golden_LongStateBind_Test_discard(function()
+                        return Golden_LongStateBind_Test_bindStateT.bind(Golden_LongStateBind_Test_get)(function( x26 )
+                          return Golden_LongStateBind_Test_bindStateT.bind(function(  )
                             return Data_Tuple_Tuple_S_w(Data_Unit_unit, x26 + 1)
                           end)(function()
-                            return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x27 )
-                              return Golden_LongStateBind_Test_discard(function(  )
+                            return Golden_LongStateBind_Test_bindStateT.bind(Golden_LongStateBind_Test_get)(function( x27 )
+                              return Golden_LongStateBind_Test_bindStateT.bind(function(  )
                                 return Data_Tuple_Tuple_S_w(Data_Unit_unit, x27 + 1)
                               end)(function()
-                                return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x28 )
-                                  return Golden_LongStateBind_Test_discard(function(  )
+                                return Golden_LongStateBind_Test_bindStateT.bind(Golden_LongStateBind_Test_get)(function( x28 )
+                                  return Golden_LongStateBind_Test_bindStateT.bind(function(  )
                                     return Data_Tuple_Tuple_S_w(Data_Unit_unit, x28 + 1)
                                   end)(function()
-                                    return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x29 )
-                                      return Golden_LongStateBind_Test_discard(function(  )
+                                    return Golden_LongStateBind_Test_bindStateT.bind(Golden_LongStateBind_Test_get)(function( x29 )
+                                      return Golden_LongStateBind_Test_bindStateT.bind(function(  )
                                         return Data_Tuple_Tuple_S_w(Data_Unit_unit, x29 + 1)
                                       end)(function()
-                                        return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x30 )
-                                          return Golden_LongStateBind_Test_discard(function(  )
+                                        return Golden_LongStateBind_Test_bindStateT.bind(Golden_LongStateBind_Test_get)(function( x30 )
+                                          return Golden_LongStateBind_Test_bindStateT.bind(function(  )
                                             return Data_Tuple_Tuple_S_w(Data_Unit_unit, x30 + 1)
                                           end)(function()
-                                            return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x31 )
-                                              return Golden_LongStateBind_Test_discard(function(  )
+                                            return Golden_LongStateBind_Test_bindStateT.bind(Golden_LongStateBind_Test_get)(function( x31 )
+                                              return Golden_LongStateBind_Test_bindStateT.bind(function(  )
                                                 return Data_Tuple_Tuple_S_w(Data_Unit_unit, x31 + 1)
                                               end)(function()
-                                                return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x32 )
-                                                  return Golden_LongStateBind_Test_discard(function(  )
+                                                return Golden_LongStateBind_Test_bindStateT.bind(Golden_LongStateBind_Test_get)(function( x32 )
+                                                  return Golden_LongStateBind_Test_bindStateT.bind(function(  )
                                                     return Data_Tuple_Tuple_S_w(Data_Unit_unit, x32 + 1)
                                                   end)(function()
-                                                    return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x33 )
-                                                      return Golden_LongStateBind_Test_discard(function(  )
+                                                    return Golden_LongStateBind_Test_bindStateT.bind(Golden_LongStateBind_Test_get)(function( x33 )
+                                                      return Golden_LongStateBind_Test_bindStateT.bind(function(  )
                                                         return Data_Tuple_Tuple_S_w(Data_Unit_unit, x33 + 1)
                                                       end)(function()
-                                                        return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x34 )
-                                                          return Golden_LongStateBind_Test_discard(function(  )
+                                                        return Golden_LongStateBind_Test_bindStateT.bind(Golden_LongStateBind_Test_get)(function( x34 )
+                                                          return Golden_LongStateBind_Test_bindStateT.bind(function(  )
                                                             return Data_Tuple_Tuple_S_w(Data_Unit_unit, x34 + 1)
                                                           end)(function()
-                                                            return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x35 )
-                                                              return Golden_LongStateBind_Test_discard(function(  )
+                                                            return Golden_LongStateBind_Test_bindStateT.bind(Golden_LongStateBind_Test_get)(function( x35 )
+                                                              return Golden_LongStateBind_Test_bindStateT.bind(function(  )
                                                                 return Data_Tuple_Tuple_S_w(Data_Unit_unit, x35 + 1)
                                                               end)(function()
-                                                                return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x36 )
-                                                                  return Golden_LongStateBind_Test_discard(function(  )
+                                                                return Golden_LongStateBind_Test_bindStateT.bind(Golden_LongStateBind_Test_get)(function( x36 )
+                                                                  return Golden_LongStateBind_Test_bindStateT.bind(function(  )
                                                                     return Data_Tuple_Tuple_S_w(Data_Unit_unit, x36 + 1)
                                                                   end)(function(  )
-                                                                    return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x37 )
-                                                                      return Golden_LongStateBind_Test_discard(function(  )
+                                                                    return Golden_LongStateBind_Test_bindStateT.bind(Golden_LongStateBind_Test_get)(function( x37 )
+                                                                      return Golden_LongStateBind_Test_bindStateT.bind(function(  )
                                                                         return Data_Tuple_Tuple_S_w(Data_Unit_unit, x37 + 1)
                                                                       end)(function(  )
-                                                                        return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x38 )
-                                                                          return Golden_LongStateBind_Test_discard(function(  )
+                                                                        return Golden_LongStateBind_Test_bindStateT.bind(Golden_LongStateBind_Test_get)(function( x38 )
+                                                                          return Golden_LongStateBind_Test_bindStateT.bind(function(  )
                                                                             return Data_Tuple_Tuple_S_w(Data_Unit_unit, x38 + 1)
                                                                           end)(function(  )
-                                                                            return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x39 )
-                                                                              return Golden_LongStateBind_Test_discard(function(  )
+                                                                            return Golden_LongStateBind_Test_bindStateT.bind(Golden_LongStateBind_Test_get)(function( x39 )
+                                                                              return Golden_LongStateBind_Test_bindStateT.bind(function(  )
                                                                                 return Data_Tuple_Tuple_S_w(Data_Unit_unit, x39 + 1)
                                                                               end)(function(  )
-                                                                                return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x40 )
-                                                                                  return Golden_LongStateBind_Test_discard(function(  )
+                                                                                return Golden_LongStateBind_Test_bindStateT.bind(Golden_LongStateBind_Test_get)(function( x40 )
+                                                                                  return Golden_LongStateBind_Test_bindStateT.bind(function(  )
                                                                                     return Data_Tuple_Tuple_S_w(Data_Unit_unit, x40 + 1)
                                                                                   end)(function(  )
                                                                                     return _S_kont5(x1_S_6)
@@ -910,84 +908,84 @@ local Golden_LongStateBind_Test_go = (function()
       end)
     end)
   end
-  return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x1 )
-    return Golden_LongStateBind_Test_discard(function()
+  return Golden_LongStateBind_Test_bindStateT.bind(Golden_LongStateBind_Test_get)(function( x1 )
+    return Golden_LongStateBind_Test_bindStateT.bind(function()
       return Data_Tuple_Tuple_S_w(Data_Unit_unit, x1 + 1)
     end)(function()
-      return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x2 )
-        return Golden_LongStateBind_Test_discard(function()
+      return Golden_LongStateBind_Test_bindStateT.bind(Golden_LongStateBind_Test_get)(function( x2 )
+        return Golden_LongStateBind_Test_bindStateT.bind(function()
           return Data_Tuple_Tuple_S_w(Data_Unit_unit, x2 + 1)
         end)(function()
-          return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x3 )
-            return Golden_LongStateBind_Test_discard(function()
+          return Golden_LongStateBind_Test_bindStateT.bind(Golden_LongStateBind_Test_get)(function( x3 )
+            return Golden_LongStateBind_Test_bindStateT.bind(function()
               return Data_Tuple_Tuple_S_w(Data_Unit_unit, x3 + 1)
             end)(function()
-              return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x4 )
-                return Golden_LongStateBind_Test_discard(function()
+              return Golden_LongStateBind_Test_bindStateT.bind(Golden_LongStateBind_Test_get)(function( x4 )
+                return Golden_LongStateBind_Test_bindStateT.bind(function()
                   return Data_Tuple_Tuple_S_w(Data_Unit_unit, x4 + 1)
                 end)(function()
-                  return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x5 )
-                    return Golden_LongStateBind_Test_discard(function()
+                  return Golden_LongStateBind_Test_bindStateT.bind(Golden_LongStateBind_Test_get)(function( x5 )
+                    return Golden_LongStateBind_Test_bindStateT.bind(function()
                       return Data_Tuple_Tuple_S_w(Data_Unit_unit, x5 + 1)
                     end)(function()
-                      return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x6 )
-                        return Golden_LongStateBind_Test_discard(function()
+                      return Golden_LongStateBind_Test_bindStateT.bind(Golden_LongStateBind_Test_get)(function( x6 )
+                        return Golden_LongStateBind_Test_bindStateT.bind(function(  )
                           return Data_Tuple_Tuple_S_w(Data_Unit_unit, x6 + 1)
                         end)(function()
-                          return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x7 )
-                            return Golden_LongStateBind_Test_discard(function()
+                          return Golden_LongStateBind_Test_bindStateT.bind(Golden_LongStateBind_Test_get)(function( x7 )
+                            return Golden_LongStateBind_Test_bindStateT.bind(function(  )
                               return Data_Tuple_Tuple_S_w(Data_Unit_unit, x7 + 1)
                             end)(function()
-                              return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x8 )
-                                return Golden_LongStateBind_Test_discard(function(  )
+                              return Golden_LongStateBind_Test_bindStateT.bind(Golden_LongStateBind_Test_get)(function( x8 )
+                                return Golden_LongStateBind_Test_bindStateT.bind(function(  )
                                   return Data_Tuple_Tuple_S_w(Data_Unit_unit, x8 + 1)
                                 end)(function()
-                                  return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x9 )
-                                    return Golden_LongStateBind_Test_discard(function(  )
+                                  return Golden_LongStateBind_Test_bindStateT.bind(Golden_LongStateBind_Test_get)(function( x9 )
+                                    return Golden_LongStateBind_Test_bindStateT.bind(function(  )
                                       return Data_Tuple_Tuple_S_w(Data_Unit_unit, x9 + 1)
                                     end)(function()
-                                      return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x10 )
-                                        return Golden_LongStateBind_Test_discard(function(  )
+                                      return Golden_LongStateBind_Test_bindStateT.bind(Golden_LongStateBind_Test_get)(function( x10 )
+                                        return Golden_LongStateBind_Test_bindStateT.bind(function(  )
                                           return Data_Tuple_Tuple_S_w(Data_Unit_unit, x10 + 1)
                                         end)(function()
-                                          return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x11 )
-                                            return Golden_LongStateBind_Test_discard(function(  )
+                                          return Golden_LongStateBind_Test_bindStateT.bind(Golden_LongStateBind_Test_get)(function( x11 )
+                                            return Golden_LongStateBind_Test_bindStateT.bind(function(  )
                                               return Data_Tuple_Tuple_S_w(Data_Unit_unit, x11 + 1)
                                             end)(function()
-                                              return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x12 )
-                                                return Golden_LongStateBind_Test_discard(function(  )
+                                              return Golden_LongStateBind_Test_bindStateT.bind(Golden_LongStateBind_Test_get)(function( x12 )
+                                                return Golden_LongStateBind_Test_bindStateT.bind(function(  )
                                                   return Data_Tuple_Tuple_S_w(Data_Unit_unit, x12 + 1)
                                                 end)(function()
-                                                  return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x13 )
-                                                    return Golden_LongStateBind_Test_discard(function(  )
+                                                  return Golden_LongStateBind_Test_bindStateT.bind(Golden_LongStateBind_Test_get)(function( x13 )
+                                                    return Golden_LongStateBind_Test_bindStateT.bind(function(  )
                                                       return Data_Tuple_Tuple_S_w(Data_Unit_unit, x13 + 1)
                                                     end)(function()
-                                                      return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x14 )
-                                                        return Golden_LongStateBind_Test_discard(function(  )
+                                                      return Golden_LongStateBind_Test_bindStateT.bind(Golden_LongStateBind_Test_get)(function( x14 )
+                                                        return Golden_LongStateBind_Test_bindStateT.bind(function(  )
                                                           return Data_Tuple_Tuple_S_w(Data_Unit_unit, x14 + 1)
                                                         end)(function()
-                                                          return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x15 )
-                                                            return Golden_LongStateBind_Test_discard(function(  )
+                                                          return Golden_LongStateBind_Test_bindStateT.bind(Golden_LongStateBind_Test_get)(function( x15 )
+                                                            return Golden_LongStateBind_Test_bindStateT.bind(function(  )
                                                               return Data_Tuple_Tuple_S_w(Data_Unit_unit, x15 + 1)
                                                             end)(function()
-                                                              return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x16 )
-                                                                return Golden_LongStateBind_Test_discard(function(  )
+                                                              return Golden_LongStateBind_Test_bindStateT.bind(Golden_LongStateBind_Test_get)(function( x16 )
+                                                                return Golden_LongStateBind_Test_bindStateT.bind(function(  )
                                                                   return Data_Tuple_Tuple_S_w(Data_Unit_unit, x16 + 1)
                                                                 end)(function()
-                                                                  return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x17 )
-                                                                    return Golden_LongStateBind_Test_discard(function(  )
+                                                                  return Golden_LongStateBind_Test_bindStateT.bind(Golden_LongStateBind_Test_get)(function( x17 )
+                                                                    return Golden_LongStateBind_Test_bindStateT.bind(function(  )
                                                                       return Data_Tuple_Tuple_S_w(Data_Unit_unit, x17 + 1)
                                                                     end)(function(  )
-                                                                      return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x18 )
-                                                                        return Golden_LongStateBind_Test_discard(function(  )
+                                                                      return Golden_LongStateBind_Test_bindStateT.bind(Golden_LongStateBind_Test_get)(function( x18 )
+                                                                        return Golden_LongStateBind_Test_bindStateT.bind(function(  )
                                                                           return Data_Tuple_Tuple_S_w(Data_Unit_unit, x18 + 1)
                                                                         end)(function(  )
-                                                                          return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x19 )
-                                                                            return Golden_LongStateBind_Test_discard(function(  )
+                                                                          return Golden_LongStateBind_Test_bindStateT.bind(Golden_LongStateBind_Test_get)(function( x19 )
+                                                                            return Golden_LongStateBind_Test_bindStateT.bind(function(  )
                                                                               return Data_Tuple_Tuple_S_w(Data_Unit_unit, x19 + 1)
                                                                             end)(function(  )
-                                                                              return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x20 )
-                                                                                return Golden_LongStateBind_Test_discard(function(  )
+                                                                              return Golden_LongStateBind_Test_bindStateT.bind(Golden_LongStateBind_Test_get)(function( x20 )
+                                                                                return Golden_LongStateBind_Test_bindStateT.bind(function(  )
                                                                                   return Data_Tuple_Tuple_S_w(Data_Unit_unit, x20 + 1)
                                                                                 end)(function(  )
                                                                                   return _S_kont6(x1)
diff --git a/test/ps/output/Golden.LongWriterBind.Test/golden.ir b/test/ps/output/Golden.LongWriterBind.Test/golden.ir
index 4f687638..345ade6a 100644
--- a/test/ps/output/Golden.LongWriterBind.Test/golden.ir
+++ b/test/ps/output/Golden.LongWriterBind.Test/golden.ir
@@ -41,23 +41,70 @@ UberModule
           [ Ref Nothing ( Local ( Name "value0" ) ), Ref Nothing ( Local ( Name "value1" ) ) ]
         )
       ), Standalone
+      ( QName
+        { qnameModuleName = ModuleName "Data.Identity", qnameName = Name "applyIdentity"
+        }, LiteralObject Nothing
+        [
+          ( PropName "apply", AbsN Nothing
+            ( ParamNamed Nothing ( Name "v" ) :| [] )
+            ( AbsN Nothing
+              ( ParamNamed Nothing ( Name "v1" ) :| [] )
+              ( AppN Nothing
+                ( Ref Nothing ( Local ( Name "v" ) ) )
+                ( Ref Nothing ( Local ( Name "v1" ) ) :| [] )
+              )
+            )
+          ),
+          ( PropName "Functor0", AbsN Nothing
+            ( ParamUnused Nothing :| [] )
+            ( LiteralObject Nothing
+              [
+                ( PropName "map", AbsN Nothing
+                  ( ParamNamed Nothing ( Name "f$493" ) :| [] )
+                  ( AbsN Nothing
+                    ( ParamNamed Nothing ( Name "m$494" ) :| [] )
+                    ( AppN Nothing
+                      ( Ref Nothing ( Local ( Name "f$493" ) ) )
+                      ( Ref Nothing ( Local ( Name "m$494" ) ) :| [] )
+                    )
+                  )
+                )
+              ]
+            )
+          )
+        ]
+      ), Standalone
+      ( QName
+        { qnameModuleName = ModuleName "Data.Identity", qnameName = Name "applicativeIdentity"
+        }, LiteralObject Nothing
+        [
+          ( PropName "pure", AbsN Nothing
+            ( ParamNamed Nothing ( Name "x$495" ) :| [] )
+            ( Ref Nothing ( Local ( Name "x$495" ) ) )
+          ),
+          ( PropName "Apply0", AbsN Nothing
+            ( ParamUnused Nothing :| [] )
+            ( Ref Nothing ( Imported ( ModuleName "Data.Identity" ) ( Name "applyIdentity" ) ) )
+          )
+        ]
+      ), Standalone
       ( QName
         { qnameModuleName = ModuleName "Golden.LongWriterBind.Test", qnameName = Name "discard$w"
         }, AbsN Nothing
-        ( ParamNamed Nothing ( Name "v$528" ) :| [ ParamNamed Nothing ( Name "k$529" ) ] )
+        ( ParamNamed Nothing ( Name "v$514" ) :| [ ParamNamed Nothing ( Name "k$515" ) ] )
         ( Let Nothing
           ( Standalone
-            ( Nothing, Name "m$554", AppN Nothing
-              ( Ref Nothing ( Local ( Name "k$529" ) ) )
+            ( Nothing, Name "m$548", AppN Nothing
+              ( Ref Nothing ( Local ( Name "k$515" ) ) )
               ( DataArgumentByIndex Nothing ProductType 0
-                ( Ref Nothing ( Local ( Name "v$528" ) ) ) :| []
+                ( Ref Nothing ( Local ( Name "v$514" ) ) ) :| []
               )
             ) :| []
           )
           ( AppN Nothing
             ( Ref Nothing ( Imported ( ModuleName "Data.Tuple" ) ( Name "Tuple$w" ) ) )
             ( DataArgumentByIndex Nothing ProductType 0
-              ( Ref Nothing ( Local ( Name "m$554" ) ) ) :|
+              ( Ref Nothing ( Local ( Name "m$548" ) ) ) :|
               [ AppN Nothing
                 ( AppN Nothing
                   ( ObjectProp Nothing
@@ -65,11 +112,11 @@ UberModule
                     ( PropName "concatArray" )
                   )
                   ( DataArgumentByIndex Nothing ProductType 1
-                    ( Ref Nothing ( Local ( Name "v$528" ) ) ) :| []
+                    ( Ref Nothing ( Local ( Name "v$514" ) ) ) :| []
                   )
                 )
                 ( DataArgumentByIndex Nothing ProductType 1
-                  ( Ref Nothing ( Local ( Name "m$554" ) ) ) :| []
+                  ( Ref Nothing ( Local ( Name "m$548" ) ) ) :| []
                 )
               ]
             )
@@ -79,12 +126,12 @@ UberModule
       ( QName
         { qnameModuleName = ModuleName "Golden.LongWriterBind.Test", qnameName = Name "tell"
         }, AbsN Nothing
-        ( ParamNamed Nothing ( Name "x$1165" ) :| [] )
+        ( ParamNamed Nothing ( Name "x$539" ) :| [] )
         ( AppN Nothing
           ( Ref Nothing ( Imported ( ModuleName "Data.Tuple" ) ( Name "Tuple$w" ) ) )
           ( Ref Nothing
             ( Imported ( ModuleName "Data.Unit" ) ( Name "unit" ) ) :|
-            [ Ref Nothing ( Local ( Name "x$1165" ) ) ]
+            [ Ref Nothing ( Local ( Name "x$539" ) ) ]
           )
         )
       ), Standalone
@@ -92,7 +139,7 @@ UberModule
         { qnameModuleName = ModuleName "Golden.LongWriterBind.Test", qnameName = Name "go"
         }, Let Nothing
         ( Standalone
-          ( Nothing, Name "$kont6569", AppN Nothing
+          ( Nothing, Name "$kont7760", AppN Nothing
             ( Ref Nothing
               ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "discard$w" ) )
             )
@@ -828,14 +875,25 @@ UberModule
                                                                                                                                                                                                                                                         [ AbsN Nothing
                                                                                                                                                                                                                                                           ( ParamUnused Nothing :| [] )
                                                                                                                                                                                                                                                           ( AppN Nothing
-                                                                                                                                                                                                                                                            ( Ref Nothing
-                                                                                                                                                                                                                                                              ( Imported
-                                                                                                                                                                                                                                                                ( ModuleName "Data.Tuple" )
-                                                                                                                                                                                                                                                                ( Name "Tuple$w" )
+                                                                                                                                                                                                                                                            ( ObjectProp Nothing
+                                                                                                                                                                                                                                                              ( Ref Nothing
+                                                                                                                                                                                                                                                                ( Imported
+                                                                                                                                                                                                                                                                  ( ModuleName "Data.Identity" )
+                                                                                                                                                                                                                                                                  ( Name "applicativeIdentity" )
+                                                                                                                                                                                                                                                                )
                                                                                                                                                                                                                                                               )
+                                                                                                                                                                                                                                                              ( PropName "pure" )
                                                                                                                                                                                                                                                             )
-                                                                                                                                                                                                                                                            ( LiteralInt Nothing 42 :|
-                                                                                                                                                                                                                                                              [ LiteralArray Nothing [] ]
+                                                                                                                                                                                                                                                            ( AppN Nothing
+                                                                                                                                                                                                                                                              ( Ref Nothing
+                                                                                                                                                                                                                                                                ( Imported
+                                                                                                                                                                                                                                                                  ( ModuleName "Data.Tuple" )
+                                                                                                                                                                                                                                                                  ( Name "Tuple$w" )
+                                                                                                                                                                                                                                                                )
+                                                                                                                                                                                                                                                              )
+                                                                                                                                                                                                                                                              ( LiteralInt Nothing 42 :|
+                                                                                                                                                                                                                                                                [ LiteralArray Nothing [] ]
+                                                                                                                                                                                                                                                              ) :| []
                                                                                                                                                                                                                                                             )
                                                                                                                                                                                                                                                           )
                                                                                                                                                                                                                                                         ]
@@ -959,7 +1017,7 @@ UberModule
             )
           ) :|
           [ Standalone
-            ( Nothing, Name "$kont6570", AppN Nothing
+            ( Nothing, Name "$kont7761", AppN Nothing
               ( Ref Nothing
                 ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "discard$w" ) )
               )
@@ -1701,7 +1759,7 @@ UberModule
                                                                                                                                                                                                                                                             ( ParamUnused Nothing :| [] )
                                                                                                                                                                                                                                                             ( Ref Nothing
                                                                                                                                                                                                                                                               ( Local
-                                                                                                                                                                                                                                                                ( Name "$kont6569" )
+                                                                                                                                                                                                                                                                ( Name "$kont7760" )
                                                                                                                                                                                                                                                               )
                                                                                                                                                                                                                                                             )
                                                                                                                                                                                                                                                           ]
@@ -1824,7 +1882,7 @@ UberModule
                 ]
               )
             ), Standalone
-            ( Nothing, Name "$kont6571", AppN Nothing
+            ( Nothing, Name "$kont7762", AppN Nothing
               ( Ref Nothing
                 ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "discard$w" ) )
               )
@@ -2564,7 +2622,7 @@ UberModule
                                                                                                                                                                                                                                                             ( ParamUnused Nothing :| [] )
                                                                                                                                                                                                                                                             ( Ref Nothing
                                                                                                                                                                                                                                                               ( Local
-                                                                                                                                                                                                                                                                ( Name "$kont6570" )
+                                                                                                                                                                                                                                                                ( Name "$kont7761" )
                                                                                                                                                                                                                                                               )
                                                                                                                                                                                                                                                             )
                                                                                                                                                                                                                                                           ]
@@ -2687,7 +2745,7 @@ UberModule
                 ]
               )
             ), Standalone
-            ( Nothing, Name "$kont6572", AppN Nothing
+            ( Nothing, Name "$kont7763", AppN Nothing
               ( Ref Nothing
                 ( Imported ( ModuleName "Golden.LongWriterBind.Test" ) ( Name "discard$w" ) )
               )
@@ -3427,7 +3485,7 @@ UberModule
                                                                                                                                                                                                                                                             ( ParamUnused Nothing :| [] )
                                                                                                                                                                                                                                                             ( Ref Nothing
                                                                                                                                                                                                                                                               ( Local
-                                                                                                                                                                                                                                                                ( Name "$kont6571" )
+                                                                                                                                                                                                                                                                ( Name "$kont7762" )
                                                                                                                                                                                                                                                               )
                                                                                                                                                                                                                                                             )
                                                                                                                                                                                                                                                           ]
@@ -4289,7 +4347,7 @@ UberModule
                                                                                                                                                                                                                                                         ( ParamUnused Nothing :| [] )
                                                                                                                                                                                                                                                         ( Ref Nothing
                                                                                                                                                                                                                                                           ( Local
-                                                                                                                                                                                                                                                            ( Name "$kont6572" )
+                                                                                                                                                                                                                                                            ( Name "$kont7763" )
                                                                                                                                                                                                                                                           )
                                                                                                                                                                                                                                                         )
                                                                                                                                                                                                                                                       ]
diff --git a/test/ps/output/Golden.LongWriterBind.Test/golden.lua b/test/ps/output/Golden.LongWriterBind.Test/golden.lua
index cb4b335d..2fb03708 100644
--- a/test/ps/output/Golden.LongWriterBind.Test/golden.lua
+++ b/test/ps/output/Golden.LongWriterBind.Test/golden.lua
@@ -20,12 +20,24 @@ local Effect_Console_foreign = {
 local Data_Tuple_Tuple_S_w = function(value0, value1)
   return { value0, value1 }
 end
+local Data_Identity_applyIdentity = {
+  apply = function(v) return function(v1) return v(v1) end end,
+  Functor0 = function()
+    return {
+      map = function(f_S_0) return function(m_S_0) return f_S_0(m_S_0) end end
+    }
+  end
+}
+local Data_Identity_applicativeIdentity = {
+  pure = function(x_S_0) return x_S_0 end,
+  Apply0 = function() return Data_Identity_applyIdentity end
+}
 local Golden_LongWriterBind_Test_discard_S_w = function(v_S_0, k_S_0)
-  local m_S_0 = k_S_0(v_S_0[1])
-  return Data_Tuple_Tuple_S_w(m_S_0[1], Data_Semigroup_foreign.concatArray(v_S_0[2])(m_S_0[2]))
+  local m_S_1 = k_S_0(v_S_0[1])
+  return Data_Tuple_Tuple_S_w(m_S_1[1], Data_Semigroup_foreign.concatArray(v_S_0[2])(m_S_1[2]))
 end
-local Golden_LongWriterBind_Test_tell = function(x_S_0)
-  return Data_Tuple_Tuple_S_w(Data_Unit_unit, x_S_0)
+local Golden_LongWriterBind_Test_tell = function(x_S_1)
+  return Data_Tuple_Tuple_S_w(Data_Unit_unit, x_S_1)
 end
 local Golden_LongWriterBind_Test_go = (function()
   local _S_kont0 = Golden_LongWriterBind_Test_discard_S_w(Golden_LongWriterBind_Test_tell({
@@ -148,7 +160,7 @@ local Golden_LongWriterBind_Test_go = (function()
                                                                                 return Golden_LongWriterBind_Test_discard_S_w(Golden_LongWriterBind_Test_tell({
                                                                                   [1] = 200
                                                                                 }), function(  )
-                                                                                  return Data_Tuple_Tuple_S_w(42, {})
+                                                                                  return Data_Identity_applicativeIdentity.pure(Data_Tuple_Tuple_S_w(42, {}))
                                                                                 end)
                                                                               end)
                                                                             end)
diff --git a/test/ps/output/Golden.Loopification.Test/golden.ir b/test/ps/output/Golden.Loopification.Test/golden.ir
index 7bf96e31..7f64feb1 100644
--- a/test/ps/output/Golden.Loopification.Test/golden.ir
+++ b/test/ps/output/Golden.Loopification.Test/golden.ir
@@ -355,8 +355,8 @@ UberModule
                     )
                     ( LiteralInt Nothing 5 :|
                       [ AbsN Nothing
-                        ( ParamNamed Nothing ( Name "x$223" ) :| [] )
-                        ( Ref Nothing ( Local ( Name "x$223" ) ) )
+                        ( ParamNamed Nothing ( Name "x$218" ) :| [] )
+                        ( Ref Nothing ( Local ( Name "x$218" ) ) )
                       ]
                     ) :| []
                   )
diff --git a/test/ps/output/Golden.MaybeChain.Test/golden.ir b/test/ps/output/Golden.MaybeChain.Test/golden.ir
index 34a7ba40..febbac9c 100644
--- a/test/ps/output/Golden.MaybeChain.Test/golden.ir
+++ b/test/ps/output/Golden.MaybeChain.Test/golden.ir
@@ -59,35 +59,6 @@ UberModule
             ( DataArgumentByIndex Nothing SumType 0 ( Ref Nothing ( Local ( Name "v2" ) ) ) :| [] )
           )
         )
-      ), Standalone
-      ( QName
-        { qnameModuleName = ModuleName "Golden.MaybeChain.Test", qnameName = Name "identity"
-        }, AbsN Nothing
-        ( ParamNamed Nothing ( Name "x$312" ) :| [] )
-        ( Ref Nothing ( Local ( Name "x$312" ) ) )
-      ), Standalone
-      ( QName
-        { qnameModuleName = ModuleName "Golden.MaybeChain.Test", qnameName = Name "map$w"
-        }, AbsN Nothing
-        ( ParamNamed Nothing ( Name "v$308" ) :| [ ParamNamed Nothing ( Name "v1$309" ) ] )
-        ( IfThenElse Nothing
-          ( Eq Nothing
-            ( LiteralString Nothing "Data.Maybe∷Maybe.Just" )
-            ( ReflectCtor Nothing ( Ref Nothing ( Local ( Name "v1$309" ) ) ) )
-          )
-          ( Ctor Nothing SumType
-            ( ModuleName "Data.Maybe" )
-            ( TyName "Maybe" )
-            ( CtorName "Just" )
-            [ AppN Nothing
-              ( Ref Nothing ( Local ( Name "v$308" ) ) )
-              ( DataArgumentByIndex Nothing SumType 0
-                ( Ref Nothing ( Local ( Name "v1$309" ) ) ) :| []
-              )
-            ]
-          )
-          ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Nothing" ) ) )
-        )
       )
     ], uberModuleForeigns = [], uberModuleExports =
     [
@@ -95,9 +66,9 @@ UberModule
         ( ParamUnused Nothing :| [] )
         ( Let Nothing
           ( Standalone
-            ( Nothing, Name "$cse321", AbsN Nothing
-              ( ParamNamed Nothing ( Name "x$0" ) :| [] )
-              ( Ref Nothing ( Local ( Name "x$0" ) ) )
+            ( Nothing, Name "$cse332", AbsN Nothing
+              ( ParamNamed Nothing ( Name "x$314" ) :| [] )
+              ( Ref Nothing ( Local ( Name "x$314" ) ) )
             ) :| []
           )
           ( Let Nothing
@@ -111,10 +82,7 @@ UberModule
                       ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "maybe$w" ) ) )
                       ( LiteralInt Nothing 0 :|
                         [ Ref Nothing
-                          ( Imported
-                            ( ModuleName "Golden.MaybeChain.Test" )
-                            ( Name "identity" )
-                          ), AppN Nothing
+                          ( Local ( Name "$cse332" ) ), AppN Nothing
                           ( Ref Nothing
                             ( Imported ( ModuleName "Data.Maybe" ) ( Name "maybe$w" ) )
                           )
@@ -124,19 +92,28 @@ UberModule
                               ( Imported
                                 ( ModuleName "Data.Maybe" )
                                 ( Name "Just" )
-                              ), AppN Nothing
-                              ( Ref Nothing
-                                ( Imported
-                                  ( ModuleName "Golden.MaybeChain.Test" )
-                                  ( Name "map$w" )
+                              ), IfThenElse Nothing
+                              ( Eq Nothing
+                                ( LiteralString Nothing "Data.Maybe∷Maybe.Just" )
+                                ( ReflectCtor Nothing
+                                  ( Ref Nothing
+                                    ( Imported ( ModuleName "Data.Maybe" ) ( Name "Nothing" ) )
+                                  )
                                 )
                               )
-                              ( Ref Nothing
-                                ( Local ( Name "$cse321" ) ) :|
-                                [ Ref Nothing
-                                  ( Imported ( ModuleName "Data.Maybe" ) ( Name "Nothing" ) )
+                              ( Ctor Nothing SumType
+                                ( ModuleName "Data.Maybe" )
+                                ( TyName "Maybe" )
+                                ( CtorName "Just" )
+                                [ DataArgumentByIndex Nothing SumType 0
+                                  ( Ref Nothing
+                                    ( Imported ( ModuleName "Data.Maybe" ) ( Name "Nothing" ) )
+                                  )
                                 ]
                               )
+                              ( Ref Nothing
+                                ( Imported ( ModuleName "Data.Maybe" ) ( Name "Nothing" ) )
+                              )
                             ]
                           )
                         ]
@@ -156,27 +133,19 @@ UberModule
                     ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "maybe$w" ) ) )
                     ( LiteralInt Nothing 0 :|
                       [ Ref Nothing
-                        ( Imported
-                          ( ModuleName "Golden.MaybeChain.Test" )
-                          ( Name "identity" )
-                        ), AppN Nothing
+                        ( Local ( Name "$cse332" ) ), AppN Nothing
                         ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "maybe$w" ) ) )
                         ( Ref Nothing
                           ( Imported ( ModuleName "Data.Maybe" ) ( Name "Nothing" ) ) :|
                           [ Ref Nothing
-                            ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ), AppN Nothing
-                            ( Ref Nothing
-                              ( Imported ( ModuleName "Golden.MaybeChain.Test" ) ( Name "map$w" ) )
-                            )
-                            ( Ref Nothing
-                              ( Local ( Name "$cse321" ) ) :|
-                              [ Ctor Nothing SumType
-                                ( ModuleName "Data.Maybe" )
-                                ( TyName "Maybe" )
-                                ( CtorName "Just" )
-                                [ LiteralInt Nothing 42 ]
-                              ]
-                            )
+                            ( Imported
+                              ( ModuleName "Data.Maybe" )
+                              ( Name "Just" )
+                            ), Ctor Nothing SumType
+                            ( ModuleName "Data.Maybe" )
+                            ( TyName "Maybe" )
+                            ( CtorName "Just" )
+                            [ LiteralInt Nothing 42 ]
                           ]
                         )
                       ]
diff --git a/test/ps/output/Golden.MaybeChain.Test/golden.lua b/test/ps/output/Golden.MaybeChain.Test/golden.lua
index e6d0955f..6f0062dd 100644
--- a/test/ps/output/Golden.MaybeChain.Test/golden.lua
+++ b/test/ps/output/Golden.MaybeChain.Test/golden.lua
@@ -11,19 +11,17 @@ end
 local Data_Maybe_maybe_S_w = function(v, v1, v2)
   if "Data.Maybe∷Maybe.Nothing" == v2[1] then return v else return v1(v2[2]) end
 end
-local Golden_MaybeChain_Test_identity = function(x_S_0) return x_S_0 end
-local Golden_MaybeChain_Test_map_S_w = function(v_S_0, v1_S_0)
-  if "Data.Maybe∷Maybe.Just" == v1_S_0[1] then
-    return { "Data.Maybe∷Maybe.Just", (v_S_0(v1_S_0[2])) }
-  else
-    return Data_Maybe_Nothing
-  end
-end
 return (function()
-  local _S_cse0 = function(x_S_1) return x_S_1 end
-  local _ = Effect_Console_log(Data_Show_showIntImpl(Data_Maybe_maybe_S_w(0, Golden_MaybeChain_Test_identity, Data_Maybe_maybe_S_w(Data_Maybe_Nothing, Data_Maybe_Just, Golden_MaybeChain_Test_map_S_w(_S_cse0, Data_Maybe_Nothing)))))()
-  return Effect_Console_log(Data_Show_showIntImpl(Data_Maybe_maybe_S_w(0, Golden_MaybeChain_Test_identity, Data_Maybe_maybe_S_w(Data_Maybe_Nothing, Data_Maybe_Just, Golden_MaybeChain_Test_map_S_w(_S_cse0, {
+  local _S_cse0 = function(x_S_0) return x_S_0 end
+  local _ = Effect_Console_log(Data_Show_showIntImpl(Data_Maybe_maybe_S_w(0, _S_cse0, Data_Maybe_maybe_S_w(Data_Maybe_Nothing, Data_Maybe_Just, (function(  )
+    if "Data.Maybe∷Maybe.Just" == Data_Maybe_Nothing[1] then
+      return { "Data.Maybe∷Maybe.Just", Data_Maybe_Nothing[2] }
+    else
+      return Data_Maybe_Nothing
+    end
+  end)()))))()
+  return Effect_Console_log(Data_Show_showIntImpl(Data_Maybe_maybe_S_w(0, _S_cse0, Data_Maybe_maybe_S_w(Data_Maybe_Nothing, Data_Maybe_Just, {
     "Data.Maybe∷Maybe.Just",
     42
-  })))))()
+  }))))()
 end)()
diff --git a/test/ps/output/Golden.MaybeChainModule.Test/golden.ir b/test/ps/output/Golden.MaybeChainModule.Test/golden.ir
index f7f8856e..f46d35f9 100644
--- a/test/ps/output/Golden.MaybeChainModule.Test/golden.ir
+++ b/test/ps/output/Golden.MaybeChainModule.Test/golden.ir
@@ -35,59 +35,35 @@ UberModule
             ( DataArgumentByIndex Nothing SumType 0 ( Ref Nothing ( Local ( Name "v2" ) ) ) :| [] )
           )
         )
-      ), Standalone
-      ( QName
-        { qnameModuleName = ModuleName "Golden.MaybeChainModule.Test", qnameName = Name "identity"
-        }, AbsN Nothing
-        ( ParamNamed Nothing ( Name "x$290" ) :| [] )
-        ( Ref Nothing ( Local ( Name "x$290" ) ) )
-      ), Standalone
-      ( QName
-        { qnameModuleName = ModuleName "Golden.MaybeChainModule.Test", qnameName = Name "map$w"
-        }, AbsN Nothing
-        ( ParamNamed Nothing ( Name "v$287" ) :| [ ParamNamed Nothing ( Name "v1$288" ) ] )
-        ( IfThenElse Nothing
-          ( Eq Nothing
-            ( LiteralString Nothing "Data.Maybe∷Maybe.Just" )
-            ( ReflectCtor Nothing ( Ref Nothing ( Local ( Name "v1$288" ) ) ) )
-          )
-          ( Ctor Nothing SumType
-            ( ModuleName "Data.Maybe" )
-            ( TyName "Maybe" )
-            ( CtorName "Just" )
-            [ AppN Nothing
-              ( Ref Nothing ( Local ( Name "v$287" ) ) )
-              ( DataArgumentByIndex Nothing SumType 0
-                ( Ref Nothing ( Local ( Name "v1$288" ) ) ) :| []
-              )
-            ]
-          )
-          ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Nothing" ) ) )
-        )
       )
     ], uberModuleForeigns = [], uberModuleExports =
     [
       ( Name "chainedNothing", AppN Nothing
         ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "maybe$w" ) ) )
         ( LiteralInt Nothing 0 :|
-          [ Ref Nothing
-            ( Imported
-              ( ModuleName "Golden.MaybeChainModule.Test" )
-              ( Name "identity" )
-            ), AppN Nothing
+          [ AbsN Nothing
+            ( ParamNamed Nothing ( Name "x$297" ) :| [] )
+            ( Ref Nothing ( Local ( Name "x$297" ) ) ), AppN Nothing
             ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "maybe$w" ) ) )
             ( Ref Nothing
               ( Imported ( ModuleName "Data.Maybe" ) ( Name "Nothing" ) ) :|
               [ Ref Nothing
-                ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ), AppN Nothing
-                ( Ref Nothing
-                  ( Imported ( ModuleName "Golden.MaybeChainModule.Test" ) ( Name "map$w" ) )
+                ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ), IfThenElse Nothing
+                ( Eq Nothing
+                  ( LiteralString Nothing "Data.Maybe∷Maybe.Just" )
+                  ( ReflectCtor Nothing
+                    ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Nothing" ) ) )
+                  )
                 )
-                ( AbsN Nothing
-                  ( ParamNamed Nothing ( Name "x$1" ) :| [] )
-                  ( Ref Nothing ( Local ( Name "x$1" ) ) ) :|
-                  [ Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Nothing" ) ) ]
+                ( Ctor Nothing SumType
+                  ( ModuleName "Data.Maybe" )
+                  ( TyName "Maybe" )
+                  ( CtorName "Just" )
+                  [ DataArgumentByIndex Nothing SumType 0
+                    ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Nothing" ) ) )
+                  ]
                 )
+                ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Nothing" ) ) )
               ]
             )
           ]
@@ -96,29 +72,18 @@ UberModule
       ( Name "chainedJust", AppN Nothing
         ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "maybe$w" ) ) )
         ( LiteralInt Nothing 0 :|
-          [ Ref Nothing
-            ( Imported
-              ( ModuleName "Golden.MaybeChainModule.Test" )
-              ( Name "identity" )
-            ), AppN Nothing
+          [ AbsN Nothing
+            ( ParamNamed Nothing ( Name "x$301" ) :| [] )
+            ( Ref Nothing ( Local ( Name "x$301" ) ) ), AppN Nothing
             ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "maybe$w" ) ) )
             ( Ref Nothing
               ( Imported ( ModuleName "Data.Maybe" ) ( Name "Nothing" ) ) :|
               [ Ref Nothing
-                ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ), AppN Nothing
-                ( Ref Nothing
-                  ( Imported ( ModuleName "Golden.MaybeChainModule.Test" ) ( Name "map$w" ) )
-                )
-                ( AbsN Nothing
-                  ( ParamNamed Nothing ( Name "x$0" ) :| [] )
-                  ( Ref Nothing ( Local ( Name "x$0" ) ) ) :|
-                  [ Ctor Nothing SumType
-                    ( ModuleName "Data.Maybe" )
-                    ( TyName "Maybe" )
-                    ( CtorName "Just" )
-                    [ LiteralInt Nothing 42 ]
-                  ]
-                )
+                ( Imported ( ModuleName "Data.Maybe" ) ( Name "Just" ) ), Ctor Nothing SumType
+                ( ModuleName "Data.Maybe" )
+                ( TyName "Maybe" )
+                ( CtorName "Just" )
+                [ LiteralInt Nothing 42 ]
               ]
             )
           ]
diff --git a/test/ps/output/Golden.MaybeChainModule.Test/golden.lua b/test/ps/output/Golden.MaybeChainModule.Test/golden.lua
index 1b42edc1..0abb8373 100644
--- a/test/ps/output/Golden.MaybeChainModule.Test/golden.lua
+++ b/test/ps/output/Golden.MaybeChainModule.Test/golden.lua
@@ -5,19 +5,20 @@ end
 local Data_Maybe_maybe_S_w = function(v, v1, v2)
   if "Data.Maybe∷Maybe.Nothing" == v2[1] then return v else return v1(v2[2]) end
 end
-local Golden_MaybeChainModule_Test_identity = function(x_S_0) return x_S_0 end
-local Golden_MaybeChainModule_Test_map_S_w = function(v_S_0, v1_S_0)
-  if "Data.Maybe∷Maybe.Just" == v1_S_0[1] then
-    return { "Data.Maybe∷Maybe.Just", (v_S_0(v1_S_0[2])) }
-  else
-    return Data_Maybe_Nothing
-  end
-end
 return {
-  chainedNothing = Data_Maybe_maybe_S_w(0, Golden_MaybeChainModule_Test_identity, Data_Maybe_maybe_S_w(Data_Maybe_Nothing, Data_Maybe_Just, Golden_MaybeChainModule_Test_map_S_w(function( x_S_1 )
+  chainedNothing = Data_Maybe_maybe_S_w(0, function(x_S_0)
+    return x_S_0
+  end, Data_Maybe_maybe_S_w(Data_Maybe_Nothing, Data_Maybe_Just, (function()
+    if "Data.Maybe∷Maybe.Just" == Data_Maybe_Nothing[1] then
+      return { "Data.Maybe∷Maybe.Just", Data_Maybe_Nothing[2] }
+    else
+      return Data_Maybe_Nothing
+    end
+  end)())),
+  chainedJust = Data_Maybe_maybe_S_w(0, function(x_S_1)
     return x_S_1
-  end, Data_Maybe_Nothing))),
-  chainedJust = Data_Maybe_maybe_S_w(0, Golden_MaybeChainModule_Test_identity, Data_Maybe_maybe_S_w(Data_Maybe_Nothing, Data_Maybe_Just, Golden_MaybeChainModule_Test_map_S_w(function( x_S_2 )
-    return x_S_2
-  end, { "Data.Maybe∷Maybe.Just", 42 })))
+  end, Data_Maybe_maybe_S_w(Data_Maybe_Nothing, Data_Maybe_Just, {
+    "Data.Maybe∷Maybe.Just",
+    42
+  }))
 }
diff --git a/test/ps/output/Golden.MixedEffectSTDo.Test/golden.ir b/test/ps/output/Golden.MixedEffectSTDo.Test/golden.ir
index ebddde2d..ce4fff5d 100644
--- a/test/ps/output/Golden.MixedEffectSTDo.Test/golden.ir
+++ b/test/ps/output/Golden.MixedEffectSTDo.Test/golden.ir
@@ -73,18 +73,18 @@ UberModule
                           ( PropName "modifyImpl" )
                         )
                         ( AbsN Nothing
-                          ( ParamNamed Nothing ( Name "s$8" ) :| [] )
+                          ( ParamNamed Nothing ( Name "s$446" ) :| [] )
                           ( Let Nothing
                             ( Standalone
-                              ( Nothing, Name "s'$9", PrimBinOp Nothing PrimMul
-                                ( Ref Nothing ( Local ( Name "s$8" ) ) )
+                              ( Nothing, Name "s'$447", PrimBinOp Nothing PrimMul
+                                ( Ref Nothing ( Local ( Name "s$446" ) ) )
                                 ( LiteralInt Nothing 2 )
                               ) :| []
                             )
                             ( LiteralObject Nothing
                               [
-                                ( PropName "state", Ref Nothing ( Local ( Name "s'$9" ) ) ),
-                                ( PropName "value", Ref Nothing ( Local ( Name "s'$9" ) ) )
+                                ( PropName "state", Ref Nothing ( Local ( Name "s'$447" ) ) ),
+                                ( PropName "value", Ref Nothing ( Local ( Name "s'$447" ) ) )
                               ]
                             )
                           ) :| []
diff --git a/test/ps/output/Golden.MutualLoopification.Test/golden.ir b/test/ps/output/Golden.MutualLoopification.Test/golden.ir
index 5cfadbde..817f12c1 100644
--- a/test/ps/output/Golden.MutualLoopification.Test/golden.ir
+++ b/test/ps/output/Golden.MutualLoopification.Test/golden.ir
@@ -22,11 +22,11 @@ UberModule
       ( QName
         { qnameModuleName = ModuleName "Golden.MutualLoopification.Test", qnameName = Name "logShow"
         }, AbsN Nothing
-        ( ParamNamed Nothing ( Name "a$294" ) :| [] )
+        ( ParamNamed Nothing ( Name "a$289" ) :| [] )
         ( AppN Nothing
           ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) )
           ( IfThenElse Nothing
-            ( Ref Nothing ( Local ( Name "a$294" ) ) )
+            ( Ref Nothing ( Local ( Name "a$289" ) ) )
             ( LiteralString Nothing "true" )
             ( LiteralString Nothing "false" ) :| []
           )
@@ -35,7 +35,7 @@ UberModule
       ( QName
         { qnameModuleName = ModuleName "Golden.MutualLoopification.Test", qnameName = Name "logShow1"
         }, AbsN Nothing
-        ( ParamNamed Nothing ( Name "a$292" ) :| [] )
+        ( ParamNamed Nothing ( Name "a$287" ) :| [] )
         ( AppN Nothing
           ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) )
           ( AppN Nothing
@@ -43,7 +43,7 @@ UberModule
               ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "foreign" ) ) )
               ( PropName "showIntImpl" )
             )
-            ( Ref Nothing ( Local ( Name "a$292" ) ) :| [] ) :| []
+            ( Ref Nothing ( Local ( Name "a$287" ) ) :| [] ) :| []
           )
         )
       ), RecursiveGroup
diff --git a/test/ps/output/Golden.NativeLoops.Test/golden.ir b/test/ps/output/Golden.NativeLoops.Test/golden.ir
index 1d0b712d..4b816bac 100644
--- a/test/ps/output/Golden.NativeLoops.Test/golden.ir
+++ b/test/ps/output/Golden.NativeLoops.Test/golden.ir
@@ -47,11 +47,6 @@ UberModule
         ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "foreign" ) ) )
         ( PropName "foreachE" )
       ), Standalone
-      ( QName
-        { qnameModuleName = ModuleName "Effect", qnameName = Name "pureE" }, ObjectProp Nothing
-        ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "foreign" ) ) )
-        ( PropName "pureE" )
-      ), Standalone
       ( QName
         { qnameModuleName = ModuleName "Effect.Console", qnameName = Name "foreign"
         }, ForeignImport Nothing
@@ -75,6 +70,12 @@ UberModule
         ( Ref Nothing ( Imported ( ModuleName "Effect.Ref" ) ( Name "foreign" ) ) )
         ( PropName "_new" )
       ), Standalone
+      ( QName
+        { qnameModuleName = ModuleName "Effect.Ref", qnameName = Name "modifyImpl"
+        }, ObjectProp Nothing
+        ( Ref Nothing ( Imported ( ModuleName "Effect.Ref" ) ( Name "foreign" ) ) )
+        ( PropName "modifyImpl" )
+      ), Standalone
       ( QName
         { qnameModuleName = ModuleName "Effect.Ref", qnameName = Name "read" }, ObjectProp Nothing
         ( Ref Nothing ( Imported ( ModuleName "Effect.Ref" ) ( Name "foreign" ) ) )
@@ -117,8 +118,9 @@ UberModule
             { qnameModuleName = ModuleName "Effect", qnameName = Name "applicativeEffect"
             }, LiteralObject Nothing
             [
-              ( PropName "pure", Ref Nothing
-                ( Imported ( ModuleName "Effect" ) ( Name "pureE" ) )
+              ( PropName "pure", ObjectProp Nothing
+                ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "foreign" ) ) )
+                ( PropName "pureE" )
               ),
               ( PropName "Apply0", AbsN Nothing
                 ( ParamUnused Nothing :| [] )
@@ -141,9 +143,9 @@ UberModule
               ( LiteralObject Nothing
                 [
                   ( PropName "map", AbsN Nothing
-                    ( ParamNamed Nothing ( Name "f$38" ) :| [] )
+                    ( ParamNamed Nothing ( Name "f$241" ) :| [] )
                     ( AbsN Nothing
-                      ( ParamNamed Nothing ( Name "a$39" ) :| [] )
+                      ( ParamNamed Nothing ( Name "a$242" ) :| [] )
                       ( AppN Nothing
                         ( AppN Nothing
                           ( ObjectProp Nothing
@@ -161,11 +163,16 @@ UberModule
                             ( PropName "apply" )
                           )
                           ( AppN Nothing
-                            ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "pureE" ) ) )
-                            ( Ref Nothing ( Local ( Name "f$38" ) ) :| [] ) :| []
+                            ( ObjectProp Nothing
+                              ( Ref Nothing
+                                ( Imported ( ModuleName "Effect" ) ( Name "applicativeEffect" ) )
+                              )
+                              ( PropName "pure" )
+                            )
+                            ( Ref Nothing ( Local ( Name "f$241" ) ) :| [] ) :| []
                           )
                         )
-                        ( Ref Nothing ( Local ( Name "a$39" ) ) :| [] )
+                        ( Ref Nothing ( Local ( Name "a$242" ) ) :| [] )
                       )
                     )
                   )
@@ -186,7 +193,7 @@ UberModule
                 [
                   ( PropName "apply", Let Nothing
                     ( Standalone
-                      ( Nothing, Name "bind$20", ObjectProp Nothing
+                      ( Nothing, Name "bind$17", ObjectProp Nothing
                         ( AppN Nothing
                           ( ObjectProp Nothing
                             ( Ref Nothing
@@ -202,23 +209,23 @@ UberModule
                       ) :| []
                     )
                     ( AbsN Nothing
-                      ( ParamNamed Nothing ( Name "f$22" ) :| [] )
+                      ( ParamNamed Nothing ( Name "f$19" ) :| [] )
                       ( AbsN Nothing
-                        ( ParamNamed Nothing ( Name "a$23" ) :| [] )
+                        ( ParamNamed Nothing ( Name "a$20" ) :| [] )
                         ( AppN Nothing
                           ( AppN Nothing
-                            ( Ref Nothing ( Local ( Name "bind$20" ) ) )
-                            ( Ref Nothing ( Local ( Name "f$22" ) ) :| [] )
+                            ( Ref Nothing ( Local ( Name "bind$17" ) ) )
+                            ( Ref Nothing ( Local ( Name "f$19" ) ) :| [] )
                           )
                           ( AbsN Nothing
-                            ( ParamNamed Nothing ( Name "f'$24" ) :| [] )
+                            ( ParamNamed Nothing ( Name "f'$21" ) :| [] )
                             ( AppN Nothing
                               ( AppN Nothing
-                                ( Ref Nothing ( Local ( Name "bind$20" ) ) )
-                                ( Ref Nothing ( Local ( Name "a$23" ) ) :| [] )
+                                ( Ref Nothing ( Local ( Name "bind$17" ) ) )
+                                ( Ref Nothing ( Local ( Name "a$20" ) ) :| [] )
                               )
                               ( AbsN Nothing
-                                ( ParamNamed Nothing ( Name "a'$25" ) :| [] )
+                                ( ParamNamed Nothing ( Name "a'$22" ) :| [] )
                                 ( AppN Nothing
                                   ( ObjectProp Nothing
                                     ( AppN Nothing
@@ -241,8 +248,8 @@ UberModule
                                     ( PropName "pure" )
                                   )
                                   ( AppN Nothing
-                                    ( Ref Nothing ( Local ( Name "f'$24" ) ) )
-                                    ( Ref Nothing ( Local ( Name "a'$25" ) ) :| [] ) :| []
+                                    ( Ref Nothing ( Local ( Name "f'$21" ) ) )
+                                    ( Ref Nothing ( Local ( Name "a'$22" ) ) :| [] ) :| []
                                   )
                                 ) :| []
                               )
@@ -273,57 +280,15 @@ UberModule
           )
         ]
       ), Standalone
-      ( QName
-        { qnameModuleName = ModuleName "Effect.Ref", qnameName = Name "modify_$w" }, AbsN Nothing
-        ( ParamNamed Nothing ( Name "f" ) :| [ ParamNamed Nothing ( Name "s" ) ] )
-        ( AppN Nothing
-          ( AppN Nothing
-            ( ObjectProp Nothing
-              ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "functorEffect" ) ) )
-              ( PropName "map" )
-            )
-            ( AbsN Nothing
-              ( ParamUnused Nothing :| [] )
-              ( Ref Nothing ( Imported ( ModuleName "Data.Unit" ) ( Name "unit" ) ) ) :| []
-            )
-          )
-          ( AppN Nothing
-            ( AppN Nothing
-              ( ObjectProp Nothing
-                ( Ref Nothing ( Imported ( ModuleName "Effect.Ref" ) ( Name "foreign" ) ) )
-                ( PropName "modifyImpl" )
-              )
-              ( AbsN Nothing
-                ( ParamNamed Nothing ( Name "s$11" ) :| [] )
-                ( Let Nothing
-                  ( Standalone
-                    ( Nothing, Name "s'$12", AppN Nothing
-                      ( Ref Nothing ( Local ( Name "f" ) ) )
-                      ( Ref Nothing ( Local ( Name "s$11" ) ) :| [] )
-                    ) :| []
-                  )
-                  ( LiteralObject Nothing
-                    [
-                      ( PropName "state", Ref Nothing ( Local ( Name "s'$12" ) ) ),
-                      ( PropName "value", Ref Nothing ( Local ( Name "s'$12" ) ) )
-                    ]
-                  )
-                ) :| []
-              )
-            )
-            ( Ref Nothing ( Local ( Name "s" ) ) :| [] ) :| []
-          )
-        )
-      ), Standalone
       ( QName
         { qnameModuleName = ModuleName "Golden.NativeLoops.Test", qnameName = Name "logShow"
         }, AbsN Nothing
-        ( ParamNamed Nothing ( Name "a$15" ) :| [] )
+        ( ParamNamed Nothing ( Name "a$12" ) :| [] )
         ( AppN Nothing
           ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) )
           ( AppN Nothing
             ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "showIntImpl" ) ) )
-            ( Ref Nothing ( Local ( Name "a$15" ) ) :| [] ) :| []
+            ( Ref Nothing ( Local ( Name "a$12" ) ) :| [] ) :| []
           )
         )
       )
@@ -381,14 +346,44 @@ UberModule
                   ( AbsN Nothing
                     ( ParamNamed Nothing ( Name "n$1" ) :| [] )
                     ( AppN Nothing
-                      ( Ref Nothing ( Imported ( ModuleName "Effect.Ref" ) ( Name "modify_$w" ) ) )
-                      ( AbsN Nothing
-                        ( ParamNamed Nothing ( Name "v$2" ) :| [] )
-                        ( PrimBinOp Nothing PrimAdd
-                          ( Ref Nothing ( Local ( Name "v$2" ) ) )
-                          ( Ref Nothing ( Local ( Name "n$1" ) ) )
-                        ) :|
-                        [ Ref Nothing ( Local ( Name "sum$0" ) ) ]
+                      ( AppN Nothing
+                        ( ObjectProp Nothing
+                          ( Ref Nothing
+                            ( Imported ( ModuleName "Effect" ) ( Name "functorEffect" ) )
+                          )
+                          ( PropName "map" )
+                        )
+                        ( AbsN Nothing
+                          ( ParamUnused Nothing :| [] )
+                          ( Ref Nothing
+                            ( Imported ( ModuleName "Data.Unit" ) ( Name "unit" ) )
+                          ) :| []
+                        )
+                      )
+                      ( AppN Nothing
+                        ( AppN Nothing
+                          ( Ref Nothing
+                            ( Imported ( ModuleName "Effect.Ref" ) ( Name "modifyImpl" ) )
+                          )
+                          ( AbsN Nothing
+                            ( ParamNamed Nothing ( Name "s$255" ) :| [] )
+                            ( Let Nothing
+                              ( Standalone
+                                ( Nothing, Name "s'$256", PrimBinOp Nothing PrimAdd
+                                  ( Ref Nothing ( Local ( Name "s$255" ) ) )
+                                  ( Ref Nothing ( Local ( Name "n$1" ) ) )
+                                ) :| []
+                              )
+                              ( LiteralObject Nothing
+                                [
+                                  ( PropName "state", Ref Nothing ( Local ( Name "s'$256" ) ) ),
+                                  ( PropName "value", Ref Nothing ( Local ( Name "s'$256" ) ) )
+                                ]
+                              )
+                            ) :| []
+                          )
+                        )
+                        ( Ref Nothing ( Local ( Name "sum$0" ) ) :| [] ) :| []
                       )
                     ) :| []
                   )
@@ -491,16 +486,46 @@ UberModule
                       )
                       ( AppN Nothing
                         ( AppN Nothing
-                          ( Ref Nothing
-                            ( Imported ( ModuleName "Effect.Ref" ) ( Name "modify_$w" ) )
+                          ( AppN Nothing
+                            ( ObjectProp Nothing
+                              ( Ref Nothing
+                                ( Imported ( ModuleName "Effect" ) ( Name "functorEffect" ) )
+                              )
+                              ( PropName "map" )
+                            )
+                            ( AbsN Nothing
+                              ( ParamUnused Nothing :| [] )
+                              ( Ref Nothing
+                                ( Imported ( ModuleName "Data.Unit" ) ( Name "unit" ) )
+                              ) :| []
+                            )
                           )
-                          ( AbsN Nothing
-                            ( ParamNamed Nothing ( Name "v1$7" ) :| [] )
-                            ( PrimBinOp Nothing PrimAdd
-                              ( Ref Nothing ( Local ( Name "v1$7" ) ) )
-                              ( LiteralInt Nothing 1 )
-                            ) :|
-                            [ Ref Nothing ( Local ( Name "counter$4" ) ) ]
+                          ( AppN Nothing
+                            ( AppN Nothing
+                              ( Ref Nothing
+                                ( Imported ( ModuleName "Effect.Ref" ) ( Name "modifyImpl" ) )
+                              )
+                              ( AbsN Nothing
+                                ( ParamNamed Nothing ( Name "s$268" ) :| [] )
+                                ( Let Nothing
+                                  ( Standalone
+                                    ( Nothing, Name "s'$269", PrimBinOp Nothing PrimAdd
+                                      ( Ref Nothing ( Local ( Name "s$268" ) ) )
+                                      ( LiteralInt Nothing 1 )
+                                    ) :| []
+                                  )
+                                  ( LiteralObject Nothing
+                                    [
+                                      ( PropName "state", Ref Nothing
+                                        ( Local ( Name "s'$269" ) )
+                                      ),
+                                      ( PropName "value", Ref Nothing ( Local ( Name "s'$269" ) ) )
+                                    ]
+                                  )
+                                ) :| []
+                              )
+                            )
+                            ( Ref Nothing ( Local ( Name "counter$4" ) ) :| [] ) :| []
                           )
                         )
                         ( Ref Nothing
diff --git a/test/ps/output/Golden.NativeLoops.Test/golden.lua b/test/ps/output/Golden.NativeLoops.Test/golden.lua
index f387cf7a..e9d59c59 100644
--- a/test/ps/output/Golden.NativeLoops.Test/golden.lua
+++ b/test/ps/output/Golden.NativeLoops.Test/golden.lua
@@ -44,7 +44,6 @@ local Effect_foreign = {
 }
 M.Effect_forE = Effect_foreign.forE
 M.Effect_foreachE = Effect_foreign.foreachE
-local Effect_pureE = Effect_foreign.pureE
 local Effect_Console_foreign = {
   log = function(s) return function() print(s) end end
 }
@@ -63,6 +62,7 @@ local Effect_Ref_foreign = {
   end
 }
 local Effect_Ref__new = Effect_Ref_foreign._new
+local Effect_Ref_modifyImpl = Effect_Ref_foreign.modifyImpl
 local Effect_Ref_read = Effect_Ref_foreign.read
 local Effect_bindEffect
 local Effect_applicativeEffect
@@ -76,14 +76,14 @@ Effect_bindEffect = {
   Apply0 = function() return Effect_Lazy_applyEffect(0) end
 }
 Effect_applicativeEffect = {
-  pure = Effect_pureE,
+  pure = Effect_foreign.pureE,
   Apply0 = function() return Effect_Lazy_applyEffect(0) end
 }
 local Effect_Lazy_functorEffect = PSLUA_runtime_lazy("functorEffect")(function()
   return {
     map = function(f_S_0)
       return function(a_S_0)
-        return (Effect_applicativeEffect.Apply0()).apply(Effect_pureE(f_S_0))(a_S_0)
+        return (Effect_applicativeEffect.Apply0()).apply(Effect_applicativeEffect.pure(f_S_0))(a_S_0)
       end
     end
   }
@@ -106,14 +106,6 @@ Effect_Lazy_applyEffect = PSLUA_runtime_lazy("applyEffect")(function()
   }
 end)
 local Effect_functorEffect = Effect_Lazy_functorEffect(0)
-local Effect_Ref_modify__S_w = function(f, s)
-  return Effect_functorEffect.map(function()
-    return Data_Unit_unit
-  end)(Effect_Ref_foreign.modifyImpl(function(s_S_0)
-    local sPrime_S_0 = f(s_S_0)
-    return { state = sPrime_S_0, value = sPrime_S_0 }
-  end)(s))
-end
 local Golden_NativeLoops_Test_logShow = function(a_S_2)
   return Effect_Console_log(Data_Show_showIntImpl(a_S_2))
 end
@@ -129,9 +121,12 @@ return (function()
     local _S_xs0 = { [1] = 10, [2] = 20, [3] = 30 }
     for _S_i1 = 1, #(_S_xs0) do
       local n_S_0 = _S_xs0[_S_i1]
-      Effect_Ref_modify__S_w(function(v_S_0)
-        return v_S_0 + n_S_0
-      end, sum_S_0)()
+      Effect_functorEffect.map(function()
+        return Data_Unit_unit
+      end)(Effect_Ref_modifyImpl(function(s_S_0)
+        local sPrime_S_0 = s_S_0 + n_S_0
+        return { state = sPrime_S_0, value = sPrime_S_0 }
+      end)(sum_S_0))()
     end
   end
   local total_S_0 = Effect_Ref_read(sum_S_0)()
@@ -145,9 +140,12 @@ return (function()
     while _S_cond0() do
       local n0_S_0 = Effect_Ref_read(counter_S_0)()
       local _ = Effect_Console_log(Data_Show_showIntImpl(n0_S_0))()
-      Effect_Ref_modify__S_w(function(v1_S_0)
-        return v1_S_0 + 1
-      end, counter_S_0)()
+      Effect_functorEffect.map(function()
+        return Data_Unit_unit
+      end)(Effect_Ref_modifyImpl(function(s_S_1)
+        local sPrime_S_1 = s_S_1 + 1
+        return { state = sPrime_S_1, value = sPrime_S_1 }
+      end)(counter_S_0))()
     end
   end
   local _ = Effect_Console_log("nested:")()
@@ -155,8 +153,8 @@ return (function()
     do
       local _S_xs1 = { [1] = "x", [2] = "y" }
       for _S_i2 = 1, #(_S_xs1) do
-        local s_S_1 = _S_xs1[_S_i2]
-        Effect_Console_log(Data_Show_showIntImpl(i_S_0) .. s_S_1)()
+        local s_S_2 = _S_xs1[_S_i2]
+        Effect_Console_log(Data_Show_showIntImpl(i_S_0) .. s_S_2)()
       end
     end
   end
diff --git a/test/ps/output/Golden.NativeLoopsGuard.Test/golden.ir b/test/ps/output/Golden.NativeLoopsGuard.Test/golden.ir
index da17f680..8b9c874e 100644
--- a/test/ps/output/Golden.NativeLoopsGuard.Test/golden.ir
+++ b/test/ps/output/Golden.NativeLoopsGuard.Test/golden.ir
@@ -126,9 +126,9 @@ UberModule
               ( LiteralObject Nothing
                 [
                   ( PropName "map", AbsN Nothing
-                    ( ParamNamed Nothing ( Name "f$942" ) :| [] )
+                    ( ParamNamed Nothing ( Name "f$1466" ) :| [] )
                     ( AbsN Nothing
-                      ( ParamNamed Nothing ( Name "a$943" ) :| [] )
+                      ( ParamNamed Nothing ( Name "a$1467" ) :| [] )
                       ( AppN Nothing
                         ( AppN Nothing
                           ( ObjectProp Nothing
@@ -146,11 +146,16 @@ UberModule
                             ( PropName "apply" )
                           )
                           ( AppN Nothing
-                            ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "pureE" ) ) )
-                            ( Ref Nothing ( Local ( Name "f$942" ) ) :| [] ) :| []
+                            ( ObjectProp Nothing
+                              ( Ref Nothing
+                                ( Imported ( ModuleName "Effect" ) ( Name "applicativeEffect" ) )
+                              )
+                              ( PropName "pure" )
+                            )
+                            ( Ref Nothing ( Local ( Name "f$1466" ) ) :| [] ) :| []
                           )
                         )
-                        ( Ref Nothing ( Local ( Name "a$943" ) ) :| [] )
+                        ( Ref Nothing ( Local ( Name "a$1467" ) ) :| [] )
                       )
                     )
                   )
@@ -171,7 +176,7 @@ UberModule
                 [
                   ( PropName "apply", Let Nothing
                     ( Standalone
-                      ( Nothing, Name "bind$1433", ObjectProp Nothing
+                      ( Nothing, Name "bind$1420", ObjectProp Nothing
                         ( AppN Nothing
                           ( ObjectProp Nothing
                             ( Ref Nothing
@@ -187,23 +192,23 @@ UberModule
                       ) :| []
                     )
                     ( AbsN Nothing
-                      ( ParamNamed Nothing ( Name "f$1434" ) :| [] )
+                      ( ParamNamed Nothing ( Name "f$1421" ) :| [] )
                       ( AbsN Nothing
-                        ( ParamNamed Nothing ( Name "a$1435" ) :| [] )
+                        ( ParamNamed Nothing ( Name "a$1422" ) :| [] )
                         ( AppN Nothing
                           ( AppN Nothing
-                            ( Ref Nothing ( Local ( Name "bind$1433" ) ) )
-                            ( Ref Nothing ( Local ( Name "f$1434" ) ) :| [] )
+                            ( Ref Nothing ( Local ( Name "bind$1420" ) ) )
+                            ( Ref Nothing ( Local ( Name "f$1421" ) ) :| [] )
                           )
                           ( AbsN Nothing
-                            ( ParamNamed Nothing ( Name "f'$1436" ) :| [] )
+                            ( ParamNamed Nothing ( Name "f'$1423" ) :| [] )
                             ( AppN Nothing
                               ( AppN Nothing
-                                ( Ref Nothing ( Local ( Name "bind$1433" ) ) )
-                                ( Ref Nothing ( Local ( Name "a$1435" ) ) :| [] )
+                                ( Ref Nothing ( Local ( Name "bind$1420" ) ) )
+                                ( Ref Nothing ( Local ( Name "a$1422" ) ) :| [] )
                               )
                               ( AbsN Nothing
-                                ( ParamNamed Nothing ( Name "a'$1437" ) :| [] )
+                                ( ParamNamed Nothing ( Name "a'$1424" ) :| [] )
                                 ( AppN Nothing
                                   ( ObjectProp Nothing
                                     ( AppN Nothing
@@ -226,8 +231,8 @@ UberModule
                                     ( PropName "pure" )
                                   )
                                   ( AppN Nothing
-                                    ( Ref Nothing ( Local ( Name "f'$1436" ) ) )
-                                    ( Ref Nothing ( Local ( Name "a'$1437" ) ) :| [] ) :| []
+                                    ( Ref Nothing ( Local ( Name "f'$1423" ) ) )
+                                    ( Ref Nothing ( Local ( Name "a'$1424" ) ) :| [] ) :| []
                                   )
                                 ) :| []
                               )
@@ -258,19 +263,6 @@ UberModule
           )
         ]
       ), Standalone
-      ( QName
-        { qnameModuleName = ModuleName "Golden.NativeLoopsGuard.Test", qnameName = Name "when$w"
-        }, AbsN Nothing
-        ( ParamNamed Nothing ( Name "v$1440" ) :| [ ParamNamed Nothing ( Name "v1$1441" ) ] )
-        ( IfThenElse Nothing
-          ( Ref Nothing ( Local ( Name "v$1440" ) ) )
-          ( Ref Nothing ( Local ( Name "v1$1441" ) ) )
-          ( AppN Nothing
-            ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "pureE" ) ) )
-            ( Ref Nothing ( Imported ( ModuleName "Data.Unit" ) ( Name "unit" ) ) :| [] )
-          )
-        )
-      ), Standalone
       ( QName
         { qnameModuleName = ModuleName "Golden.NativeLoopsGuard.Test", qnameName = Name "logShow"
         }, AbsN Nothing
@@ -297,11 +289,18 @@ UberModule
               ) :| []
             )
             ( AppN Nothing
-              ( AppN Nothing
-                ( Ref Nothing
-                  ( Imported ( ModuleName "Golden.NativeLoopsGuard.Test" ) ( Name "when$w" ) )
+              ( IfThenElse Nothing
+                ( Ref Nothing ( Local ( Name "b" ) ) )
+                ( Ref Nothing ( Local ( Name "act" ) ) )
+                ( AppN Nothing
+                  ( ObjectProp Nothing
+                    ( Ref Nothing
+                      ( Imported ( ModuleName "Effect" ) ( Name "applicativeEffect" ) )
+                    )
+                    ( PropName "pure" )
+                  )
+                  ( Ref Nothing ( Imported ( ModuleName "Data.Unit" ) ( Name "unit" ) ) :| [] )
                 )
-                ( Ref Nothing ( Local ( Name "b" ) ) :| [ Ref Nothing ( Local ( Name "act" ) ) ] )
               )
               ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] )
             )
@@ -314,18 +313,18 @@ UberModule
         ( ParamNamed Nothing ( Name "xs" ) :| [ ParamNamed Nothing ( Name "f" ) ] )
         ( Let Nothing
           ( Standalone
-            ( Nothing, Name "v2$1430", AppN Nothing
+            ( Nothing, Name "v2$1417", AppN Nothing
               ( ObjectProp Nothing
                 ( Ref Nothing ( Imported ( ModuleName "Data.Array" ) ( Name "foreign" ) ) )
                 ( PropName "indexImpl" )
               )
               ( AbsN Nothing
-                ( ParamNamed Nothing ( Name "value0$1431" ) :| [] )
+                ( ParamNamed Nothing ( Name "value0$1418" ) :| [] )
                 ( Ctor Nothing SumType
                   ( ModuleName "Data.Maybe" )
                   ( TyName "Maybe" )
                   ( CtorName "Just" )
-                  [ Ref Nothing ( Local ( Name "value0$1431" ) ) ]
+                  [ Ref Nothing ( Local ( Name "value0$1418" ) ) ]
                 ) :|
                 [ Ctor Nothing SumType
                   ( ModuleName "Data.Maybe" )
@@ -339,7 +338,7 @@ UberModule
           ( IfThenElse Nothing
             ( Eq Nothing
               ( LiteralString Nothing "Data.Maybe∷Maybe.Nothing" )
-              ( ReflectCtor Nothing ( Ref Nothing ( Local ( Name "v2$1430" ) ) ) )
+              ( ReflectCtor Nothing ( Ref Nothing ( Local ( Name "v2$1417" ) ) ) )
             )
             ( AppN Nothing
               ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "pureE" ) ) )
@@ -348,7 +347,7 @@ UberModule
             ( AppN Nothing
               ( Ref Nothing ( Local ( Name "f" ) ) )
               ( DataArgumentByIndex Nothing SumType 0
-                ( Ref Nothing ( Local ( Name "v2$1430" ) ) ) :| []
+                ( Ref Nothing ( Local ( Name "v2$1417" ) ) ) :| []
               )
             )
           )
@@ -361,37 +360,41 @@ UberModule
           ( Name "lo" ) :|
           [ ParamNamed Nothing ( Name "hi" ), ParamNamed Nothing ( Name "f" ) ]
         )
-        ( AppN Nothing
-          ( Ref Nothing
-            ( Imported ( ModuleName "Golden.NativeLoopsGuard.Test" ) ( Name "when$w" ) )
-          )
+        ( IfThenElse Nothing
           ( PrimBinOp Nothing PrimLt
             ( Ref Nothing ( Local ( Name "lo" ) ) )
-            ( Ref Nothing ( Local ( Name "hi" ) ) ) :|
-            [ AppN Nothing
-              ( Ref Nothing ( Local ( Name "f" ) ) )
-              ( Ref Nothing ( Local ( Name "lo" ) ) :| [] )
-            ]
+            ( Ref Nothing ( Local ( Name "hi" ) ) )
+          )
+          ( AppN Nothing
+            ( Ref Nothing ( Local ( Name "f" ) ) )
+            ( Ref Nothing ( Local ( Name "lo" ) ) :| [] )
+          )
+          ( AppN Nothing
+            ( ObjectProp Nothing
+              ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "applicativeEffect" ) ) )
+              ( PropName "pure" )
+            )
+            ( Ref Nothing ( Imported ( ModuleName "Data.Unit" ) ( Name "unit" ) ) :| [] )
           )
         )
       )
     ], uberModuleForeigns = [], uberModuleExports =
     [
       ( Name "forE", AbsN Nothing
-        ( ParamNamed Nothing ( Name "forE$p1$1462" ) :| [] )
+        ( ParamNamed Nothing ( Name "forE$p1$1443" ) :| [] )
         ( AbsN Nothing
-          ( ParamNamed Nothing ( Name "forE$p2$1463" ) :| [] )
+          ( ParamNamed Nothing ( Name "forE$p2$1444" ) :| [] )
           ( AbsN Nothing
-            ( ParamNamed Nothing ( Name "forE$p3$1464" ) :| [] )
+            ( ParamNamed Nothing ( Name "forE$p3$1445" ) :| [] )
             ( AppN Nothing
               ( Ref Nothing
                 ( Imported ( ModuleName "Golden.NativeLoopsGuard.Test" ) ( Name "forE$w" ) )
               )
               ( Ref Nothing
-                ( Local ( Name "forE$p1$1462" ) ) :|
+                ( Local ( Name "forE$p1$1443" ) ) :|
                 [ Ref Nothing
-                  ( Local ( Name "forE$p2$1463" ) ), Ref Nothing
-                  ( Local ( Name "forE$p3$1464" ) )
+                  ( Local ( Name "forE$p2$1444" ) ), Ref Nothing
+                  ( Local ( Name "forE$p3$1445" ) )
                 ]
               )
             )
@@ -399,31 +402,31 @@ UberModule
         )
       ),
       ( Name "foreachE", AbsN Nothing
-        ( ParamNamed Nothing ( Name "foreachE$p1$1465" ) :| [] )
+        ( ParamNamed Nothing ( Name "foreachE$p1$1446" ) :| [] )
         ( AbsN Nothing
-          ( ParamNamed Nothing ( Name "foreachE$p2$1466" ) :| [] )
+          ( ParamNamed Nothing ( Name "foreachE$p2$1447" ) :| [] )
           ( AppN Nothing
             ( Ref Nothing
               ( Imported ( ModuleName "Golden.NativeLoopsGuard.Test" ) ( Name "foreachE$w" ) )
             )
             ( Ref Nothing
-              ( Local ( Name "foreachE$p1$1465" ) ) :|
-              [ Ref Nothing ( Local ( Name "foreachE$p2$1466" ) ) ]
+              ( Local ( Name "foreachE$p1$1446" ) ) :|
+              [ Ref Nothing ( Local ( Name "foreachE$p2$1447" ) ) ]
             )
           )
         )
       ),
       ( Name "whileE", AbsN Nothing
-        ( ParamNamed Nothing ( Name "whileE$p1$1467" ) :| [] )
+        ( ParamNamed Nothing ( Name "whileE$p1$1448" ) :| [] )
         ( AbsN Nothing
-          ( ParamNamed Nothing ( Name "whileE$p2$1468" ) :| [] )
+          ( ParamNamed Nothing ( Name "whileE$p2$1449" ) :| [] )
           ( AppN Nothing
             ( Ref Nothing
               ( Imported ( ModuleName "Golden.NativeLoopsGuard.Test" ) ( Name "whileE$w" ) )
             )
             ( Ref Nothing
-              ( Local ( Name "whileE$p1$1467" ) ) :|
-              [ Ref Nothing ( Local ( Name "whileE$p2$1468" ) ) ]
+              ( Local ( Name "whileE$p1$1448" ) ) :|
+              [ Ref Nothing ( Local ( Name "whileE$p2$1449" ) ) ]
             )
           )
         )
@@ -560,21 +563,21 @@ UberModule
                                   ( PropName "modifyImpl" )
                                 )
                                 ( AbsN Nothing
-                                  ( ParamNamed Nothing ( Name "s$761" ) :| [] )
+                                  ( ParamNamed Nothing ( Name "s$1484" ) :| [] )
                                   ( Let Nothing
                                     ( Standalone
-                                      ( Nothing, Name "s'$762", PrimBinOp Nothing PrimSub
-                                        ( Ref Nothing ( Local ( Name "s$761" ) ) )
+                                      ( Nothing, Name "s'$1485", PrimBinOp Nothing PrimSub
+                                        ( Ref Nothing ( Local ( Name "s$1484" ) ) )
                                         ( LiteralInt Nothing 1 )
                                       ) :| []
                                     )
                                     ( LiteralObject Nothing
                                       [
                                         ( PropName "state", Ref Nothing
-                                          ( Local ( Name "s'$762" ) )
+                                          ( Local ( Name "s'$1485" ) )
                                         ),
                                         ( PropName "value", Ref Nothing
-                                          ( Local ( Name "s'$762" ) )
+                                          ( Local ( Name "s'$1485" ) )
                                         )
                                       ]
                                     )
diff --git a/test/ps/output/Golden.NativeLoopsGuard.Test/golden.lua b/test/ps/output/Golden.NativeLoopsGuard.Test/golden.lua
index cd0f2c82..5302271e 100644
--- a/test/ps/output/Golden.NativeLoopsGuard.Test/golden.lua
+++ b/test/ps/output/Golden.NativeLoopsGuard.Test/golden.lua
@@ -69,7 +69,7 @@ local Effect_Lazy_functorEffect = PSLUA_runtime_lazy("functorEffect")(function()
   return {
     map = function(f_S_0)
       return function(a_S_0)
-        return (Effect_applicativeEffect.Apply0()).apply(Effect_pureE(f_S_0))(a_S_0)
+        return (Effect_applicativeEffect.Apply0()).apply(Effect_applicativeEffect.pure(f_S_0))(a_S_0)
       end
     end
   }
@@ -92,16 +92,17 @@ Effect_Lazy_applyEffect = PSLUA_runtime_lazy("applyEffect")(function()
   }
 end)
 local Effect_functorEffect = Effect_Lazy_functorEffect(0)
-local Golden_NativeLoopsGuard_Test_when_S_w = function(v_S_0, v1_S_0)
-  if v_S_0 then return v1_S_0 else return Effect_pureE(Data_Unit_unit) end
-end
 local Golden_NativeLoopsGuard_Test_logShow = function(a_S_2)
   return Effect_Console_log(Data_Show_showIntImpl(a_S_2))
 end
 local Golden_NativeLoopsGuard_Test_whileE_S_w = function(cond, act)
   return function()
     local b = cond()
-    return Golden_NativeLoopsGuard_Test_when_S_w(b, act)()
+    if b then
+      return act()
+    else
+      return Effect_applicativeEffect.pure(Data_Unit_unit)()
+    end
   end
 end
 local Golden_NativeLoopsGuard_Test_foreachE_S_w = function(xs, f)
@@ -115,7 +116,11 @@ local Golden_NativeLoopsGuard_Test_foreachE_S_w = function(xs, f)
   end
 end
 local Golden_NativeLoopsGuard_Test_forE_S_w = function(lo, hi, f)
-  return Golden_NativeLoopsGuard_Test_when_S_w(lo < hi, f(lo))
+  if lo < hi then
+    return f(lo)
+  else
+    return Effect_applicativeEffect.pure(Data_Unit_unit)
+  end
 end
 return (function()
   local _ = Golden_NativeLoopsGuard_Test_forE_S_w(1, 5, Golden_NativeLoopsGuard_Test_logShow)()
@@ -124,8 +129,8 @@ return (function()
     [2] = "y"
   }, Effect_Console_log)()
   local r_S_0 = Effect_Ref_foreign._new(3)()
-  local _ = Golden_NativeLoopsGuard_Test_whileE_S_w(Effect_functorEffect.map(function( v_S_1 )
-    return v_S_1 >= 0 and v_S_1 ~= 0
+  local _ = Golden_NativeLoopsGuard_Test_whileE_S_w(Effect_functorEffect.map(function( v_S_0 )
+    return v_S_0 >= 0 and v_S_0 ~= 0
   end)(Effect_Ref_read(r_S_0)), function()
     local n_S_0 = Effect_Ref_read(r_S_0)()
     local _ = Effect_Console_log(Data_Show_showIntImpl(n_S_0))()
diff --git a/test/ps/output/Golden.NativeLoopsST.Test/golden.ir b/test/ps/output/Golden.NativeLoopsST.Test/golden.ir
index a601c7a8..14330a8d 100644
--- a/test/ps/output/Golden.NativeLoopsST.Test/golden.ir
+++ b/test/ps/output/Golden.NativeLoopsST.Test/golden.ir
@@ -140,18 +140,18 @@ UberModule
                               )
                             )
                             ( AbsN Nothing
-                              ( ParamNamed Nothing ( Name "s$491" ) :| [] )
+                              ( ParamNamed Nothing ( Name "s$483" ) :| [] )
                               ( Let Nothing
                                 ( Standalone
-                                  ( Nothing, Name "s'$492", PrimBinOp Nothing PrimAdd
-                                    ( Ref Nothing ( Local ( Name "s$491" ) ) )
+                                  ( Nothing, Name "s'$484", PrimBinOp Nothing PrimAdd
+                                    ( Ref Nothing ( Local ( Name "s$483" ) ) )
                                     ( Ref Nothing ( Local ( Name "i" ) ) )
                                   ) :| []
                                 )
                                 ( LiteralObject Nothing
                                   [
-                                    ( PropName "state", Ref Nothing ( Local ( Name "s'$492" ) ) ),
-                                    ( PropName "value", Ref Nothing ( Local ( Name "s'$492" ) ) )
+                                    ( PropName "state", Ref Nothing ( Local ( Name "s'$484" ) ) ),
+                                    ( PropName "value", Ref Nothing ( Local ( Name "s'$484" ) ) )
                                   ]
                                 )
                               ) :| []
@@ -238,20 +238,20 @@ UberModule
                                 )
                               )
                               ( AbsN Nothing
-                                ( ParamNamed Nothing ( Name "s$484" ) :| [] )
+                                ( ParamNamed Nothing ( Name "s$476" ) :| [] )
                                 ( Let Nothing
                                   ( Standalone
-                                    ( Nothing, Name "s'$485", PrimBinOp Nothing PrimAdd
-                                      ( Ref Nothing ( Local ( Name "s$484" ) ) )
+                                    ( Nothing, Name "s'$477", PrimBinOp Nothing PrimAdd
+                                      ( Ref Nothing ( Local ( Name "s$476" ) ) )
                                       ( Ref Nothing ( Local ( Name "x" ) ) )
                                     ) :| []
                                   )
                                   ( LiteralObject Nothing
                                     [
                                       ( PropName "state", Ref Nothing
-                                        ( Local ( Name "s'$485" ) )
+                                        ( Local ( Name "s'$477" ) )
                                       ),
-                                      ( PropName "value", Ref Nothing ( Local ( Name "s'$485" ) ) )
+                                      ( PropName "value", Ref Nothing ( Local ( Name "s'$477" ) ) )
                                     ]
                                   )
                                 ) :| []
@@ -369,21 +369,21 @@ UberModule
                                     )
                                   )
                                   ( AbsN Nothing
-                                    ( ParamNamed Nothing ( Name "s$473" ) :| [] )
+                                    ( ParamNamed Nothing ( Name "s$465" ) :| [] )
                                     ( Let Nothing
                                       ( Standalone
-                                        ( Nothing, Name "s'$474", PrimBinOp Nothing PrimSub
-                                          ( Ref Nothing ( Local ( Name "s$473" ) ) )
+                                        ( Nothing, Name "s'$466", PrimBinOp Nothing PrimSub
+                                          ( Ref Nothing ( Local ( Name "s$465" ) ) )
                                           ( LiteralInt Nothing 1 )
                                         ) :| []
                                       )
                                       ( LiteralObject Nothing
                                         [
                                           ( PropName "state", Ref Nothing
-                                            ( Local ( Name "s'$474" ) )
+                                            ( Local ( Name "s'$466" ) )
                                           ),
                                           ( PropName "value", Ref Nothing
-                                            ( Local ( Name "s'$474" ) )
+                                            ( Local ( Name "s'$466" ) )
                                           )
                                         ]
                                       )
@@ -407,21 +407,21 @@ UberModule
                                   )
                                 )
                                 ( AbsN Nothing
-                                  ( ParamNamed Nothing ( Name "s$478" ) :| [] )
+                                  ( ParamNamed Nothing ( Name "s$470" ) :| [] )
                                   ( Let Nothing
                                     ( Standalone
-                                      ( Nothing, Name "s'$479", PrimBinOp Nothing PrimAdd
-                                        ( Ref Nothing ( Local ( Name "s$478" ) ) )
+                                      ( Nothing, Name "s'$471", PrimBinOp Nothing PrimAdd
+                                        ( Ref Nothing ( Local ( Name "s$470" ) ) )
                                         ( LiteralInt Nothing 1 )
                                       ) :| []
                                     )
                                     ( LiteralObject Nothing
                                       [
                                         ( PropName "state", Ref Nothing
-                                          ( Local ( Name "s'$479" ) )
+                                          ( Local ( Name "s'$471" ) )
                                         ),
                                         ( PropName "value", Ref Nothing
-                                          ( Local ( Name "s'$479" ) )
+                                          ( Local ( Name "s'$471" ) )
                                         )
                                       ]
                                     )
diff --git a/test/ps/output/Golden.Primops.Test/golden.ir b/test/ps/output/Golden.Primops.Test/golden.ir
index 8a59b0ab..512d9744 100644
--- a/test/ps/output/Golden.Primops.Test/golden.ir
+++ b/test/ps/output/Golden.Primops.Test/golden.ir
@@ -59,28 +59,28 @@ UberModule
               )
             ),
             ( PropName "conj", AbsN Nothing
-              ( ParamNamed Nothing ( Name "b1$210" ) :| [] )
+              ( ParamNamed Nothing ( Name "b1$205" ) :| [] )
               ( AbsN Nothing
-                ( ParamNamed Nothing ( Name "b2$211" ) :| [] )
+                ( ParamNamed Nothing ( Name "b2$206" ) :| [] )
                 ( PrimBinOp Nothing PrimAnd
-                  ( Ref Nothing ( Local ( Name "b1$210" ) ) )
-                  ( Ref Nothing ( Local ( Name "b2$211" ) ) )
+                  ( Ref Nothing ( Local ( Name "b1$205" ) ) )
+                  ( Ref Nothing ( Local ( Name "b2$206" ) ) )
                 )
               )
             ),
             ( PropName "disj", AbsN Nothing
-              ( ParamNamed Nothing ( Name "b1$208" ) :| [] )
+              ( ParamNamed Nothing ( Name "b1$203" ) :| [] )
               ( AbsN Nothing
-                ( ParamNamed Nothing ( Name "b2$209" ) :| [] )
+                ( ParamNamed Nothing ( Name "b2$204" ) :| [] )
                 ( PrimBinOp Nothing PrimOr
-                  ( Ref Nothing ( Local ( Name "b1$208" ) ) )
-                  ( Ref Nothing ( Local ( Name "b2$209" ) ) )
+                  ( Ref Nothing ( Local ( Name "b1$203" ) ) )
+                  ( Ref Nothing ( Local ( Name "b2$204" ) ) )
                 )
               )
             ),
             ( PropName "not", AbsN Nothing
-              ( ParamNamed Nothing ( Name "b$207" ) :| [] )
-              ( PrimNot Nothing ( Ref Nothing ( Local ( Name "b$207" ) ) ) )
+              ( ParamNamed Nothing ( Name "b$202" ) :| [] )
+              ( PrimNot Nothing ( Ref Nothing ( Local ( Name "b$202" ) ) ) )
             )
           ]
         ) :| []
@@ -158,12 +158,12 @@ UberModule
         ( ParamUnused Nothing :| [] )
         ( Let Nothing
           ( Standalone
-            ( Nothing, Name "$cse252", LiteralObject Nothing
+            ( Nothing, Name "$cse247", LiteralObject Nothing
               [
                 ( PropName "show", AbsN Nothing
-                  ( ParamNamed Nothing ( Name "v$241" ) :| [] )
+                  ( ParamNamed Nothing ( Name "v$235" ) :| [] )
                   ( IfThenElse Nothing
-                    ( Ref Nothing ( Local ( Name "v$241" ) ) )
+                    ( Ref Nothing ( Local ( Name "v$235" ) ) )
                     ( LiteralString Nothing "true" )
                     ( LiteralString Nothing "false" )
                   )
@@ -199,7 +199,7 @@ UberModule
                     ( Ref Nothing
                       ( Imported ( ModuleName "Effect.Console" ) ( Name "logShow$w" ) )
                     )
-                    ( Ref Nothing ( Local ( Name "$cse252" ) ) :| [ LiteralBool Nothing True ] )
+                    ( Ref Nothing ( Local ( Name "$cse247" ) ) :| [ LiteralBool Nothing True ] )
                   )
                   ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] )
                 ), Standalone
@@ -208,7 +208,7 @@ UberModule
                     ( Ref Nothing
                       ( Imported ( ModuleName "Effect.Console" ) ( Name "logShow$w" ) )
                     )
-                    ( Ref Nothing ( Local ( Name "$cse252" ) ) :| [ LiteralBool Nothing True ] )
+                    ( Ref Nothing ( Local ( Name "$cse247" ) ) :| [ LiteralBool Nothing True ] )
                   )
                   ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] )
                 ), Standalone
@@ -220,23 +220,23 @@ UberModule
                     ( LiteralObject Nothing
                       [
                         ( PropName "show", AbsN Nothing
-                          ( ParamNamed Nothing ( Name "v$113" ) :| [] )
+                          ( ParamNamed Nothing ( Name "v$108" ) :| [] )
                           ( Let Nothing
                             ( Standalone
-                              ( Nothing, Name "$cse253", ReflectCtor Nothing
-                                ( Ref Nothing ( Local ( Name "v$113" ) ) )
+                              ( Nothing, Name "$cse248", ReflectCtor Nothing
+                                ( Ref Nothing ( Local ( Name "v$108" ) ) )
                               ) :| []
                             )
                             ( IfThenElse Nothing
                               ( Eq Nothing
                                 ( LiteralString Nothing "Data.Ordering∷Ordering.LT" )
-                                ( Ref Nothing ( Local ( Name "$cse253" ) ) )
+                                ( Ref Nothing ( Local ( Name "$cse248" ) ) )
                               )
                               ( LiteralString Nothing "LT" )
                               ( IfThenElse Nothing
                                 ( Eq Nothing
                                   ( LiteralString Nothing "Data.Ordering∷Ordering.GT" )
-                                  ( Ref Nothing ( Local ( Name "$cse253" ) ) )
+                                  ( Ref Nothing ( Local ( Name "$cse248" ) ) )
                                 )
                                 ( LiteralString Nothing "GT" )
                                 ( LiteralString Nothing "EQ" )
@@ -267,7 +267,7 @@ UberModule
               ( AppN Nothing
                 ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "logShow$w" ) ) )
                 ( Ref Nothing
-                  ( Local ( Name "$cse252" ) ) :|
+                  ( Local ( Name "$cse247" ) ) :|
                   [ AppN Nothing
                     ( AppN Nothing
                       ( ObjectProp Nothing
diff --git a/test/ps/output/Golden.ProfunctorDictLens.Test/golden.ir b/test/ps/output/Golden.ProfunctorDictLens.Test/golden.ir
index c649ac73..97980d97 100644
--- a/test/ps/output/Golden.ProfunctorDictLens.Test/golden.ir
+++ b/test/ps/output/Golden.ProfunctorDictLens.Test/golden.ir
@@ -27,8 +27,8 @@ UberModule
       ), Standalone
       ( QName
         { qnameModuleName = ModuleName "Data.Newtype", qnameName = Name "coerce" }, AbsN Nothing
-        ( ParamNamed Nothing ( Name "x$262" ) :| [] )
-        ( Ref Nothing ( Local ( Name "x$262" ) ) )
+        ( ParamNamed Nothing ( Name "x$253" ) :| [] )
+        ( Ref Nothing ( Local ( Name "x$253" ) ) )
       ), Standalone
       ( QName
         { qnameModuleName = ModuleName "Golden.ProfunctorDictLens.Test", qnameName = Name "unwrap"
diff --git a/test/ps/output/Golden.RecordSurgery.Test/golden.ir b/test/ps/output/Golden.RecordSurgery.Test/golden.ir
index ba9f7688..129a84f4 100644
--- a/test/ps/output/Golden.RecordSurgery.Test/golden.ir
+++ b/test/ps/output/Golden.RecordSurgery.Test/golden.ir
@@ -38,7 +38,7 @@ UberModule
       ( QName
         { qnameModuleName = ModuleName "Golden.RecordSurgery.Test", qnameName = Name "logShow"
         }, AbsN Nothing
-        ( ParamNamed Nothing ( Name "a$224" ) :| [] )
+        ( ParamNamed Nothing ( Name "a$216" ) :| [] )
         ( AppN Nothing
           ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) )
           ( AppN Nothing
@@ -46,18 +46,18 @@ UberModule
               ( Ref Nothing ( Imported ( ModuleName "Data.Show" ) ( Name "foreign" ) ) )
               ( PropName "showIntImpl" )
             )
-            ( Ref Nothing ( Local ( Name "a$224" ) ) :| [] ) :| []
+            ( Ref Nothing ( Local ( Name "a$216" ) ) :| [] ) :| []
           )
         )
       ), Standalone
       ( QName
         { qnameModuleName = ModuleName "Golden.RecordSurgery.Test", qnameName = Name "logShow1"
         }, AbsN Nothing
-        ( ParamNamed Nothing ( Name "a$222" ) :| [] )
+        ( ParamNamed Nothing ( Name "a$214" ) :| [] )
         ( AppN Nothing
           ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) )
           ( IfThenElse Nothing
-            ( Ref Nothing ( Local ( Name "a$222" ) ) )
+            ( Ref Nothing ( Local ( Name "a$214" ) ) )
             ( LiteralString Nothing "true" )
             ( LiteralString Nothing "false" ) :| []
           )
diff --git a/test/ps/output/Golden.RefUnbox.Test/golden.ir b/test/ps/output/Golden.RefUnbox.Test/golden.ir
index eddbf6c0..cb960578 100644
--- a/test/ps/output/Golden.RefUnbox.Test/golden.ir
+++ b/test/ps/output/Golden.RefUnbox.Test/golden.ir
@@ -68,23 +68,23 @@ UberModule
         }, LiteralObject Nothing
         [
           ( PropName "add", AbsN Nothing
-            ( ParamNamed Nothing ( Name "x$434" ) :| [] )
+            ( ParamNamed Nothing ( Name "x$426" ) :| [] )
             ( AbsN Nothing
-              ( ParamNamed Nothing ( Name "y$435" ) :| [] )
+              ( ParamNamed Nothing ( Name "y$427" ) :| [] )
               ( PrimBinOp Nothing PrimAdd
-                ( Ref Nothing ( Local ( Name "x$434" ) ) )
-                ( Ref Nothing ( Local ( Name "y$435" ) ) )
+                ( Ref Nothing ( Local ( Name "x$426" ) ) )
+                ( Ref Nothing ( Local ( Name "y$427" ) ) )
               )
             )
           ),
           ( PropName "zero", LiteralInt Nothing 0 ),
           ( PropName "mul", AbsN Nothing
-            ( ParamNamed Nothing ( Name "x$432" ) :| [] )
+            ( ParamNamed Nothing ( Name "x$424" ) :| [] )
             ( AbsN Nothing
-              ( ParamNamed Nothing ( Name "y$433" ) :| [] )
+              ( ParamNamed Nothing ( Name "y$425" ) :| [] )
               ( PrimBinOp Nothing PrimMul
-                ( Ref Nothing ( Local ( Name "x$432" ) ) )
-                ( Ref Nothing ( Local ( Name "y$433" ) ) )
+                ( Ref Nothing ( Local ( Name "x$424" ) ) )
+                ( Ref Nothing ( Local ( Name "y$425" ) ) )
               )
             )
           ),
@@ -211,18 +211,18 @@ UberModule
                               )
                             )
                             ( AbsN Nothing
-                              ( ParamNamed Nothing ( Name "s$472" ) :| [] )
+                              ( ParamNamed Nothing ( Name "s$464" ) :| [] )
                               ( Let Nothing
                                 ( Standalone
-                                  ( Nothing, Name "s'$473", PrimBinOp Nothing PrimAdd
-                                    ( Ref Nothing ( Local ( Name "s$472" ) ) )
+                                  ( Nothing, Name "s'$465", PrimBinOp Nothing PrimAdd
+                                    ( Ref Nothing ( Local ( Name "s$464" ) ) )
                                     ( Ref Nothing ( Local ( Name "i" ) ) )
                                   ) :| []
                                 )
                                 ( LiteralObject Nothing
                                   [
-                                    ( PropName "state", Ref Nothing ( Local ( Name "s'$473" ) ) ),
-                                    ( PropName "value", Ref Nothing ( Local ( Name "s'$473" ) ) )
+                                    ( PropName "state", Ref Nothing ( Local ( Name "s'$465" ) ) ),
+                                    ( PropName "value", Ref Nothing ( Local ( Name "s'$465" ) ) )
                                   ]
                                 )
                               ) :| []
@@ -363,18 +363,18 @@ UberModule
                         )
                       )
                       ( AbsN Nothing
-                        ( ParamNamed Nothing ( Name "s$459" ) :| [] )
+                        ( ParamNamed Nothing ( Name "s$451" ) :| [] )
                         ( Let Nothing
                           ( Standalone
-                            ( Nothing, Name "s'$460", PrimBinOp Nothing PrimMul
-                              ( Ref Nothing ( Local ( Name "s$459" ) ) )
+                            ( Nothing, Name "s'$452", PrimBinOp Nothing PrimMul
+                              ( Ref Nothing ( Local ( Name "s$451" ) ) )
                               ( LiteralInt Nothing 2 )
                             ) :| []
                           )
                           ( LiteralObject Nothing
                             [
-                              ( PropName "state", Ref Nothing ( Local ( Name "s'$460" ) ) ),
-                              ( PropName "value", Ref Nothing ( Local ( Name "s'$460" ) ) )
+                              ( PropName "state", Ref Nothing ( Local ( Name "s'$452" ) ) ),
+                              ( PropName "value", Ref Nothing ( Local ( Name "s'$452" ) ) )
                             ]
                           )
                         ) :| []
diff --git a/test/ps/output/Golden.STDoBlock.Test/golden.ir b/test/ps/output/Golden.STDoBlock.Test/golden.ir
index 18c312bd..3011883d 100644
--- a/test/ps/output/Golden.STDoBlock.Test/golden.ir
+++ b/test/ps/output/Golden.STDoBlock.Test/golden.ir
@@ -47,19 +47,19 @@ UberModule
             ( ParamUnused Nothing :| [] )
             ( Let Nothing
               ( Standalone
-                ( Nothing, Name "$cse496", AbsN Nothing
-                  ( ParamNamed Nothing ( Name "s$456" ) :| [] )
+                ( Nothing, Name "$cse488", AbsN Nothing
+                  ( ParamNamed Nothing ( Name "s$448" ) :| [] )
                   ( Let Nothing
                     ( Standalone
-                      ( Nothing, Name "s'$457", PrimBinOp Nothing PrimAdd
-                        ( Ref Nothing ( Local ( Name "s$456" ) ) )
+                      ( Nothing, Name "s'$449", PrimBinOp Nothing PrimAdd
+                        ( Ref Nothing ( Local ( Name "s$448" ) ) )
                         ( Ref Nothing ( Local ( Name "n" ) ) )
                       ) :| []
                     )
                     ( LiteralObject Nothing
                       [
-                        ( PropName "state", Ref Nothing ( Local ( Name "s'$457" ) ) ),
-                        ( PropName "value", Ref Nothing ( Local ( Name "s'$457" ) ) )
+                        ( PropName "state", Ref Nothing ( Local ( Name "s'$449" ) ) ),
+                        ( PropName "value", Ref Nothing ( Local ( Name "s'$449" ) ) )
                       ]
                     )
                   )
@@ -89,7 +89,7 @@ UberModule
                               ( Name "modifyImpl" )
                             )
                           )
-                          ( Ref Nothing ( Local ( Name "$cse496" ) ) :| [] )
+                          ( Ref Nothing ( Local ( Name "$cse488" ) ) :| [] )
                         )
                         ( Ref Nothing ( Local ( Name "ref" ) ) :| [] )
                       )
@@ -106,7 +106,7 @@ UberModule
                               ( Name "modifyImpl" )
                             )
                           )
-                          ( Ref Nothing ( Local ( Name "$cse496" ) ) :| [] )
+                          ( Ref Nothing ( Local ( Name "$cse488" ) ) :| [] )
                         )
                         ( Ref Nothing ( Local ( Name "ref" ) ) :| [] )
                       )
diff --git a/test/ps/output/Golden.ScalarReplacement.Test/golden.ir b/test/ps/output/Golden.ScalarReplacement.Test/golden.ir
index 5a486538..1ce43cdb 100644
--- a/test/ps/output/Golden.ScalarReplacement.Test/golden.ir
+++ b/test/ps/output/Golden.ScalarReplacement.Test/golden.ir
@@ -112,17 +112,17 @@ UberModule
         ( Imported ( ModuleName "Golden.ScalarReplacement.Test" ) ( Name "defaults" ) )
       ),
       ( Name "chained", AbsN Nothing
-        ( ParamNamed Nothing ( Name "chained$p1$232" ) :| [] )
+        ( ParamNamed Nothing ( Name "chained$p1$227" ) :| [] )
         ( AbsN Nothing
-          ( ParamNamed Nothing ( Name "chained$p2$233" ) :| [] )
+          ( ParamNamed Nothing ( Name "chained$p2$228" ) :| [] )
           ( PrimBinOp Nothing PrimAdd
             ( PrimBinOp Nothing PrimAdd
-              ( Ref Nothing ( Local ( Name "chained$p1$232" ) ) )
-              ( Ref Nothing ( Local ( Name "chained$p2$233" ) ) )
+              ( Ref Nothing ( Local ( Name "chained$p1$227" ) ) )
+              ( Ref Nothing ( Local ( Name "chained$p2$228" ) ) )
             )
             ( PrimBinOp Nothing PrimAdd
-              ( Ref Nothing ( Local ( Name "chained$p1$232" ) ) )
-              ( Ref Nothing ( Local ( Name "chained$p2$233" ) ) )
+              ( Ref Nothing ( Local ( Name "chained$p1$227" ) ) )
+              ( Ref Nothing ( Local ( Name "chained$p2$228" ) ) )
             )
           )
         )
diff --git a/test/ps/output/Golden.SpecConstr.Test/golden.ir b/test/ps/output/Golden.SpecConstr.Test/golden.ir
index 24d295ec..3e46da59 100644
--- a/test/ps/output/Golden.SpecConstr.Test/golden.ir
+++ b/test/ps/output/Golden.SpecConstr.Test/golden.ir
@@ -132,7 +132,7 @@ UberModule
             ( ParamNamed Nothing ( Name "m" ) :| [] )
             ( Let Nothing
               ( Standalone
-                ( Nothing, Name "$cse502", DataArgumentByIndex Nothing SumType 0
+                ( Nothing, Name "$cse463", DataArgumentByIndex Nothing SumType 0
                   ( Ref Nothing ( Local ( Name "m" ) ) )
                 ) :| []
               )
@@ -144,7 +144,7 @@ UberModule
                 ( LiteralInt Nothing 0 )
                 ( IfThenElse Nothing
                   ( Eq Nothing
-                    ( Ref Nothing ( Local ( Name "$cse502" ) ) )
+                    ( Ref Nothing ( Local ( Name "$cse463" ) ) )
                     ( LiteralInt Nothing 0 )
                   )
                   ( LiteralInt Nothing 42 )
@@ -156,7 +156,7 @@ UberModule
                       )
                     )
                     ( PrimBinOp Nothing PrimSub
-                      ( Ref Nothing ( Local ( Name "$cse502" ) ) )
+                      ( Ref Nothing ( Local ( Name "$cse463" ) ) )
                       ( LiteralInt Nothing 1 ) :| []
                     )
                   )
@@ -202,31 +202,31 @@ UberModule
             ( ParamNamed Nothing ( Name "t" ) :| [] )
             ( Let Nothing
               ( Standalone
-                ( Nothing, Name "$cse504", DataArgumentByIndex Nothing ProductType 1
+                ( Nothing, Name "$cse465", DataArgumentByIndex Nothing ProductType 1
                   ( Ref Nothing ( Local ( Name "t" ) ) )
                 ) :| []
               )
               ( Let Nothing
                 ( Standalone
-                  ( Nothing, Name "$cse503", DataArgumentByIndex Nothing ProductType 0
+                  ( Nothing, Name "$cse464", DataArgumentByIndex Nothing ProductType 0
                     ( Ref Nothing ( Local ( Name "t" ) ) )
                   ) :| []
                 )
                 ( IfThenElse Nothing
                   ( Eq Nothing
-                    ( Ref Nothing ( Local ( Name "$cse503" ) ) )
+                    ( Ref Nothing ( Local ( Name "$cse464" ) ) )
                     ( LiteralInt Nothing 0 )
                   )
-                  ( Ref Nothing ( Local ( Name "$cse504" ) ) )
+                  ( Ref Nothing ( Local ( Name "$cse465" ) ) )
                   ( AppN Nothing
                     ( Ref Nothing
                       ( Imported ( ModuleName "Golden.SpecConstr.Test" ) ( Name "ping$sc1Tuple" ) )
                     )
                     ( PrimBinOp Nothing PrimSub
-                      ( Ref Nothing ( Local ( Name "$cse503" ) ) )
+                      ( Ref Nothing ( Local ( Name "$cse464" ) ) )
                       ( LiteralInt Nothing 1 ) :|
                       [ PrimBinOp Nothing PrimAdd
-                        ( Ref Nothing ( Local ( Name "$cse504" ) ) )
+                        ( Ref Nothing ( Local ( Name "$cse465" ) ) )
                         ( LiteralInt Nothing 2 )
                       ]
                     )
@@ -269,31 +269,31 @@ UberModule
             ( ParamNamed Nothing ( Name "t" ) :| [] )
             ( Let Nothing
               ( Standalone
-                ( Nothing, Name "$cse506", DataArgumentByIndex Nothing ProductType 1
+                ( Nothing, Name "$cse467", DataArgumentByIndex Nothing ProductType 1
                   ( Ref Nothing ( Local ( Name "t" ) ) )
                 ) :| []
               )
               ( Let Nothing
                 ( Standalone
-                  ( Nothing, Name "$cse505", DataArgumentByIndex Nothing ProductType 0
+                  ( Nothing, Name "$cse466", DataArgumentByIndex Nothing ProductType 0
                     ( Ref Nothing ( Local ( Name "t" ) ) )
                   ) :| []
                 )
                 ( IfThenElse Nothing
                   ( Eq Nothing
-                    ( Ref Nothing ( Local ( Name "$cse505" ) ) )
+                    ( Ref Nothing ( Local ( Name "$cse466" ) ) )
                     ( LiteralInt Nothing 0 )
                   )
-                  ( Ref Nothing ( Local ( Name "$cse506" ) ) )
+                  ( Ref Nothing ( Local ( Name "$cse467" ) ) )
                   ( AppN Nothing
                     ( Ref Nothing
                       ( Imported ( ModuleName "Golden.SpecConstr.Test" ) ( Name "pong$sc1Tuple" ) )
                     )
                     ( PrimBinOp Nothing PrimSub
-                      ( Ref Nothing ( Local ( Name "$cse505" ) ) )
+                      ( Ref Nothing ( Local ( Name "$cse466" ) ) )
                       ( LiteralInt Nothing 1 ) :|
                       [ PrimBinOp Nothing PrimAdd
-                        ( Ref Nothing ( Local ( Name "$cse506" ) ) )
+                        ( Ref Nothing ( Local ( Name "$cse467" ) ) )
                         ( LiteralInt Nothing 1 )
                       ]
                     )
@@ -407,23 +407,23 @@ UberModule
                   [ Let Nothing
                     ( RecursiveGroup
                       (
-                        ( Nothing, Name "go$sc1Tuple$495", AbsN Nothing
+                        ( Nothing, Name "go$447$sc1Tuple", AbsN Nothing
                           ( ParamNamed Nothing
-                            ( Name "go$sc1Tuple$f1$496" ) :|
-                            [ ParamNamed Nothing ( Name "go$sc1Tuple$f2$497" ) ]
+                            ( Name "go$447$sc1Tuple$f1" ) :|
+                            [ ParamNamed Nothing ( Name "go$447$sc1Tuple$f2" ) ]
                           )
                           ( IfThenElse Nothing
                             ( PrimBinOp Nothing PrimLt
-                              ( Ref Nothing ( Local ( Name "go$sc1Tuple$f2$497" ) ) )
+                              ( Ref Nothing ( Local ( Name "go$447$sc1Tuple$f2" ) ) )
                               ( LiteralInt Nothing 5 )
                             )
                             ( AppN Nothing
-                              ( Ref Nothing ( Local ( Name "go$sc1Tuple$495" ) ) )
+                              ( Ref Nothing ( Local ( Name "go$447$sc1Tuple" ) ) )
                               ( PrimBinOp Nothing PrimAdd
-                                ( Ref Nothing ( Local ( Name "go$sc1Tuple$f1$496" ) ) )
-                                ( Ref Nothing ( Local ( Name "go$sc1Tuple$f2$497" ) ) ) :|
+                                ( Ref Nothing ( Local ( Name "go$447$sc1Tuple$f1" ) ) )
+                                ( Ref Nothing ( Local ( Name "go$447$sc1Tuple$f2" ) ) ) :|
                                 [ PrimBinOp Nothing PrimAdd
-                                  ( Ref Nothing ( Local ( Name "go$sc1Tuple$f2$497" ) ) )
+                                  ( Ref Nothing ( Local ( Name "go$447$sc1Tuple$f2" ) ) )
                                   ( LiteralInt Nothing 1 )
                                 ]
                               )
@@ -433,8 +433,8 @@ UberModule
                               ( TyName "Tuple" )
                               ( CtorName "Tuple" )
                               [ Ref Nothing
-                                ( Local ( Name "go$sc1Tuple$f1$496" ) ), Ref Nothing
-                                ( Local ( Name "go$sc1Tuple$f2$497" ) )
+                                ( Local ( Name "go$447$sc1Tuple$f1" ) ), Ref Nothing
+                                ( Local ( Name "go$447$sc1Tuple$f2" ) )
                               ]
                             )
                           )
@@ -442,7 +442,7 @@ UberModule
                       ) :| []
                     )
                     ( AppN Nothing
-                      ( Ref Nothing ( Local ( Name "go$sc1Tuple$495" ) ) )
+                      ( Ref Nothing ( Local ( Name "go$447$sc1Tuple" ) ) )
                       ( LiteralInt Nothing 0 :| [ LiteralInt Nothing 0 ] )
                     )
                   ]
diff --git a/test/ps/output/Golden.SpecConstr.Test/golden.lua b/test/ps/output/Golden.SpecConstr.Test/golden.lua
index cb50a782..77822df9 100644
--- a/test/ps/output/Golden.SpecConstr.Test/golden.lua
+++ b/test/ps/output/Golden.SpecConstr.Test/golden.lua
@@ -108,13 +108,13 @@ return (function()
       return "(Tuple " .. Data_Show_showIntImpl(v_S_0[1]) .. " " .. Data_Show_showIntImpl(v_S_0[2]) .. ")"
     end
   }, (function()
-    local go_S_sc1Tuple_S_f1_S_0, go_S_sc1Tuple_S_f2_S_0
-    go_S_sc1Tuple_S_f1_S_0, go_S_sc1Tuple_S_f2_S_0 = 0, 0
+    local go_S_0_S_sc1Tuple_S_f1, go_S_0_S_sc1Tuple_S_f2
+    go_S_0_S_sc1Tuple_S_f1, go_S_0_S_sc1Tuple_S_f2 = 0, 0
     while true do
-      if go_S_sc1Tuple_S_f2_S_0 < 5 then
-        go_S_sc1Tuple_S_f1_S_0, go_S_sc1Tuple_S_f2_S_0 = go_S_sc1Tuple_S_f1_S_0 + go_S_sc1Tuple_S_f2_S_0, go_S_sc1Tuple_S_f2_S_0 + 1
+      if go_S_0_S_sc1Tuple_S_f2 < 5 then
+        go_S_0_S_sc1Tuple_S_f1, go_S_0_S_sc1Tuple_S_f2 = go_S_0_S_sc1Tuple_S_f1 + go_S_0_S_sc1Tuple_S_f2, go_S_0_S_sc1Tuple_S_f2 + 1
       else
-        return { go_S_sc1Tuple_S_f1_S_0, go_S_sc1Tuple_S_f2_S_0 }
+        return { go_S_0_S_sc1Tuple_S_f1, go_S_0_S_sc1Tuple_S_f2 }
       end
     end
   end)())()
diff --git a/test/ps/output/Golden.StringCodePoints.Test/golden.ir b/test/ps/output/Golden.StringCodePoints.Test/golden.ir
index c11527e8..9899a8cb 100644
--- a/test/ps/output/Golden.StringCodePoints.Test/golden.ir
+++ b/test/ps/output/Golden.StringCodePoints.Test/golden.ir
@@ -168,28 +168,28 @@ UberModule
               )
             ),
             ( PropName "conj", AbsN Nothing
-              ( ParamNamed Nothing ( Name "b1$1503" ) :| [] )
+              ( ParamNamed Nothing ( Name "b1$1492" ) :| [] )
               ( AbsN Nothing
-                ( ParamNamed Nothing ( Name "b2$1504" ) :| [] )
+                ( ParamNamed Nothing ( Name "b2$1493" ) :| [] )
                 ( PrimBinOp Nothing PrimAnd
-                  ( Ref Nothing ( Local ( Name "b1$1503" ) ) )
-                  ( Ref Nothing ( Local ( Name "b2$1504" ) ) )
+                  ( Ref Nothing ( Local ( Name "b1$1492" ) ) )
+                  ( Ref Nothing ( Local ( Name "b2$1493" ) ) )
                 )
               )
             ),
             ( PropName "disj", AbsN Nothing
-              ( ParamNamed Nothing ( Name "b1$1501" ) :| [] )
+              ( ParamNamed Nothing ( Name "b1$1490" ) :| [] )
               ( AbsN Nothing
-                ( ParamNamed Nothing ( Name "b2$1502" ) :| [] )
+                ( ParamNamed Nothing ( Name "b2$1491" ) :| [] )
                 ( PrimBinOp Nothing PrimOr
-                  ( Ref Nothing ( Local ( Name "b1$1501" ) ) )
-                  ( Ref Nothing ( Local ( Name "b2$1502" ) ) )
+                  ( Ref Nothing ( Local ( Name "b1$1490" ) ) )
+                  ( Ref Nothing ( Local ( Name "b2$1491" ) ) )
                 )
               )
             ),
             ( PropName "not", AbsN Nothing
-              ( ParamNamed Nothing ( Name "b$1500" ) :| [] )
-              ( PrimNot Nothing ( Ref Nothing ( Local ( Name "b$1500" ) ) ) )
+              ( ParamNamed Nothing ( Name "b$1489" ) :| [] )
+              ( PrimNot Nothing ( Ref Nothing ( Local ( Name "b$1489" ) ) ) )
             )
           ]
         ) :| []
@@ -198,12 +198,12 @@ UberModule
         { qnameModuleName = ModuleName "Data.Eq", qnameName = Name "eqInt" }, LiteralObject Nothing
         [
           ( PropName "eq", AbsN Nothing
-            ( ParamNamed Nothing ( Name "r1$1496" ) :| [] )
+            ( ParamNamed Nothing ( Name "r1$1485" ) :| [] )
             ( AbsN Nothing
-              ( ParamNamed Nothing ( Name "r2$1497" ) :| [] )
+              ( ParamNamed Nothing ( Name "r2$1486" ) :| [] )
               ( Eq Nothing
-                ( Ref Nothing ( Local ( Name "r1$1496" ) ) )
-                ( Ref Nothing ( Local ( Name "r2$1497" ) ) )
+                ( Ref Nothing ( Local ( Name "r1$1485" ) ) )
+                ( Ref Nothing ( Local ( Name "r2$1486" ) ) )
               )
             )
           )
@@ -244,19 +244,19 @@ UberModule
         }, LiteralObject Nothing
         [
           ( PropName "compare", AbsN Nothing
-            ( ParamNamed Nothing ( Name "x$1480" ) :| [] )
+            ( ParamNamed Nothing ( Name "x$1469" ) :| [] )
             ( AbsN Nothing
-              ( ParamNamed Nothing ( Name "y$1481" ) :| [] )
+              ( ParamNamed Nothing ( Name "y$1470" ) :| [] )
               ( IfThenElse Nothing
                 ( PrimBinOp Nothing PrimLt
-                  ( Ref Nothing ( Local ( Name "x$1480" ) ) )
-                  ( Ref Nothing ( Local ( Name "y$1481" ) ) )
+                  ( Ref Nothing ( Local ( Name "x$1469" ) ) )
+                  ( Ref Nothing ( Local ( Name "y$1470" ) ) )
                 )
                 ( Ref Nothing ( Imported ( ModuleName "Data.Ordering" ) ( Name "LT" ) ) )
                 ( IfThenElse Nothing
                   ( Eq Nothing
-                    ( Ref Nothing ( Local ( Name "x$1480" ) ) )
-                    ( Ref Nothing ( Local ( Name "y$1481" ) ) )
+                    ( Ref Nothing ( Local ( Name "x$1469" ) ) )
+                    ( Ref Nothing ( Local ( Name "y$1470" ) ) )
                   )
                   ( Ref Nothing ( Imported ( ModuleName "Data.Ordering" ) ( Name "EQ" ) ) )
                   ( Ref Nothing ( Imported ( ModuleName "Data.Ordering" ) ( Name "GT" ) ) )
@@ -367,6 +367,24 @@ UberModule
         { qnameModuleName = ModuleName "Data.Enum", qnameName = Name "top1" }, Ref Nothing
         ( Imported ( ModuleName "Data.Bounded" ) ( Name "topChar" ) )
       ), Standalone
+      ( QName
+        { qnameModuleName = ModuleName "Data.String.CodePoints", qnameName = Name "add$w"
+        }, AbsN Nothing
+        ( ParamNamed Nothing ( Name "x$1627" ) :| [ ParamNamed Nothing ( Name "y$1628" ) ] )
+        ( PrimBinOp Nothing PrimAdd
+          ( Ref Nothing ( Local ( Name "x$1627" ) ) )
+          ( Ref Nothing ( Local ( Name "y$1628" ) ) )
+        )
+      ), Standalone
+      ( QName
+        { qnameModuleName = ModuleName "Data.String.CodePoints", qnameName = Name "sub$w"
+        }, AbsN Nothing
+        ( ParamNamed Nothing ( Name "x$1624" ) :| [ ParamNamed Nothing ( Name "y$1625" ) ] )
+        ( PrimBinOp Nothing PrimSub
+          ( Ref Nothing ( Local ( Name "x$1624" ) ) )
+          ( Ref Nothing ( Local ( Name "y$1625" ) ) )
+        )
+      ), Standalone
       ( QName
         { qnameModuleName = ModuleName "Data.String.CodePoints", qnameName = Name "conj"
         }, ObjectProp Nothing
@@ -444,7 +462,7 @@ UberModule
                     ( AppN Nothing
                       ( Let Nothing
                         ( Standalone
-                          ( Nothing, Name "x$1605", AppN Nothing
+                          ( Nothing, Name "x$1610", AppN Nothing
                             ( Ref Nothing
                               ( Imported ( ModuleName "Data.String.CodeUnits" ) ( Name "length" ) )
                             )
@@ -452,19 +470,19 @@ UberModule
                           ) :| []
                         )
                         ( AbsN Nothing
-                          ( ParamNamed Nothing ( Name "y$1606" ) :| [] )
+                          ( ParamNamed Nothing ( Name "y$1611" ) :| [] )
                           ( IfThenElse Nothing
                             ( PrimBinOp Nothing PrimLt
-                              ( Ref Nothing ( Local ( Name "x$1605" ) ) )
-                              ( Ref Nothing ( Local ( Name "y$1606" ) ) )
+                              ( Ref Nothing ( Local ( Name "x$1610" ) ) )
+                              ( Ref Nothing ( Local ( Name "y$1611" ) ) )
                             )
                             ( Ref Nothing
                               ( Imported ( ModuleName "Data.Ordering" ) ( Name "LT" ) )
                             )
                             ( IfThenElse Nothing
                               ( Eq Nothing
-                                ( Ref Nothing ( Local ( Name "x$1605" ) ) )
-                                ( Ref Nothing ( Local ( Name "y$1606" ) ) )
+                                ( Ref Nothing ( Local ( Name "x$1610" ) ) )
+                                ( Ref Nothing ( Local ( Name "y$1611" ) ) )
                               )
                               ( Ref Nothing
                                 ( Imported ( ModuleName "Data.Ordering" ) ( Name "EQ" ) )
@@ -551,7 +569,7 @@ UberModule
       ( QName
         { qnameModuleName = ModuleName "Data.String.CodePoints", qnameName = Name "fromCharCode"
         }, AbsN Nothing
-        ( ParamNamed Nothing ( Name "x$1731" ) :| [] )
+        ( ParamNamed Nothing ( Name "x$1604" ) :| [] )
         ( AppN Nothing
           ( ObjectProp Nothing
             ( Ref Nothing ( Imported ( ModuleName "Data.String.CodeUnits" ) ( Name "foreign" ) ) )
@@ -578,7 +596,7 @@ UberModule
                       ( Ref Nothing
                         ( Imported ( ModuleName "Data.Ord" ) ( Name "ordInt" ) ) :|
                         [ Ref Nothing
-                          ( Local ( Name "x$1731" ) ), AppN Nothing
+                          ( Local ( Name "x$1604" ) ), AppN Nothing
                           ( Ref Nothing
                             ( Imported ( ModuleName "Data.Enum" ) ( Name "toCharCode" ) )
                           )
@@ -596,7 +614,7 @@ UberModule
                     ( Ref Nothing
                       ( Imported ( ModuleName "Data.Ord" ) ( Name "ordInt" ) ) :|
                       [ Ref Nothing
-                        ( Local ( Name "x$1731" ) ), AppN Nothing
+                        ( Local ( Name "x$1604" ) ), AppN Nothing
                         ( Ref Nothing
                           ( Imported ( ModuleName "Data.Enum" ) ( Name "toCharCode" ) )
                         )
@@ -616,7 +634,7 @@ UberModule
                       ( Ref Nothing ( Imported ( ModuleName "Data.Enum" ) ( Name "foreign" ) ) )
                       ( PropName "fromCharCode" )
                     )
-                    ( Ref Nothing ( Local ( Name "x$1731" ) ) :| [] )
+                    ( Ref Nothing ( Local ( Name "x$1604" ) ) :| [] )
                   ]
                 )
                 ( Ref Nothing ( Imported ( ModuleName "Data.Maybe" ) ( Name "Nothing" ) ) )
@@ -634,7 +652,7 @@ UberModule
                   ( Ref Nothing
                     ( Imported ( ModuleName "Data.Ord" ) ( Name "ordInt" ) ) :|
                     [ Ref Nothing
-                      ( Local ( Name "x$1731" ) ), AppN Nothing
+                      ( Local ( Name "x$1604" ) ), AppN Nothing
                       ( Ref Nothing ( Imported ( ModuleName "Data.Enum" ) ( Name "toCharCode" ) ) )
                       ( Ref Nothing
                         ( Imported ( ModuleName "Data.Bounded" ) ( Name "bottomChar" ) ) :| []
@@ -672,7 +690,10 @@ UberModule
               ( Ref Nothing
                 ( Imported ( ModuleName "Data.String.CodePoints" ) ( Name "fromCharCode" ) )
               )
-              ( PrimBinOp Nothing PrimAdd
+              ( AppN Nothing
+                ( Ref Nothing
+                  ( Imported ( ModuleName "Data.String.CodePoints" ) ( Name "add$w" ) )
+                )
                 ( AppN Nothing
                   ( AppN Nothing
                     ( ObjectProp Nothing
@@ -681,21 +702,26 @@ UberModule
                       )
                       ( PropName "intDiv" )
                     )
-                    ( PrimBinOp Nothing PrimSub
-                      ( Ref Nothing ( Local ( Name "v" ) ) )
-                      ( LiteralInt Nothing 65536 ) :| []
+                    ( AppN Nothing
+                      ( Ref Nothing
+                        ( Imported ( ModuleName "Data.String.CodePoints" ) ( Name "sub$w" ) )
+                      )
+                      ( Ref Nothing ( Local ( Name "v" ) ) :| [ LiteralInt Nothing 65536 ] ) :| []
                     )
                   )
-                  ( LiteralInt Nothing 1024 :| [] )
-                )
-                ( LiteralInt Nothing 55296 ) :| []
+                  ( LiteralInt Nothing 1024 :| [] ) :|
+                  [ LiteralInt Nothing 55296 ]
+                ) :| []
               )
             )
             ( AppN Nothing
               ( Ref Nothing
                 ( Imported ( ModuleName "Data.String.CodePoints" ) ( Name "fromCharCode" ) )
               )
-              ( PrimBinOp Nothing PrimAdd
+              ( AppN Nothing
+                ( Ref Nothing
+                  ( Imported ( ModuleName "Data.String.CodePoints" ) ( Name "add$w" ) )
+                )
                 ( AppN Nothing
                   ( AppN Nothing
                     ( ObjectProp Nothing
@@ -704,14 +730,16 @@ UberModule
                       )
                       ( PropName "intMod" )
                     )
-                    ( PrimBinOp Nothing PrimSub
-                      ( Ref Nothing ( Local ( Name "v" ) ) )
-                      ( LiteralInt Nothing 65536 ) :| []
+                    ( AppN Nothing
+                      ( Ref Nothing
+                        ( Imported ( ModuleName "Data.String.CodePoints" ) ( Name "sub$w" ) )
+                      )
+                      ( Ref Nothing ( Local ( Name "v" ) ) :| [ LiteralInt Nothing 65536 ] ) :| []
                     )
                   )
-                  ( LiteralInt Nothing 1024 :| [] )
-                )
-                ( LiteralInt Nothing 56320 ) :| []
+                  ( LiteralInt Nothing 1024 :| [] ) :|
+                  [ LiteralInt Nothing 56320 ]
+                ) :| []
               )
             )
           )
@@ -975,10 +1003,10 @@ UberModule
                           ( PropName "unfoldrArrayImpl" )
                         )
                         ( AbsN Nothing
-                          ( ParamNamed Nothing ( Name "v2$1529" ) :| [] )
+                          ( ParamNamed Nothing ( Name "v2$1518" ) :| [] )
                           ( Eq Nothing
                             ( LiteralString Nothing "Data.Maybe∷Maybe.Nothing" )
-                            ( ReflectCtor Nothing ( Ref Nothing ( Local ( Name "v2$1529" ) ) ) )
+                            ( ReflectCtor Nothing ( Ref Nothing ( Local ( Name "v2$1518" ) ) ) )
                           ) :| []
                         )
                       )
@@ -989,14 +1017,14 @@ UberModule
                         ( AbsN Nothing
                           ( ParamUnused Nothing :| [] )
                           ( AbsN Nothing
-                            ( ParamNamed Nothing ( Name "v$1579" ) :| [] )
+                            ( ParamNamed Nothing ( Name "v$1574" ) :| [] )
                             ( IfThenElse Nothing
                               ( Eq Nothing
                                 ( LiteralString Nothing "Data.Maybe∷Maybe.Just" )
-                                ( ReflectCtor Nothing ( Ref Nothing ( Local ( Name "v$1579" ) ) ) )
+                                ( ReflectCtor Nothing ( Ref Nothing ( Local ( Name "v$1574" ) ) ) )
                               )
                               ( DataArgumentByIndex Nothing SumType 0
-                                ( Ref Nothing ( Local ( Name "v$1579" ) ) )
+                                ( Ref Nothing ( Local ( Name "v$1574" ) ) )
                               )
                               ( Exception Nothing "No patterns matched" )
                             )
@@ -1005,16 +1033,16 @@ UberModule
                       )
                     )
                     ( AbsN Nothing
-                      ( ParamNamed Nothing ( Name "v$1527" ) :| [] )
+                      ( ParamNamed Nothing ( Name "v$1516" ) :| [] )
                       ( DataArgumentByIndex Nothing ProductType 0
-                        ( Ref Nothing ( Local ( Name "v$1527" ) ) )
+                        ( Ref Nothing ( Local ( Name "v$1516" ) ) )
                       ) :| []
                     )
                   )
                   ( AbsN Nothing
-                    ( ParamNamed Nothing ( Name "v$1528" ) :| [] )
+                    ( ParamNamed Nothing ( Name "v$1517" ) :| [] )
                     ( DataArgumentByIndex Nothing ProductType 1
-                      ( Ref Nothing ( Local ( Name "v$1528" ) ) )
+                      ( Ref Nothing ( Local ( Name "v$1517" ) ) )
                     ) :| []
                   )
                 )
@@ -1022,7 +1050,7 @@ UberModule
                   ( ParamNamed Nothing ( Name "s$8" ) :| [] )
                   ( Let Nothing
                     ( Standalone
-                      ( Nothing, Name "v1$1582", AppN Nothing
+                      ( Nothing, Name "v1$1577", AppN Nothing
                         ( Ref Nothing
                           ( Imported ( ModuleName "Data.String.CodePoints" ) ( Name "uncons" ) )
                         )
@@ -1032,7 +1060,7 @@ UberModule
                     ( IfThenElse Nothing
                       ( Eq Nothing
                         ( LiteralString Nothing "Data.Maybe∷Maybe.Just" )
-                        ( ReflectCtor Nothing ( Ref Nothing ( Local ( Name "v1$1582" ) ) ) )
+                        ( ReflectCtor Nothing ( Ref Nothing ( Local ( Name "v1$1577" ) ) ) )
                       )
                       ( Ctor Nothing SumType
                         ( ModuleName "Data.Maybe" )
@@ -1044,11 +1072,11 @@ UberModule
                           ( CtorName "Tuple" )
                           [ ObjectProp Nothing
                             ( DataArgumentByIndex Nothing SumType 0
-                              ( Ref Nothing ( Local ( Name "v1$1582" ) ) )
+                              ( Ref Nothing ( Local ( Name "v1$1577" ) ) )
                             )
                             ( PropName "head" ), ObjectProp Nothing
                             ( DataArgumentByIndex Nothing SumType 0
-                              ( Ref Nothing ( Local ( Name "v1$1582" ) ) )
+                              ( Ref Nothing ( Local ( Name "v1$1577" ) ) )
                             )
                             ( PropName "tail" )
                           ]
@@ -1303,7 +1331,7 @@ UberModule
               ( LiteralObject Nothing
                 [
                   ( PropName "succ", AbsN Nothing
-                    ( ParamNamed Nothing ( Name "a$1565" ) :| [] )
+                    ( ParamNamed Nothing ( Name "a$1560" ) :| [] )
                     ( AppN Nothing
                       ( ObjectProp Nothing
                         ( Ref Nothing
@@ -1325,14 +1353,14 @@ UberModule
                             )
                             ( PropName "fromEnum" )
                           )
-                          ( Ref Nothing ( Local ( Name "a$1565" ) ) :| [] )
+                          ( Ref Nothing ( Local ( Name "a$1560" ) ) :| [] )
                         )
                         ( LiteralInt Nothing 1 ) :| []
                       )
                     )
                   ),
                   ( PropName "pred", AbsN Nothing
-                    ( ParamNamed Nothing ( Name "a$1573" ) :| [] )
+                    ( ParamNamed Nothing ( Name "a$1568" ) :| [] )
                     ( AppN Nothing
                       ( ObjectProp Nothing
                         ( Ref Nothing
@@ -1354,7 +1382,7 @@ UberModule
                             )
                             ( PropName "fromEnum" )
                           )
-                          ( Ref Nothing ( Local ( Name "a$1573" ) ) :| [] )
+                          ( Ref Nothing ( Local ( Name "a$1568" ) ) :| [] )
                         )
                         ( LiteralInt Nothing 1 ) :| []
                       )
@@ -1408,20 +1436,44 @@ UberModule
           )
         ]
       ), Standalone
+      ( QName
+        { qnameModuleName = ModuleName "Golden.StringCodePoints.Test", qnameName = Name "logShow"
+        }, AbsN Nothing
+        ( ParamNamed Nothing ( Name "logShow$p2$1550" ) :| [] )
+        ( AppN Nothing
+          ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "logShow$w" ) ) )
+          ( Ref Nothing
+            ( Imported ( ModuleName "Golden.StringCodePoints.Test" ) ( Name "showArray" ) ) :|
+            [ Ref Nothing ( Local ( Name "logShow$p2$1550" ) ) ]
+          )
+        )
+      ), Standalone
+      ( QName
+        { qnameModuleName = ModuleName "Golden.StringCodePoints.Test", qnameName = Name "logShow1"
+        }, AbsN Nothing
+        ( ParamNamed Nothing ( Name "logShow$p2$1548" ) :| [] )
+        ( AppN Nothing
+          ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "logShow$w" ) ) )
+          ( Ref Nothing
+            ( Imported ( ModuleName "Data.Show" ) ( Name "showInt" ) ) :|
+            [ Ref Nothing ( Local ( Name "logShow$p2$1548" ) ) ]
+          )
+        )
+      ), Standalone
       ( QName
         { qnameModuleName = ModuleName "Golden.StringCodePoints.Test", qnameName = Name "logShow2"
         }, AbsN Nothing
-        ( ParamNamed Nothing ( Name "logShow$p2$1702" ) :| [] )
+        ( ParamNamed Nothing ( Name "logShow$p2$1546" ) :| [] )
         ( AppN Nothing
           ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "logShow$w" ) ) )
           ( LiteralObject Nothing
             [
               ( PropName "show", AbsN Nothing
-                ( ParamNamed Nothing ( Name "v$1696" ) :| [] )
+                ( ParamNamed Nothing ( Name "v$1537" ) :| [] )
                 ( IfThenElse Nothing
                   ( Eq Nothing
                     ( LiteralString Nothing "Data.Maybe∷Maybe.Just" )
-                    ( ReflectCtor Nothing ( Ref Nothing ( Local ( Name "v$1696" ) ) ) )
+                    ( ReflectCtor Nothing ( Ref Nothing ( Local ( Name "v$1537" ) ) ) )
                   )
                   ( PrimBinOp Nothing PrimConcat
                     ( LiteralString Nothing "(Just " )
@@ -1431,7 +1483,7 @@ UberModule
                           ( Imported ( ModuleName "Data.Show" ) ( Name "showIntImpl" ) )
                         )
                         ( DataArgumentByIndex Nothing SumType 0
-                          ( Ref Nothing ( Local ( Name "v$1696" ) ) ) :| []
+                          ( Ref Nothing ( Local ( Name "v$1537" ) ) ) :| []
                         )
                       )
                       ( LiteralString Nothing ")" )
@@ -1441,28 +1493,28 @@ UberModule
                 )
               )
             ] :|
-            [ Ref Nothing ( Local ( Name "logShow$p2$1702" ) ) ]
+            [ Ref Nothing ( Local ( Name "logShow$p2$1546" ) ) ]
           )
         )
       ), Standalone
       ( QName
         { qnameModuleName = ModuleName "Golden.StringCodePoints.Test", qnameName = Name "cp"
         }, AbsN Nothing
-        ( ParamNamed Nothing ( Name "x$1694" ) :| [] )
+        ( ParamNamed Nothing ( Name "x$1535" ) :| [] )
         ( AppN Nothing
           ( AppN Nothing
             ( Ref Nothing ( Imported ( ModuleName "Partial.Unsafe" ) ( Name "_unsafePartial" ) ) )
             ( AbsN Nothing
               ( ParamUnused Nothing :| [] )
               ( AbsN Nothing
-                ( ParamNamed Nothing ( Name "v$1537" ) :| [] )
+                ( ParamNamed Nothing ( Name "v$1531" ) :| [] )
                 ( IfThenElse Nothing
                   ( Eq Nothing
                     ( LiteralString Nothing "Data.Maybe∷Maybe.Just" )
-                    ( ReflectCtor Nothing ( Ref Nothing ( Local ( Name "v$1537" ) ) ) )
+                    ( ReflectCtor Nothing ( Ref Nothing ( Local ( Name "v$1531" ) ) ) )
                   )
                   ( DataArgumentByIndex Nothing SumType 0
-                    ( Ref Nothing ( Local ( Name "v$1537" ) ) )
+                    ( Ref Nothing ( Local ( Name "v$1531" ) ) )
                   )
                   ( Exception Nothing "No patterns matched" )
                 )
@@ -1476,14 +1528,14 @@ UberModule
               )
               ( PropName "toEnum" )
             )
-            ( Ref Nothing ( Local ( Name "x$1694" ) ) :| [] ) :| []
+            ( Ref Nothing ( Local ( Name "x$1535" ) ) :| [] ) :| []
           )
         )
       ), Standalone
       ( QName
         { qnameModuleName = ModuleName "Golden.StringCodePoints.Test", qnameName = Name "codes"
         }, AbsN Nothing
-        ( ParamNamed Nothing ( Name "x$1691" ) :| [] )
+        ( ParamNamed Nothing ( Name "x$1529" ) :| [] )
         ( AppN Nothing
           ( AppN Nothing
             ( ObjectProp Nothing
@@ -1498,7 +1550,7 @@ UberModule
             ( Ref Nothing
               ( Imported ( ModuleName "Data.String.CodePoints" ) ( Name "toCodePointArray" ) )
             )
-            ( Ref Nothing ( Local ( Name "x$1691" ) ) :| [] ) :| []
+            ( Ref Nothing ( Local ( Name "x$1529" ) ) :| [] ) :| []
           )
         )
       )
@@ -1514,18 +1566,14 @@ UberModule
           ( Standalone
             ( Nothing, Name "_", AppN Nothing
               ( AppN Nothing
-                ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "logShow$w" ) ) )
                 ( Ref Nothing
-                  ( Imported
-                    ( ModuleName "Golden.StringCodePoints.Test" )
-                    ( Name "showArray" )
-                  ) :|
-                  [ AppN Nothing
-                    ( Ref Nothing
-                      ( Imported ( ModuleName "Golden.StringCodePoints.Test" ) ( Name "codes" ) )
-                    )
-                    ( LiteralString Nothing "aéЯ𝐀z" :| [] )
-                  ]
+                  ( Imported ( ModuleName "Golden.StringCodePoints.Test" ) ( Name "logShow" ) )
+                )
+                ( AppN Nothing
+                  ( Ref Nothing
+                    ( Imported ( ModuleName "Golden.StringCodePoints.Test" ) ( Name "codes" ) )
+                  )
+                  ( LiteralString Nothing "aéЯ𝐀z" :| [] ) :| []
                 )
               )
               ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] )
@@ -1533,85 +1581,75 @@ UberModule
             [ Standalone
               ( Nothing, Name "_", AppN Nothing
                 ( AppN Nothing
-                  ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "logShow$w" ) ) )
                   ( Ref Nothing
-                    ( Imported ( ModuleName "Data.Show" ) ( Name "showInt" ) ) :|
-                    [ AppN Nothing
-                      ( ObjectProp Nothing
-                        ( Ref Nothing ( Imported ( ModuleName "Data.Array" ) ( Name "foreign" ) ) )
-                        ( PropName "length" )
-                      )
-                      ( AppN Nothing
-                        ( Ref Nothing
-                          ( Imported
-                            ( ModuleName "Data.String.CodePoints" )
-                            ( Name "toCodePointArray" )
-                          )
+                    ( Imported ( ModuleName "Golden.StringCodePoints.Test" ) ( Name "logShow1" ) )
+                  )
+                  ( AppN Nothing
+                    ( ObjectProp Nothing
+                      ( Ref Nothing ( Imported ( ModuleName "Data.Array" ) ( Name "foreign" ) ) )
+                      ( PropName "length" )
+                    )
+                    ( AppN Nothing
+                      ( Ref Nothing
+                        ( Imported
+                          ( ModuleName "Data.String.CodePoints" )
+                          ( Name "toCodePointArray" )
                         )
-                        ( LiteralString Nothing "aéЯ𝐀z" :| [] ) :| []
                       )
-                    ]
+                      ( LiteralString Nothing "aéЯ𝐀z" :| [] ) :| []
+                    ) :| []
                   )
                 )
                 ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] )
               ), Standalone
               ( Nothing, Name "_", AppN Nothing
                 ( AppN Nothing
-                  ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "logShow$w" ) ) )
                   ( Ref Nothing
-                    ( Imported ( ModuleName "Data.Show" ) ( Name "showInt" ) ) :|
-                    [ AppN Nothing
-                      ( Ref Nothing
-                        ( Imported ( ModuleName "Data.String.CodeUnits" ) ( Name "length" ) )
-                      )
-                      ( LiteralString Nothing "aéЯ𝐀z" :| [] )
-                    ]
+                    ( Imported ( ModuleName "Golden.StringCodePoints.Test" ) ( Name "logShow1" ) )
+                  )
+                  ( AppN Nothing
+                    ( Ref Nothing
+                      ( Imported ( ModuleName "Data.String.CodeUnits" ) ( Name "length" ) )
+                    )
+                    ( LiteralString Nothing "aéЯ𝐀z" :| [] ) :| []
                   )
                 )
                 ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] )
               ), Standalone
               ( Nothing, Name "_", AppN Nothing
                 ( AppN Nothing
-                  ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "logShow$w" ) ) )
                   ( Ref Nothing
-                    ( Imported
-                      ( ModuleName "Golden.StringCodePoints.Test" )
-                      ( Name "showArray" )
-                    ) :|
-                    [ AppN Nothing
+                    ( Imported ( ModuleName "Golden.StringCodePoints.Test" ) ( Name "logShow" ) )
+                  )
+                  ( AppN Nothing
+                    ( Ref Nothing
+                      ( Imported ( ModuleName "Golden.StringCodePoints.Test" ) ( Name "codes" ) )
+                    )
+                    ( AppN Nothing
                       ( Ref Nothing
-                        ( Imported ( ModuleName "Golden.StringCodePoints.Test" ) ( Name "codes" ) )
-                      )
-                      ( AppN Nothing
-                        ( Ref Nothing
-                          ( Imported ( ModuleName "Data.String.CodePoints" ) ( Name "take$w" ) )
-                        )
-                        ( LiteralInt Nothing 2 :| [ LiteralString Nothing "aéЯ𝐀z" ] ) :| []
+                        ( Imported ( ModuleName "Data.String.CodePoints" ) ( Name "take$w" ) )
                       )
-                    ]
+                      ( LiteralInt Nothing 2 :| [ LiteralString Nothing "aéЯ𝐀z" ] ) :| []
+                    ) :| []
                   )
                 )
                 ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] )
               ), Standalone
               ( Nothing, Name "_", AppN Nothing
                 ( AppN Nothing
-                  ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "logShow$w" ) ) )
                   ( Ref Nothing
-                    ( Imported
-                      ( ModuleName "Golden.StringCodePoints.Test" )
-                      ( Name "showArray" )
-                    ) :|
-                    [ AppN Nothing
+                    ( Imported ( ModuleName "Golden.StringCodePoints.Test" ) ( Name "logShow" ) )
+                  )
+                  ( AppN Nothing
+                    ( Ref Nothing
+                      ( Imported ( ModuleName "Golden.StringCodePoints.Test" ) ( Name "codes" ) )
+                    )
+                    ( AppN Nothing
                       ( Ref Nothing
-                        ( Imported ( ModuleName "Golden.StringCodePoints.Test" ) ( Name "codes" ) )
+                        ( Imported ( ModuleName "Data.String.CodePoints" ) ( Name "drop$w" ) )
                       )
-                      ( AppN Nothing
-                        ( Ref Nothing
-                          ( Imported ( ModuleName "Data.String.CodePoints" ) ( Name "drop$w" ) )
-                        )
-                        ( LiteralInt Nothing 2 :| [ LiteralString Nothing "aéЯ𝐀z" ] ) :| []
-                      )
-                    ]
+                      ( LiteralInt Nothing 2 :| [ LiteralString Nothing "aéЯ𝐀z" ] ) :| []
+                    ) :| []
                   )
                 )
                 ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] )
@@ -1623,7 +1661,7 @@ UberModule
                   )
                   ( Let Nothing
                     ( Standalone
-                      ( Nothing, Name "v1$1753", AppN Nothing
+                      ( Nothing, Name "v1$1686", AppN Nothing
                         ( Ref Nothing
                           ( Imported
                             ( ModuleName "Data.String.CodePoints" )
@@ -1636,7 +1674,7 @@ UberModule
                     ( IfThenElse Nothing
                       ( Eq Nothing
                         ( LiteralString Nothing "Data.Maybe∷Maybe.Just" )
-                        ( ReflectCtor Nothing ( Ref Nothing ( Local ( Name "v1$1753" ) ) ) )
+                        ( ReflectCtor Nothing ( Ref Nothing ( Local ( Name "v1$1686" ) ) ) )
                       )
                       ( Ctor Nothing SumType
                         ( ModuleName "Data.Maybe" )
@@ -1650,7 +1688,7 @@ UberModule
                             )
                           )
                           ( DataArgumentByIndex Nothing SumType 0
-                            ( Ref Nothing ( Local ( Name "v1$1753" ) ) ) :| []
+                            ( Ref Nothing ( Local ( Name "v1$1686" ) ) ) :| []
                           )
                         ]
                       )
@@ -1667,7 +1705,7 @@ UberModule
                   )
                   ( Let Nothing
                     ( Standalone
-                      ( Nothing, Name "v1$1755", AppN Nothing
+                      ( Nothing, Name "v1$1690", AppN Nothing
                         ( Ref Nothing
                           ( Imported
                             ( ModuleName "Data.String.CodePoints" )
@@ -1680,7 +1718,7 @@ UberModule
                     ( IfThenElse Nothing
                       ( Eq Nothing
                         ( LiteralString Nothing "Data.Maybe∷Maybe.Just" )
-                        ( ReflectCtor Nothing ( Ref Nothing ( Local ( Name "v1$1755" ) ) ) )
+                        ( ReflectCtor Nothing ( Ref Nothing ( Local ( Name "v1$1690" ) ) ) )
                       )
                       ( Ctor Nothing SumType
                         ( ModuleName "Data.Maybe" )
@@ -1694,7 +1732,7 @@ UberModule
                             )
                           )
                           ( DataArgumentByIndex Nothing SumType 0
-                            ( Ref Nothing ( Local ( Name "v1$1755" ) ) ) :| []
+                            ( Ref Nothing ( Local ( Name "v1$1690" ) ) ) :| []
                           )
                         ]
                       )
@@ -1711,7 +1749,7 @@ UberModule
                   )
                   ( Let Nothing
                     ( Standalone
-                      ( Nothing, Name "v1$1757", AppN Nothing
+                      ( Nothing, Name "v1$1694", AppN Nothing
                         ( Ref Nothing
                           ( Imported
                             ( ModuleName "Data.String.CodePoints" )
@@ -1724,7 +1762,7 @@ UberModule
                     ( IfThenElse Nothing
                       ( Eq Nothing
                         ( LiteralString Nothing "Data.Maybe∷Maybe.Just" )
-                        ( ReflectCtor Nothing ( Ref Nothing ( Local ( Name "v1$1757" ) ) ) )
+                        ( ReflectCtor Nothing ( Ref Nothing ( Local ( Name "v1$1694" ) ) ) )
                       )
                       ( Ctor Nothing SumType
                         ( ModuleName "Data.Maybe" )
@@ -1738,7 +1776,7 @@ UberModule
                             )
                           )
                           ( DataArgumentByIndex Nothing SumType 0
-                            ( Ref Nothing ( Local ( Name "v1$1757" ) ) ) :| []
+                            ( Ref Nothing ( Local ( Name "v1$1694" ) ) ) :| []
                           )
                         ]
                       )
@@ -1755,7 +1793,7 @@ UberModule
                   )
                   ( Let Nothing
                     ( Standalone
-                      ( Nothing, Name "v1$1762", AppN Nothing
+                      ( Nothing, Name "v1$1698", AppN Nothing
                         ( Ref Nothing
                           ( Imported ( ModuleName "Data.String.CodePoints" ) ( Name "uncons" ) )
                         )
@@ -1765,7 +1803,7 @@ UberModule
                     ( IfThenElse Nothing
                       ( Eq Nothing
                         ( LiteralString Nothing "Data.Maybe∷Maybe.Just" )
-                        ( ReflectCtor Nothing ( Ref Nothing ( Local ( Name "v1$1762" ) ) ) )
+                        ( ReflectCtor Nothing ( Ref Nothing ( Local ( Name "v1$1698" ) ) ) )
                       )
                       ( Ctor Nothing SumType
                         ( ModuleName "Data.Maybe" )
@@ -1780,7 +1818,7 @@ UberModule
                           )
                           ( ObjectProp Nothing
                             ( DataArgumentByIndex Nothing SumType 0
-                              ( Ref Nothing ( Local ( Name "v1$1762" ) ) )
+                              ( Ref Nothing ( Local ( Name "v1$1698" ) ) )
                             )
                             ( PropName "head" ) :| []
                           )
@@ -1798,11 +1836,11 @@ UberModule
                   ( LiteralObject Nothing
                     [
                       ( PropName "show", AbsN Nothing
-                        ( ParamNamed Nothing ( Name "v$1685" ) :| [] )
+                        ( ParamNamed Nothing ( Name "v$1705" ) :| [] )
                         ( IfThenElse Nothing
                           ( Eq Nothing
                             ( LiteralString Nothing "Data.Maybe∷Maybe.Just" )
-                            ( ReflectCtor Nothing ( Ref Nothing ( Local ( Name "v$1685" ) ) ) )
+                            ( ReflectCtor Nothing ( Ref Nothing ( Local ( Name "v$1705" ) ) ) )
                           )
                           ( PrimBinOp Nothing PrimConcat
                             ( LiteralString Nothing "(Just " )
@@ -1820,7 +1858,7 @@ UberModule
                                   )
                                 )
                                 ( DataArgumentByIndex Nothing SumType 0
-                                  ( Ref Nothing ( Local ( Name "v$1685" ) ) ) :| []
+                                  ( Ref Nothing ( Local ( Name "v$1705" ) ) ) :| []
                                 )
                               )
                               ( LiteralString Nothing ")" )
@@ -1832,7 +1870,7 @@ UberModule
                     ] :|
                     [ Let Nothing
                       ( Standalone
-                        ( Nothing, Name "v1$1771", AppN Nothing
+                        ( Nothing, Name "v1$1716", AppN Nothing
                           ( Ref Nothing
                             ( Imported ( ModuleName "Data.String.CodePoints" ) ( Name "uncons" ) )
                           )
@@ -1842,7 +1880,7 @@ UberModule
                       ( IfThenElse Nothing
                         ( Eq Nothing
                           ( LiteralString Nothing "Data.Maybe∷Maybe.Just" )
-                          ( ReflectCtor Nothing ( Ref Nothing ( Local ( Name "v1$1771" ) ) ) )
+                          ( ReflectCtor Nothing ( Ref Nothing ( Local ( Name "v1$1716" ) ) ) )
                         )
                         ( Ctor Nothing SumType
                           ( ModuleName "Data.Maybe" )
@@ -1857,7 +1895,7 @@ UberModule
                             )
                             ( ObjectProp Nothing
                               ( DataArgumentByIndex Nothing SumType 0
-                                ( Ref Nothing ( Local ( Name "v1$1771" ) ) )
+                                ( Ref Nothing ( Local ( Name "v1$1716" ) ) )
                               )
                               ( PropName "tail" ) :| []
                             )
@@ -1876,9 +1914,9 @@ UberModule
                   ( LiteralObject Nothing
                     [
                       ( PropName "show", AbsN Nothing
-                        ( ParamNamed Nothing ( Name "v$1236" ) :| [] )
+                        ( ParamNamed Nothing ( Name "v$1225" ) :| [] )
                         ( IfThenElse Nothing
-                          ( Ref Nothing ( Local ( Name "v$1236" ) ) )
+                          ( Ref Nothing ( Local ( Name "v$1225" ) ) )
                           ( LiteralString Nothing "true" )
                           ( LiteralString Nothing "false" )
                         )
@@ -1923,25 +1961,24 @@ UberModule
           )
           ( AppN Nothing
             ( AppN Nothing
-              ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "logShow$w" ) ) )
               ( Ref Nothing
-                ( Imported ( ModuleName "Golden.StringCodePoints.Test" ) ( Name "showArray" ) ) :|
-                [ AppN Nothing
+                ( Imported ( ModuleName "Golden.StringCodePoints.Test" ) ( Name "logShow" ) )
+              )
+              ( AppN Nothing
+                ( Ref Nothing
+                  ( Imported ( ModuleName "Golden.StringCodePoints.Test" ) ( Name "codes" ) )
+                )
+                ( AppN Nothing
                   ( Ref Nothing
-                    ( Imported ( ModuleName "Golden.StringCodePoints.Test" ) ( Name "codes" ) )
+                    ( Imported ( ModuleName "Data.String.CodePoints" ) ( Name "singleton" ) )
                   )
                   ( AppN Nothing
                     ( Ref Nothing
-                      ( Imported ( ModuleName "Data.String.CodePoints" ) ( Name "singleton" ) )
+                      ( Imported ( ModuleName "Golden.StringCodePoints.Test" ) ( Name "cp" ) )
                     )
-                    ( AppN Nothing
-                      ( Ref Nothing
-                        ( Imported ( ModuleName "Golden.StringCodePoints.Test" ) ( Name "cp" ) )
-                      )
-                      ( LiteralInt Nothing 119808 :| [] ) :| []
-                    ) :| []
-                  )
-                ]
+                    ( LiteralInt Nothing 119808 :| [] ) :| []
+                  ) :| []
+                ) :| []
               )
             )
             ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] )
diff --git a/test/ps/output/Golden.StringCodePoints.Test/golden.lua b/test/ps/output/Golden.StringCodePoints.Test/golden.lua
index e798fcc8..3c725336 100644
--- a/test/ps/output/Golden.StringCodePoints.Test/golden.lua
+++ b/test/ps/output/Golden.StringCodePoints.Test/golden.lua
@@ -310,16 +310,22 @@ local Data_Maybe_Just = function(value0)
 end
 local Data_Enum_bottom1 = Data_Bounded_bottomChar
 local Data_Enum_top1 = Data_Bounded_topChar
+local Data_String_CodePoints_add_S_w = function(x_S_1, y_S_1)
+  return x_S_1 + y_S_1
+end
+local Data_String_CodePoints_sub_S_w = function(x_S_2, y_S_2)
+  return x_S_2 - y_S_2
+end
 local Data_String_CodePoints_conj = Data_HeytingAlgebra_heytingAlgebraBoolean.conj
 local Data_String_CodePoints_fromEnum = Data_Enum_toCharCode
 local Data_String_CodePoints_unsafeCodePointAt0 = Data_String_CodePoints_foreign._unsafeCodePointAt0(function( s_S_0 )
   local cu0_S_0 = Data_String_CodePoints_fromEnum(Data_String_Unsafe_charAt(0)(s_S_0))
   if Data_String_CodePoints_conj(Data_String_CodePoints_conj(Data_Ord_lessThanOrEq_S_w(Data_Ord_ordInt, 55296, cu0_S_0))(Data_Ord_lessThanOrEq_S_w(Data_Ord_ordInt, cu0_S_0, 56319)))("Data.Ordering∷Ordering.GT" == ((function(  )
-    local x_S_1 = Data_String_CodeUnits_length(s_S_0)
-    local y_S_1 = 1
-    if x_S_1 < y_S_1 then
+    local x_S_3 = Data_String_CodeUnits_length(s_S_0)
+    local y_S_3 = 1
+    if x_S_3 < y_S_3 then
       return Data_Ordering_LT
-    elseif x_S_1 == y_S_1 then
+    elseif x_S_3 == y_S_3 then
       return Data_Ordering_EQ
     else
       return Data_Ordering_GT
@@ -335,13 +341,13 @@ local Data_String_CodePoints_unsafeCodePointAt0 = Data_String_CodePoints_foreign
     return cu0_S_0
   end
 end)
-local Data_String_CodePoints_fromCharCode = function(x_S_2)
+local Data_String_CodePoints_fromCharCode = function(x_S_4)
   return Data_String_CodeUnits_foreign.singleton((function()
     local v_S_0 = (function()
-      if Data_HeytingAlgebra_heytingAlgebraBoolean.conj(Data_Ord_greaterThanOrEq_S_w(Data_Ord_ordInt, x_S_2, Data_Enum_toCharCode(Data_Enum_bottom1)))(Data_Ord_lessThanOrEq_S_w(Data_Ord_ordInt, x_S_2, Data_Enum_toCharCode(Data_Enum_top1))) then
+      if Data_HeytingAlgebra_heytingAlgebraBoolean.conj(Data_Ord_greaterThanOrEq_S_w(Data_Ord_ordInt, x_S_4, Data_Enum_toCharCode(Data_Enum_bottom1)))(Data_Ord_lessThanOrEq_S_w(Data_Ord_ordInt, x_S_4, Data_Enum_toCharCode(Data_Enum_top1))) then
         return {
           "Data.Maybe∷Maybe.Just",
-          (Data_Enum_foreign.fromCharCode(x_S_2))
+          (Data_Enum_foreign.fromCharCode(x_S_4))
         }
       else
         return Data_Maybe_Nothing
@@ -349,7 +355,7 @@ local Data_String_CodePoints_fromCharCode = function(x_S_2)
     end)()
     if "Data.Maybe∷Maybe.Just" == v_S_0[1] then
       return v_S_0[2]
-    elseif Data_Ord_lessThan_S_w(Data_Ord_ordInt, x_S_2, Data_Enum_toCharCode(Data_Bounded_bottomChar)) then
+    elseif Data_Ord_lessThan_S_w(Data_Ord_ordInt, x_S_4, Data_Enum_toCharCode(Data_Bounded_bottomChar)) then
       return Data_Bounded_bottomChar
     else
       return Data_Bounded_topChar
@@ -360,7 +366,7 @@ local Data_String_CodePoints_singletonFallback = function(v)
   if Data_Ord_lessThanOrEq_S_w(Data_Ord_ordInt, v, 65535) then
     return Data_String_CodePoints_fromCharCode(v)
   else
-    return Data_String_CodePoints_fromCharCode(Data_EuclideanRing_foreign.intDiv(v - 65536)(1024) + 55296) .. Data_String_CodePoints_fromCharCode(Data_EuclideanRing_foreign.intMod(v - 65536)(1024) + 56320)
+    return Data_String_CodePoints_fromCharCode(Data_String_CodePoints_add_S_w(Data_EuclideanRing_foreign.intDiv(Data_String_CodePoints_sub_S_w(v, 65536))(1024), 55296)) .. Data_String_CodePoints_fromCharCode(Data_String_CodePoints_add_S_w(Data_EuclideanRing_foreign.intMod(Data_String_CodePoints_sub_S_w(v, 65536))(1024), 56320))
   end
 end
 local Data_String_CodePoints_singleton = Data_String_CodePoints_foreign._singleton(Data_String_CodePoints_singletonFallback)
@@ -378,7 +384,7 @@ local Data_String_CodePoints_ordCodePoint = {
   end,
   Eq0 = function()
     return {
-      eq = function(x_S_3) return function(y_S_2) return x_S_3 == y_S_2 end end
+      eq = function(x_S_5) return function(y_S_4) return x_S_5 == y_S_4 end end
     }
   end
 }
@@ -515,7 +521,13 @@ local Golden_StringCodePoints_Test_fromEnum = Data_String_CodePoints_boundedEnum
 local Golden_StringCodePoints_Test_showArray = {
   show = Data_Show_showArrayImpl(Data_Show_showIntImpl)
 }
-local Golden_StringCodePoints_Test_logShow2 = function(logShow_S_p2_S_0)
+local Golden_StringCodePoints_Test_logShow = function(logShow_S_p2_S_0)
+  return Effect_Console_logShow_S_w(Golden_StringCodePoints_Test_showArray, logShow_S_p2_S_0)
+end
+local Golden_StringCodePoints_Test_logShow1 = function(logShow_S_p2_S_1)
+  return Effect_Console_logShow_S_w(Data_Show_showInt, logShow_S_p2_S_1)
+end
+local Golden_StringCodePoints_Test_logShow2 = function(logShow_S_p2_S_2)
   return Effect_Console_logShow_S_w({
     show = function(v_S_4)
       if "Data.Maybe∷Maybe.Just" == v_S_4[1] then
@@ -524,9 +536,9 @@ local Golden_StringCodePoints_Test_logShow2 = function(logShow_S_p2_S_0)
         return "Nothing"
       end
     end
-  }, logShow_S_p2_S_0)
+  }, logShow_S_p2_S_2)
 end
-local Golden_StringCodePoints_Test_cp = function(x_S_4)
+local Golden_StringCodePoints_Test_cp = function(x_S_6)
   return Partial_Unsafe__unsafePartial(function()
     return function(v_S_5)
       if "Data.Maybe∷Maybe.Just" == v_S_5[1] then
@@ -535,17 +547,17 @@ local Golden_StringCodePoints_Test_cp = function(x_S_4)
         return error("No patterns matched")
       end
     end
-  end)(Data_String_CodePoints_boundedEnumCodePoint.toEnum(x_S_4))
+  end)(Data_String_CodePoints_boundedEnumCodePoint.toEnum(x_S_6))
 end
-local Golden_StringCodePoints_Test_codes = function(x_S_5)
-  return Data_Functor_foreign.arrayMap(Golden_StringCodePoints_Test_fromEnum)(Data_String_CodePoints_toCodePointArray(x_S_5))
+local Golden_StringCodePoints_Test_codes = function(x_S_7)
+  return Data_Functor_foreign.arrayMap(Golden_StringCodePoints_Test_fromEnum)(Data_String_CodePoints_toCodePointArray(x_S_7))
 end
 return (function()
-  local _ = Effect_Console_logShow_S_w(Golden_StringCodePoints_Test_showArray, Golden_StringCodePoints_Test_codes("aéЯ𝐀z"))()
-  local _ = Effect_Console_logShow_S_w(Data_Show_showInt, Data_Array_foreign.length(Data_String_CodePoints_toCodePointArray("aéЯ𝐀z")))()
-  local _ = Effect_Console_logShow_S_w(Data_Show_showInt, Data_String_CodeUnits_length("aéЯ𝐀z"))()
-  local _ = Effect_Console_logShow_S_w(Golden_StringCodePoints_Test_showArray, Golden_StringCodePoints_Test_codes(Data_String_CodePoints_take_S_w(2, "aéЯ𝐀z")))()
-  local _ = Effect_Console_logShow_S_w(Golden_StringCodePoints_Test_showArray, Golden_StringCodePoints_Test_codes(Data_String_CodePoints_drop_S_w(2, "aéЯ𝐀z")))()
+  local _ = Golden_StringCodePoints_Test_logShow(Golden_StringCodePoints_Test_codes("aéЯ𝐀z"))()
+  local _ = Golden_StringCodePoints_Test_logShow1(Data_Array_foreign.length(Data_String_CodePoints_toCodePointArray("aéЯ𝐀z")))()
+  local _ = Golden_StringCodePoints_Test_logShow1(Data_String_CodeUnits_length("aéЯ𝐀z"))()
+  local _ = Golden_StringCodePoints_Test_logShow(Golden_StringCodePoints_Test_codes(Data_String_CodePoints_take_S_w(2, "aéЯ𝐀z")))()
+  local _ = Golden_StringCodePoints_Test_logShow(Golden_StringCodePoints_Test_codes(Data_String_CodePoints_drop_S_w(2, "aéЯ𝐀z")))()
   local _ = Golden_StringCodePoints_Test_logShow2((function()
     local v1_S_1 = Data_String_CodePoints_codePointAt_S_w(0, "aéЯ𝐀z")
     if "Data.Maybe∷Maybe.Just" == v1_S_1[1] then
@@ -614,5 +626,5 @@ return (function()
       if v_S_7 then return "true" else return "false" end
     end
   }, Data_String_CodePoints_foreign._fromCodePointArray(Data_String_CodePoints_singletonFallback)(Data_String_CodePoints_toCodePointArray("aéЯ𝐀z")) == "aéЯ𝐀z")()
-  return Effect_Console_logShow_S_w(Golden_StringCodePoints_Test_showArray, Golden_StringCodePoints_Test_codes(Data_String_CodePoints_singleton(Golden_StringCodePoints_Test_cp(119808))))()
+  return Golden_StringCodePoints_Test_logShow(Golden_StringCodePoints_Test_codes(Data_String_CodePoints_singleton(Golden_StringCodePoints_Test_cp(119808))))()
 end)()
diff --git a/test/ps/output/Golden.TailRecM2Shadow.Test/golden.ir b/test/ps/output/Golden.TailRecM2Shadow.Test/golden.ir
index 1ea39325..fc000629 100644
--- a/test/ps/output/Golden.TailRecM2Shadow.Test/golden.ir
+++ b/test/ps/output/Golden.TailRecM2Shadow.Test/golden.ir
@@ -13,11 +13,6 @@ UberModule
         ( ModuleName "Effect" ) ".spago/p/effect/82bac3dff904fa34534c4f5b9deeb5da359471c8/src/Effect.purs"
         [ ( Nothing, Name "pureE" ), ( Nothing, Name "bindE" ), ( Nothing, Name "untilE" ) ]
       ), Standalone
-      ( QName
-        { qnameModuleName = ModuleName "Effect", qnameName = Name "bindE" }, ObjectProp Nothing
-        ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "foreign" ) ) )
-        ( PropName "bindE" )
-      ), Standalone
       ( QName
         { qnameModuleName = ModuleName "Effect", qnameName = Name "pureE" }, ObjectProp Nothing
         ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "foreign" ) ) )
@@ -66,8 +61,9 @@ UberModule
             { qnameModuleName = ModuleName "Effect", qnameName = Name "bindEffect"
             }, LiteralObject Nothing
             [
-              ( PropName "bind", Ref Nothing
-                ( Imported ( ModuleName "Effect" ) ( Name "bindE" ) )
+              ( PropName "bind", ObjectProp Nothing
+                ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "foreign" ) ) )
+                ( PropName "bindE" )
               ),
               ( PropName "Apply0", AbsN Nothing
                 ( ParamUnused Nothing :| [] )
@@ -106,9 +102,9 @@ UberModule
               ( LiteralObject Nothing
                 [
                   ( PropName "map", AbsN Nothing
-                    ( ParamNamed Nothing ( Name "f$238" ) :| [] )
+                    ( ParamNamed Nothing ( Name "f$498" ) :| [] )
                     ( AbsN Nothing
-                      ( ParamNamed Nothing ( Name "a$239" ) :| [] )
+                      ( ParamNamed Nothing ( Name "a$499" ) :| [] )
                       ( AppN Nothing
                         ( AppN Nothing
                           ( ObjectProp Nothing
@@ -126,11 +122,16 @@ UberModule
                             ( PropName "apply" )
                           )
                           ( AppN Nothing
-                            ( Ref Nothing ( Imported ( ModuleName "Effect" ) ( Name "pureE" ) ) )
-                            ( Ref Nothing ( Local ( Name "f$238" ) ) :| [] ) :| []
+                            ( ObjectProp Nothing
+                              ( Ref Nothing
+                                ( Imported ( ModuleName "Effect" ) ( Name "applicativeEffect" ) )
+                              )
+                              ( PropName "pure" )
+                            )
+                            ( Ref Nothing ( Local ( Name "f$498" ) ) :| [] ) :| []
                           )
                         )
-                        ( Ref Nothing ( Local ( Name "a$239" ) ) :| [] )
+                        ( Ref Nothing ( Local ( Name "a$499" ) ) :| [] )
                       )
                     )
                   )
@@ -151,7 +152,7 @@ UberModule
                 [
                   ( PropName "apply", Let Nothing
                     ( Standalone
-                      ( Nothing, Name "bind$221", ObjectProp Nothing
+                      ( Nothing, Name "bind$218", ObjectProp Nothing
                         ( AppN Nothing
                           ( ObjectProp Nothing
                             ( Ref Nothing
@@ -167,23 +168,23 @@ UberModule
                       ) :| []
                     )
                     ( AbsN Nothing
-                      ( ParamNamed Nothing ( Name "f$223" ) :| [] )
+                      ( ParamNamed Nothing ( Name "f$220" ) :| [] )
                       ( AbsN Nothing
-                        ( ParamNamed Nothing ( Name "a$224" ) :| [] )
+                        ( ParamNamed Nothing ( Name "a$221" ) :| [] )
                         ( AppN Nothing
                           ( AppN Nothing
-                            ( Ref Nothing ( Local ( Name "bind$221" ) ) )
-                            ( Ref Nothing ( Local ( Name "f$223" ) ) :| [] )
+                            ( Ref Nothing ( Local ( Name "bind$218" ) ) )
+                            ( Ref Nothing ( Local ( Name "f$220" ) ) :| [] )
                           )
                           ( AbsN Nothing
-                            ( ParamNamed Nothing ( Name "f'$225" ) :| [] )
+                            ( ParamNamed Nothing ( Name "f'$222" ) :| [] )
                             ( AppN Nothing
                               ( AppN Nothing
-                                ( Ref Nothing ( Local ( Name "bind$221" ) ) )
-                                ( Ref Nothing ( Local ( Name "a$224" ) ) :| [] )
+                                ( Ref Nothing ( Local ( Name "bind$218" ) ) )
+                                ( Ref Nothing ( Local ( Name "a$221" ) ) :| [] )
                               )
                               ( AbsN Nothing
-                                ( ParamNamed Nothing ( Name "a'$226" ) :| [] )
+                                ( ParamNamed Nothing ( Name "a'$223" ) :| [] )
                                 ( AppN Nothing
                                   ( ObjectProp Nothing
                                     ( AppN Nothing
@@ -206,8 +207,8 @@ UberModule
                                     ( PropName "pure" )
                                   )
                                   ( AppN Nothing
-                                    ( Ref Nothing ( Local ( Name "f'$225" ) ) )
-                                    ( Ref Nothing ( Local ( Name "a'$226" ) ) :| [] ) :| []
+                                    ( Ref Nothing ( Local ( Name "f'$222" ) ) )
+                                    ( Ref Nothing ( Local ( Name "a'$223" ) ) :| [] ) :| []
                                   )
                                 ) :| []
                               )
@@ -272,24 +273,24 @@ UberModule
                     ( PropName "tailRecM" )
                   )
                   ( AbsN Nothing
-                    ( ParamNamed Nothing ( Name "o$483" ) :| [] )
+                    ( ParamNamed Nothing ( Name "o$475" ) :| [] )
                     ( Let Nothing
                       ( Standalone
-                        ( Nothing, Name "$cse557", ObjectProp Nothing
-                          ( Ref Nothing ( Local ( Name "o$483" ) ) )
+                        ( Nothing, Name "$cse562", ObjectProp Nothing
+                          ( Ref Nothing ( Local ( Name "o$475" ) ) )
                           ( PropName "a" )
                         ) :| []
                       )
                       ( Let Nothing
                         ( Standalone
-                          ( Nothing, Name "$cse556", ObjectProp Nothing
-                            ( Ref Nothing ( Local ( Name "o$483" ) ) )
+                          ( Nothing, Name "$cse561", ObjectProp Nothing
+                            ( Ref Nothing ( Local ( Name "o$475" ) ) )
                             ( PropName "b" )
                           ) :| []
                         )
                         ( IfThenElse Nothing
                           ( PrimBinOp Nothing PrimLt
-                            ( Ref Nothing ( Local ( Name "$cse556" ) ) )
+                            ( Ref Nothing ( Local ( Name "$cse561" ) ) )
                             ( Ref Nothing ( Local ( Name "n" ) ) )
                           )
                           ( AppN Nothing
@@ -301,11 +302,11 @@ UberModule
                               [ LiteralObject Nothing
                                 [
                                   ( PropName "a", PrimBinOp Nothing PrimAdd
-                                    ( Ref Nothing ( Local ( Name "$cse557" ) ) )
-                                    ( Ref Nothing ( Local ( Name "$cse556" ) ) )
+                                    ( Ref Nothing ( Local ( Name "$cse562" ) ) )
+                                    ( Ref Nothing ( Local ( Name "$cse561" ) ) )
                                   ),
                                   ( PropName "b", PrimBinOp Nothing PrimAdd
-                                    ( Ref Nothing ( Local ( Name "$cse556" ) ) )
+                                    ( Ref Nothing ( Local ( Name "$cse561" ) ) )
                                     ( LiteralInt Nothing 1 )
                                   )
                                 ]
@@ -318,7 +319,7 @@ UberModule
                               ( ModuleName "Control.Monad.Rec.Class" )
                               ( TyName "Step" )
                               ( CtorName "Done" )
-                              [ Ref Nothing ( Local ( Name "$cse557" ) ) ] :| []
+                              [ Ref Nothing ( Local ( Name "$cse562" ) ) ] :| []
                             )
                           )
                         )
@@ -366,8 +367,14 @@ UberModule
                                   ( Nothing, Name "r$16", AppN Nothing
                                     ( AppN Nothing
                                       ( AppN Nothing
-                                        ( Ref Nothing
-                                          ( Imported ( ModuleName "Effect" ) ( Name "bindE" ) )
+                                        ( ObjectProp Nothing
+                                          ( Ref Nothing
+                                            ( Imported
+                                              ( ModuleName "Effect" )
+                                              ( Name "bindEffect" )
+                                            )
+                                          )
+                                          ( PropName "bind" )
                                         )
                                         ( AppN Nothing
                                           ( Ref Nothing ( Local ( Name "f$11" ) ) )
diff --git a/test/ps/output/Golden.TailRecM2Shadow.Test/golden.lua b/test/ps/output/Golden.TailRecM2Shadow.Test/golden.lua
index 57496f4d..20be183a 100644
--- a/test/ps/output/Golden.TailRecM2Shadow.Test/golden.lua
+++ b/test/ps/output/Golden.TailRecM2Shadow.Test/golden.lua
@@ -24,7 +24,6 @@ local Effect_foreign = {
   end,
   untilE = function(f) return function() while not(f()) do  end end end
 }
-local Effect_bindE = Effect_foreign.bindE
 local Effect_pureE = Effect_foreign.pureE
 local Effect_Ref_foreign = {
   _new = function(val) return function() return { value = val } end end,
@@ -46,7 +45,7 @@ local Effect_monadEffect = {
 }
 local Effect_Lazy_applyEffect
 Effect_bindEffect = {
-  bind = Effect_bindE,
+  bind = Effect_foreign.bindE,
   Apply0 = function() return Effect_Lazy_applyEffect(0) end
 }
 Effect_applicativeEffect = {
@@ -57,7 +56,7 @@ local Effect_Lazy_functorEffect = PSLUA_runtime_lazy("functorEffect")(function()
   return {
     map = function(f_S_0)
       return function(a_S_0)
-        return (Effect_applicativeEffect.Apply0()).apply(Effect_pureE(f_S_0))(a_S_0)
+        return (Effect_applicativeEffect.Apply0()).apply(Effect_applicativeEffect.pure(f_S_0))(a_S_0)
       end
     end
   }
@@ -104,7 +103,7 @@ return (function()
     tailRecM = function(f_S_2)
       return function(a_S_2)
         return function()
-          local r_S_0 = Effect_bindE(f_S_2(a_S_2))(Effect_Ref_foreign._new)()
+          local r_S_0 = Effect_bindEffect.bind(f_S_2(a_S_2))(Effect_Ref_foreign._new)()
           local _ = Effect_foreign.untilE(function()
             local v0_S_0 = Effect_Ref_read(r_S_0)()
             if "Control.Monad.Rec.Class∷Step.Loop" == v0_S_0[1] then
diff --git a/test/ps/output/Golden.UncurriedLift.Test/golden.ir b/test/ps/output/Golden.UncurriedLift.Test/golden.ir
index 616e8fac..03d8d06c 100644
--- a/test/ps/output/Golden.UncurriedLift.Test/golden.ir
+++ b/test/ps/output/Golden.UncurriedLift.Test/golden.ir
@@ -34,34 +34,34 @@ UberModule
       ( QName
         { qnameModuleName = ModuleName "Golden.UncurriedLift.Test", qnameName = Name "sumST"
         }, AbsN Nothing
-        ( ParamNamed Nothing ( Name "a$707" ) :| [ ParamNamed Nothing ( Name "b$708" ) ] )
+        ( ParamNamed Nothing ( Name "a$699" ) :| [ ParamNamed Nothing ( Name "b$700" ) ] )
         ( PrimBinOp Nothing PrimAdd
-          ( Ref Nothing ( Local ( Name "a$707" ) ) )
-          ( Ref Nothing ( Local ( Name "b$708" ) ) )
+          ( Ref Nothing ( Local ( Name "a$699" ) ) )
+          ( Ref Nothing ( Local ( Name "b$700" ) ) )
         )
       ), Standalone
       ( QName
         { qnameModuleName = ModuleName "Golden.UncurriedLift.Test", qnameName = Name "mulByFn"
         }, AbsN Nothing
-        ( ParamNamed Nothing ( Name "a$698" ) :| [ ParamNamed Nothing ( Name "b$699" ) ] )
+        ( ParamNamed Nothing ( Name "a$690" ) :| [ ParamNamed Nothing ( Name "b$691" ) ] )
         ( PrimBinOp Nothing PrimMul
-          ( Ref Nothing ( Local ( Name "a$698" ) ) )
-          ( Ref Nothing ( Local ( Name "b$699" ) ) )
+          ( Ref Nothing ( Local ( Name "a$690" ) ) )
+          ( Ref Nothing ( Local ( Name "b$691" ) ) )
         )
       ), Standalone
       ( QName
         { qnameModuleName = ModuleName "Golden.UncurriedLift.Test", qnameName = Name "mul2"
         }, AbsN Nothing
-        ( ParamNamed Nothing ( Name "a$701" ) :| [ ParamNamed Nothing ( Name "b$702" ) ] )
+        ( ParamNamed Nothing ( Name "a$693" ) :| [ ParamNamed Nothing ( Name "b$694" ) ] )
         ( PrimBinOp Nothing PrimMul
-          ( Ref Nothing ( Local ( Name "a$701" ) ) )
-          ( Ref Nothing ( Local ( Name "b$702" ) ) )
+          ( Ref Nothing ( Local ( Name "a$693" ) ) )
+          ( Ref Nothing ( Local ( Name "b$694" ) ) )
         )
       ), Standalone
       ( QName
         { qnameModuleName = ModuleName "Golden.UncurriedLift.Test", qnameName = Name "logTwice"
         }, AbsN Nothing
-        ( ParamNamed Nothing ( Name "a$673" ) :| [ ParamNamed Nothing ( Name "b$674" ) ] )
+        ( ParamNamed Nothing ( Name "a$665" ) :| [ ParamNamed Nothing ( Name "b$666" ) ] )
         ( AppN Nothing
           ( AbsN Nothing
             ( ParamUnused Nothing :| [] )
@@ -70,7 +70,7 @@ UberModule
                 ( Nothing, Name "_", AppN Nothing
                   ( AppN Nothing
                     ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) )
-                    ( Ref Nothing ( Local ( Name "a$673" ) ) :| [] )
+                    ( Ref Nothing ( Local ( Name "a$665" ) ) :| [] )
                   )
                   ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] )
                 ) :| []
@@ -78,7 +78,7 @@ UberModule
               ( AppN Nothing
                 ( AppN Nothing
                   ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "log" ) ) )
-                  ( Ref Nothing ( Local ( Name "b$674" ) ) :| [] )
+                  ( Ref Nothing ( Local ( Name "b$666" ) ) :| [] )
                 )
                 ( Ref Nothing ( Imported ( ModuleName "Prim" ) ( Name "$magicDoRun" ) ) :| [] )
               )
@@ -91,24 +91,24 @@ UberModule
         { qnameModuleName = ModuleName "Golden.UncurriedLift.Test", qnameName = Name "add3"
         }, AbsN Nothing
         ( ParamNamed Nothing
-          ( Name "a$694" ) :|
-          [ ParamNamed Nothing ( Name "b$695" ), ParamNamed Nothing ( Name "c$696" ) ]
+          ( Name "a$686" ) :|
+          [ ParamNamed Nothing ( Name "b$687" ), ParamNamed Nothing ( Name "c$688" ) ]
         )
         ( PrimBinOp Nothing PrimAdd
           ( PrimBinOp Nothing PrimAdd
-            ( Ref Nothing ( Local ( Name "a$694" ) ) )
-            ( Ref Nothing ( Local ( Name "b$695" ) ) )
+            ( Ref Nothing ( Local ( Name "a$686" ) ) )
+            ( Ref Nothing ( Local ( Name "b$687" ) ) )
           )
-          ( Ref Nothing ( Local ( Name "c$696" ) ) )
+          ( Ref Nothing ( Local ( Name "c$688" ) ) )
         )
       ), Standalone
       ( QName
         { qnameModuleName = ModuleName "Golden.UncurriedLift.Test", qnameName = Name "addOnePlusTwoTo"
         }, AbsN Nothing
-        ( ParamNamed Nothing ( Name "c$682" ) :| [] )
+        ( ParamNamed Nothing ( Name "c$674" ) :| [] )
         ( PrimBinOp Nothing PrimAdd
           ( LiteralInt Nothing 3 )
-          ( Ref Nothing ( Local ( Name "c$682" ) ) )
+          ( Ref Nothing ( Local ( Name "c$674" ) ) )
         )
       )
     ], uberModuleForeigns = [], uberModuleExports =
diff --git a/test/ps/output/Golden.Uncurry.Test/golden.ir b/test/ps/output/Golden.Uncurry.Test/golden.ir
index c57ce290..c9f994af 100644
--- a/test/ps/output/Golden.Uncurry.Test/golden.ir
+++ b/test/ps/output/Golden.Uncurry.Test/golden.ir
@@ -188,10 +188,10 @@ UberModule
       ( QName
         { qnameModuleName = ModuleName "Golden.Uncurry.Test", qnameName = Name "inc"
         }, AbsN Nothing
-        ( ParamNamed Nothing ( Name "add3$p3$223" ) :| [] )
+        ( ParamNamed Nothing ( Name "add3$p3$217" ) :| [] )
         ( PrimBinOp Nothing PrimAdd
           ( LiteralInt Nothing 1 )
-          ( Ref Nothing ( Local ( Name "add3$p3$223" ) ) )
+          ( Ref Nothing ( Local ( Name "add3$p3$217" ) ) )
         )
       )
     ], uberModuleForeigns = [], uberModuleExports =
@@ -210,26 +210,26 @@ UberModule
         ( Imported ( ModuleName "Golden.Uncurry.Test" ) ( Name "sumTo" ) )
       ),
       ( Name "adderOf", AbsN Nothing
-        ( ParamNamed Nothing ( Name "adderOf$p1$215" ) :| [] )
+        ( ParamNamed Nothing ( Name "adderOf$p1$209" ) :| [] )
         ( AbsN Nothing
-          ( ParamNamed Nothing ( Name "adderOf$p2$216" ) :| [] )
+          ( ParamNamed Nothing ( Name "adderOf$p2$210" ) :| [] )
           ( AbsN Nothing
-            ( ParamNamed Nothing ( Name "y$298" ) :| [] )
+            ( ParamNamed Nothing ( Name "y$294" ) :| [] )
             ( PrimBinOp Nothing PrimAdd
               ( PrimBinOp Nothing PrimAdd
-                ( Ref Nothing ( Local ( Name "adderOf$p1$215" ) ) )
-                ( Ref Nothing ( Local ( Name "adderOf$p2$216" ) ) )
+                ( Ref Nothing ( Local ( Name "adderOf$p1$209" ) ) )
+                ( Ref Nothing ( Local ( Name "adderOf$p2$210" ) ) )
               )
-              ( Ref Nothing ( Local ( Name "y$298" ) ) )
+              ( Ref Nothing ( Local ( Name "y$294" ) ) )
             )
           )
         )
       ),
       ( Name "alwaysFirst", AbsN Nothing
-        ( ParamNamed Nothing ( Name "alwaysFirst$p1$217" ) :| [] )
+        ( ParamNamed Nothing ( Name "alwaysFirst$p1$211" ) :| [] )
         ( AbsN Nothing
           ( ParamUnused Nothing :| [] )
-          ( Ref Nothing ( Local ( Name "alwaysFirst$p1$217" ) ) )
+          ( Ref Nothing ( Local ( Name "alwaysFirst$p1$211" ) ) )
         )
       ),
       ( Name "main", AbsN Nothing
@@ -303,10 +303,10 @@ UberModule
                           ( PropName "arrayMap" )
                         )
                         ( AbsN Nothing
-                          ( ParamNamed Nothing ( Name "add3$p3$319" ) :| [] )
+                          ( ParamNamed Nothing ( Name "add3$p3$315" ) :| [] )
                           ( PrimBinOp Nothing PrimAdd
                             ( LiteralInt Nothing 3 )
-                            ( Ref Nothing ( Local ( Name "add3$p3$319" ) ) )
+                            ( Ref Nothing ( Local ( Name "add3$p3$315" ) ) )
                           ) :| []
                         )
                       )
@@ -356,24 +356,24 @@ UberModule
                     [ Let Nothing
                       ( RecursiveGroup
                         (
-                          ( Nothing, Name "go$w$326", AbsN Nothing
+                          ( Nothing, Name "go$w$322", AbsN Nothing
                             ( ParamNamed Nothing
-                              ( Name "acc$327" ) :|
-                              [ ParamNamed Nothing ( Name "n$328" ) ]
+                              ( Name "acc$323" ) :|
+                              [ ParamNamed Nothing ( Name "n$324" ) ]
                             )
                             ( IfThenElse Nothing
                               ( Eq Nothing
-                                ( Ref Nothing ( Local ( Name "n$328" ) ) )
+                                ( Ref Nothing ( Local ( Name "n$324" ) ) )
                                 ( LiteralInt Nothing 0 )
                               )
-                              ( Ref Nothing ( Local ( Name "acc$327" ) ) )
+                              ( Ref Nothing ( Local ( Name "acc$323" ) ) )
                               ( AppN Nothing
-                                ( Ref Nothing ( Local ( Name "go$w$326" ) ) )
+                                ( Ref Nothing ( Local ( Name "go$w$322" ) ) )
                                 ( PrimBinOp Nothing PrimAdd
-                                  ( Ref Nothing ( Local ( Name "acc$327" ) ) )
-                                  ( Ref Nothing ( Local ( Name "n$328" ) ) ) :|
+                                  ( Ref Nothing ( Local ( Name "acc$323" ) ) )
+                                  ( Ref Nothing ( Local ( Name "n$324" ) ) ) :|
                                   [ PrimBinOp Nothing PrimSub
-                                    ( Ref Nothing ( Local ( Name "n$328" ) ) )
+                                    ( Ref Nothing ( Local ( Name "n$324" ) ) )
                                     ( LiteralInt Nothing 1 )
                                   ]
                                 )
@@ -383,7 +383,7 @@ UberModule
                         ) :| []
                       )
                       ( AppN Nothing
-                        ( Ref Nothing ( Local ( Name "go$w$326" ) ) )
+                        ( Ref Nothing ( Local ( Name "go$w$322" ) ) )
                         ( LiteralInt Nothing 0 :| [ LiteralInt Nothing 10 ] )
                       )
                     ]
@@ -399,24 +399,24 @@ UberModule
                     [ Let Nothing
                       ( RecursiveGroup
                         (
-                          ( Nothing, Name "go$w$331", AbsN Nothing
+                          ( Nothing, Name "go$w$327", AbsN Nothing
                             ( ParamNamed Nothing
-                              ( Name "acc$332" ) :|
-                              [ ParamNamed Nothing ( Name "n$333" ) ]
+                              ( Name "acc$328" ) :|
+                              [ ParamNamed Nothing ( Name "n$329" ) ]
                             )
                             ( IfThenElse Nothing
                               ( Eq Nothing
-                                ( Ref Nothing ( Local ( Name "n$333" ) ) )
+                                ( Ref Nothing ( Local ( Name "n$329" ) ) )
                                 ( LiteralInt Nothing 0 )
                               )
-                              ( Ref Nothing ( Local ( Name "acc$332" ) ) )
+                              ( Ref Nothing ( Local ( Name "acc$328" ) ) )
                               ( AppN Nothing
-                                ( Ref Nothing ( Local ( Name "go$w$331" ) ) )
+                                ( Ref Nothing ( Local ( Name "go$w$327" ) ) )
                                 ( PrimBinOp Nothing PrimAdd
-                                  ( Ref Nothing ( Local ( Name "acc$332" ) ) )
-                                  ( Ref Nothing ( Local ( Name "n$333" ) ) ) :|
+                                  ( Ref Nothing ( Local ( Name "acc$328" ) ) )
+                                  ( Ref Nothing ( Local ( Name "n$329" ) ) ) :|
                                   [ PrimBinOp Nothing PrimSub
-                                    ( Ref Nothing ( Local ( Name "n$333" ) ) )
+                                    ( Ref Nothing ( Local ( Name "n$329" ) ) )
                                     ( LiteralInt Nothing 1 )
                                   ]
                                 )
@@ -426,7 +426,7 @@ UberModule
                         ) :| []
                       )
                       ( AppN Nothing
-                        ( Ref Nothing ( Local ( Name "go$w$331" ) ) )
+                        ( Ref Nothing ( Local ( Name "go$w$327" ) ) )
                         ( LiteralInt Nothing 0 :| [ LiteralInt Nothing 100 ] )
                       )
                     ]
diff --git a/test/ps/output/Golden.UncurryCtor.Test/golden.ir b/test/ps/output/Golden.UncurryCtor.Test/golden.ir
index f153ed66..196bd579 100644
--- a/test/ps/output/Golden.UncurryCtor.Test/golden.ir
+++ b/test/ps/output/Golden.UncurryCtor.Test/golden.ir
@@ -13,12 +13,6 @@ UberModule
         ( ModuleName "Data.Functor" ) ".spago/p/prelude/5718c84fdde6247749cb053e816df696c30fe691/src/Data/Functor.purs"
         [ ( Nothing, Name "arrayMap" ) ]
       ), Standalone
-      ( QName
-        { qnameModuleName = ModuleName "Data.Functor", qnameName = Name "arrayMap"
-        }, ObjectProp Nothing
-        ( Ref Nothing ( Imported ( ModuleName "Data.Functor" ) ( Name "foreign" ) ) )
-        ( PropName "arrayMap" )
-      ), Standalone
       ( QName
         { qnameModuleName = ModuleName "Effect.Console", qnameName = Name "foreign"
         }, ForeignImport Nothing
@@ -61,15 +55,21 @@ UberModule
       ( QName
         { qnameModuleName = ModuleName "Golden.UncurryCtor.Test", qnameName = Name "logShow"
         }, AbsN Nothing
-        ( ParamNamed Nothing ( Name "logShow$p2$326" ) :| [] )
+        ( ParamNamed Nothing ( Name "logShow$p2$319" ) :| [] )
         ( AppN Nothing
           ( Ref Nothing ( Imported ( ModuleName "Effect.Console" ) ( Name "logShow$w" ) ) )
           ( Ref Nothing
             ( Imported ( ModuleName "Data.Show" ) ( Name "showInt" ) ) :|
-            [ Ref Nothing ( Local ( Name "logShow$p2$326" ) ) ]
+            [ Ref Nothing ( Local ( Name "logShow$p2$319" ) ) ]
           )
         )
       ), Standalone
+      ( QName
+        { qnameModuleName = ModuleName "Golden.UncurryCtor.Test", qnameName = Name "map"
+        }, ObjectProp Nothing
+        ( Ref Nothing ( Imported ( ModuleName "Data.Functor" ) ( Name "foreign" ) ) )
+        ( PropName "arrayMap" )
+      ), Standalone
       ( QName
         { qnameModuleName = ModuleName "Golden.UncurryCtor.Test", qnameName = Name "Origin"
         }, Ctor Nothing SumType
@@ -290,31 +290,31 @@ UberModule
         ( ParamNamed Nothing ( Name "v" ) :| [] )
         ( Let Nothing
           ( Standalone
-            ( Nothing, Name "$cse434", DataArgumentByIndex Nothing SumType 0
+            ( Nothing, Name "$cse430", DataArgumentByIndex Nothing SumType 0
               ( Ref Nothing ( Local ( Name "v" ) ) )
             ) :| []
           )
           ( Let Nothing
             ( Standalone
-              ( Nothing, Name "$cse433", ReflectCtor Nothing
+              ( Nothing, Name "$cse429", ReflectCtor Nothing
                 ( Ref Nothing ( Local ( Name "v" ) ) )
               ) :| []
             )
             ( IfThenElse Nothing
               ( Eq Nothing
                 ( LiteralString Nothing "Golden.UncurryCtor.Test∷Shape.Origin" )
-                ( Ref Nothing ( Local ( Name "$cse433" ) ) )
+                ( Ref Nothing ( Local ( Name "$cse429" ) ) )
               )
               ( LiteralInt Nothing 0 )
               ( IfThenElse Nothing
                 ( Eq Nothing
                   ( LiteralString Nothing "Golden.UncurryCtor.Test∷Shape.Dot" )
-                  ( Ref Nothing ( Local ( Name "$cse433" ) ) )
+                  ( Ref Nothing ( Local ( Name "$cse429" ) ) )
                 )
-                ( Ref Nothing ( Local ( Name "$cse434" ) ) )
+                ( Ref Nothing ( Local ( Name "$cse430" ) ) )
                 ( PrimBinOp Nothing PrimAdd
                   ( PrimBinOp Nothing PrimAdd
-                    ( Ref Nothing ( Local ( Name "$cse434" ) ) )
+                    ( Ref Nothing ( Local ( Name "$cse430" ) ) )
                     ( DataArgumentByIndex Nothing SumType 1 ( Ref Nothing ( Local ( Name "v" ) ) ) )
                   )
                   ( DataArgumentByIndex Nothing SumType 2 ( Ref Nothing ( Local ( Name "v" ) ) ) )
@@ -336,14 +336,14 @@ UberModule
         ( Imported ( ModuleName "Golden.UncurryCtor.Test" ) ( Name "Tri" ) )
       ),
       ( Name "Pair", AbsN Nothing
-        ( ParamNamed Nothing ( Name "Pair$p1$323" ) :| [] )
+        ( ParamNamed Nothing ( Name "Pair$p1$316" ) :| [] )
         ( AbsN Nothing
-          ( ParamNamed Nothing ( Name "Pair$p2$324" ) :| [] )
+          ( ParamNamed Nothing ( Name "Pair$p2$317" ) :| [] )
           ( AppN Nothing
             ( Ref Nothing ( Imported ( ModuleName "Golden.UncurryCtor.Test" ) ( Name "Pair$w" ) ) )
             ( Ref Nothing
-              ( Local ( Name "Pair$p1$323" ) ) :|
-              [ Ref Nothing ( Local ( Name "Pair$p2$324" ) ) ]
+              ( Local ( Name "Pair$p1$316" ) ) :|
+              [ Ref Nothing ( Local ( Name "Pair$p2$317" ) ) ]
             )
           )
         )
@@ -356,14 +356,14 @@ UberModule
         ( Imported ( ModuleName "Golden.UncurryCtor.Test" ) ( Name "Nil" ) )
       ),
       ( Name "Cons", AbsN Nothing
-        ( ParamNamed Nothing ( Name "Cons$p1$321" ) :| [] )
+        ( ParamNamed Nothing ( Name "Cons$p1$314" ) :| [] )
         ( AbsN Nothing
-          ( ParamNamed Nothing ( Name "Cons$p2$322" ) :| [] )
+          ( ParamNamed Nothing ( Name "Cons$p2$315" ) :| [] )
           ( AppN Nothing
             ( Ref Nothing ( Imported ( ModuleName "Golden.UncurryCtor.Test" ) ( Name "Cons$w" ) ) )
             ( Ref Nothing
-              ( Local ( Name "Cons$p1$321" ) ) :|
-              [ Ref Nothing ( Local ( Name "Cons$p2$322" ) ) ]
+              ( Local ( Name "Cons$p1$314" ) ) :|
+              [ Ref Nothing ( Local ( Name "Cons$p2$315" ) ) ]
             )
           )
         )
@@ -560,20 +560,23 @@ UberModule
                             [ AppN Nothing
                               ( AppN Nothing
                                 ( Ref Nothing
-                                  ( Imported ( ModuleName "Data.Functor" ) ( Name "arrayMap" ) )
+                                  ( Imported
+                                    ( ModuleName "Golden.UncurryCtor.Test" )
+                                    ( Name "map" )
+                                  )
                                 )
                                 ( AbsN Nothing
-                                  ( ParamNamed Nothing ( Name "v2$308" ) :| [] )
+                                  ( ParamNamed Nothing ( Name "v2$303" ) :| [] )
                                   ( IfThenElse Nothing
                                     ( Eq Nothing
                                       ( LiteralString Nothing "Data.Maybe∷Maybe.Nothing" )
                                       ( ReflectCtor Nothing
-                                        ( Ref Nothing ( Local ( Name "v2$308" ) ) )
+                                        ( Ref Nothing ( Local ( Name "v2$303" ) ) )
                                       )
                                     )
                                     ( LiteralInt Nothing 0 )
                                     ( DataArgumentByIndex Nothing SumType 0
-                                      ( Ref Nothing ( Local ( Name "v2$308" ) ) )
+                                      ( Ref Nothing ( Local ( Name "v2$303" ) ) )
                                     )
                                   ) :| []
                                 )
@@ -581,15 +584,18 @@ UberModule
                               ( AppN Nothing
                                 ( AppN Nothing
                                   ( Ref Nothing
-                                    ( Imported ( ModuleName "Data.Functor" ) ( Name "arrayMap" ) )
+                                    ( Imported
+                                      ( ModuleName "Golden.UncurryCtor.Test" )
+                                      ( Name "map" )
+                                    )
                                   )
                                   ( AbsN Nothing
-                                    ( ParamNamed Nothing ( Name "value0$309" ) :| [] )
+                                    ( ParamNamed Nothing ( Name "value0$304" ) :| [] )
                                     ( Ctor Nothing SumType
                                       ( ModuleName "Data.Maybe" )
                                       ( TyName "Maybe" )
                                       ( CtorName "Just" )
-                                      [ Ref Nothing ( Local ( Name "value0$309" ) ) ]
+                                      [ Ref Nothing ( Local ( Name "value0$304" ) ) ]
                                     ) :| []
                                   )
                                 )
diff --git a/test/ps/output/Golden.UncurryCtor.Test/golden.lua b/test/ps/output/Golden.UncurryCtor.Test/golden.lua
index f1865f4f..e4381fbe 100644
--- a/test/ps/output/Golden.UncurryCtor.Test/golden.lua
+++ b/test/ps/output/Golden.UncurryCtor.Test/golden.lua
@@ -19,7 +19,6 @@ local Data_Functor_foreign = {
     end
   end
 }
-local Data_Functor_arrayMap = Data_Functor_foreign.arrayMap
 local Effect_Console_foreign = {
   log = function(s) return function() print(s) end end
 }
@@ -31,6 +30,7 @@ end
 local Golden_UncurryCtor_Test_logShow = function(logShow_S_p2_S_0)
   return Effect_Console_logShow_S_w(Data_Show_showInt, logShow_S_p2_S_0)
 end
+local Golden_UncurryCtor_Test_map = Data_Functor_foreign.arrayMap
 local Golden_UncurryCtor_Test_Origin = {
   "Golden.UncurryCtor.Test∷Shape.Origin"
 }
@@ -87,13 +87,13 @@ return (function()
   local _ = Golden_UncurryCtor_Test_logShow(Golden_UncurryCtor_Test_area(mk_S_0(30)))()
   local _ = Effect_Console_logShow_S_w({
     show = Data_Show_foreign.showArrayImpl(Data_Show_show(Data_Show_showInt))
-  }, Data_Functor_arrayMap(function(v2_S_0)
+  }, Golden_UncurryCtor_Test_map(function(v2_S_0)
     if "Data.Maybe∷Maybe.Nothing" == v2_S_0[1] then
       return 0
     else
       return v2_S_0[2]
     end
-  end)(Data_Functor_arrayMap(function(value0_S_0)
+  end)(Golden_UncurryCtor_Test_map(function(value0_S_0)
     return { "Data.Maybe∷Maybe.Just", value0_S_0 }
   end)({ [1] = 1, [2] = 2, [3] = 3 })))()
   return Golden_UncurryCtor_Test_logShow(Golden_UncurryCtor_Test_total(Golden_UncurryCtor_Test_range))()
diff --git a/test/ps/src/Golden/DirectivePack/Test.purs b/test/ps/src/Golden/DirectivePack/Test.purs
new file mode 100644
index 00000000..df959b98
--- /dev/null
+++ b/test/ps/src/Golden/DirectivePack/Test.purs
@@ -0,0 +1,57 @@
+module Golden.DirectivePack.Test where
+
+import Prelude
+
+import Data.Generic.Rep (class Generic)
+import Data.Maybe (Maybe(..))
+import Data.Show.Generic (genericShow)
+import Effect (Effect)
+import Effect.Console (log)
+import Effect.Ref as Ref
+
+-- No @inline pragmas anywhere: every combinator below inlines through
+-- the default directive pack the compiler ships for the prelude/core
+-- forks (bindFlipped, the function-instance Semigroup/Category methods,
+-- otherwise, the generics glue, and the Ref modify wrappers).
+
+data Fruit = Apple | Banana Int
+
+derive instance Generic Fruit _
+
+instance Show Fruit where
+  show = genericShow
+
+half :: Int -> Maybe Int
+half n = if n `mod` 2 == 0 then Just (n / 2) else Nothing
+
+-- A flipped-bind chain: bindFlipped => flip => bind unfold at each site
+-- and the Maybe binds collapse.
+chain :: Maybe Int
+chain = half =<< half =<< half =<< Just 40
+
+-- Semigroup on functions: `f <> g` goes through the semigroupFn
+-- dictionary's append field.
+describeFruit :: Fruit -> String
+describeFruit = const "fruit: " <> show
+
+-- Category on functions: identity vanishes, <<< goes through the
+-- semigroupoidFn dictionary's compose field.
+pipeline :: Int -> Int
+pipeline = identity <<< (_ + 1) <<< identity
+
+classify :: Int -> String
+classify n
+  | n < 0 = "negative"
+  | n == 0 = "zero"
+  | otherwise = "positive"
+
+main :: Effect Unit
+main = do
+  log (show chain)
+  log (describeFruit (Banana 3))
+  log (show (pipeline 41))
+  log (classify 7)
+  r <- Ref.new 10
+  Ref.modify_ (_ * 3) r
+  v <- Ref.read r
+  log (show v)