diff --git a/bench/goldens/fnew_Bench.ArrayFoldl.txt b/bench/goldens/fnew_Bench.ArrayFoldl.txt index 8f65f367..6f20408f 100644 --- a/bench/goldens/fnew_Bench.ArrayFoldl.txt +++ b/bench/goldens/fnew_Bench.ArrayFoldl.txt @@ -5,10 +5,10 @@ function-body FNEW: 9 total FNEW: 14 prototypes: 15 function-body FNEW sites: - Bench.ArrayFoldl.lua:11 Bench.ArrayFoldl.lua:10 - Bench.ArrayFoldl.lua:21 + Bench.ArrayFoldl.lua:9 Bench.ArrayFoldl.lua:20 + Bench.ArrayFoldl.lua:19 Bench.ArrayFoldl.lua:44 Bench.ArrayFoldl.lua:43 Bench.ArrayFoldl.lua:42 diff --git a/bench/goldens/fnew_Bench.BindChain.txt b/bench/goldens/fnew_Bench.BindChain.txt index 3d294edc..e8ae72b1 100644 --- a/bench/goldens/fnew_Bench.BindChain.txt +++ b/bench/goldens/fnew_Bench.BindChain.txt @@ -5,5 +5,5 @@ function-body FNEW: 2 total FNEW: 6 prototypes: 7 function-body FNEW sites: - Bench.BindChain.lua:23 Bench.BindChain.lua:22 + Bench.BindChain.lua:21 diff --git a/bench/goldens/trace_array_foldl.txt b/bench/goldens/trace_array_foldl.txt index bc930b41..a8d4aac9 100644 --- a/bench/goldens/trace_array_foldl.txt +++ b/bench/goldens/trace_array_foldl.txt @@ -4,8 +4,8 @@ workload: n=5000000 reps=2 result=12500002500000 aborts (distinct site -- reason): Bench.ArrayFoldl.lua:50 -- NYI: bytecode FNEW bytecode end state (J*=compiled, I*=blacklisted): - Bench.ArrayFoldl.lua:18 IFORL - Bench.ArrayFoldl.lua:29 JLOOP + Bench.ArrayFoldl.lua:17 IFORL + Bench.ArrayFoldl.lua:28 JLOOP Bench.ArrayFoldl.lua:49 IFUNCF Bench.ArrayFoldl.lua:50 JFUNCF array_foldl.lua:13 JFORI diff --git a/bench/goldens/trace_bind_chain.txt b/bench/goldens/trace_bind_chain.txt index a6a37e38..504d0fb2 100644 --- a/bench/goldens/trace_bind_chain.txt +++ b/bench/goldens/trace_bind_chain.txt @@ -2,14 +2,14 @@ spec: bind_chain runtime: LuaJIT 2.1.1741730670 workload: n=1000000 reps=2 result=3000000 aborts (distinct site -- reason): + Bench.BindChain.lua:21 -- NYI: bytecode FNEW Bench.BindChain.lua:22 -- NYI: bytecode FNEW - Bench.BindChain.lua:23 -- NYI: bytecode FNEW bytecode end state (J*=compiled, I*=blacklisted): - Bench.BindChain.lua:14 JFUNCF + Bench.BindChain.lua:1 JFUNCF + Bench.BindChain.lua:13 JFUNCF + Bench.BindChain.lua:17 IFUNCF Bench.BindChain.lua:18 IFUNCF - Bench.BindChain.lua:19 IFUNCF - Bench.BindChain.lua:2 JFUNCF - Bench.BindChain.lua:5 JFUNCF + Bench.BindChain.lua:4 JFUNCF bind_chain.lua:10 IFORL bind_chain.lua:17 JFORI bind_chain.lua:17 JFORL diff --git a/bench/goldens/trace_fibonacci.txt b/bench/goldens/trace_fibonacci.txt index 39516873..cda4b742 100644 --- a/bench/goldens/trace_fibonacci.txt +++ b/bench/goldens/trace_fibonacci.txt @@ -5,7 +5,7 @@ aborts (distinct site -- reason): Bench.Fib.lua:5 -- call unroll limit reached fibonacci.lua:11 -- call unroll limit reached bytecode end state (J*=compiled, I*=blacklisted): - Bench.Fib.lua:2 JFUNCF + Bench.Fib.lua:1 JFUNCF Bench.Fib.lua:5 JFUNCF fibonacci.lua:11 JFUNCF counts: aborts=2 compiled=3 blacklisted=0 diff --git a/changelog.d/20260712_110000_unisay_two_tier_storage.md b/changelog.d/20260712_110000_unisay_two_tier_storage.md new file mode 100644 index 00000000..d4f11b29 --- /dev/null +++ b/changelog.d/20260712_110000_unisay_two_tier_storage.md @@ -0,0 +1,14 @@ +### Changed + +- Top-level bindings the linked program actually reads are now promoted to + real Lua chunk locals instead of living exclusively in the module-scope + table `M` (#174 stage 2, `Language.PureScript.Backend.Lua.Promote`). + Bindings are ranked by static read count and promoted while a locals + budget allows; a bottom-up upvalue accounting per function proto demotes + individual references back to `M.x` (mirroring the binding into `M`) when + a function would otherwise exceed the target's upvalue limit, so the + worst case is exactly today's `M`-only output. A program whose bindings + and references all fit the budgets emits no `M` table at all. Runs before + the existing per-function field caching (#174 stage 1), so that pass now + only ever caches the residual `M` traffic. Structural goldens churn + mechanically; eval goldens are unchanged. diff --git a/docs/adr/0001-top-level-binding-storage.md b/docs/adr/0001-top-level-binding-storage.md index 65962d1d..cb82623b 100644 --- a/docs/adr/0001-top-level-binding-storage.md +++ b/docs/adr/0001-top-level-binding-storage.md @@ -4,9 +4,9 @@ Date: 2026-07-07 ## Status -Accepted. Stage 1 (per-function field caching) is implemented; stage 2 -(budget-aware two-tier storage) is designed here and tracked in issue -[#174]. +Accepted. Both stages of issue [#174] are implemented: stage 1 +(per-function field caching, `Lua.Localize`) and stage 2 (budget-aware +two-tier storage, `Lua.Promote`). [#174]: https://github.com/purescript-lua/purescript-lua/issues/174 @@ -111,28 +111,64 @@ guides. The details that keep it sound and limit-proof: shadowing declarations (shapes only hand-written FFI could produce). Otherwise the chunk is left byte-identical. -### Stage 2: two-tier storage with budget accounting (planned) - -Top-K bindings by static reference count are emitted as real chunk -locals; the tail stays in `M`; exported bindings are mirrored into the -export surface. Two budgets are computed over the finished Lua AST -before printing: - -1. **Locals**: a chunk-local counter with a ceiling of ~180 (200 minus - fixture locals and headroom). Overflow keeps the binding in `M`. -2. **Upvalues**: the killer of the pre-#19 design. Accounting runs - bottom-up over the function tree: - `upvals(f) = |own outer-local references ∪ children's pass-through - demands|`. When a function proto would exceed ~55, individual - references are demoted — printed as `M.x` — while the binding stays - a local for everyone else. - -A program that fits the budgets (like `Data.Array` with 124 bindings) -loses the `M` table entirely: pure locals, with the module export -table referencing them directly. `K` for larger programs is chosen -from #172's measurements. Stage 2 lands only with that measurement -backing; until then stage 1's caching already removes the per-loop and -per-call read cost where it matters. +### Stage 2: two-tier storage with budget accounting (implemented) + +A Lua-level pass (`Language.PureScript.Backend.Lua.Promote`, run from +`optimizeChunk` *before* stage 1) promotes top-level bindings to real +chunk locals; the tail stays in `M`: + +```lua +local Data_Array_index = function(arr) … end +local Data_Array_span = function(p, arr) + local v = Data_Array_index(arr)(i) + … +return { span = Data_Array_span, … } +``` + +- **Selection (the locals budget).** A binding qualifies when its + field is initialized by exactly one top-level `M.x = e` statement, + is read at least once, and its name is not used as a variable + anywhere in the chunk — the promoted local keeps the field's name, + and on a collision (a shape only hand-written FFI produces) the pass + declines rather than renames. Qualifying bindings are promoted in + descending static read count while the chunk's local slots — + pre-existing declarations plus one per promotion — stay under the + locals ceiling; the original "top-K" knob from the issue *is* this + budget bound. Zero-read bindings stay in `M`: a local for a binding + nobody reads spends a scarce slot on a dead store. +- **Upvalue accounting (the demotion budget).** The killer of the + pre-#19 design was pass-through accumulation, so the pass computes + every function proto's upvalue demand bottom-up: + `demand(f) = ownOuterRefs(f) ∪ {b ∈ demand(child) | b not bound by + f}`, counting *all* outer-local references (function locals and + parameters included), resolved lexically — a name referenced before + its declaration resolves outside it. When a proto's demand exceeds + the upvalue ceiling, promoted-binding references within its subtree + are demoted — printed as `M.x` again — cheapest reads first (ties to + the earlier-declared binding), and the binding is mirrored into the + table (`M.x = x` right after `local x = e`) so demoted reads still + observe it. Demoting swaps the binding's upvalue for `M`'s, so the + first demotion pays off only once `M` is already demanded; the + fitting loop accounts for that. The binding stays a local for every + proto that affords it. +- **Recursion.** A binding read before its initializer — the + self-reference of a recursive function, or an earlier member of a + mutually recursive group — is pre-declared (`local x` before the + first referencing statement) and initialized by plain assignment; + only the forward-referenced group members are pre-declared. +- **Preconditions.** Stage 1's chunk-wide stability precondition, + plus: the module table is declared exactly once, as `local M = {}`, + before any other occurrence of the name. Otherwise the chunk is left + byte-identical. +- **Ordering.** Promotion runs before stage-1 caching: whatever stays + in `M` after promotion — the unpromoted tail plus demoted + references — is exactly what per-function caching still speeds up. + +A program that fits the budgets loses the `M` table entirely: pure +locals, with the module export table referencing them directly. In the +golden corpus 35 of 50 modules drop `M`; the rest keep it only to hold +bindings that are written but never read (dead stores the IR-level DCE +did not see). ## Rejected alternatives @@ -146,13 +182,21 @@ per-call read cost where it matters. ## Consequences -- Generated functions gain an entry `local … = M.…` statement when - they read fields repeatedly; goldens churn mechanically but runtime +- In-budget programs emit no `M` table at all: inter-binding + references are upvalue/register accesses, and the export table + references the locals directly. Where a binding stays in `M`, + generated functions still gain stage-1 entry caches (`local … = + M.…`) for repeated reads; goldens churn mechanically but runtime behavior is unchanged (eval goldens are the check). - Hot loops produced by loopification (#181) read loop-invariant bindings from locals, which LuaJIT hoists into registers; the win compounds with uncurrying (#24) as real loops become traceable. -- The `M` table remains the single upvalue of every generated closure - until stage 2; nothing about FFI, linking, or DCE changes. -- The budgets live in `Localize.hs` as named constants; stage 2 reuses - the same ceilings for its chunk-level accounting. +- Nothing about FFI, linking, or DCE changes. A binding that is + written but never read keeps `M` alive for the whole chunk; + eliminating such dead init stores would be a separate, Lua-level + DCE concern. +- The hard target limits live in + `Language.PureScript.Backend.Lua.Limits` as a `LuaLimits` record, + configurable per target (`--max-locals` / `--max-upvalues`, Lua 5.1 + defaults); both passes budget against working ceilings derived from + them (hard limit minus headroom, 180/55 by default). diff --git a/exe/Cli.hs b/exe/Cli.hs index 3686c0d4..23034bd6 100644 --- a/exe/Cli.hs +++ b/exe/Cli.hs @@ -7,10 +7,12 @@ import Data.List.NonEmpty qualified as NE import Data.Tagged (Tagged (..)) import Data.Text (splitOn) import Data.Text qualified as Text +import Language.PureScript.Backend.Lua.Limits (LuaLimits (..), lua51Limits) import Language.PureScript.Backend.Types (AppOrModule (..)) import Language.PureScript.Names qualified as PS import Options.Applicative ( Parser + , ReadM , eitherReader , execParser , flag @@ -47,6 +49,7 @@ data Args = Args , outputIR ∷ Maybe ExtraOutput , outputLuaAst ∷ Maybe ExtraOutput , lintIR ∷ Tagged "lint-ir" Bool + , luaLimits ∷ LuaLimits , appOrModule ∷ AppOrModule , runEntry ∷ Maybe AppOrModule } @@ -117,6 +120,30 @@ options = do <> linebreak <> bold "Default: false" ] + targetMaxLocals ← + option positiveInt . fold $ + [ metavar "N" + , long "max-locals" + , value (maxLocals lua51Limits) + , helpDoc . Just $ + "Target Lua VM's hard limit on local variables" + <> softbreak + <> "per function (LUAI_MAXVARS)." + <> linebreak + <> bold "Default: 200 (Lua 5.1)" + ] + targetMaxUpvalues ← + option positiveInt . fold $ + [ metavar "N" + , long "max-upvalues" + , value (maxUpvalues lua51Limits) + , helpDoc . Just $ + "Target Lua VM's hard limit on upvalues" + <> softbreak + <> "per function (LUAI_MAXUPVALUES)." + <> linebreak + <> bold "Default: 60 (Lua 5.1)" + ] appOrModule ← option (eitherReader parseAppOrModule) . fold $ [ metavar "ENTRY" @@ -150,7 +177,20 @@ options = do , green $ indent 2 "Example: Acme.App.main" ] ] - pure Args {..} + pure + Args + { luaLimits = + LuaLimits + { maxLocals = targetMaxLocals + , maxUpvalues = targetMaxUpvalues + } + , .. + } + +positiveInt ∷ ReadM Int +positiveInt = eitherReader \s → case readMaybe s of + Just n | n > 0 → Right n + _ → Left ("expected a positive integer, got: " <> s) {- | `--run` must name an application entry point (`.`): there is nothing to execute without a binding, so a bare module name is rejected. diff --git a/exe/Main.hs b/exe/Main.hs index fd9441ec..4cc8f954 100644 --- a/exe/Main.hs +++ b/exe/Main.hs @@ -33,6 +33,7 @@ main = Utf8.withUtf8 do , outputIR , outputLuaAst , lintIR + , luaLimits , psOutputPath , appOrModule , runEntry @@ -56,7 +57,7 @@ main = Utf8.withUtf8 do -- Stay silent in run mode so the program's own stdout isn't polluted (the -- output may be piped); Spago already logs the run/build phases itself. when (isNothing runEntry) $ putTextLn "PS Lua: compiling ..." - Backend.compileModules psOutputPath foreignDir lintIR entry + Backend.compileModules psOutputPath foreignDir lintIR luaLimits entry & handleModuleNotFoundError & handleModuleDecodingError & handleCoreFnError diff --git a/lib/Language/PureScript/Backend.hs b/lib/Language/PureScript/Backend.hs index 176f49c6..8d723f61 100644 --- a/lib/Language/PureScript/Backend.hs +++ b/lib/Language/PureScript/Backend.hs @@ -13,6 +13,7 @@ import Language.PureScript.Backend.IR.Optimizer import Language.PureScript.Backend.IR.Pass (PassCheckFailure) import Language.PureScript.Backend.Lua qualified as Lua import Language.PureScript.Backend.Lua.ForeignLift qualified as ForeignLift +import Language.PureScript.Backend.Lua.Limits (LuaLimits) import Language.PureScript.Backend.Lua.NestingCheck (exceedsNestingLimit) import Language.PureScript.Backend.Lua.Optimizer (optimizeChunk) import Language.PureScript.Backend.Lua.Types qualified as Lua @@ -38,9 +39,10 @@ compileModules ⇒ Tagged "output" (SomeBase Dir) → Tagged "foreign" (Path Abs Dir) → Tagged "lint-ir" Bool + → LuaLimits → AppOrModule → ExceptT (Variant e) IO CompilationResult -compileModules outputDir foreignDir lintIR appOrModule = do +compileModules outputDir foreignDir lintIR limits appOrModule = do let entryModuleName = entryPointModule appOrModule cfnModules ← CoreFn.readModuleRecursively outputDir entryModuleName let dataDecls = IR.collectDataDeclarations cfnModules @@ -64,7 +66,7 @@ compileModules outputDir foreignDir lintIR appOrModule = do -- took over). The unfinished module is parked on the 'lua-dce-wip' branch; -- its known defects are documented there in -- Note [Graph-based dead code elimination for Lua]. - let optimizedChunk = optimizeChunk chunk + let optimizedChunk = optimizeChunk limits chunk -- Safety net: reject a chunk that nests too deeply for Lua 5.1's parser -- rather than emit Lua that cannot be loaded (issue #104). Catches whatever -- 'flattenDeepBinds' bailed on, plus not-yet-flattened deep constructs. diff --git a/lib/Language/PureScript/Backend/Lua/Limits.hs b/lib/Language/PureScript/Backend/Lua/Limits.hs new file mode 100644 index 00000000..6bac26bb --- /dev/null +++ b/lib/Language/PureScript/Backend/Lua/Limits.hs @@ -0,0 +1,49 @@ +{- | Hard per-function limits of the target Lua VM. + +The storage passes ("Language.PureScript.Backend.Lua.Localize") budget +their emission against these limits so that generated chunks stay +loadable on the target (issues #19, #174). The limits are configurable +(@--max-locals@ / @--max-upvalues@) because they differ between Lua +implementations: PUC Lua 5.1 — the floor pslua compiles for, see +@docs/QUIRKS.md@ — ships @LUAI_MAXVARS = 200@ and +@LUAI_MAXUPVALUES = 60@, while e.g. Lua 5.2+ raises the upvalue limit +to 255. +-} +module Language.PureScript.Backend.Lua.Limits + ( LuaLimits (..) + , lua51Limits + , workingLocalCeiling + , workingUpvalueCeiling + ) where + +-- | Hard per-function limits of the target Lua VM. +data LuaLimits = LuaLimits + { maxLocals ∷ Int + {- ^ Local variables per function (@LUAI_MAXVARS@), the chunk's main + function included. + -} + , maxUpvalues ∷ Int + {- ^ Upvalues per function (@LUAI_MAXUPVALUES@), amplified in Lua 5.1 + by pass-through accumulation: a nested function reading an outer + local costs an upvalue slot in every intermediate function. + -} + } + deriving stock (Eq, Show) + +-- | The Lua 5.1 limits: the compilation floor and the CLI default. +lua51Limits ∷ LuaLimits +lua51Limits = LuaLimits {maxLocals = 200, maxUpvalues = 60} + +{- | The locals ceiling the storage passes actually budget against: the +hard limit minus headroom for slots the passes do not model (locals of +hand-written FFI headers, runtime fixtures). +-} +workingLocalCeiling ∷ LuaLimits → Int +workingLocalCeiling LuaLimits {maxLocals} = maxLocals - 20 + +{- | The upvalue ceiling the storage passes actually budget against: +the hard limit minus headroom, since the passes over-approximate +upvalue demand rather than replicate the target's exact accounting. +-} +workingUpvalueCeiling ∷ LuaLimits → Int +workingUpvalueCeiling LuaLimits {maxUpvalues} = maxUpvalues - 5 diff --git a/lib/Language/PureScript/Backend/Lua/Localize.hs b/lib/Language/PureScript/Backend/Lua/Localize.hs index 514149c3..2fe0f106 100644 --- a/lib/Language/PureScript/Backend/Lua/Localize.hs +++ b/lib/Language/PureScript/Backend/Lua/Localize.hs @@ -69,23 +69,26 @@ generated init code has no effects to suspend). == Budgets -The rewrite must not push generated code toward Lua 5.1's per-function -limits that motivated the module table in the first place (issue #19): +The rewrite must not push generated code toward the target's +per-function limits that motivated the module table in the first place +(issue #19). The hard limits come in as +'Language.PureScript.Backend.Lua.Limits.LuaLimits' (Lua 5.1: 60 +upvalues, 200 locals): -* /Upvalues (60)./ A cache local is referenced only from the caching +* /Upvalues./ A cache local is referenced only from the caching function's own activation region, never from nested (non-IIFE) function literals, so no new upvalue chains arise. The exception is the looked-through IIFEs, which are function protos underneath: cache names referenced inside them occupy upvalue slots. The pass bounds the sum of a region IIFE's referenced names and the planned - cache count by 'protoUpvalueCeiling' (an over-approximation of the + cache count by 'workingUpvalueCeiling' (an over-approximation of the proto's upvalue demand — it also counts the IIFE's own locals and globals, which cost no slots — so it can only under-cache). -* /Locals (200)./ Cache locals are capped at +* /Locals./ Cache locals are capped at 'maxCachedFieldsPerFunction' per function, prioritized by use count, and further limited so that parameters, declared locals, and caches - stay under 'protoLocalCeiling'. + stay under 'workingLocalCeiling'. Every budget overflow degrades the specific function back to plain @M.field@ reads — the worst case is exactly the input chunk. @@ -93,11 +96,20 @@ Every budget overflow degrades the specific function back to plain module Language.PureScript.Backend.Lua.Localize ( localizeChunk , maxCachedFieldsPerFunction + + -- * Shared with "Language.PureScript.Backend.Lua.Promote" + , moduleTableStable + , namesInBlock ) where import Data.Map.Strict qualified as Map import Data.Semigroup (Max (..)) import Data.Set qualified as Set +import Language.PureScript.Backend.Lua.Limits + ( LuaLimits + , workingLocalCeiling + , workingUpvalueCeiling + ) import Language.PureScript.Backend.Lua.Name (Name) import Language.PureScript.Backend.Lua.Name qualified as Name import Language.PureScript.Backend.Lua.Types @@ -126,27 +138,15 @@ type Block = [Annotated Comments StatementF] maxCachedFieldsPerFunction ∷ Int maxCachedFieldsPerFunction = 30 -{- | Ceiling on the over-approximated upvalue demand of a looked-through -IIFE proto after caching; Lua 5.1's limit is 60 (@LUAI_MAXUPVALUES@). --} -protoUpvalueCeiling ∷ Int -protoUpvalueCeiling = 55 - -{- | Ceiling on parameters + declared locals + cache locals of a -function; Lua 5.1's limit is 200 (@LUAI_MAXVARS@). --} -protoLocalCeiling ∷ Int -protoLocalCeiling = 180 - -{- | Cache repeated module-table field reads in function-entry locals. -The first argument is the module-table name -('Language.PureScript.Backend.Lua.Fixture.moduleName'). Returns the -chunk unchanged when the stability precondition does not hold — see -the module documentation. +{- | Cache repeated module-table field reads in function-entry locals, +budgeting against the given target limits. The 'Name' argument is the +module-table name ('Language.PureScript.Backend.Lua.Fixture.moduleName'). +Returns the chunk unchanged when the stability precondition does not +hold — see the module documentation. -} -localizeChunk ∷ Name → Chunk → Chunk -localizeChunk m chunk - | moduleTableStable m chunk = walkStatement m TopLevel <$> chunk +localizeChunk ∷ LuaLimits → Name → Chunk → Chunk +localizeChunk limits m chunk + | moduleTableStable m chunk = walkStatement limits m TopLevel <$> chunk | otherwise = chunk -------------------------------------------------------------------------------- @@ -163,11 +163,11 @@ data WalkMode | -- | selected field → its cache local Region (Map Name Name) -walkBlock ∷ Name → WalkMode → Block → Block -walkBlock m mode = fmap (fmap (walkStatement m mode)) +walkBlock ∷ LuaLimits → Name → WalkMode → Block → Block +walkBlock limits m mode = fmap (fmap (walkStatement limits m mode)) -walkStatement ∷ Name → WalkMode → Statement → Statement -walkStatement m mode = \case +walkStatement ∷ LuaLimits → Name → WalkMode → Statement → Statement +walkStatement limits m mode = \case Assign vars vals → Assign (goVar <$> vars) (goAnn <$> vals) Local names vals → Local names (goAnn <$> vals) IfThenElse p tb eb → IfThenElse (goAnn p) (goBlock tb) (goBlock eb) @@ -180,11 +180,11 @@ walkStatement m mode = \case ForNum n (goAnn start) (goAnn limit) (goAnn <$> step) (goBlock body) ForIn names es body → ForIn names (goAnn <$> es) (goBlock body) LocalFunction n params body → - LocalFunction n params (processFunction m params body) + LocalFunction n params (processFunction limits m params body) Break → Break where - goBlock = walkBlock m mode - goAnn = fmap (walkExp m mode) + goBlock = walkBlock limits m mode + goAnn = fmap (walkExp limits m mode) goVar ∷ Annotated Comments VarF → Annotated Comments VarF goVar (c, v) = (c,) case v of @@ -194,8 +194,8 @@ walkStatement m mode = \case VarField e n → VarField (goAnn e) n VarIndex e1 e2 → VarIndex (goAnn e1) (goAnn e2) -walkExp ∷ Name → WalkMode → Exp → Exp -walkExp m mode = \case +walkExp ∷ LuaLimits → Name → WalkMode → Exp → Exp +walkExp limits m mode = \case moduleRead@(Var (c, VarField (Ann (Var (Ann (VarName t)))) field)) | t == m , Region selected ← mode @@ -209,8 +209,9 @@ walkExp m mode = \case -- current activation: in a region its body belongs to that region. FunctionCall (fc, Function [] body) [] | Region _selected ← mode → - FunctionCall (fc, Function [] (walkBlock m mode body)) [] - Function params body → Function params (processFunction m params body) + FunctionCall (fc, Function [] (walkBlock limits m mode body)) [] + Function params body → + Function params (processFunction limits m params body) FunctionCall fn args → FunctionCall (goAnn fn) (goAnn <$> args) MethodCall obj n args → MethodCall (goAnn obj) n (goAnn <$> args) TableCtor rows → TableCtor (goRow <<$>> rows) @@ -224,7 +225,7 @@ walkExp m mode = \case String s → String s Vararg → Vararg where - goAnn = fmap (walkExp m mode) + goAnn = fmap (walkExp limits m mode) goRow ∷ TableRowF Comments → TableRowF Comments goRow = \case TableRowKV k v → TableRowKV (goAnn k) (goAnn v) @@ -237,8 +238,8 @@ off the module table, and rewrite the region's reads to the cache locals. Nested protos are processed recursively either way. -} processFunction - ∷ Name → [Annotated Comments ParamF] → Block → Block -processFunction m params body = case cached of + ∷ LuaLimits → Name → [Annotated Comments ParamF] → Block → Block +processFunction limits m params body = case cached of [] → rewritten (c : cs) → cacheStatement (c :| cs) : rewritten where @@ -247,8 +248,11 @@ processFunction m params body = case cached of budget = maxCachedFieldsPerFunction - `min` (protoUpvalueCeiling - getMax iifeNames) - `min` (protoLocalCeiling - getSum declaredLocals - length params) + `min` (workingUpvalueCeiling limits - getMax iifeNames) + `min` ( workingLocalCeiling limits + - getSum declaredLocals + - length params + ) eligible ∷ [Name] eligible = @@ -267,7 +271,7 @@ processFunction m params body = case cached of <> Set.fromList (mapMaybe (paramNamed . unAnn) params) <> Set.singleton m - rewritten = walkBlock m (Region (Map.fromList cached)) body + rewritten = walkBlock limits m (Region (Map.fromList cached)) body cacheStatement ∷ NonEmpty (Name, Name) → Annotated Comments StatementF cacheStatement pairs = diff --git a/lib/Language/PureScript/Backend/Lua/Optimizer.hs b/lib/Language/PureScript/Backend/Lua/Optimizer.hs index f5eae621..34b7067b 100644 --- a/lib/Language/PureScript/Backend/Lua/Optimizer.hs +++ b/lib/Language/PureScript/Backend/Lua/Optimizer.hs @@ -3,8 +3,10 @@ module Language.PureScript.Backend.Lua.Optimizer where import Control.Monad.Trans.Accum (Accum, add, execAccum) import Data.Map qualified as Map import Language.PureScript.Backend.Lua.Fixture qualified as Fixture +import Language.PureScript.Backend.Lua.Limits (LuaLimits) import Language.PureScript.Backend.Lua.Localize (localizeChunk) import Language.PureScript.Backend.Lua.Name qualified as Lua +import Language.PureScript.Backend.Lua.Promote (promoteChunk) import Language.PureScript.Backend.Lua.Traversal ( everywhereExp , everywhereInChunkM @@ -25,12 +27,18 @@ import Language.PureScript.Backend.Lua.Types ) import Language.PureScript.Backend.Lua.Types qualified as Lua -{- | Localization runs after the rewrite rules: projection folds can -eliminate module-table reads, and the reads that remain are the ones -worth counting and caching. +{- | The storage passes run after the rewrite rules: projection folds +can eliminate module-table reads, and the reads that remain are the +ones worth counting. Promotion (stage 2) precedes localization +(stage 1): whatever stays in the module table after promotion — the +unpromoted tail plus demoted references — is exactly what per-function +caching still speeds up. -} -optimizeChunk ∷ Chunk → Chunk -optimizeChunk = localizeChunk Fixture.moduleName . fmap optimizeStatement +optimizeChunk ∷ LuaLimits → Chunk → Chunk +optimizeChunk limits = + localizeChunk limits Fixture.moduleName + . promoteChunk limits Fixture.moduleName + . fmap optimizeStatement substituteVarForValue ∷ Lua.Name → Exp → Chunk → Chunk substituteVarForValue name inlinee = diff --git a/lib/Language/PureScript/Backend/Lua/Promote.hs b/lib/Language/PureScript/Backend/Lua/Promote.hs new file mode 100644 index 00000000..e7899123 --- /dev/null +++ b/lib/Language/PureScript/Backend/Lua/Promote.hs @@ -0,0 +1,742 @@ +{- | Two-tier storage of top-level bindings (issue #174, stage 2). + +Every top-level binding lives in the module-scope table @M@ +('Language.PureScript.Backend.Lua.Fixture.moduleName'), so every +inter-binding reference is a hash lookup. This pass promotes the +most-referenced bindings to real chunk locals — @M.foo = e@ becomes +@local foo = e@ and the reads become local\/upvalue accesses — with @M@ +kept as the overflow valve: every budget overflow degrades the specific +binding or reference back to today's module-table form, so the worst +case is exactly the input chunk and the target's per-function limits +(the constraint that motivated the module table, issue #19) stay +handled by construction. A chunk whose bindings and references all fit +the budgets loses the @M@ table entirely. + +== Locals budget: which bindings are promoted + +A binding qualifies for promotion when its field is initialized by +exactly one top-level @M.x = e@ statement, is read at least once, and +its name is not used as a variable anywhere in the chunk (a promoted +local keeps the field's name; instead of renaming around a collision +the pass declines — only hand-written FFI produces colliding names). +Qualifying bindings are ranked by static read count and promoted +top-first while the chunk's local slots — pre-existing declarations +plus one per promotion — stay under +'Language.PureScript.Backend.Lua.Limits.workingLocalCeiling'. The rest +keep their @M.x@ form. + +== Upvalue budget: which references are demoted + +Chunk locals read inside nested functions cost upvalue slots, and in +Lua 5.1 a nested function reading an outer local costs a slot in every +intermediate function (pass-through accumulation) — the failure mode +that killed the original locals-based codegen (issue #19). The pass +computes every function proto's upvalue demand bottom-up: + +> demand(f) = ownOuterRefs(f) ∪ { b ∈ demand(child) | b not bound by f } + +counting all outer-local references (function-level locals and +parameters included), with lexical positions respected — a name +referenced before its declaration resolves outside it. When a proto's +demand would exceed +'Language.PureScript.Backend.Lua.Limits.workingUpvalueCeiling', +promoted-binding references within that proto's subtree are demoted — +printed as @M.x@ again — cheapest reads first, until the proto fits. +The binding itself stays a local for everyone else and is mirrored +into the module table (@M.x = x@ right after @local x = e@) so the +demoted reads still find it. Demotion swaps a named upvalue for the +@M@ upvalue, so once @M@ is in a proto's demand set each further +demotion shrinks it by one; a proto over budget on real function +locals alone (not promoted bindings) is beyond this pass's remit and +is left as is — exactly as over budget as the input chunk. + +== Recursion and declaration order + +A promoted binding read before its initializer — the self-reference of +a recursive function, or an earlier member of a mutually recursive +group — would resolve to a global under plain @local x = e@ ordering +(a Lua local scopes from its declaration onward). Such bindings are +pre-declared: @local x@ is emitted before the first referencing +statement and the initializer becomes a plain assignment. Only the +forward-referenced members are pre-declared. + +== Preconditions + +The pass rewrites nothing unless the module table is provably stable — +'moduleTableStable', the same precondition stage 1 +("Language.PureScript.Backend.Lua.Localize") checks: inside function +bodies every occurrence of @M@ is a plain field read, and outside them +field writes are the module-init sequence. On top of that the chunk +must declare @M@ exactly once, as @local M = {}@, before any other +occurrence of the name. Anything else — only hand-written FFI can +produce it — leaves the chunk unchanged. + +The pass runs before stage 1 in +'Language.PureScript.Backend.Lua.Optimizer.optimizeChunk': whatever +stays in @M@ after promotion (the tail plus demoted references) is +exactly what per-function caching still speeds up. + +The full design history — locals, then the @M@ table, then this +two-tier form — is recorded in +@docs/adr/0001-top-level-binding-storage.md@. +-} +module Language.PureScript.Backend.Lua.Promote + ( promoteChunk + ) where + +import Data.Map.Strict qualified as Map +import Data.Set qualified as Set +import Language.PureScript.Backend.Lua.Limits + ( LuaLimits + , workingLocalCeiling + , workingUpvalueCeiling + ) +import Language.PureScript.Backend.Lua.Localize + ( moduleTableStable + , namesInBlock + ) +import Language.PureScript.Backend.Lua.Name (Name) +import Language.PureScript.Backend.Lua.Types + ( Annotated + , Chunk + , Comments + , ExpF (..) + , ParamF (..) + , Statement + , StatementF (..) + , TableRowF (..) + , VarF (..) + , ann + , assign + , unAnn + , varName + , pattern Ann + ) + +type Block = [Annotated Comments StatementF] + +{- | Promote top-level module-table bindings to chunk locals, budgeting +against the given target limits. The 'Name' argument is the +module-table name ('Language.PureScript.Backend.Lua.Fixture.moduleName'). +Returns the chunk unchanged when the preconditions do not hold or no +binding fits the budgets — see the module documentation. +-} +promoteChunk ∷ LuaLimits → Name → Chunk → Chunk +promoteChunk limits m chunk = fromMaybe chunk do + declIndex ← moduleTableDeclIndex m chunk + guard $ moduleTableStable m chunk + let initializers = fieldInits m chunk + readCounts = fieldReadCounts m chunk + readCountOf x = Map.findWithDefault 0 x readCounts + taken = namesInBlock (ann <$> chunk) + budget = workingLocalCeiling limits - topLevelLocalSlots chunk + candidates = + sortOn + (\(x, i) → (Down (readCountOf x), i)) + [ (x, i) + | (x, Just i) ← Map.toList initializers + , x `Set.notMember` taken + , readCountOf x > 0 + ] + promoted = Map.fromList (take budget candidates) + guard $ not (Map.null promoted) + let analysis = analyzeChunk m (Map.keysSet promoted) chunk + demotions = + planDemotions (workingUpvalueCeiling limits) promoted analysis + mirrored = Set.unions (Map.elems demotions) + demotedSite (x, _i, path) = + any (\p → x `Set.member` demotionsAt p) path + where + demotionsAt p = Map.findWithDefault mempty p demotions + earliestLocalRead = + Map.fromListWith + min + [(x, i) | site@(x, i, _path) ← readSites analysis, not (demotedSite site)] + forwardDeclared = + Map.keysSet $ + Map.filterWithKey + (\x i → maybe False (i <=) (Map.lookup x promoted)) + earliestLocalRead + moduleTableSurvives = + not (Set.null mirrored) + || any (\(x, _) → x `Map.notMember` promoted) (Map.toList initializers) + || any + (\(x, c) → c > 0 && x `Map.notMember` promoted) + (Map.toList readCounts) + pure $ + rewriteChunk + RewritePlan + { planModuleTable = m + , planPromoted = promoted + , planDemoted = demotions + , planMirrored = mirrored + , planForwardDeclared = forwardDeclared + , planPreDeclarations = + Map.fromListWith + (<>) + [ (i, [x]) + | (x, i) ← Map.toList earliestLocalRead + , x `Set.member` forwardDeclared + ] + , planDeclIndex = declIndex + , planKeepDecl = moduleTableSurvives + } + chunk + +-------------------------------------------------------------------------------- +-- Candidate selection --------------------------------------------------------- + +{- | The index of the canonical module-table declaration +(@local M = {}@). 'Nothing' when the chunk declares the name more than +once, in another shape, or mentions it before the declaration (such a +mention would reference a different, global @M@). +-} +moduleTableDeclIndex ∷ Name → Chunk → Maybe Int +moduleTableDeclIndex m chunk = do + [(i, decl)] ← pure [(i, s) | (i, s) ← zip [0 ..] chunk, declaresName s] + Local (_ :| []) [Ann (TableCtor [])] ← pure decl + guard $ m `Set.notMember` namesInBlock (ann <$> take i chunk) + pure i + where + declaresName = \case + Local names _vals → m `elem` names + LocalFunction n _params _body → n == m + _ → False + +{- | Every module-table field written at top level, mapped to its +initializer's statement index. A field keeps its index only when it is +written exactly once, by a single-target single-value @M.x = e@ +statement; any other write shape (or a second write) maps the field to +'Nothing' — out of promotion but still on record, since its write +keeps the module table alive. +-} +fieldInits ∷ Name → Chunk → Map Name (Maybe Int) +fieldInits m chunk = Map.fromListWith (\_ _ → Nothing) do + (i, stmt) ← zip [0 ..] chunk + Assign vars vals ← pure stmt + case (vars, vals) of + ((_, VarField (Ann (Var (Ann (VarName t)))) x) :| [], _ :| []) + | t == m → pure (x, Just i) + _ → + [ (x, Nothing) + | (unAnn → VarField (Ann (Var (Ann (VarName t)))) x) ← toList vars + , t == m + ] + +-- | Static count of module-table field reads across the whole chunk. +fieldReadCounts ∷ Name → Chunk → Map Name Int +fieldReadCounts m chunk = execState (traverse_ goStmt chunk) Map.empty + where + goStmt ∷ Statement → State (Map Name Int) () + goStmt = \case + Assign vars vals → + traverse_ (goWrite . unAnn) vars *> traverse_ goExp vals + Local _names vals → traverse_ goExp vals + IfThenElse p tb eb → goExp p *> goBlock tb *> goBlock eb + Return es → traverse_ goExp es + CallStatement e → goExp e + Do body → goBlock body + While p body → goExp p *> goBlock body + Repeat body p → goBlock body *> goExp p + ForNum _n start limit step body → + goExp start *> goExp limit *> traverse_ goExp step *> goBlock body + ForIn _names es body → traverse_ goExp es *> goBlock body + LocalFunction _n _params body → goBlock body + Break → pass + goBlock = traverse_ (goStmt . unAnn) + goExp (unAnn → e) = case e of + Var (Ann v) → goRead v + Function _params body → goBlock body + FunctionCall fn args → goExp fn *> traverse_ goExp args + MethodCall obj _n args → goExp obj *> traverse_ goExp args + TableCtor rows → traverse_ (goRow . unAnn) rows + UnOp _op e1 → goExp e1 + BinOp _op e1 e2 → goExp e1 *> goExp e2 + Paren e1 → goExp e1 + Nil → pass + Boolean _ → pass + Integer _ → pass + Float _ → pass + String _ → pass + Vararg → pass + goRow = \case + TableRowKV k v → goExp k *> goExp v + TableRowNV _n v → goExp v + TableRowV v → goExp v + goRead = \case + VarField (Ann (Var (Ann (VarName t)))) x + | t == m → modify' (Map.insertWith (+) x 1) + VarField e _n → goExp e + VarIndex e1 e2 → goExp e1 *> goExp e2 + VarName _n → pass + -- An assignment target is a write, not a read: only its + -- subexpressions count. + goWrite = \case + VarField (Ann (Var (Ann (VarName t)))) _x | t == m → pass + VarField e _n → goExp e + VarIndex e1 e2 → goExp e1 *> goExp e2 + VarName _n → pass + +{- | Local slots the chunk's main function already spends before any +promotion: every top-level declaration, loop control variables +included (they occupy main-function registers even though their scope +is the loop body). +-} +topLevelLocalSlots ∷ Chunk → Int +topLevelLocalSlots = + sum . fmap \case + Local names _vals → length names + LocalFunction {} → 1 + ForNum {} → 1 + ForIn names _es _body → length names + _ → 0 + +-------------------------------------------------------------------------------- +-- Reference analysis ---------------------------------------------------------- + +-- Both the analysis walk below and the rewrite walk at the bottom of +-- this module number function protos with a running counter in +-- traversal order. They must visit statement and expression fields in +-- exactly the same order, or demotion sets computed here would apply +-- to the wrong protos there. + +type ProtoId = Int + +{- | What a reference resolves to. Two-tier accounting only ever demotes +'BField' references; everything else is recorded so that proto demand +sets are complete. +-} +data Binder + = -- | A promoted binding's chunk local + BField Name + | -- | The module table itself + BTable + | -- | Any other chunk-level local (fixtures, loop variables) + BTop Name + | -- | A local (or parameter) of the given function proto + BLoc ProtoId Name + deriving stock (Eq, Ord, Show) + +-- | 'Nothing' means the binder lives at chunk level. +binderOwner ∷ Binder → Maybe ProtoId +binderOwner = \case + BLoc p _n → Just p + _ → Nothing + +data Analysis = Analysis + { nextProto ∷ ProtoId + , ownRefs ∷ Map ProtoId (Set Binder) + {- ^ Outer binders referenced directly in a proto's own body + (nested protos excluded) + -} + , ownCounts ∷ Map ProtoId (Map Name Int) + -- ^ Promoted-field reads in a proto's own body + , protoKids ∷ Map ProtoId [ProtoId] + , protosBottomUp ∷ [ProtoId] + {- ^ Reverse discovery order: every proto precedes its ancestors, so + a left-to-right pass processes children before parents + -} + , readSites ∷ [(Name, Int, [ProtoId])] + {- ^ Promoted-field read sites: field, top-level statement index, + proto path (innermost first; empty at top level) + -} + } + +-- | Lexical environment: name → binder, updated in statement order. +type Env = Map Name Binder + +analyzeChunk ∷ Name → Set Name → Chunk → Analysis +analyzeChunk m promoted chunk = + execState + (foldlM (\env (i, s) → aStmt env [] i s) Map.empty (zip [0 ..] chunk)) + Analysis + { nextProto = 0 + , ownRefs = Map.empty + , ownCounts = Map.empty + , protoKids = Map.empty + , protosBottomUp = [] + , readSites = [] + } + where + bindLocal ∷ [ProtoId] → Name → Binder + bindLocal path n + | n == m = BTable + | otherwise = case path of + [] → BTop n + cur : _ → BLoc cur n + + bindAll ∷ [ProtoId] → Env → [Name] → Env + bindAll path = foldl' \e n → Map.insert n (bindLocal path n) e + + aBlock ∷ Env → [ProtoId] → Int → Block → State Analysis Env + aBlock env path i = foldlM (\e s → aStmt e path i (unAnn s)) env + + aStmt ∷ Env → [ProtoId] → Int → Statement → State Analysis Env + aStmt env path i = \case + Assign vars vals → do + traverse_ (aWrite env path i . unAnn) vars + traverse_ (aExp env path i) vals + pure env + Local names vals → do + -- Initializers see the outer bindings: `local x = e` resolves + -- x inside e outside this statement. + traverse_ (aExp env path i) vals + pure $ bindAll path env (toList names) + IfThenElse p tb eb → do + aExp env path i p + void $ aBlock env path i tb + void $ aBlock env path i eb + pure env + Return es → traverse_ (aExp env path i) es $> env + CallStatement e → aExp env path i e $> env + Do body → void (aBlock env path i body) $> env + While p body → do + aExp env path i p + void $ aBlock env path i body + pure env + Repeat body p → do + -- The until-condition is in the body's scope. + env' ← aBlock env path i body + aExp env' path i p + pure env + ForNum n start limit step body → do + aExp env path i start + aExp env path i limit + traverse_ (aExp env path i) step + void $ aBlock (bindAll path env [n]) path i body + pure env + ForIn names es body → do + traverse_ (aExp env path i) es + void $ aBlock (bindAll path env (toList names)) path i body + pure env + LocalFunction n params body → do + -- The name is in scope inside the body (self-recursion) and + -- belongs to the enclosing scope. + let env' = bindAll path env [n] + aProto env' path i params body + pure env' + Break → pure env + + aProto + ∷ Env + → [ProtoId] + → Int + → [Annotated Comments ParamF] + → Block + → State Analysis () + aProto env path i params body = do + pid ← state \st → + ( nextProto st + , st + { nextProto = nextProto st + 1 + , protoKids = case path of + [] → protoKids st + cur : _ → Map.insertWith (<>) cur [nextProto st] (protoKids st) + , protosBottomUp = nextProto st : protosBottomUp st + } + ) + let bindParam e = \case + ParamNamed n → Map.insert n (BLoc pid n) e + ParamUnused → e + ParamVararg → e + void $ + aBlock + (foldl' (\e p → bindParam e (unAnn p)) env params) + (pid : path) + i + body + + aExp ∷ Env → [ProtoId] → Int → Annotated Comments ExpF → State Analysis () + aExp env path i (unAnn → e) = case e of + Var (Ann v) → aRead env path i v + Function params body → aProto env path i params body + FunctionCall fn args → go fn *> traverse_ go args + MethodCall obj _n args → go obj *> traverse_ go args + TableCtor rows → traverse_ (aRow . unAnn) rows + UnOp _op e1 → go e1 + BinOp _op e1 e2 → go e1 *> go e2 + Paren e1 → go e1 + Nil → pass + Boolean _ → pass + Integer _ → pass + Float _ → pass + String _ → pass + Vararg → pass + where + go = aExp env path i + aRow = \case + TableRowKV k v → go k *> go v + TableRowNV _n v → go v + TableRowV v → go v + + aRead ∷ Env → [ProtoId] → Int → VarF Comments → State Analysis () + aRead env path i = \case + VarField (Ann (Var (Ann (VarName t)))) x + | t == m → + if x `Set.member` promoted + then recordFieldRead path i x + else recordRef path BTable + VarField e _n → aExp env path i e + VarIndex e1 e2 → aExp env path i e1 *> aExp env path i e2 + VarName n → whenJust (Map.lookup n env) (recordRef path) + + -- An assignment target: a write also demands an upvalue slot when + -- it targets an outer local, and its subexpressions are reads. + aWrite ∷ Env → [ProtoId] → Int → VarF Comments → State Analysis () + aWrite env path i = \case + VarField (Ann (Var (Ann (VarName t)))) _x | t == m → pass + VarField e _n → aExp env path i e + VarIndex e1 e2 → aExp env path i e1 *> aExp env path i e2 + VarName n → whenJust (Map.lookup n env) (recordRef path) + + recordFieldRead ∷ [ProtoId] → Int → Name → State Analysis () + recordFieldRead path i x = modify' \st → + st + { readSites = (x, i, path) : readSites st + , ownRefs = case path of + [] → ownRefs st + cur : _ → + Map.insertWith (<>) cur (Set.singleton (BField x)) (ownRefs st) + , ownCounts = case path of + [] → ownCounts st + cur : _ → + Map.insertWith + (Map.unionWith (+)) + cur + (Map.singleton x 1) + (ownCounts st) + } + + recordRef ∷ [ProtoId] → Binder → State Analysis () + recordRef path b = case path of + [] → pass + cur : _ → + unless (binderOwner b == Just cur) $ modify' \st → + st {ownRefs = Map.insertWith (<>) cur (Set.singleton b) (ownRefs st)} + +-------------------------------------------------------------------------------- +-- Demotion planning ----------------------------------------------------------- + +{- | Decide, bottom-up over the proto tree, which promoted-field +references must degrade back to @M.x@ form: at every proto whose +upvalue demand exceeds the ceiling, field references within its +subtree are demoted cheapest-first (by subtree read count, ties to the +earlier-declared field) until the proto fits. Demoting swaps the field +for @M@ in the demand set, so the first demotion is free only when @M@ +is already demanded. +-} +planDemotions + ∷ Int + -- ^ Upvalue ceiling + → Map Name Int + -- ^ Promoted fields with their declaration order (initializer index) + → Analysis + → Map ProtoId (Set Name) +planDemotions upvalueCeiling declOrder analysis = + go Map.empty Map.empty Map.empty (protosBottomUp analysis) + where + go demand subCounts demotions = \case + [] → demotions + p : rest → + let kids = Map.findWithDefault [] p (protoKids analysis) + sub = + Map.unionsWith + (+) + ( Map.findWithDefault mempty p (ownCounts analysis) + : fmap (\k → Map.findWithDefault mempty k subCounts) kids + ) + demand0 = + Set.filter (\b → binderOwner b /= Just p) $ + Set.unions + ( Map.findWithDefault mempty p (ownRefs analysis) + : fmap (\k → Map.findWithDefault mempty k demand) kids + ) + demotable = + sortOn + (\x → (Map.findWithDefault 0 x sub, Map.lookup x declOrder)) + [x | BField x ← toList demand0] + (demandFinal, demoted) + | Set.size demand0 <= upvalueCeiling = (demand0, []) + | otherwise = demote demand0 demotable [] + in go + (Map.insert p demandFinal demand) + (Map.insert p sub subCounts) + ( if null demoted + then demotions + else Map.insert p (Set.fromList demoted) demotions + ) + rest + + demote s candidates acc = case candidates of + _ | Set.size s <= upvalueCeiling → (s, acc) + [] → (s, acc) + x : rest → + demote (Set.insert BTable (Set.delete (BField x) s)) rest (x : acc) + +-------------------------------------------------------------------------------- +-- Rewrite --------------------------------------------------------------------- + +data RewritePlan = RewritePlan + { planModuleTable ∷ Name + , planPromoted ∷ Map Name Int + -- ^ Promoted fields with their initializer's statement index + , planDemoted ∷ Map ProtoId (Set Name) + , planMirrored ∷ Set Name + {- ^ Fields with at least one demoted read: their locals are + mirrored into the module table + -} + , planForwardDeclared ∷ Set Name + {- ^ Fields read (as locals) before their initializer: pre-declared, + initialized by plain assignment + -} + , planPreDeclarations ∷ Map Int [Name] + -- ^ Pre-declarations to emit before the given top-level statement + , planDeclIndex ∷ Int + , planKeepDecl ∷ Bool + } + +-- See the traversal-order note above 'ProtoId': this walk numbers +-- protos exactly like the analysis walk. +rewriteChunk ∷ RewritePlan → Chunk → Chunk +rewriteChunk RewritePlan {..} chunk = + concat $ evalState (traverse rwTop (zip [0 ..] chunk)) 0 + where + m = planModuleTable + + rwTop ∷ (Int, Statement) → State ProtoId [Statement] + rwTop (i, stmt) = do + body ← + if + | i == planDeclIndex → + pure [stmt | planKeepDecl] + | Assign + ((_, VarField (Ann (Var (Ann (VarName t)))) x) :| []) + (v :| []) ← + stmt + , t == m + , Just initIndex ← Map.lookup x planPromoted + , initIndex == i → do + v' ← rwAnnExp mempty v + let bind + | x `Set.member` planForwardDeclared = + Assign (ann (VarName x) :| []) (v' :| []) + | otherwise = Local (x :| []) [v'] + mirror = + [ assign (VarField (ann (varName m)) x) (varName x) + | x `Set.member` planMirrored + ] + pure (bind : mirror) + | otherwise → + one <$> rwStmt mempty stmt + pure (preDeclarations <> body) + where + preDeclarations = + [ Local (x :| []) [] + | x ← + sortOn + (`Map.lookup` planPromoted) + (Map.findWithDefault [] i planPreDeclarations) + ] + + demotionsAt ∷ ProtoId → Set Name + demotionsAt p = Map.findWithDefault mempty p planDemoted + + enterProto ∷ Set Name → State ProtoId (Set Name) + enterProto demoted = state \pid → + (demoted <> demotionsAt pid, pid + 1) + + rwBlock ∷ Set Name → Block → State ProtoId Block + rwBlock demoted = traverse (traverse (rwStmt demoted)) + + rwStmt ∷ Set Name → Statement → State ProtoId Statement + rwStmt demoted = \case + Assign vars vals → + Assign + <$> traverse (traverse (rwWrite demoted)) vars + <*> traverse (rwAnnExp demoted) vals + Local names vals → Local names <$> traverse (rwAnnExp demoted) vals + IfThenElse p tb eb → + IfThenElse + <$> rwAnnExp demoted p + <*> rwBlock demoted tb + <*> rwBlock demoted eb + Return es → Return <$> traverse (rwAnnExp demoted) es + CallStatement e → CallStatement <$> rwAnnExp demoted e + Do body → Do <$> rwBlock demoted body + While p body → While <$> rwAnnExp demoted p <*> rwBlock demoted body + Repeat body p → Repeat <$> rwBlock demoted body <*> rwAnnExp demoted p + ForNum n start limit step body → + ForNum n + <$> rwAnnExp demoted start + <*> rwAnnExp demoted limit + <*> traverse (rwAnnExp demoted) step + <*> rwBlock demoted body + ForIn names es body → + ForIn names + <$> traverse (rwAnnExp demoted) es + <*> rwBlock demoted body + LocalFunction n params body → do + demoted' ← enterProto demoted + LocalFunction n params <$> rwBlock demoted' body + Break → pure Break + + rwAnnExp + ∷ Set Name + → Annotated Comments ExpF + → State ProtoId (Annotated Comments ExpF) + rwAnnExp demoted (c, e) = (c,) <$> rwExp demoted e + + rwExp ∷ Set Name → ExpF Comments → State ProtoId (ExpF Comments) + rwExp demoted = \case + moduleRead@(Var (c, VarField (Ann (Var (Ann (VarName t)))) x)) + | t == m + , x `Map.member` planPromoted → + pure + if x `Set.member` demoted + then moduleRead + else Var (c, VarName x) + Var (c, v) → Var . (c,) <$> rwRead demoted v + Function params body → do + demoted' ← enterProto demoted + Function params <$> rwBlock demoted' body + FunctionCall fn args → + FunctionCall + <$> rwAnnExp demoted fn + <*> traverse (rwAnnExp demoted) args + MethodCall obj n args → + MethodCall + <$> rwAnnExp demoted obj + <*> pure n + <*> traverse (rwAnnExp demoted) args + TableCtor rows → TableCtor <$> traverse (traverse rwRow) rows + UnOp op e → UnOp op <$> rwAnnExp demoted e + BinOp op e1 e2 → + BinOp op <$> rwAnnExp demoted e1 <*> rwAnnExp demoted e2 + Paren e → Paren <$> rwAnnExp demoted e + Nil → pure Nil + Boolean b → pure (Boolean b) + Integer i → pure (Integer i) + Float d → pure (Float d) + String s → pure (String s) + Vararg → pure Vararg + where + rwRow = \case + TableRowKV k v → + TableRowKV <$> rwAnnExp demoted k <*> rwAnnExp demoted v + TableRowNV n v → TableRowNV n <$> rwAnnExp demoted v + TableRowV v → TableRowV <$> rwAnnExp demoted v + + rwRead ∷ Set Name → VarF Comments → State ProtoId (VarF Comments) + rwRead demoted = \case + VarField e n → VarField <$> rwAnnExp demoted e <*> pure n + VarIndex e1 e2 → + VarIndex <$> rwAnnExp demoted e1 <*> rwAnnExp demoted e2 + v@(VarName _) → pure v + + -- An assignment target: a promoted field's initializer and mirror + -- are built in 'rwTop'; any other module-table field target keeps + -- its form, and only subexpressions are rewritten. + rwWrite ∷ Set Name → VarF Comments → State ProtoId (VarF Comments) + rwWrite demoted = \case + v@(VarField (Ann (Var (Ann (VarName t)))) _x) | t == m → pure v + v → rwRead demoted v diff --git a/pslua.cabal b/pslua.cabal index 625e247e..be2244f9 100644 --- a/pslua.cabal +++ b/pslua.cabal @@ -147,6 +147,7 @@ library Language.PureScript.Backend.Lua.Fixture Language.PureScript.Backend.Lua.ForeignLift Language.PureScript.Backend.Lua.Key + Language.PureScript.Backend.Lua.Limits Language.PureScript.Backend.Lua.Linker.Foreign Language.PureScript.Backend.Lua.Localize Language.PureScript.Backend.Lua.Loopify @@ -155,6 +156,7 @@ library Language.PureScript.Backend.Lua.Optimizer Language.PureScript.Backend.Lua.Parser Language.PureScript.Backend.Lua.Printer + Language.PureScript.Backend.Lua.Promote Language.PureScript.Backend.Lua.Run Language.PureScript.Backend.Lua.Traversal Language.PureScript.Backend.Lua.Types @@ -202,6 +204,7 @@ test-suite spec Language.PureScript.Backend.Lua.Optimizer.Spec Language.PureScript.Backend.Lua.Parser.Spec Language.PureScript.Backend.Lua.Printer.Spec + Language.PureScript.Backend.Lua.Promote.Spec Language.PureScript.Backend.Lua.Run.Spec Language.PureScript.Backend.Lua.Spec Language.PureScript.Backend.Lua.Traversal.Spec diff --git a/test/Language/PureScript/Backend/Lua/Golden/Spec.hs b/test/Language/PureScript/Backend/Lua/Golden/Spec.hs index 935bd843..56727897 100644 --- a/test/Language/PureScript/Backend/Lua/Golden/Spec.hs +++ b/test/Language/PureScript/Backend/Lua/Golden/Spec.hs @@ -17,6 +17,7 @@ import Language.PureScript.Backend.IR.Linker qualified as Linker import Language.PureScript.Backend.IR.Optimizer (optimizedUberModuleChecked) import Language.PureScript.Backend.Lua qualified as Lua import Language.PureScript.Backend.Lua.ForeignLift qualified as ForeignLift +import Language.PureScript.Backend.Lua.Limits (LuaLimits, lua51Limits) import Language.PureScript.Backend.Lua.Optimizer (optimizeChunk) import Language.PureScript.Backend.Lua.Parser qualified as Parser import Language.PureScript.Backend.Lua.Printer qualified as Printer @@ -132,7 +133,7 @@ spec = do True → AsApplication moduleName (PS.Ident "main") False → AsModule moduleName cfn ← compileCorefn (Tagged (Rel psOutputPath)) moduleName - compileIr appOrModule cfn + compileIr appOrModule lua51Limits cfn describe "golden files should evaluate" do let @@ -204,8 +205,9 @@ spec = do do let psModname = PS.ModuleName "Golden.ApplySpine.Test" uber = applySpineUberModule 300 - nested ← compileIr (AsModule psModname) uber - flat ← compileIr (AsModule psModname) (flattenDeepBinds uber) + nested ← compileIr (AsModule psModname) lua51Limits uber + flat ← + compileIr (AsModule psModname) lua51Limits (flattenDeepBinds uber) -- The error message below is the real discriminator: `luac` reports -- "too many syntax levels" (nesting), a distinct message from its locals @@ -304,8 +306,13 @@ compileCorefn outputDir uberModuleName = do -- the whole pipeline. either (fail . show) pure (optimizedUberModuleChecked liftedModule) -compileIr ∷ (MonadIO m, MonadMask m) ⇒ AppOrModule → IR.UberModule → m Text -compileIr appOrModule uberModule = withCurrentDir [reldir|test/ps|] do +compileIr + ∷ (MonadIO m, MonadMask m) + ⇒ AppOrModule + → LuaLimits + → IR.UberModule + → m Text +compileIr appOrModule limits uberModule = withCurrentDir [reldir|test/ps|] do foreignPath ← Tagged <$> makeAbsolute [reldir|foreign|] luaChunk ← Lua.fromUberModule foreignPath (Tagged True) appOrModule uberModule @@ -315,7 +322,7 @@ compileIr appOrModule uberModule = withCurrentDir [reldir|test/ps|] do let doc = luaChunk - & optimizeChunk + & optimizeChunk limits & Printer.printLuaChunk let addTrailingLf = (<> "\n") let rendered = addTrailingLf $ renderStrict $ layoutPretty defaultLayoutOptions doc diff --git a/test/Language/PureScript/Backend/Lua/Localize/Spec.hs b/test/Language/PureScript/Backend/Lua/Localize/Spec.hs index 31ab2c04..b8b35e62 100644 --- a/test/Language/PureScript/Backend/Lua/Localize/Spec.hs +++ b/test/Language/PureScript/Backend/Lua/Localize/Spec.hs @@ -4,6 +4,7 @@ module Language.PureScript.Backend.Lua.Localize.Spec where import Data.String.Interpolate (__i) import Data.Text qualified as Text +import Language.PureScript.Backend.Lua.Limits (lua51Limits) import Language.PureScript.Backend.Lua.Localize ( localizeChunk , maxCachedFieldsPerFunction @@ -282,7 +283,7 @@ spec = describe "Lua module-table field localization (#174)" do , "end" , "return { f = M.f }" ] - case localizeChunk [name|M|] (unsafeParseStatements source) of + case localizeChunk lua51Limits [name|M|] (unsafeParseStatements source) of [ _localM , Lua.Assign _vars (Lua.Ann (Lua.Function _params body) :| []) , _return @@ -335,7 +336,7 @@ render = localizesTo ∷ HasCallStack ⇒ Text → Text → Expectation localizesTo source expected = - render (localizeChunk [name|M|] (unsafeParseStatements source)) + render (localizeChunk lua51Limits [name|M|] (unsafeParseStatements source)) `shouldBe` render (unsafeParseStatements expected) unchanged ∷ HasCallStack ⇒ Text → Expectation diff --git a/test/Language/PureScript/Backend/Lua/Promote/Spec.hs b/test/Language/PureScript/Backend/Lua/Promote/Spec.hs new file mode 100644 index 00000000..4d650660 --- /dev/null +++ b/test/Language/PureScript/Backend/Lua/Promote/Spec.hs @@ -0,0 +1,310 @@ +{-# LANGUAGE QuasiQuotes #-} +{-# LANGUAGE TemplateHaskell #-} + +module Language.PureScript.Backend.Lua.Promote.Spec where + +import Data.String.Interpolate (__i) +import Data.Tagged (Tagged (..)) +import Data.Text qualified as Text +import Language.PureScript.Backend.Lua.Golden.Spec (compileCorefn, compileIr) +import Language.PureScript.Backend.Lua.Limits (LuaLimits (..), lua51Limits) +import Language.PureScript.Backend.Lua.Name (name) +import Language.PureScript.Backend.Lua.Parser (unsafeParseStatements) +import Language.PureScript.Backend.Lua.Printer qualified as Printer +import Language.PureScript.Backend.Lua.Promote (promoteChunk) +import Language.PureScript.Backend.Lua.Types qualified as Lua +import Language.PureScript.Backend.Types (AppOrModule (..)) +import Language.PureScript.Names qualified as PS +import Path (SomeBase (..), mkRelDir, toFilePath) +import Path.IO (withSystemTempFile) +import Prettyprinter (defaultLayoutOptions, layoutPretty) +import Prettyprinter.Render.Text (renderStrict) +import System.IO (hClose) +import System.Process.Typed (ExitCode (..), readProcessInterleaved) +import Test.Hspec (Expectation, Spec, describe, it, shouldSatisfy) +import Test.Hspec.Expectations.Pretty (shouldBe) + +spec ∷ Spec +spec = describe "Lua two-tier top-level binding storage (#174)" do + it "promotes bindings to chunk locals and drops the module table" do + [__i| + local M = {} + M.a = 1 + M.f = function(x) return M.a + x end + return { f = M.f, a = M.a } + |] + `promotesTo` [__i| + local a = 1 + local f = function(x) return a + x end + return { f = f, a = a } + |] + + it "pre-declares a self-recursive binding" do + [__i| + local M = {} + M.fib = function(n) + if n < 2 then return n else return M.fib(n - 1) + M.fib(n - 2) end + end + return { fib = M.fib } + |] + `promotesTo` [__i| + local fib + fib = function(n) + if n < 2 then return n else return fib(n - 1) + fib(n - 2) end + end + return { fib = fib } + |] + + it "pre-declares only the forward-referenced group members" do + [__i| + local M = {} + M.even = function(n) + if n == 0 then return true else return M.odd(n - 1) end + end + M.odd = function(n) + if n == 0 then return false else return M.even(n - 1) end + end + return { even = M.even } + |] + `promotesTo` [__i| + local odd + local even = function(n) + if n == 0 then return true else return odd(n - 1) end + end + odd = function(n) + if n == 0 then return false else return even(n - 1) end + end + return { even = even } + |] + + it "keeps overflow bindings in the module table on a short locals budget" do + -- workingLocalCeiling = 23 - 20 = 3; `local M` occupies one slot, so + -- only the top two fields by read count are promoted. + promotesWith + LuaLimits {maxLocals = 23, maxUpvalues = 60} + [__i| + local M = {} + M.a = 1 + M.b = 2 + M.c = 3 + M.f = function() return M.a + M.a + M.b + M.b + M.c end + return { f = M.f } + |] + [__i| + local M = {} + local a = 1 + local b = 2 + M.c = 3 + M.f = function() return a + a + b + b + M.c end + return { f = M.f } + |] + + it "degrades to the module-table form when the locals budget is spent" do + unchangedWith + LuaLimits {maxLocals = 21, maxUpvalues = 60} + [__i| + local M = {} + M.a = 1 + M.f = function(x) return M.a + x end + return { f = M.f, a = M.a } + |] + + it "demotes reads inside an over-budget function, keeping the local" do + -- workingUpvalueCeiling = 8 - 5 = 3. The demoted fields are mirrored + -- into the module table, and g still reads the chunk local `e`. + promotesWith + LuaLimits {maxLocals = 200, maxUpvalues = 8} + [__i| + local M = {} + M.a = 1 + M.b = 2 + M.c = 3 + M.d = 4 + M.e = 5 + M.f = function() + return M.a + M.a + M.a + M.b + M.b + M.c + M.c + M.d + M.e + end + M.g = function() return M.e + M.e end + return { f = M.f, g = M.g } + |] + [__i| + local M = {} + local a = 1 + local b = 2 + M.b = b + local c = 3 + local d = 4 + M.d = d + local e = 5 + M.e = e + local f = function() + return a + a + a + M.b + M.b + c + c + M.d + M.e + end + local g = function() return e + e end + return { f = f, g = g } + |] + + it "accounts for the pass-through upvalues of intermediate functions" do + -- The innermost function needs p and q on top of the promoted + -- fields, and every intermediate function materializes its + -- children's demands, so the fields demote level by level. + promotesWith + LuaLimits {maxLocals = 200, maxUpvalues = 8} + [__i| + local M = {} + M.a = 1 + M.b = 2 + M.c = 3 + M.f = function(p) + return function(q) + return function(r) + return M.a + M.b + M.c + p + q + end + end + end + return { f = M.f } + |] + [__i| + local M = {} + local a = 1 + M.a = a + local b = 2 + M.b = b + local c = 3 + M.c = c + local f = function(p) + return function(q) + return function(r) + return M.a + M.b + M.c + p + q + end + end + end + return { f = f } + |] + + it "resolves a reference before its declaration as an outer reference" do + -- Inside g the name v is not yet declared, so it resolves outside f + -- (a global): it must not count toward g's upvalue demand, and no + -- demotion happens at the ceiling of 3. + promotesWith + LuaLimits {maxLocals = 200, maxUpvalues = 8} + [__i| + local M = {} + M.a = 1 + M.b = 2 + M.c = 3 + M.f = function() + local g = function() return v + M.a + M.b + M.c end + local v = 1 + return g() + v + end + return { f = M.f } + |] + [__i| + local a = 1 + local b = 2 + local c = 3 + local f = function() + local g = function() return v + a + b + c end + local v = 1 + return g() + v + end + return { f = f } + |] + + it "declines a binding whose name is used elsewhere in the chunk" do + [__i| + local M = {} + M.a = 1 + M.f = function(x) + local a = x + return a + M.a + M.a + end + return { f = M.f } + |] + `promotesTo` [__i| + local M = {} + M.a = 1 + local f = function(x) + local a = x + return a + M.a + M.a + end + return { f = f } + |] + + it "leaves the chunk alone when the module table is unstable" do + unchanged + [__i| + local M = {} + M.a = 1 + M.f = function(x) + M.a = x + return M.a + end + return { f = M.f } + |] + + it "leaves a chunk without a module table alone" do + unchanged + [__i| + local x = 1 + return { x = x } + |] + + describe "keeps evaluation output intact under non-default limits" do + -- End-to-end proof that the limits are honored by the real pipeline + -- and that degrading to the module-table form preserves semantics: a + -- golden module compiled with tight budgets must print exactly its + -- hand-verified eval oracle. + let modname = PS.ModuleName "Golden.GenericEqTwoTypes.Test" + psOutputPath = $(mkRelDir "test/ps/output/") + oracle = + "test/ps/output/Golden.GenericEqTwoTypes.Test/eval/golden.txt" + cases = + [ ("a low locals budget", LuaLimits {maxLocals = 25, maxUpvalues = 60}) + , ("a low upvalue budget", LuaLimits {maxLocals = 200, maxUpvalues = 8}) + ] + for_ cases \(caseName, limits) → + it ("evaluates unchanged under " <> caseName) do + uber ← compileCorefn (Tagged (Rel psOutputPath)) modname + luaText ← + compileIr (AsApplication modname (PS.Ident "main")) limits uber + -- The tight locals budget must actually bite: the module table + -- survives, proving the limits reached the pass. + when (maxLocals limits < 200) $ + luaText `shouldSatisfy` Text.isInfixOf "local M = {}" + expected ← decodeUtf8 <$> readFileBS oracle + out ← withSystemTempFile "pslua-promote-e2e.lua" \path h → do + hClose h + writeFileText (toFilePath path) luaText + (exitCode, out) ← + readProcessInterleaved (fromString ("lua " <> toFilePath path)) + exitCode `shouldBe` ExitSuccess + pure out + normalizeOutput (decodeUtf8 out) `shouldBe` normalizeOutput expected + +-------------------------------------------------------------------------------- +-- Helper Functions ------------------------------------------------------------ + +render ∷ Lua.Chunk → Text +render = + renderStrict . layoutPretty defaultLayoutOptions . Printer.printLuaChunk + +promotesWith ∷ HasCallStack ⇒ LuaLimits → Text → Text → Expectation +promotesWith limits source expected = + render (promoteChunk limits [name|M|] (unsafeParseStatements source)) + `shouldBe` render (unsafeParseStatements expected) + +promotesTo ∷ HasCallStack ⇒ Text → Text → Expectation +promotesTo = promotesWith lua51Limits + +unchangedWith ∷ HasCallStack ⇒ LuaLimits → Text → Expectation +unchangedWith limits source = promotesWith limits source source + +unchanged ∷ HasCallStack ⇒ Text → Expectation +unchanged source = source `promotesTo` source + +-- Mirrors the eval-golden normalization of the golden harness. +normalizeOutput ∷ Text → Text +normalizeOutput = + unlines . filter (not . Text.null) . fmap Text.stripStart . lines diff --git a/test/Main.hs b/test/Main.hs index 559abed5..54a25f75 100644 --- a/test/Main.hs +++ b/test/Main.hs @@ -21,6 +21,7 @@ import Language.PureScript.Backend.Lua.NestingCheck.Spec qualified as NestingChe import Language.PureScript.Backend.Lua.Optimizer.Spec qualified as LuaOptimizer import Language.PureScript.Backend.Lua.Parser.Spec qualified as LuaParser import Language.PureScript.Backend.Lua.Printer.Spec qualified as Printer +import Language.PureScript.Backend.Lua.Promote.Spec qualified as LuaPromote import Language.PureScript.Backend.Lua.Run.Spec qualified as Run import Language.PureScript.Backend.Lua.Spec qualified as Lua import Language.PureScript.Backend.Lua.Traversal.Spec qualified as LuaTraversal @@ -43,6 +44,7 @@ main = hspec do IRUniquify.spec LuaOptimizer.spec LuaLocalize.spec + LuaPromote.spec Lua.spec LuaParser.spec LuaDifferential.spec diff --git a/test/ps/output/Golden.Annotations.M1/golden.lua b/test/ps/output/Golden.Annotations.M1/golden.lua index 66eaff25..e0cbabf0 100644 --- a/test/ps/output/Golden.Annotations.M1/golden.lua +++ b/test/ps/output/Golden.Annotations.M1/golden.lua @@ -1,5 +1,4 @@ -local M = {} -M.Golden_Annotations_M1_foreign = (function() +local Golden_Annotations_M1_foreign = (function() local step = 2 return { dontInlineClosure = function(i) return i + step end, @@ -10,6 +9,6 @@ return { inlineMe = function(v_S_0) if 1 == v_S_0 then return 2 else return v_S_0 end end, - dontInlineClosure = M.Golden_Annotations_M1_foreign.dontInlineClosure, - inlineMeLambda = M.Golden_Annotations_M1_foreign.inlineMeLambda + dontInlineClosure = Golden_Annotations_M1_foreign.dontInlineClosure, + inlineMeLambda = Golden_Annotations_M1_foreign.inlineMeLambda } diff --git a/test/ps/output/Golden.Annotations.M2/golden.lua b/test/ps/output/Golden.Annotations.M2/golden.lua index c2040c8b..894ac41e 100644 --- a/test/ps/output/Golden.Annotations.M2/golden.lua +++ b/test/ps/output/Golden.Annotations.M2/golden.lua @@ -1,5 +1,4 @@ -local M = {} -M.Golden_Annotations_M1_foreign = (function() +local Golden_Annotations_M1_foreign = (function() local step = 2 return { dontInlineClosure = function(i) return i + step end, @@ -16,5 +15,5 @@ return { end)() if 1 == v_S_2 then return 2 else return v_S_2 end end, - inlineIntoMe2 = M.Golden_Annotations_M1_foreign.dontInlineClosure(M.Golden_Annotations_M1_foreign.inlineMeLambda(M.Golden_Annotations_M1_foreign.inlineMeLambda(17))) + inlineIntoMe2 = Golden_Annotations_M1_foreign.dontInlineClosure(Golden_Annotations_M1_foreign.inlineMeLambda(Golden_Annotations_M1_foreign.inlineMeLambda(17))) } diff --git a/test/ps/output/Golden.ArrayOfUnits.Test/golden.lua b/test/ps/output/Golden.ArrayOfUnits.Test/golden.lua index 8c756b6c..dbaf93f1 100644 --- a/test/ps/output/Golden.ArrayOfUnits.Test/golden.lua +++ b/test/ps/output/Golden.ArrayOfUnits.Test/golden.lua @@ -16,10 +16,9 @@ local function PSLUA_runtime_lazy(name) end end end -local M = {} -M.Data_Unit_foreign = { unit = {} } -M.Data_Show_foreign = { showIntImpl = function(n) return tostring(n) end } -M.Data_Foldable_foreign = { +local Data_Unit_foreign = { unit = {} } +local Data_Show_foreign = { showIntImpl = function(n) return tostring(n) end } +local Data_Foldable_foreign = { foldrArray = function(f) return function(init) return function(xs) @@ -41,21 +40,22 @@ M.Data_Foldable_foreign = { end end } -M.Effect_foreign = { +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 } -M.Effect_Console_foreign = { +local Effect_Console_foreign = { log = function(s) return function() print(s) end end } -M.Data_Foldable_foldableArray = { - foldr = M.Data_Foldable_foreign.foldrArray, - foldl = M.Data_Foldable_foreign.foldlArray, +local Data_Foldable_foldableArray +Data_Foldable_foldableArray = { + foldr = Data_Foldable_foreign.foldrArray, + foldl = Data_Foldable_foreign.foldlArray, foldMap = function(dictMonoid) return function(f_S_917) - return M.Data_Foldable_foldableArray.foldr(function(x_S_918) + return Data_Foldable_foldableArray.foldr(function(x_S_918) return function(acc_S_919) return (dictMonoid.Semigroup0()).append(f_S_917(x_S_918))(acc_S_919) end @@ -63,60 +63,60 @@ M.Data_Foldable_foldableArray = { end end } -M.Effect_monadEffect = { - Applicative0 = function() return M.Effect_applicativeEffect end, - Bind1 = function() return M.Effect_bindEffect end +local Effect_bindEffect +local Effect_applicativeEffect +local Effect_monadEffect = { + Applicative0 = function() return Effect_applicativeEffect end, + Bind1 = function() return Effect_bindEffect end } -M.Effect_bindEffect = { - bind = M.Effect_foreign.bindE, - Apply0 = function() return M.Effect_Lazy_applyEffect(0) end +local Effect_Lazy_applyEffect +Effect_bindEffect = { + bind = Effect_foreign.bindE, + Apply0 = function() return Effect_Lazy_applyEffect(0) end } -M.Effect_applicativeEffect = { - pure = M.Effect_foreign.pureE, - Apply0 = function() return M.Effect_Lazy_applyEffect(0) end +Effect_applicativeEffect = { + pure = Effect_foreign.pureE, + Apply0 = function() return Effect_Lazy_applyEffect(0) end } -M.Effect_Lazy_functorEffect = PSLUA_runtime_lazy("functorEffect")(function() +local Effect_Lazy_functorEffect = PSLUA_runtime_lazy("functorEffect")(function() return { map = function(f_S_707) return function(a_S_708) - local Effect_applicativeEffect = M.Effect_applicativeEffect return (Effect_applicativeEffect.Apply0()).apply(Effect_applicativeEffect.pure(f_S_707))(a_S_708) end end } end) -M.Effect_Lazy_applyEffect = PSLUA_runtime_lazy("applyEffect")(function() +Effect_Lazy_applyEffect = PSLUA_runtime_lazy("applyEffect")(function() return { apply = (function() - local bind_S_687 = (M.Effect_monadEffect.Bind1()).bind + local bind_S_687 = (Effect_monadEffect.Bind1()).bind return function(f_S_689) return function(a_S_690) return bind_S_687(f_S_689)(function(fPrime_S_691) return bind_S_687(a_S_690)(function(aPrime_S_692) - return (M.Effect_monadEffect.Applicative0()).pure(fPrime_S_691(aPrime_S_692)) + return (Effect_monadEffect.Applicative0()).pure(fPrime_S_691(aPrime_S_692)) end) end) end end end)(), - Functor0 = function() return M.Effect_Lazy_functorEffect(0) end + Functor0 = function() return Effect_Lazy_functorEffect(0) end } end) -M.Effect_Console_logShow_S_w = function(dictShow, a) - return M.Effect_Console_foreign.log(dictShow.show(a)) +local Effect_Console_logShow_S_w = function(dictShow, a) + return Effect_Console_foreign.log(dictShow.show(a)) end return (function() - local Data_Unit_foreign = M.Data_Unit_foreign local arr_S_0 = { [1] = Data_Unit_foreign.unit, [2] = Data_Unit_foreign.unit, [3] = Data_Unit_foreign.unit } return function() - local Data_Foldable_foldableArray = M.Data_Foldable_foldableArray local _ = Data_Foldable_foldableArray.foldr(function(x_S_940) return (function() - local dictApply_S_925 = M.Effect_applicativeEffect.Apply0() + local dictApply_S_925 = Effect_applicativeEffect.Apply0() return function(a_S_926) return function(b_S_927) return dictApply_S_925.apply((dictApply_S_925.Functor0()).map(function( ) @@ -124,12 +124,12 @@ return (function() end)(a_S_926))(b_S_927) end end - end)()(M.Effect_Console_logShow_S_w({ + end)()(Effect_Console_logShow_S_w({ show = function() return "unit" end }, x_S_940)) - end)(M.Effect_applicativeEffect.pure(M.Data_Unit_foreign.unit))(arr_S_0)() - return M.Effect_Console_logShow_S_w({ - show = M.Data_Show_foreign.showIntImpl + end)(Effect_applicativeEffect.pure(Data_Unit_foreign.unit))(arr_S_0)() + return Effect_Console_logShow_S_w({ + show = Data_Show_foreign.showIntImpl }, Data_Foldable_foldableArray.foldl(function(c_S_372_S_914) return function() return 1 + c_S_372_S_914 end end)(0)(arr_S_0))() diff --git a/test/ps/output/Golden.ArrayPatternMatch.Test/golden.lua b/test/ps/output/Golden.ArrayPatternMatch.Test/golden.lua index 860734a0..36248816 100644 --- a/test/ps/output/Golden.ArrayPatternMatch.Test/golden.lua +++ b/test/ps/output/Golden.ArrayPatternMatch.Test/golden.lua @@ -1,6 +1,6 @@ local M = {} -M.Data_Show_foreign = { showIntImpl = function(n) return tostring(n) end } -M.Effect_Console_foreign = { +local Data_Show_foreign = { showIntImpl = function(n) return tostring(n) end } +local Effect_Console_foreign = { log = function(s) return function() print(s) end end } M.Golden_ArrayPatternMatch_Test_lastOfThree = function(v) @@ -10,7 +10,6 @@ M.Golden_ArrayPatternMatch_Test_firstTwo = function(v) if 2 == #(v) then return v[1] + v[2] else return -1 end end return (function() - local Data_Show_foreign, Effect_Console_foreign = M.Data_Show_foreign, M.Effect_Console_foreign local _ = Effect_Console_foreign.log(Data_Show_foreign.showIntImpl((function() local v_S_235 = { [1] = 10, [2] = 20 } if 2 == #(v_S_235) then return v_S_235[1] + v_S_235[2] else return -1 end diff --git a/test/ps/output/Golden.BugListGenericEq.Test/golden.lua b/test/ps/output/Golden.BugListGenericEq.Test/golden.lua index 0b91950a..87aac1c9 100644 --- a/test/ps/output/Golden.BugListGenericEq.Test/golden.lua +++ b/test/ps/output/Golden.BugListGenericEq.Test/golden.lua @@ -1,17 +1,17 @@ local M = {} -M.Record_Unsafe_foreign = { +local Record_Unsafe_foreign = { unsafeGet = function(l) return function(r) return r[l] end end } -M.Effect_Console_foreign = { +local Effect_Console_foreign = { log = function(s) return function() print(s) end end } -M.Type_Proxy_Proxy = {} -M.Data_HeytingAlgebra_heytingAlgebraBoolean = { +local Type_Proxy_Proxy = {} +local Data_HeytingAlgebra_heytingAlgebraBoolean +Data_HeytingAlgebra_heytingAlgebraBoolean = { ff = false, tt = true, implies = function(a) return function(b) - local Data_HeytingAlgebra_heytingAlgebraBoolean = M.Data_HeytingAlgebra_heytingAlgebraBoolean return Data_HeytingAlgebra_heytingAlgebraBoolean.disj(Data_HeytingAlgebra_heytingAlgebraBoolean._not_(a))(b) end end, @@ -23,7 +23,7 @@ M.Data_HeytingAlgebra_heytingAlgebraBoolean = { end, _not_ = function(b_S_229) return not(b_S_229) end } -M.Data_Eq_eqRowCons_S_w = function( dictEqRecord +local Data_Eq_eqRowCons_S_w = function( dictEqRecord , eqRowCons_S_u2 , dictIsSymbol , dictEq ) @@ -31,19 +31,18 @@ M.Data_Eq_eqRowCons_S_w = function( dictEqRecord eqRecord = function() return function(ra) return function(rb) - local Type_Proxy_Proxy = M.Type_Proxy_Proxy local key = dictIsSymbol.reflectSymbol(Type_Proxy_Proxy) - local get = M.Record_Unsafe_foreign.unsafeGet(key) - return M.Data_HeytingAlgebra_heytingAlgebraBoolean.conj(dictEq.eq(get(ra))(get(rb)))(dictEqRecord.eqRecord(Type_Proxy_Proxy)(ra)(rb)) + local get = Record_Unsafe_foreign.unsafeGet(key) + return Data_HeytingAlgebra_heytingAlgebraBoolean.conj(dictEq.eq(get(ra))(get(rb)))(dictEqRecord.eqRecord(Type_Proxy_Proxy)(ra)(rb)) end end end } end -M.Golden_BugListGenericEq_Test_Nil = { +local Golden_BugListGenericEq_Test_Nil = { ["$ctor"] = "Golden.BugListGenericEq.Test∷List.Nil" } -M.Golden_BugListGenericEq_Test_Cons = function(value0) +local Golden_BugListGenericEq_Test_Cons = function(value0) return { ["$ctor"] = "Golden.BugListGenericEq.Test∷List.Cons", value0 = value0 @@ -52,9 +51,9 @@ end M.Golden_BugListGenericEq_Test_genericList = { to = function(x) if "Data.Generic.Rep∷Sum.Inl" == x["$ctor"] then - return M.Golden_BugListGenericEq_Test_Nil + return Golden_BugListGenericEq_Test_Nil elseif "Data.Generic.Rep∷Sum.Inr" == x["$ctor"] then - return M.Golden_BugListGenericEq_Test_Cons(x.value0) + return Golden_BugListGenericEq_Test_Cons(x.value0) else return error("No patterns matched") end @@ -73,7 +72,8 @@ M.Golden_BugListGenericEq_Test_genericList = { end end } -M.Golden_BugListGenericEq_Test_eqList = function(dictEq) +local Golden_BugListGenericEq_Test_eqList +Golden_BugListGenericEq_Test_eqList = function(dictEq) return { eq = function(x) return function(y) @@ -102,15 +102,15 @@ M.Golden_BugListGenericEq_Test_eqList = function(dictEq) return "Data.Generic.Rep∷Sum.Inl" == v1_S_14["$ctor"] elseif "Data.Generic.Rep∷Sum.Inr" == v_S_13["$ctor"] then if "Data.Generic.Rep∷Sum.Inr" == v1_S_14["$ctor"] then - return (M.Data_Eq_eqRowCons_S_w(M.Data_Eq_eqRowCons_S_w({ + return (Data_Eq_eqRowCons_S_w(Data_Eq_eqRowCons_S_w({ eqRecord = function() return function() return function() return true end end end }, nil, { reflectSymbol = function() return "tail" end - }, M.Golden_BugListGenericEq_Test_eqList(dictEq)), nil, { + }, Golden_BugListGenericEq_Test_eqList(dictEq)), nil, { reflectSymbol = function() return "head" end - }, dictEq)).eqRecord(M.Type_Proxy_Proxy)(v_S_13.value0)(v1_S_14.value0) + }, dictEq)).eqRecord(Type_Proxy_Proxy)(v_S_13.value0)(v1_S_14.value0) else return false end @@ -135,16 +135,15 @@ M.Golden_BugListGenericEq_Test_eqList = function(dictEq) end } end -M.Golden_BugListGenericEq_Test_eq = (M.Golden_BugListGenericEq_Test_eqList({ +local Golden_BugListGenericEq_Test_eq = (Golden_BugListGenericEq_Test_eqList({ eq = function(r1_S_225_S_238) return function(r2_S_226_S_239) return r1_S_225_S_238 == r2_S_226_S_239 end end })).eq -M.Golden_BugListGenericEq_Test_cons_S_w = function(head, tail) - return M.Golden_BugListGenericEq_Test_Cons({ head = head, tail = tail }) +local Golden_BugListGenericEq_Test_cons_S_w = function(head, tail) + return Golden_BugListGenericEq_Test_Cons({ head = head, tail = tail }) end return (function() - local Golden_BugListGenericEq_Test_Nil, Golden_BugListGenericEq_Test_cons_S_w, Effect_Console_foreign, Golden_BugListGenericEq_Test_eq = M.Golden_BugListGenericEq_Test_Nil, M.Golden_BugListGenericEq_Test_cons_S_w, M.Effect_Console_foreign, M.Golden_BugListGenericEq_Test_eq local _ = (function() local a_S_2_S_270 = Golden_BugListGenericEq_Test_eq(Golden_BugListGenericEq_Test_Nil)(Golden_BugListGenericEq_Test_Nil) return Effect_Console_foreign.log((function() diff --git a/test/ps/output/Golden.CharLiterals.Test/golden.lua b/test/ps/output/Golden.CharLiterals.Test/golden.lua index 637caec0..6884bf25 100644 --- a/test/ps/output/Golden.CharLiterals.Test/golden.lua +++ b/test/ps/output/Golden.CharLiterals.Test/golden.lua @@ -1,5 +1,4 @@ -local M = {} -M.Data_Show_foreign = { +local Data_Show_foreign = { showCharImpl = function(n) local code = n:byte() if code < 32 or code == 127 then @@ -16,12 +15,11 @@ M.Data_Show_foreign = { return "'" .. n .. "'" end } -M.Effect_Console_foreign = { +local Effect_Console_foreign = { log = function(s) return function() print(s) end end } -M.Golden_CharLiterals_Test_show = M.Data_Show_foreign.showCharImpl +local Golden_CharLiterals_Test_show = Data_Show_foreign.showCharImpl return (function() - local Effect_Console_foreign, Golden_CharLiterals_Test_show = M.Effect_Console_foreign, M.Golden_CharLiterals_Test_show local _ = Effect_Console_foreign.log(Golden_CharLiterals_Test_show("\n"))() local _ = Effect_Console_foreign.log(Golden_CharLiterals_Test_show("\t"))() local _ = Effect_Console_foreign.log(Golden_CharLiterals_Test_show("\r"))() diff --git a/test/ps/output/Golden.DerivedFunctor.Test/golden.lua b/test/ps/output/Golden.DerivedFunctor.Test/golden.lua index 958ae62e..d9ddade7 100644 --- a/test/ps/output/Golden.DerivedFunctor.Test/golden.lua +++ b/test/ps/output/Golden.DerivedFunctor.Test/golden.lua @@ -1,12 +1,12 @@ local M = {} -M.Data_Show_foreign = { showIntImpl = function(n) return tostring(n) end } -M.Effect_Console_foreign = { +local Data_Show_foreign = { showIntImpl = function(n) return tostring(n) end } +local Effect_Console_foreign = { log = function(s) return function() print(s) end end } -M.Golden_DerivedFunctor_Test_Leaf = { +local Golden_DerivedFunctor_Test_Leaf = { ["$ctor"] = "Golden.DerivedFunctor.Test∷Tree.Leaf" } -M.Golden_DerivedFunctor_Test_Node = function(value0) +local Golden_DerivedFunctor_Test_Node = function(value0) return function(value1) return function(value2) return { @@ -18,34 +18,36 @@ M.Golden_DerivedFunctor_Test_Node = function(value0) end end end -M.Golden_DerivedFunctor_Test_Left = function(value0) +local Golden_DerivedFunctor_Test_Left = function(value0) return { ["$ctor"] = "Golden.DerivedFunctor.Test∷Either.Left", value0 = value0 } end -M.Golden_DerivedFunctor_Test_Right = function(value0) +local Golden_DerivedFunctor_Test_Right = function(value0) return { ["$ctor"] = "Golden.DerivedFunctor.Test∷Either.Right", value0 = value0 } end -M.Golden_DerivedFunctor_Test_sumTree = function(v) +local Golden_DerivedFunctor_Test_sumTree +Golden_DerivedFunctor_Test_sumTree = function(v) if "Golden.DerivedFunctor.Test∷Tree.Leaf" == v["$ctor"] then return 0 elseif "Golden.DerivedFunctor.Test∷Tree.Node" == v["$ctor"] then - return M.Golden_DerivedFunctor_Test_sumTree(v.value0) + v.value1 + M.Golden_DerivedFunctor_Test_sumTree(v.value2) + return Golden_DerivedFunctor_Test_sumTree(v.value0) + v.value1 + Golden_DerivedFunctor_Test_sumTree(v.value2) else return error("No patterns matched") end end -M.Golden_DerivedFunctor_Test_functorTree = { +local Golden_DerivedFunctor_Test_functorTree +Golden_DerivedFunctor_Test_functorTree = { map = function(f) return function(m) if "Golden.DerivedFunctor.Test∷Tree.Leaf" == m["$ctor"] then - return M.Golden_DerivedFunctor_Test_Leaf + return Golden_DerivedFunctor_Test_Leaf elseif "Golden.DerivedFunctor.Test∷Tree.Node" == m["$ctor"] then - return M.Golden_DerivedFunctor_Test_Node(M.Golden_DerivedFunctor_Test_functorTree.map(f)(m.value0))(f(m.value1))(M.Golden_DerivedFunctor_Test_functorTree.map(f)(m.value2)) + return Golden_DerivedFunctor_Test_Node(Golden_DerivedFunctor_Test_functorTree.map(f)(m.value0))(f(m.value1))(Golden_DerivedFunctor_Test_functorTree.map(f)(m.value2)) else return error("No patterns matched") end @@ -56,16 +58,16 @@ M.Golden_DerivedFunctor_Test_functorEither = { map = function(f) return function(m) if "Golden.DerivedFunctor.Test∷Either.Left" == m["$ctor"] then - return M.Golden_DerivedFunctor_Test_Left(m.value0) + return Golden_DerivedFunctor_Test_Left(m.value0) elseif "Golden.DerivedFunctor.Test∷Either.Right" == m["$ctor"] then - return M.Golden_DerivedFunctor_Test_Right(f(m.value0)) + return Golden_DerivedFunctor_Test_Right(f(m.value0)) else return error("No patterns matched") end end end } -M.Golden_DerivedFunctor_Test_fromRight_S_w = function(fallback, v) +local Golden_DerivedFunctor_Test_fromRight_S_w = function(fallback, v) if "Golden.DerivedFunctor.Test∷Either.Left" == v["$ctor"] then return fallback elseif "Golden.DerivedFunctor.Test∷Either.Right" == v["$ctor"] then @@ -75,10 +77,9 @@ M.Golden_DerivedFunctor_Test_fromRight_S_w = function(fallback, v) end end return (function() - local Golden_DerivedFunctor_Test_Leaf, Data_Show_foreign, Effect_Console_foreign, Golden_DerivedFunctor_Test_Node, Golden_DerivedFunctor_Test_fromRight_S_w = M.Golden_DerivedFunctor_Test_Leaf, M.Data_Show_foreign, M.Effect_Console_foreign, M.Golden_DerivedFunctor_Test_Node, M.Golden_DerivedFunctor_Test_fromRight_S_w - local _ = Effect_Console_foreign.log(Data_Show_foreign.showIntImpl(Golden_DerivedFunctor_Test_fromRight_S_w(0, M.Golden_DerivedFunctor_Test_Right(42))))() - local _ = Effect_Console_foreign.log(Data_Show_foreign.showIntImpl(Golden_DerivedFunctor_Test_fromRight_S_w(7, M.Golden_DerivedFunctor_Test_Left("no"))))() - return Effect_Console_foreign.log(Data_Show_foreign.showIntImpl(M.Golden_DerivedFunctor_Test_sumTree(M.Golden_DerivedFunctor_Test_functorTree.map(function( v1_S_2 ) + local _ = Effect_Console_foreign.log(Data_Show_foreign.showIntImpl(Golden_DerivedFunctor_Test_fromRight_S_w(0, Golden_DerivedFunctor_Test_Right(42))))() + local _ = Effect_Console_foreign.log(Data_Show_foreign.showIntImpl(Golden_DerivedFunctor_Test_fromRight_S_w(7, Golden_DerivedFunctor_Test_Left("no"))))() + return Effect_Console_foreign.log(Data_Show_foreign.showIntImpl(Golden_DerivedFunctor_Test_sumTree(Golden_DerivedFunctor_Test_functorTree.map(function( v1_S_2 ) return v1_S_2 * 2 end)(Golden_DerivedFunctor_Test_Node(Golden_DerivedFunctor_Test_Node(Golden_DerivedFunctor_Test_Leaf)(1)(Golden_DerivedFunctor_Test_Leaf))(2)(Golden_DerivedFunctor_Test_Node(Golden_DerivedFunctor_Test_Leaf)(3)(Golden_DerivedFunctor_Test_Leaf))))))() end)() diff --git a/test/ps/output/Golden.Fibonacci.Test/golden.lua b/test/ps/output/Golden.Fibonacci.Test/golden.lua index 20345d4a..872d1da2 100644 --- a/test/ps/output/Golden.Fibonacci.Test/golden.lua +++ b/test/ps/output/Golden.Fibonacci.Test/golden.lua @@ -1,18 +1,18 @@ -local M = {} -M.Data_Show_foreign = { showIntImpl = function(n) return tostring(n) end } -M.Effect_Console_foreign = { +local Data_Show_foreign = { showIntImpl = function(n) return tostring(n) end } +local Effect_Console_foreign = { log = function(s) return function() print(s) end end } -M.Golden_Fibonacci_Test_sub_S_w = function(x_S_185_S_208, y_S_186_S_209) +local Golden_Fibonacci_Test_sub_S_w = function(x_S_185_S_208, y_S_186_S_209) return x_S_185_S_208 - y_S_186_S_209 end -M.Golden_Fibonacci_Test_fib = function(v) +local Golden_Fibonacci_Test_fib +Golden_Fibonacci_Test_fib = function(v) if 0 == v then return 0 elseif 1 == v then return 1 else - return M.Golden_Fibonacci_Test_fib(M.Golden_Fibonacci_Test_sub_S_w(v, 1)) + M.Golden_Fibonacci_Test_fib(M.Golden_Fibonacci_Test_sub_S_w(v, 2)) + return Golden_Fibonacci_Test_fib(Golden_Fibonacci_Test_sub_S_w(v, 1)) + Golden_Fibonacci_Test_fib(Golden_Fibonacci_Test_sub_S_w(v, 2)) end end -return M.Effect_Console_foreign.log(M.Data_Show_foreign.showIntImpl(M.Golden_Fibonacci_Test_fib(32)))() +return Effect_Console_foreign.log(Data_Show_foreign.showIntImpl(Golden_Fibonacci_Test_fib(32)))() diff --git a/test/ps/output/Golden.FieldCaching.Test/golden.lua b/test/ps/output/Golden.FieldCaching.Test/golden.lua index 5ee26ca4..86571392 100644 --- a/test/ps/output/Golden.FieldCaching.Test/golden.lua +++ b/test/ps/output/Golden.FieldCaching.Test/golden.lua @@ -1,14 +1,13 @@ local M = {} -M.Data_Show_foreign = { showIntImpl = function(n) return tostring(n) end } -M.Effect_Console_foreign = { +local Data_Show_foreign = { showIntImpl = function(n) return tostring(n) end } +local Effect_Console_foreign = { log = function(s) return function() print(s) end end } -M.Golden_FieldCaching_Test_sub_S_w = function(x_S_188_S_219, y_S_189_S_220) +local Golden_FieldCaching_Test_sub_S_w = function(x_S_188_S_219, y_S_189_S_220) return x_S_188_S_219 - y_S_189_S_220 end -M.Golden_FieldCaching_Test_weigh = function(x) return x * 2 + 1 end -M.Golden_FieldCaching_Test_sumLoop_S_w = function(acc, n) - local Golden_FieldCaching_Test_sub_S_w, Golden_FieldCaching_Test_weigh = M.Golden_FieldCaching_Test_sub_S_w, M.Golden_FieldCaching_Test_weigh +local Golden_FieldCaching_Test_weigh = function(x) return x * 2 + 1 end +local Golden_FieldCaching_Test_sumLoop_S_w = function(acc, n) while true do if n == 0 then return acc @@ -19,14 +18,13 @@ M.Golden_FieldCaching_Test_sumLoop_S_w = function(acc, n) end M.Golden_FieldCaching_Test_sumLoop = function(sumLoop_S_p1) return function(sumLoop_S_p2) - return M.Golden_FieldCaching_Test_sumLoop_S_w(sumLoop_S_p1, sumLoop_S_p2) + return Golden_FieldCaching_Test_sumLoop_S_w(sumLoop_S_p1, sumLoop_S_p2) end end M.Golden_FieldCaching_Test_single = function(n) - return M.Golden_FieldCaching_Test_weigh(n) + return Golden_FieldCaching_Test_weigh(n) end M.Golden_FieldCaching_Test_pair = function(n) - local Golden_FieldCaching_Test_weigh = M.Golden_FieldCaching_Test_weigh return Golden_FieldCaching_Test_weigh(n) + Golden_FieldCaching_Test_weigh(n + 1) end M.Golden_FieldCaching_Test_fibby = function(n) @@ -41,24 +39,21 @@ M.Golden_FieldCaching_Test_fibby = function(n) end)() then return n else - return M.Golden_FieldCaching_Test_weigh(M.Golden_FieldCaching_Test_sub_S_w(n, 1)) + M.Golden_FieldCaching_Test_weigh(M.Golden_FieldCaching_Test_sub_S_w(n, 2)) + return Golden_FieldCaching_Test_weigh(Golden_FieldCaching_Test_sub_S_w(n, 1)) + Golden_FieldCaching_Test_weigh(Golden_FieldCaching_Test_sub_S_w(n, 2)) end end -M.Golden_FieldCaching_Test_apply2 = function(f) return f(2) end +local Golden_FieldCaching_Test_apply2 = function(f) return f(2) end M.Golden_FieldCaching_Test_closed = function(x) - return M.Golden_FieldCaching_Test_apply2(function(y) - local Golden_FieldCaching_Test_weigh = M.Golden_FieldCaching_Test_weigh + return Golden_FieldCaching_Test_apply2(function(y) return Golden_FieldCaching_Test_weigh(x) + Golden_FieldCaching_Test_weigh(y) end) end return (function() - local Data_Show_foreign, Effect_Console_foreign, Golden_FieldCaching_Test_weigh, Golden_FieldCaching_Test_sub_S_w = M.Data_Show_foreign, M.Effect_Console_foreign, M.Golden_FieldCaching_Test_weigh, M.Golden_FieldCaching_Test_sub_S_w local _ = Effect_Console_foreign.log(Data_Show_foreign.showIntImpl(Golden_FieldCaching_Test_weigh(1) + Golden_FieldCaching_Test_weigh(2)))() local _ = Effect_Console_foreign.log(Data_Show_foreign.showIntImpl(Golden_FieldCaching_Test_weigh(10)))() - local _ = Effect_Console_foreign.log(Data_Show_foreign.showIntImpl(M.Golden_FieldCaching_Test_sumLoop_S_w(0, 4)))() + local _ = Effect_Console_foreign.log(Data_Show_foreign.showIntImpl(Golden_FieldCaching_Test_sumLoop_S_w(0, 4)))() local _ = Effect_Console_foreign.log(Data_Show_foreign.showIntImpl(Golden_FieldCaching_Test_weigh(Golden_FieldCaching_Test_sub_S_w(5, 1)) + Golden_FieldCaching_Test_weigh(Golden_FieldCaching_Test_sub_S_w(5, 2))))() - return Effect_Console_foreign.log(Data_Show_foreign.showIntImpl(M.Golden_FieldCaching_Test_apply2(function( y_S_263 ) - local Golden_FieldCaching_Test_weigh = M.Golden_FieldCaching_Test_weigh + return Effect_Console_foreign.log(Data_Show_foreign.showIntImpl(Golden_FieldCaching_Test_apply2(function( y_S_263 ) return Golden_FieldCaching_Test_weigh(5) + Golden_FieldCaching_Test_weigh(y_S_263) end)))() end)() diff --git a/test/ps/output/Golden.FloatIn.Test/golden.lua b/test/ps/output/Golden.FloatIn.Test/golden.lua index bb363d13..0b590dea 100644 --- a/test/ps/output/Golden.FloatIn.Test/golden.lua +++ b/test/ps/output/Golden.FloatIn.Test/golden.lua @@ -1,23 +1,23 @@ local M = {} -M.Data_Unit_foreign = { unit = {} } -M.Data_Show_foreign = { showIntImpl = function(n) return tostring(n) end } -M.Effect_Console_foreign = { +local 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 } -M.Golden_FloatIn_Test_foreign = { +local Golden_FloatIn_Test_foreign = { tick = function(n) print("tick") return n + n end } -M.Golden_FloatIn_Test_pickShared_S_w = function(useIt, n) +local Golden_FloatIn_Test_pickShared_S_w = function(useIt, n) if useIt then - local shared = M.Golden_FloatIn_Test_foreign.tick(n) + local shared = Golden_FloatIn_Test_foreign.tick(n) local f = function() return shared + shared end - return f(M.Data_Unit_foreign.unit) + f(M.Data_Unit_foreign.unit) + return f(Data_Unit_foreign.unit) + f(Data_Unit_foreign.unit) else return 0 end end M.Golden_FloatIn_Test_expensive = function(x) return x * x + 1 end -M.Golden_FloatIn_Test_pick_S_w = function(useIt, n) +local Golden_FloatIn_Test_pick_S_w = function(useIt, n) if useIt then local shared = n * n + 1 return shared + shared @@ -26,7 +26,6 @@ M.Golden_FloatIn_Test_pick_S_w = function(useIt, n) end end return (function() - local Data_Show_foreign, Effect_Console_foreign, Golden_FloatIn_Test_pickShared_S_w, Golden_FloatIn_Test_pick_S_w = M.Data_Show_foreign, M.Effect_Console_foreign, M.Golden_FloatIn_Test_pickShared_S_w, M.Golden_FloatIn_Test_pick_S_w local _ = Effect_Console_foreign.log(Data_Show_foreign.showIntImpl(Golden_FloatIn_Test_pick_S_w(true, 3)))() local _ = Effect_Console_foreign.log(Data_Show_foreign.showIntImpl(Golden_FloatIn_Test_pick_S_w(false, 3)))() local _ = Effect_Console_foreign.log(Data_Show_foreign.showIntImpl(Golden_FloatIn_Test_pickShared_S_w(true, 3)))() diff --git a/test/ps/output/Golden.Foreign.Lib/golden.lua b/test/ps/output/Golden.Foreign.Lib/golden.lua index 9b97d522..89d2ec64 100644 --- a/test/ps/output/Golden.Foreign.Lib/golden.lua +++ b/test/ps/output/Golden.Foreign.Lib/golden.lua @@ -1,6 +1,5 @@ -local M = {} -M.Golden_Foreign_Lib_foreign = { dead = -(100), alive = 100 } +local Golden_Foreign_Lib_foreign = { dead = -(100), alive = 100 } return { - dead = M.Golden_Foreign_Lib_foreign.dead, - alive = M.Golden_Foreign_Lib_foreign.alive + dead = Golden_Foreign_Lib_foreign.dead, + alive = Golden_Foreign_Lib_foreign.alive } diff --git a/test/ps/output/Golden.Foreign.Test/golden.lua b/test/ps/output/Golden.Foreign.Test/golden.lua index 595ccd7d..9f897ce5 100644 --- a/test/ps/output/Golden.Foreign.Test/golden.lua +++ b/test/ps/output/Golden.Foreign.Test/golden.lua @@ -1,13 +1,12 @@ -local M = {} -M.Golden_Foreign_Lib_foreign = { alive = 100 } -M.Golden_Foreign_Test_foreign = (function() +local Golden_Foreign_Lib_foreign = { alive = 100 } +local Golden_Foreign_Test_foreign = (function() local fooBar = 42 return { foo = fooBar + 1, boo = fooBar + 2 } end)() return { - foo = M.Golden_Foreign_Test_foreign.foo, + foo = Golden_Foreign_Test_foreign.foo, baz = { - [1] = M.Golden_Foreign_Test_foreign.boo, - [2] = M.Golden_Foreign_Lib_foreign.alive + [1] = Golden_Foreign_Test_foreign.boo, + [2] = Golden_Foreign_Lib_foreign.alive } } diff --git a/test/ps/output/Golden.ForeignSharing.Test/golden.lua b/test/ps/output/Golden.ForeignSharing.Test/golden.lua index 2d67735b..95b99fbd 100644 --- a/test/ps/output/Golden.ForeignSharing.Test/golden.lua +++ b/test/ps/output/Golden.ForeignSharing.Test/golden.lua @@ -1,14 +1,12 @@ -local M = {} -M.Effect_Console_foreign = { +local Effect_Console_foreign = { log = function(s) return function() print(s) end end } -M.Golden_ForeignSharing_Token_foreign = { token = {} } -M.Golden_ForeignSharing_Test_foreign = { +local Golden_ForeignSharing_Token_foreign = { token = {} } +local Golden_ForeignSharing_Test_foreign = { same = function(a) return function(b) return rawequal(a, b) end end } -return M.Effect_Console_foreign.log((function() - local Golden_ForeignSharing_Token_foreign = M.Golden_ForeignSharing_Token_foreign - if M.Golden_ForeignSharing_Test_foreign.same(Golden_ForeignSharing_Token_foreign.token)(Golden_ForeignSharing_Token_foreign.token) then +return Effect_Console_foreign.log((function() + if Golden_ForeignSharing_Test_foreign.same(Golden_ForeignSharing_Token_foreign.token)(Golden_ForeignSharing_Token_foreign.token) then return "shared" else return "fresh" diff --git a/test/ps/output/Golden.ForeignSharing.Token/golden.lua b/test/ps/output/Golden.ForeignSharing.Token/golden.lua index 223b9809..38e22c70 100644 --- a/test/ps/output/Golden.ForeignSharing.Token/golden.lua +++ b/test/ps/output/Golden.ForeignSharing.Token/golden.lua @@ -1,3 +1,2 @@ -local M = {} -M.Golden_ForeignSharing_Token_foreign = { token = {} } -return { token = M.Golden_ForeignSharing_Token_foreign.token } +local Golden_ForeignSharing_Token_foreign = { token = {} } +return { token = Golden_ForeignSharing_Token_foreign.token } diff --git a/test/ps/output/Golden.GenericEqTwoTypes.Test/golden.lua b/test/ps/output/Golden.GenericEqTwoTypes.Test/golden.lua index 6c6ef72f..7bba1214 100644 --- a/test/ps/output/Golden.GenericEqTwoTypes.Test/golden.lua +++ b/test/ps/output/Golden.GenericEqTwoTypes.Test/golden.lua @@ -1,17 +1,16 @@ -local M = {} -M.Record_Unsafe_foreign = { +local Record_Unsafe_foreign = { unsafeGet = function(l) return function(r) return r[l] end end } -M.Effect_Console_foreign = { +local Effect_Console_foreign = { log = function(s) return function() print(s) end end } -M.Type_Proxy_Proxy = {} -M.Data_HeytingAlgebra_heytingAlgebraBoolean = { +local Type_Proxy_Proxy = {} +local Data_HeytingAlgebra_heytingAlgebraBoolean +Data_HeytingAlgebra_heytingAlgebraBoolean = { ff = false, tt = true, implies = function(a) return function(b) - local Data_HeytingAlgebra_heytingAlgebraBoolean = M.Data_HeytingAlgebra_heytingAlgebraBoolean return Data_HeytingAlgebra_heytingAlgebraBoolean.disj(Data_HeytingAlgebra_heytingAlgebraBoolean._not_(a))(b) end end, @@ -23,12 +22,12 @@ M.Data_HeytingAlgebra_heytingAlgebraBoolean = { end, _not_ = function(b_S_217) return not(b_S_217) end } -M.Data_Eq_eqInt = { +local Data_Eq_eqInt = { eq = function(r1_S_213) return function(r2_S_214) return r1_S_213 == r2_S_214 end end } -M.Data_Eq_eqRowCons_S_w = function( dictEqRecord +local Data_Eq_eqRowCons_S_w = function( dictEqRecord , eqRowCons_S_u2 , dictIsSymbol , dictEq ) @@ -36,102 +35,102 @@ M.Data_Eq_eqRowCons_S_w = function( dictEqRecord eqRecord = function() return function(ra) return function(rb) - local Type_Proxy_Proxy = M.Type_Proxy_Proxy local key = dictIsSymbol.reflectSymbol(Type_Proxy_Proxy) - local get = M.Record_Unsafe_foreign.unsafeGet(key) - return M.Data_HeytingAlgebra_heytingAlgebraBoolean.conj(dictEq.eq(get(ra))(get(rb)))(dictEqRecord.eqRecord(Type_Proxy_Proxy)(ra)(rb)) + local get = Record_Unsafe_foreign.unsafeGet(key) + return Data_HeytingAlgebra_heytingAlgebraBoolean.conj(dictEq.eq(get(ra))(get(rb)))(dictEqRecord.eqRecord(Type_Proxy_Proxy)(ra)(rb)) end end end } end -M.Data_Generic_Rep_Inl = function(value0) +local Data_Generic_Rep_Inl = function(value0) return { ["$ctor"] = "Data.Generic.Rep∷Sum.Inl", value0 = value0 } end -M.Data_Generic_Rep_Inr = function(value0) +local Data_Generic_Rep_Inr = function(value0) return { ["$ctor"] = "Data.Generic.Rep∷Sum.Inr", value0 = value0 } end -M.Data_Generic_Rep_NoArguments = {} -M.Data_Eq_Generic_genericEq_S_w = function(dictGeneric, dictGenericEq, x, y) +local Data_Generic_Rep_NoArguments = {} +local Data_Eq_Generic_genericEq_S_w = function(dictGeneric, dictGenericEq, x, y) return dictGenericEq.genericEqPrime(dictGeneric.from(x))(dictGeneric.from(y)) end -M.Golden_GenericEqTwoTypes_Test_Leaf = { +local Golden_GenericEqTwoTypes_Test_Leaf = { ["$ctor"] = "Golden.GenericEqTwoTypes.Test∷Tree.Leaf" } -M.Golden_GenericEqTwoTypes_Test_Node = function(value0) +local Golden_GenericEqTwoTypes_Test_Node = function(value0) return { ["$ctor"] = "Golden.GenericEqTwoTypes.Test∷Tree.Node", value0 = value0 } end -M.Golden_GenericEqTwoTypes_Test_Nil = { +local Golden_GenericEqTwoTypes_Test_Nil = { ["$ctor"] = "Golden.GenericEqTwoTypes.Test∷List.Nil" } -M.Golden_GenericEqTwoTypes_Test_Cons = function(value0) +local Golden_GenericEqTwoTypes_Test_Cons = function(value0) return { ["$ctor"] = "Golden.GenericEqTwoTypes.Test∷List.Cons", value0 = value0 } end -M.Golden_GenericEqTwoTypes_Test_node_S_w = function(left, value, right) - return M.Golden_GenericEqTwoTypes_Test_Node({ +local Golden_GenericEqTwoTypes_Test_node_S_w = function(left, value, right) + return Golden_GenericEqTwoTypes_Test_Node({ left = left, value = value, right = right }) end -M.Golden_GenericEqTwoTypes_Test_genericTree = { +local Golden_GenericEqTwoTypes_Test_genericTree = { to = function(x) if "Data.Generic.Rep∷Sum.Inl" == x["$ctor"] then - return M.Golden_GenericEqTwoTypes_Test_Leaf + return Golden_GenericEqTwoTypes_Test_Leaf elseif "Data.Generic.Rep∷Sum.Inr" == x["$ctor"] then - return M.Golden_GenericEqTwoTypes_Test_Node(x.value0) + return Golden_GenericEqTwoTypes_Test_Node(x.value0) else return error("No patterns matched") end end, from = function(x0) if "Golden.GenericEqTwoTypes.Test∷Tree.Leaf" == x0["$ctor"] then - return M.Data_Generic_Rep_Inl(M.Data_Generic_Rep_NoArguments) + return Data_Generic_Rep_Inl(Data_Generic_Rep_NoArguments) elseif "Golden.GenericEqTwoTypes.Test∷Tree.Node" == x0["$ctor"] then - return M.Data_Generic_Rep_Inr(x0.value0) + return Data_Generic_Rep_Inr(x0.value0) else return error("No patterns matched") end end } -M.Golden_GenericEqTwoTypes_Test_genericList = { +local Golden_GenericEqTwoTypes_Test_genericList = { to = function(x) if "Data.Generic.Rep∷Sum.Inl" == x["$ctor"] then - return M.Golden_GenericEqTwoTypes_Test_Nil + return Golden_GenericEqTwoTypes_Test_Nil elseif "Data.Generic.Rep∷Sum.Inr" == x["$ctor"] then - return M.Golden_GenericEqTwoTypes_Test_Cons(x.value0) + return Golden_GenericEqTwoTypes_Test_Cons(x.value0) else return error("No patterns matched") end end, from = function(x0) if "Golden.GenericEqTwoTypes.Test∷List.Nil" == x0["$ctor"] then - return M.Data_Generic_Rep_Inl(M.Data_Generic_Rep_NoArguments) + return Data_Generic_Rep_Inl(Data_Generic_Rep_NoArguments) elseif "Golden.GenericEqTwoTypes.Test∷List.Cons" == x0["$ctor"] then - return M.Data_Generic_Rep_Inr(x0.value0) + return Data_Generic_Rep_Inr(x0.value0) else return error("No patterns matched") end end } -M.Golden_GenericEqTwoTypes_Test_eqTree = function(dictEq) +local Golden_GenericEqTwoTypes_Test_eqTree +Golden_GenericEqTwoTypes_Test_eqTree = function(dictEq) return { eq = function(x) return function(y) - return M.Data_Eq_Generic_genericEq_S_w(M.Golden_GenericEqTwoTypes_Test_genericTree, { + return Data_Eq_Generic_genericEq_S_w(Golden_GenericEqTwoTypes_Test_genericTree, { genericEqPrime = function(v_S_7_S_276) return function(v1_S_8_S_277) if "Data.Generic.Rep∷Sum.Inl" == v_S_7_S_276["$ctor"] then return "Data.Generic.Rep∷Sum.Inl" == v1_S_8_S_277["$ctor"] elseif "Data.Generic.Rep∷Sum.Inr" == v_S_7_S_276["$ctor"] then if "Data.Generic.Rep∷Sum.Inr" == v1_S_8_S_277["$ctor"] then - return (M.Data_Eq_eqRowCons_S_w(M.Data_Eq_eqRowCons_S_w(M.Data_Eq_eqRowCons_S_w({ + return (Data_Eq_eqRowCons_S_w(Data_Eq_eqRowCons_S_w(Data_Eq_eqRowCons_S_w({ eqRecord = function() return function() return function() return true end end end @@ -139,9 +138,9 @@ M.Golden_GenericEqTwoTypes_Test_eqTree = function(dictEq) reflectSymbol = function() return "value" end }, dictEq), nil, { reflectSymbol = function() return "right" end - }, M.Golden_GenericEqTwoTypes_Test_eqTree(dictEq)), nil, { + }, Golden_GenericEqTwoTypes_Test_eqTree(dictEq)), nil, { reflectSymbol = function() return "left" end - }, M.Golden_GenericEqTwoTypes_Test_eqTree(dictEq))).eqRecord(M.Type_Proxy_Proxy)(v_S_7_S_276.value0)(v1_S_8_S_277.value0) + }, Golden_GenericEqTwoTypes_Test_eqTree(dictEq))).eqRecord(Type_Proxy_Proxy)(v_S_7_S_276.value0)(v1_S_8_S_277.value0) else return false end @@ -155,27 +154,28 @@ M.Golden_GenericEqTwoTypes_Test_eqTree = function(dictEq) end } end -M.Golden_GenericEqTwoTypes_Test_eq = (M.Golden_GenericEqTwoTypes_Test_eqTree(M.Data_Eq_eqInt)).eq -M.Golden_GenericEqTwoTypes_Test_eqList = function(dictEq) +local Golden_GenericEqTwoTypes_Test_eq = (Golden_GenericEqTwoTypes_Test_eqTree(Data_Eq_eqInt)).eq +local Golden_GenericEqTwoTypes_Test_eqList +Golden_GenericEqTwoTypes_Test_eqList = function(dictEq) return { eq = function(x) return function(y) - return M.Data_Eq_Generic_genericEq_S_w(M.Golden_GenericEqTwoTypes_Test_genericList, { + return Data_Eq_Generic_genericEq_S_w(Golden_GenericEqTwoTypes_Test_genericList, { genericEqPrime = function(v_S_7_S_254) return function(v1_S_8_S_255) if "Data.Generic.Rep∷Sum.Inl" == v_S_7_S_254["$ctor"] then return "Data.Generic.Rep∷Sum.Inl" == v1_S_8_S_255["$ctor"] elseif "Data.Generic.Rep∷Sum.Inr" == v_S_7_S_254["$ctor"] then if "Data.Generic.Rep∷Sum.Inr" == v1_S_8_S_255["$ctor"] then - return (M.Data_Eq_eqRowCons_S_w(M.Data_Eq_eqRowCons_S_w({ + return (Data_Eq_eqRowCons_S_w(Data_Eq_eqRowCons_S_w({ eqRecord = function() return function() return function() return true end end end }, nil, { reflectSymbol = function() return "tail" end - }, M.Golden_GenericEqTwoTypes_Test_eqList(dictEq)), nil, { + }, Golden_GenericEqTwoTypes_Test_eqList(dictEq)), nil, { reflectSymbol = function() return "head" end - }, dictEq)).eqRecord(M.Type_Proxy_Proxy)(v_S_7_S_254.value0)(v1_S_8_S_255.value0) + }, dictEq)).eqRecord(Type_Proxy_Proxy)(v_S_7_S_254.value0)(v1_S_8_S_255.value0) else return false end @@ -189,12 +189,11 @@ M.Golden_GenericEqTwoTypes_Test_eqList = function(dictEq) end } end -M.Golden_GenericEqTwoTypes_Test_eq1 = (M.Golden_GenericEqTwoTypes_Test_eqList(M.Data_Eq_eqInt)).eq -M.Golden_GenericEqTwoTypes_Test_cons_S_w = function(head, tail) - return M.Golden_GenericEqTwoTypes_Test_Cons({ head = head, tail = tail }) +local Golden_GenericEqTwoTypes_Test_eq1 = (Golden_GenericEqTwoTypes_Test_eqList(Data_Eq_eqInt)).eq +local Golden_GenericEqTwoTypes_Test_cons_S_w = function(head, tail) + return Golden_GenericEqTwoTypes_Test_Cons({ head = head, tail = tail }) end return (function() - local Golden_GenericEqTwoTypes_Test_Leaf, Golden_GenericEqTwoTypes_Test_cons_S_w, Golden_GenericEqTwoTypes_Test_node_S_w, Effect_Console_foreign, Golden_GenericEqTwoTypes_Test_Nil, Golden_GenericEqTwoTypes_Test_eq, Golden_GenericEqTwoTypes_Test_eq1 = M.Golden_GenericEqTwoTypes_Test_Leaf, M.Golden_GenericEqTwoTypes_Test_cons_S_w, M.Golden_GenericEqTwoTypes_Test_node_S_w, M.Effect_Console_foreign, M.Golden_GenericEqTwoTypes_Test_Nil, M.Golden_GenericEqTwoTypes_Test_eq, M.Golden_GenericEqTwoTypes_Test_eq1 local _ = (function() local a_S_2_S_300 = Golden_GenericEqTwoTypes_Test_eq1(Golden_GenericEqTwoTypes_Test_cons_S_w(1, Golden_GenericEqTwoTypes_Test_cons_S_w(2, Golden_GenericEqTwoTypes_Test_Nil)))(Golden_GenericEqTwoTypes_Test_cons_S_w(1, Golden_GenericEqTwoTypes_Test_cons_S_w(2, Golden_GenericEqTwoTypes_Test_Nil))) return Effect_Console_foreign.log((function() diff --git a/test/ps/output/Golden.HelloPrelude.Test/golden.lua b/test/ps/output/Golden.HelloPrelude.Test/golden.lua index e244bbfe..c696beca 100644 --- a/test/ps/output/Golden.HelloPrelude.Test/golden.lua +++ b/test/ps/output/Golden.HelloPrelude.Test/golden.lua @@ -16,51 +16,52 @@ local function PSLUA_runtime_lazy(name) end end end -local M = {} -M.Data_Unit_foreign = { unit = {} } -M.Effect_foreign = { +local Data_Unit_foreign = { unit = {} } +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 } -M.Effect_monadEffect = { - Applicative0 = function() return M.Effect_applicativeEffect end, - Bind1 = function() return M.Effect_bindEffect end +local Effect_bindEffect +local Effect_applicativeEffect +local Effect_monadEffect = { + Applicative0 = function() return Effect_applicativeEffect end, + Bind1 = function() return Effect_bindEffect end } -M.Effect_bindEffect = { - bind = M.Effect_foreign.bindE, - Apply0 = function() return M.Effect_Lazy_applyEffect(0) end +local Effect_Lazy_applyEffect +Effect_bindEffect = { + bind = Effect_foreign.bindE, + Apply0 = function() return Effect_Lazy_applyEffect(0) end } -M.Effect_applicativeEffect = { - pure = M.Effect_foreign.pureE, - Apply0 = function() return M.Effect_Lazy_applyEffect(0) end +Effect_applicativeEffect = { + pure = Effect_foreign.pureE, + Apply0 = function() return Effect_Lazy_applyEffect(0) end } -M.Effect_Lazy_functorEffect = PSLUA_runtime_lazy("functorEffect")(function() +local Effect_Lazy_functorEffect = PSLUA_runtime_lazy("functorEffect")(function() return { map = function(f_S_23) return function(a_S_24) - local Effect_applicativeEffect = M.Effect_applicativeEffect return (Effect_applicativeEffect.Apply0()).apply(Effect_applicativeEffect.pure(f_S_23))(a_S_24) end end } end) -M.Effect_Lazy_applyEffect = PSLUA_runtime_lazy("applyEffect")(function() +Effect_Lazy_applyEffect = PSLUA_runtime_lazy("applyEffect")(function() return { apply = (function() - local bind_S_5 = (M.Effect_monadEffect.Bind1()).bind + local bind_S_5 = (Effect_monadEffect.Bind1()).bind return function(f_S_7) return function(a_S_8) return bind_S_5(f_S_7)(function(fPrime_S_9) return bind_S_5(a_S_8)(function(aPrime_S_10) - return (M.Effect_monadEffect.Applicative0()).pure(fPrime_S_9(aPrime_S_10)) + return (Effect_monadEffect.Applicative0()).pure(fPrime_S_9(aPrime_S_10)) end) end) end end end)(), - Functor0 = function() return M.Effect_Lazy_functorEffect(0) end + Functor0 = function() return Effect_Lazy_functorEffect(0) end } end) -return { main = M.Effect_applicativeEffect.pure(M.Data_Unit_foreign.unit) } +return { main = Effect_applicativeEffect.pure(Data_Unit_foreign.unit) } diff --git a/test/ps/output/Golden.Inline.Test/golden.lua b/test/ps/output/Golden.Inline.Test/golden.lua index 9e0c091a..592aeb11 100644 --- a/test/ps/output/Golden.Inline.Test/golden.lua +++ b/test/ps/output/Golden.Inline.Test/golden.lua @@ -1,7 +1,6 @@ -local M = {} -M.Golden_Inline_Test_runMu = function(v) return v(v) end +local Golden_Inline_Test_runMu = function(v) return v(v) end return { main = 1, - runMu = M.Golden_Inline_Test_runMu, - iMu = M.Golden_Inline_Test_runMu + runMu = Golden_Inline_Test_runMu, + iMu = Golden_Inline_Test_runMu } diff --git a/test/ps/output/Golden.Issue37.Test/golden.lua b/test/ps/output/Golden.Issue37.Test/golden.lua index ba54c93e..5b1080b4 100644 --- a/test/ps/output/Golden.Issue37.Test/golden.lua +++ b/test/ps/output/Golden.Issue37.Test/golden.lua @@ -16,63 +16,63 @@ local function PSLUA_runtime_lazy(name) end end end -local M = {} -M.Data_Unit_foreign = { unit = {} } -M.Effect_foreign = { +local Data_Unit_foreign = { unit = {} } +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 } -M.Effect_monadEffect = { - Applicative0 = function() return M.Effect_applicativeEffect end, - Bind1 = function() return M.Effect_bindEffect end +local Effect_bindEffect +local Effect_applicativeEffect +local Effect_monadEffect = { + Applicative0 = function() return Effect_applicativeEffect end, + Bind1 = function() return Effect_bindEffect end } -M.Effect_bindEffect = { - bind = M.Effect_foreign.bindE, - Apply0 = function() return M.Effect_Lazy_applyEffect(0) end +local Effect_Lazy_applyEffect +Effect_bindEffect = { + bind = Effect_foreign.bindE, + Apply0 = function() return Effect_Lazy_applyEffect(0) end } -M.Effect_applicativeEffect = { - pure = M.Effect_foreign.pureE, - Apply0 = function() return M.Effect_Lazy_applyEffect(0) end +Effect_applicativeEffect = { + pure = Effect_foreign.pureE, + Apply0 = function() return Effect_Lazy_applyEffect(0) end } -M.Effect_Lazy_functorEffect = PSLUA_runtime_lazy("functorEffect")(function() +local Effect_Lazy_functorEffect = PSLUA_runtime_lazy("functorEffect")(function() return { map = function(f_S_32) return function(a_S_33) - local Effect_applicativeEffect = M.Effect_applicativeEffect return (Effect_applicativeEffect.Apply0()).apply(Effect_applicativeEffect.pure(f_S_32))(a_S_33) end end } end) -M.Effect_Lazy_applyEffect = PSLUA_runtime_lazy("applyEffect")(function() +Effect_Lazy_applyEffect = PSLUA_runtime_lazy("applyEffect")(function() return { apply = (function() - local bind_S_11 = (M.Effect_monadEffect.Bind1()).bind + local bind_S_11 = (Effect_monadEffect.Bind1()).bind return function(f_S_13) return function(a_S_14) return bind_S_11(f_S_13)(function(fPrime_S_15) return bind_S_11(a_S_14)(function(aPrime_S_16) - return (M.Effect_monadEffect.Applicative0()).pure(fPrime_S_15(aPrime_S_16)) + return (Effect_monadEffect.Applicative0()).pure(fPrime_S_15(aPrime_S_16)) end) end) end end end)(), - Functor0 = function() return M.Effect_Lazy_functorEffect(0) end + Functor0 = function() return Effect_Lazy_functorEffect(0) end } end) return { baz = (function() - local Effect_monadEffect = M.Effect_monadEffect local Bind1_S_1 = Effect_monadEffect.Bind1() local pure_S_4 = (Effect_monadEffect.Applicative0()).pure return function(f_S_6) return Bind1_S_1.bind(f_S_6)(function() return Bind1_S_1.bind(pure_S_4({ [1] = (function() - local Bind1_S_216 = M.Effect_monadEffect.Bind1() + local Bind1_S_216 = Effect_monadEffect.Bind1() return function(fn1_S_218) return Bind1_S_216.bind(fn1_S_218)(function() return Bind1_S_216.bind(fn1_S_218)(function() @@ -83,8 +83,8 @@ return { end) end end)()(f_S_6) - }))(function() return pure_S_4(M.Data_Unit_foreign.unit) end) + }))(function() return pure_S_4(Data_Unit_foreign.unit) end) end) end - end)()(M.Effect_applicativeEffect.pure(M.Data_Unit_foreign.unit)) + end)()(Effect_applicativeEffect.pure(Data_Unit_foreign.unit)) } diff --git a/test/ps/output/Golden.LongApplyChain.Test/golden.lua b/test/ps/output/Golden.LongApplyChain.Test/golden.lua index 0b7bba27..1164e507 100644 --- a/test/ps/output/Golden.LongApplyChain.Test/golden.lua +++ b/test/ps/output/Golden.LongApplyChain.Test/golden.lua @@ -1,41 +1,39 @@ -local M = {} -M.Data_Show_foreign = { showIntImpl = function(n) return tostring(n) end } -M.Effect_Console_foreign = { +local Data_Show_foreign = { showIntImpl = function(n) return tostring(n) end } +local Effect_Console_foreign = { log = function(s) return function() print(s) end end } -M.Data_Maybe_append_S_w = function(s1_S_295_S_314, s2_S_296_S_315) +local Data_Maybe_append_S_w = function(s1_S_295_S_314, s2_S_296_S_315) return s1_S_295_S_314 .. s2_S_296_S_315 end -M.Data_Maybe_Nothing = { ["$ctor"] = "Data.Maybe∷Maybe.Nothing" } -M.Data_Maybe_Just = function(value0) +local Data_Maybe_Nothing = { ["$ctor"] = "Data.Maybe∷Maybe.Nothing" } +local Data_Maybe_Just = function(value0) return { ["$ctor"] = "Data.Maybe∷Maybe.Just", value0 = value0 } end -M.Golden_LongApplyChain_Test_applySecond_S_w = function(a_S_131, b_S_132) +local Golden_LongApplyChain_Test_applySecond_S_w = function(a_S_131, b_S_132) return (function() local v_S_323 = (function() if "Data.Maybe∷Maybe.Just" == a_S_131["$ctor"] then - return M.Data_Maybe_Just(function(x_S_316) return x_S_316 end) + return Data_Maybe_Just(function(x_S_316) return x_S_316 end) else - return M.Data_Maybe_Nothing + return Data_Maybe_Nothing end end)() return function(v1_S_324) if "Data.Maybe∷Maybe.Just" == v_S_323["$ctor"] then if "Data.Maybe∷Maybe.Just" == v1_S_324["$ctor"] then - return M.Data_Maybe_Just(v_S_323.value0(v1_S_324.value0)) + return Data_Maybe_Just(v_S_323.value0(v1_S_324.value0)) else - return M.Data_Maybe_Nothing + return Data_Maybe_Nothing end elseif "Data.Maybe∷Maybe.Nothing" == v_S_323["$ctor"] then - return M.Data_Maybe_Nothing + return Data_Maybe_Nothing else return error("No patterns matched") end end end)()(b_S_132) end -M.Golden_LongApplyChain_Test_compute = (function() - local Data_Maybe_Just, Golden_LongApplyChain_Test_applySecond_S_w = M.Data_Maybe_Just, M.Golden_LongApplyChain_Test_applySecond_S_w +local Golden_LongApplyChain_Test_compute = (function() local _S_tmp336 = Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(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_Just(1), Data_Maybe_Just(2)), Data_Maybe_Just(3)), Data_Maybe_Just(4)), Data_Maybe_Just(5)), Data_Maybe_Just(6)), Data_Maybe_Just(7)), Data_Maybe_Just(8)), Data_Maybe_Just(9)), Data_Maybe_Just(10)), Data_Maybe_Just(11)), Data_Maybe_Just(12)), Data_Maybe_Just(13)), Data_Maybe_Just(14)), Data_Maybe_Just(15)), Data_Maybe_Just(16)), Data_Maybe_Just(17)), Data_Maybe_Just(18)), Data_Maybe_Just(19)), Data_Maybe_Just(20)), Data_Maybe_Just(21)), Data_Maybe_Just(22)), Data_Maybe_Just(23)), Data_Maybe_Just(24)), Data_Maybe_Just(25)), Data_Maybe_Just(26)), Data_Maybe_Just(27)), Data_Maybe_Just(28)), Data_Maybe_Just(29)), Data_Maybe_Just(30)), Data_Maybe_Just(31)), Data_Maybe_Just(32)), Data_Maybe_Just(33)), Data_Maybe_Just(34)), Data_Maybe_Just(35)), Data_Maybe_Just(36)), Data_Maybe_Just(37)), Data_Maybe_Just(38)), Data_Maybe_Just(39)), Data_Maybe_Just(40)) local _S_tmp337 = Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(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_tmp336, Data_Maybe_Just(41)), Data_Maybe_Just(42)), Data_Maybe_Just(43)), Data_Maybe_Just(44)), Data_Maybe_Just(45)), Data_Maybe_Just(46)), Data_Maybe_Just(47)), Data_Maybe_Just(48)), Data_Maybe_Just(49)), Data_Maybe_Just(50)), Data_Maybe_Just(51)), Data_Maybe_Just(52)), Data_Maybe_Just(53)), Data_Maybe_Just(54)), Data_Maybe_Just(55)), Data_Maybe_Just(56)), Data_Maybe_Just(57)), Data_Maybe_Just(58)), Data_Maybe_Just(59)), Data_Maybe_Just(60)), Data_Maybe_Just(61)), Data_Maybe_Just(62)), Data_Maybe_Just(63)), Data_Maybe_Just(64)), Data_Maybe_Just(65)), Data_Maybe_Just(66)), Data_Maybe_Just(67)), Data_Maybe_Just(68)), Data_Maybe_Just(69)), Data_Maybe_Just(70)), Data_Maybe_Just(71)), Data_Maybe_Just(72)), Data_Maybe_Just(73)), Data_Maybe_Just(74)), Data_Maybe_Just(75)), Data_Maybe_Just(76)), Data_Maybe_Just(77)), Data_Maybe_Just(78)), Data_Maybe_Just(79)), Data_Maybe_Just(80)) local _S_tmp338 = Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(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_tmp337, Data_Maybe_Just(81)), Data_Maybe_Just(82)), Data_Maybe_Just(83)), Data_Maybe_Just(84)), Data_Maybe_Just(85)), Data_Maybe_Just(86)), Data_Maybe_Just(87)), Data_Maybe_Just(88)), Data_Maybe_Just(89)), Data_Maybe_Just(90)), Data_Maybe_Just(91)), Data_Maybe_Just(92)), Data_Maybe_Just(93)), Data_Maybe_Just(94)), Data_Maybe_Just(95)), Data_Maybe_Just(96)), Data_Maybe_Just(97)), Data_Maybe_Just(98)), Data_Maybe_Just(99)), Data_Maybe_Just(100)), Data_Maybe_Just(101)), Data_Maybe_Just(102)), Data_Maybe_Just(103)), Data_Maybe_Just(104)), Data_Maybe_Just(105)), Data_Maybe_Just(106)), Data_Maybe_Just(107)), Data_Maybe_Just(108)), Data_Maybe_Just(109)), Data_Maybe_Just(110)), Data_Maybe_Just(111)), Data_Maybe_Just(112)), Data_Maybe_Just(113)), Data_Maybe_Just(114)), Data_Maybe_Just(115)), Data_Maybe_Just(116)), Data_Maybe_Just(117)), Data_Maybe_Just(118)), Data_Maybe_Just(119)), Data_Maybe_Just(120)) @@ -45,10 +43,10 @@ M.Golden_LongApplyChain_Test_compute = (function() local _S_tmp342 = Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(Golden_LongApplyChain_Test_applySecond_S_w(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_tmp341, Data_Maybe_Just(241)), Data_Maybe_Just(242)), Data_Maybe_Just(243)), Data_Maybe_Just(244)), Data_Maybe_Just(245)), Data_Maybe_Just(246)), Data_Maybe_Just(247)), Data_Maybe_Just(248)), Data_Maybe_Just(249)), Data_Maybe_Just(250)), Data_Maybe_Just(251)), Data_Maybe_Just(252)), Data_Maybe_Just(253)), Data_Maybe_Just(254)), Data_Maybe_Just(255)), Data_Maybe_Just(256)), Data_Maybe_Just(257)), Data_Maybe_Just(258)), Data_Maybe_Just(259)), Data_Maybe_Just(260)), Data_Maybe_Just(261)), Data_Maybe_Just(262)), Data_Maybe_Just(263)), Data_Maybe_Just(264)), Data_Maybe_Just(265)), Data_Maybe_Just(266)), Data_Maybe_Just(267)), Data_Maybe_Just(268)), Data_Maybe_Just(269)), Data_Maybe_Just(270)), Data_Maybe_Just(271)), Data_Maybe_Just(272)), Data_Maybe_Just(273)), Data_Maybe_Just(274)), Data_Maybe_Just(275)), Data_Maybe_Just(276)), Data_Maybe_Just(277)), Data_Maybe_Just(278)), Data_Maybe_Just(279)), Data_Maybe_Just(280)) 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(Golden_LongApplyChain_Test_applySecond_S_w(_S_tmp342, Data_Maybe_Just(281)), Data_Maybe_Just(282)), Data_Maybe_Just(283)), Data_Maybe_Just(284)), Data_Maybe_Just(285)), Data_Maybe_Just(286)), Data_Maybe_Just(287)), Data_Maybe_Just(288)), Data_Maybe_Just(289)), Data_Maybe_Just(290)), Data_Maybe_Just(291)), Data_Maybe_Just(292)), Data_Maybe_Just(293)), Data_Maybe_Just(294)), Data_Maybe_Just(295)), Data_Maybe_Just(296)), Data_Maybe_Just(297)), Data_Maybe_Just(298)), Data_Maybe_Just(299)), Data_Maybe_Just(300)) end)() -return M.Effect_Console_foreign.log((function() - if "Data.Maybe∷Maybe.Just" == M.Golden_LongApplyChain_Test_compute["$ctor"] then - return M.Data_Maybe_append_S_w("(Just ", M.Data_Maybe_append_S_w(M.Data_Show_foreign.showIntImpl(M.Golden_LongApplyChain_Test_compute.value0), ")")) - elseif "Data.Maybe∷Maybe.Nothing" == M.Golden_LongApplyChain_Test_compute["$ctor"] then +return Effect_Console_foreign.log((function() + if "Data.Maybe∷Maybe.Just" == Golden_LongApplyChain_Test_compute["$ctor"] then + return Data_Maybe_append_S_w("(Just ", Data_Maybe_append_S_w(Data_Show_foreign.showIntImpl(Golden_LongApplyChain_Test_compute.value0), ")")) + elseif "Data.Maybe∷Maybe.Nothing" == Golden_LongApplyChain_Test_compute["$ctor"] then return "Nothing" else return error("No patterns matched") diff --git a/test/ps/output/Golden.LongBindFlipped.Test/golden.lua b/test/ps/output/Golden.LongBindFlipped.Test/golden.lua index 3ae3c630..6db21036 100644 --- a/test/ps/output/Golden.LongBindFlipped.Test/golden.lua +++ b/test/ps/output/Golden.LongBindFlipped.Test/golden.lua @@ -1,15 +1,14 @@ -local M = {} -M.Data_Show_foreign = { showIntImpl = function(n) return tostring(n) end } -M.Effect_Console_foreign = { +local Data_Show_foreign = { showIntImpl = function(n) return tostring(n) end } +local Effect_Console_foreign = { log = function(s) return function() print(s) end end } -M.Data_Maybe_append_S_w = function(s1_S_286_S_318, s2_S_287_S_319) +local Data_Maybe_append_S_w = function(s1_S_286_S_318, s2_S_287_S_319) return s1_S_286_S_318 .. s2_S_287_S_319 end -M.Data_Maybe_Just = function(value0) +local Data_Maybe_Just = function(value0) return { ["$ctor"] = "Data.Maybe∷Maybe.Just", value0 = value0 } end -M.Golden_LongBindFlipped_Test_bindFlipped_S_w = function( b_S_135_S_308 +local Golden_LongBindFlipped_Test_bindFlipped_S_w = function( b_S_135_S_308 , a_S_136_S_309 ) if "Data.Maybe∷Maybe.Just" == a_S_136_S_309["$ctor"] then return b_S_135_S_308(a_S_136_S_309.value0) @@ -19,12 +18,11 @@ M.Golden_LongBindFlipped_Test_bindFlipped_S_w = function( b_S_135_S_308 return error("No patterns matched") end end -M.Golden_LongBindFlipped_Test_inc = function(x) - return M.Data_Maybe_Just(x + 1) +local Golden_LongBindFlipped_Test_inc = function(x) + return Data_Maybe_Just(x + 1) end -M.Golden_LongBindFlipped_Test_compute = (function() - local Golden_LongBindFlipped_Test_bindFlipped_S_w, Golden_LongBindFlipped_Test_inc = M.Golden_LongBindFlipped_Test_bindFlipped_S_w, M.Golden_LongBindFlipped_Test_inc - local _S_tmp324 = Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, M.Data_Maybe_Just(1)))))))))))))))))))))))))))))))))))))))) +local Golden_LongBindFlipped_Test_compute = (function() + local _S_tmp324 = Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(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_Just(1)))))))))))))))))))))))))))))))))))))))) local _S_tmp325 = Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(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_tmp324)))))))))))))))))))))))))))))))))))))))) local _S_tmp326 = Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(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_tmp325)))))))))))))))))))))))))))))))))))))))) local _S_tmp327 = Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(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_tmp326)))))))))))))))))))))))))))))))))))))))) @@ -33,10 +31,10 @@ M.Golden_LongBindFlipped_Test_compute = (function() local _S_tmp330 = Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, Golden_LongBindFlipped_Test_bindFlipped_S_w(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_tmp329)))))))))))))))))))))))))))))))))))))))) 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, Golden_LongBindFlipped_Test_bindFlipped_S_w(Golden_LongBindFlipped_Test_inc, _S_tmp330))))))))))))))))))))) end)() -return M.Effect_Console_foreign.log((function() - if "Data.Maybe∷Maybe.Just" == M.Golden_LongBindFlipped_Test_compute["$ctor"] then - return M.Data_Maybe_append_S_w("(Just ", M.Data_Maybe_append_S_w(M.Data_Show_foreign.showIntImpl(M.Golden_LongBindFlipped_Test_compute.value0), ")")) - elseif "Data.Maybe∷Maybe.Nothing" == M.Golden_LongBindFlipped_Test_compute["$ctor"] then +return Effect_Console_foreign.log((function() + if "Data.Maybe∷Maybe.Just" == Golden_LongBindFlipped_Test_compute["$ctor"] then + return Data_Maybe_append_S_w("(Just ", Data_Maybe_append_S_w(Data_Show_foreign.showIntImpl(Golden_LongBindFlipped_Test_compute.value0), ")")) + elseif "Data.Maybe∷Maybe.Nothing" == Golden_LongBindFlipped_Test_compute["$ctor"] then return "Nothing" else return error("No patterns matched") diff --git a/test/ps/output/Golden.LongCallbackChain.Test/golden.lua b/test/ps/output/Golden.LongCallbackChain.Test/golden.lua index 4d2df55c..4a276081 100644 --- a/test/ps/output/Golden.LongCallbackChain.Test/golden.lua +++ b/test/ps/output/Golden.LongCallbackChain.Test/golden.lua @@ -1,13 +1,13 @@ local M = {} -M.Data_Show_foreign = { showIntImpl = function(n) return tostring(n) end } -M.Effect_Console_foreign = { +local Data_Show_foreign = { showIntImpl = function(n) return tostring(n) end } +local Effect_Console_foreign = { log = function(s) return function() print(s) end end } -M.Golden_LongCallbackChain_Test_add_S_w = function(x_S_189_S_215, y_S_190_S_216) +local Golden_LongCallbackChain_Test_add_S_w = function( x_S_189_S_215 +, y_S_190_S_216 ) return x_S_189_S_215 + y_S_190_S_216 end -M.Golden_LongCallbackChain_Test_withInc_S_w = function(n, k) - local Golden_LongCallbackChain_Test_add_S_w = M.Golden_LongCallbackChain_Test_add_S_w +local Golden_LongCallbackChain_Test_withInc_S_w = function(n, k) while true do if "Data.Ordering∷Ordering.LT" == (function() if n < 0 then @@ -26,31 +26,31 @@ M.Golden_LongCallbackChain_Test_withInc_S_w = function(n, k) end M.Golden_LongCallbackChain_Test_withInc = function(withInc_S_p1) return function(withInc_S_p2) - return M.Golden_LongCallbackChain_Test_withInc_S_w(withInc_S_p1, withInc_S_p2) + return Golden_LongCallbackChain_Test_withInc_S_w(withInc_S_p1, withInc_S_p2) end end -M.Golden_LongCallbackChain_Test_compute = (function() +local Golden_LongCallbackChain_Test_compute = (function() local _S_kont227 = function(x280_S_228) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x280_S_228, function( x281 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x281, function(x282) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x282, function(x283) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x283, function( x284 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x284, function( x285 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x285, function( x286 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x286, function( x287 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x287, function( x288 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x288, function( x289 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x289, function( x290 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x290, function( x291 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x291, function( x292 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x292, function( x293 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x293, function( x294 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x294, function( x295 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x295, function( x296 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x296, function( x297 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x297, function( x298 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x298, function( x299 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x299, function( x300 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x280_S_228, function(x281) + return Golden_LongCallbackChain_Test_withInc_S_w(x281, function(x282) + return Golden_LongCallbackChain_Test_withInc_S_w(x282, function(x283) + return Golden_LongCallbackChain_Test_withInc_S_w(x283, function(x284) + return Golden_LongCallbackChain_Test_withInc_S_w(x284, function( x285 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x285, function( x286 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x286, function( x287 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x287, function( x288 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x288, function( x289 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x289, function( x290 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x290, function( x291 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x291, function( x292 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x292, function( x293 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x293, function( x294 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x294, function( x295 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x295, function( x296 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x296, function( x297 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x297, function( x298 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x298, function( x299 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x299, function( x300 ) return x300 end) end) @@ -74,46 +74,46 @@ M.Golden_LongCallbackChain_Test_compute = (function() end) end local _S_kont229 = function(x240_S_230) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x240_S_230, function( x241 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x241, function(x242) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x242, function(x243) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x243, function( x244 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x244, function( x245 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x245, function( x246 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x246, function( x247 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x247, function( x248 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x248, function( x249 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x249, function( x250 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x250, function( x251 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x251, function( x252 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x252, function( x253 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x253, function( x254 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x254, function( x255 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x255, function( x256 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x256, function( x257 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x257, function( x258 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x258, function( x259 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x259, function( x260 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x260, function( x261 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x261, function( x262 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x262, function( x263 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x263, function( x264 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x264, function( x265 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x265, function( x266 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x266, function( x267 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x267, function( x268 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x268, function( x269 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x269, function( x270 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x270, function( x271 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x271, function( x272 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x272, function( x273 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x273, function( x274 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x274, function( x275 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x275, function( x276 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x276, function( x277 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x277, function( x278 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x278, function( x279 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x279, function( x280 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x240_S_230, function(x241) + return Golden_LongCallbackChain_Test_withInc_S_w(x241, function(x242) + return Golden_LongCallbackChain_Test_withInc_S_w(x242, function(x243) + return Golden_LongCallbackChain_Test_withInc_S_w(x243, function(x244) + return Golden_LongCallbackChain_Test_withInc_S_w(x244, function( x245 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x245, function( x246 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x246, function( x247 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x247, function( x248 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x248, function( x249 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x249, function( x250 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x250, function( x251 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x251, function( x252 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x252, function( x253 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x253, function( x254 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x254, function( x255 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x255, function( x256 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x256, function( x257 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x257, function( x258 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x258, function( x259 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x259, function( x260 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x260, function( x261 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x261, function( x262 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x262, function( x263 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x263, function( x264 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x264, function( x265 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x265, function( x266 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x266, function( x267 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x267, function( x268 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x268, function( x269 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x269, function( x270 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x270, function( x271 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x271, function( x272 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x272, function( x273 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x273, function( x274 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x274, function( x275 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x275, function( x276 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x276, function( x277 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x277, function( x278 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x278, function( x279 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x279, function( x280 ) return _S_kont227(x280) end) end) @@ -157,46 +157,46 @@ M.Golden_LongCallbackChain_Test_compute = (function() end) end local _S_kont231 = function(x200_S_232) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x200_S_232, function( x201 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x201, function(x202) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x202, function(x203) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x203, function( x204 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x204, function( x205 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x205, function( x206 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x206, function( x207 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x207, function( x208 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x208, function( x209 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x209, function( x210 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x210, function( x211 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x211, function( x212 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x212, function( x213 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x213, function( x214 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x214, function( x215 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x215, function( x216 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x216, function( x217 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x217, function( x218 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x218, function( x219 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x219, function( x220 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x220, function( x221 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x221, function( x222 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x222, function( x223 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x223, function( x224 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x224, function( x225 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x225, function( x226 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x226, function( x227 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x227, function( x228 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x228, function( x229 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x229, function( x230 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x230, function( x231 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x231, function( x232 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x232, function( x233 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x233, function( x234 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x234, function( x235 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x235, function( x236 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x236, function( x237 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x237, function( x238 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x238, function( x239 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x239, function( x240 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x200_S_232, function(x201) + return Golden_LongCallbackChain_Test_withInc_S_w(x201, function(x202) + return Golden_LongCallbackChain_Test_withInc_S_w(x202, function(x203) + return Golden_LongCallbackChain_Test_withInc_S_w(x203, function(x204) + return Golden_LongCallbackChain_Test_withInc_S_w(x204, function( x205 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x205, function( x206 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x206, function( x207 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x207, function( x208 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x208, function( x209 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x209, function( x210 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x210, function( x211 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x211, function( x212 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x212, function( x213 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x213, function( x214 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x214, function( x215 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x215, function( x216 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x216, function( x217 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x217, function( x218 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x218, function( x219 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x219, function( x220 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x220, function( x221 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x221, function( x222 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x222, function( x223 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x223, function( x224 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x224, function( x225 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x225, function( x226 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x226, function( x227 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x227, function( x228 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x228, function( x229 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x229, function( x230 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x230, function( x231 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x231, function( x232 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x232, function( x233 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x233, function( x234 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x234, function( x235 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x235, function( x236 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x236, function( x237 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x237, function( x238 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x238, function( x239 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x239, function( x240 ) return _S_kont229(x240) end) end) @@ -240,46 +240,46 @@ M.Golden_LongCallbackChain_Test_compute = (function() end) end local _S_kont233 = function(x160_S_234) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x160_S_234, function( x161 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x161, function(x162) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x162, function(x163) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x163, function( x164 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x164, function( x165 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x165, function( x166 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x166, function( x167 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x167, function( x168 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x168, function( x169 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x169, function( x170 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x170, function( x171 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x171, function( x172 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x172, function( x173 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x173, function( x174 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x174, function( x175 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x175, function( x176 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x176, function( x177 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x177, function( x178 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x178, function( x179 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x179, function( x180 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x180, function( x181 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x181, function( x182 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x182, function( x183 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x183, function( x184 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x184, function( x185 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x185, function( x186 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x186, function( x187 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x187, function( x188 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x188, function( x189 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x189, function( x190 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x190, function( x191 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x191, function( x192 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x192, function( x193 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x193, function( x194 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x194, function( x195 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x195, function( x196 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x196, function( x197 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x197, function( x198 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x198, function( x199 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x199, function( x200 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x160_S_234, function(x161) + return Golden_LongCallbackChain_Test_withInc_S_w(x161, function(x162) + return Golden_LongCallbackChain_Test_withInc_S_w(x162, function(x163) + return Golden_LongCallbackChain_Test_withInc_S_w(x163, function(x164) + return Golden_LongCallbackChain_Test_withInc_S_w(x164, function( x165 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x165, function( x166 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x166, function( x167 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x167, function( x168 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x168, function( x169 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x169, function( x170 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x170, function( x171 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x171, function( x172 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x172, function( x173 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x173, function( x174 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x174, function( x175 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x175, function( x176 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x176, function( x177 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x177, function( x178 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x178, function( x179 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x179, function( x180 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x180, function( x181 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x181, function( x182 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x182, function( x183 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x183, function( x184 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x184, function( x185 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x185, function( x186 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x186, function( x187 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x187, function( x188 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x188, function( x189 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x189, function( x190 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x190, function( x191 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x191, function( x192 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x192, function( x193 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x193, function( x194 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x194, function( x195 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x195, function( x196 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x196, function( x197 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x197, function( x198 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x198, function( x199 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x199, function( x200 ) return _S_kont231(x200) end) end) @@ -323,46 +323,46 @@ M.Golden_LongCallbackChain_Test_compute = (function() end) end local _S_kont235 = function(x120_S_236) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x120_S_236, function( x121 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x121, function(x122) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x122, function(x123) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x123, function( x124 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x124, function( x125 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x125, function( x126 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x126, function( x127 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x127, function( x128 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x128, function( x129 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x129, function( x130 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x130, function( x131 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x131, function( x132 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x132, function( x133 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x133, function( x134 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x134, function( x135 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x135, function( x136 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x136, function( x137 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x137, function( x138 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x138, function( x139 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x139, function( x140 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x140, function( x141 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x141, function( x142 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x142, function( x143 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x143, function( x144 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x144, function( x145 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x145, function( x146 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x146, function( x147 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x147, function( x148 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x148, function( x149 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x149, function( x150 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x150, function( x151 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x151, function( x152 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x152, function( x153 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x153, function( x154 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x154, function( x155 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x155, function( x156 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x156, function( x157 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x157, function( x158 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x158, function( x159 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x159, function( x160 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x120_S_236, function(x121) + return Golden_LongCallbackChain_Test_withInc_S_w(x121, function(x122) + return Golden_LongCallbackChain_Test_withInc_S_w(x122, function(x123) + return Golden_LongCallbackChain_Test_withInc_S_w(x123, function(x124) + return Golden_LongCallbackChain_Test_withInc_S_w(x124, function( x125 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x125, function( x126 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x126, function( x127 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x127, function( x128 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x128, function( x129 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x129, function( x130 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x130, function( x131 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x131, function( x132 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x132, function( x133 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x133, function( x134 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x134, function( x135 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x135, function( x136 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x136, function( x137 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x137, function( x138 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x138, function( x139 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x139, function( x140 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x140, function( x141 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x141, function( x142 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x142, function( x143 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x143, function( x144 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x144, function( x145 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x145, function( x146 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x146, function( x147 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x147, function( x148 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x148, function( x149 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x149, function( x150 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x150, function( x151 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x151, function( x152 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x152, function( x153 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x153, function( x154 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x154, function( x155 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x155, function( x156 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x156, function( x157 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x157, function( x158 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x158, function( x159 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x159, function( x160 ) return _S_kont233(x160) end) end) @@ -406,46 +406,46 @@ M.Golden_LongCallbackChain_Test_compute = (function() end) end local _S_kont237 = function(x80_S_238) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x80_S_238, function(x81) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x81, function(x82) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x82, function(x83) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x83, function(x84) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x84, function( x85 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x85, function( x86 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x86, function( x87 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x87, function( x88 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x88, function( x89 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x89, function( x90 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x90, function( x91 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x91, function( x92 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x92, function( x93 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x93, function( x94 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x94, function( x95 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x95, function( x96 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x96, function( x97 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x97, function( x98 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x98, function( x99 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x99, function( x100 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x100, function( x101 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x101, function( x102 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x102, function( x103 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x103, function( x104 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x104, function( x105 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x105, function( x106 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x106, function( x107 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x107, function( x108 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x108, function( x109 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x109, function( x110 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x110, function( x111 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x111, function( x112 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x112, function( x113 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x113, function( x114 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x114, function( x115 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x115, function( x116 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x116, function( x117 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x117, function( x118 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x118, function( x119 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x119, function( x120 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x80_S_238, function(x81) + return Golden_LongCallbackChain_Test_withInc_S_w(x81, function(x82) + return Golden_LongCallbackChain_Test_withInc_S_w(x82, function(x83) + return Golden_LongCallbackChain_Test_withInc_S_w(x83, function(x84) + return Golden_LongCallbackChain_Test_withInc_S_w(x84, function(x85) + return Golden_LongCallbackChain_Test_withInc_S_w(x85, function( x86 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x86, function( x87 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x87, function( x88 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x88, function( x89 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x89, function( x90 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x90, function( x91 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x91, function( x92 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x92, function( x93 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x93, function( x94 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x94, function( x95 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x95, function( x96 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x96, function( x97 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x97, function( x98 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x98, function( x99 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x99, function( x100 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x100, function( x101 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x101, function( x102 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x102, function( x103 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x103, function( x104 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x104, function( x105 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x105, function( x106 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x106, function( x107 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x107, function( x108 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x108, function( x109 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x109, function( x110 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x110, function( x111 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x111, function( x112 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x112, function( x113 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x113, function( x114 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x114, function( x115 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x115, function( x116 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x116, function( x117 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x117, function( x118 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x118, function( x119 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x119, function( x120 ) return _S_kont235(x120) end) end) @@ -489,46 +489,46 @@ M.Golden_LongCallbackChain_Test_compute = (function() end) end local _S_kont239 = function(x40_S_240) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x40_S_240, function(x41) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x41, function(x42) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x42, function(x43) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x43, function(x44) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x44, function( x45 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x45, function( x46 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x46, function( x47 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x47, function( x48 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x48, function( x49 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x49, function( x50 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x50, function( x51 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x51, function( x52 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x52, function( x53 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x53, function( x54 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x54, function( x55 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x55, function( x56 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x56, function( x57 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x57, function( x58 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x58, function( x59 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x59, function( x60 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x60, function( x61 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x61, function( x62 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x62, function( x63 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x63, function( x64 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x64, function( x65 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x65, function( x66 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x66, function( x67 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x67, function( x68 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x68, function( x69 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x69, function( x70 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x70, function( x71 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x71, function( x72 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x72, function( x73 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x73, function( x74 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x74, function( x75 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x75, function( x76 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x76, function( x77 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x77, function( x78 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x78, function( x79 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x79, function( x80 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x40_S_240, function(x41) + return Golden_LongCallbackChain_Test_withInc_S_w(x41, function(x42) + return Golden_LongCallbackChain_Test_withInc_S_w(x42, function(x43) + return Golden_LongCallbackChain_Test_withInc_S_w(x43, function(x44) + return Golden_LongCallbackChain_Test_withInc_S_w(x44, function(x45) + return Golden_LongCallbackChain_Test_withInc_S_w(x45, function( x46 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x46, function( x47 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x47, function( x48 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x48, function( x49 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x49, function( x50 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x50, function( x51 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x51, function( x52 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x52, function( x53 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x53, function( x54 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x54, function( x55 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x55, function( x56 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x56, function( x57 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x57, function( x58 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x58, function( x59 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x59, function( x60 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x60, function( x61 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x61, function( x62 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x62, function( x63 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x63, function( x64 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x64, function( x65 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x65, function( x66 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x66, function( x67 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x67, function( x68 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x68, function( x69 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x69, function( x70 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x70, function( x71 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x71, function( x72 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x72, function( x73 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x73, function( x74 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x74, function( x75 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x75, function( x76 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x76, function( x77 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x77, function( x78 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x78, function( x79 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x79, function( x80 ) return _S_kont237(x80) end) end) @@ -571,46 +571,46 @@ M.Golden_LongCallbackChain_Test_compute = (function() end) end) end - return M.Golden_LongCallbackChain_Test_withInc_S_w(0, function(x1) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x1, function(x2) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x2, function(x3) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x3, function(x4) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x4, function(x5) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x5, function(x6) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x6, function( x7 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x7, function( x8 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x8, function( x9 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x9, function( x10 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x10, function( x11 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x11, function( x12 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x12, function( x13 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x13, function( x14 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x14, function( x15 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x15, function( x16 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x16, function( x17 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x17, function( x18 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x18, function( x19 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x19, function( x20 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x20, function( x21 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x21, function( x22 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x22, function( x23 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x23, function( x24 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x24, function( x25 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x25, function( x26 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x26, function( x27 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x27, function( x28 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x28, function( x29 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x29, function( x30 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x30, function( x31 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x31, function( x32 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x32, function( x33 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x33, function( x34 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x34, function( x35 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x35, function( x36 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x36, function( x37 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x37, function( x38 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x38, function( x39 ) - return M.Golden_LongCallbackChain_Test_withInc_S_w(x39, function( x40 ) + return Golden_LongCallbackChain_Test_withInc_S_w(0, function(x1) + return Golden_LongCallbackChain_Test_withInc_S_w(x1, function(x2) + return Golden_LongCallbackChain_Test_withInc_S_w(x2, function(x3) + return Golden_LongCallbackChain_Test_withInc_S_w(x3, function(x4) + return Golden_LongCallbackChain_Test_withInc_S_w(x4, function(x5) + return Golden_LongCallbackChain_Test_withInc_S_w(x5, function(x6) + return Golden_LongCallbackChain_Test_withInc_S_w(x6, function(x7) + return Golden_LongCallbackChain_Test_withInc_S_w(x7, function( x8 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x8, function( x9 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x9, function( x10 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x10, function( x11 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x11, function( x12 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x12, function( x13 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x13, function( x14 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x14, function( x15 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x15, function( x16 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x16, function( x17 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x17, function( x18 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x18, function( x19 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x19, function( x20 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x20, function( x21 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x21, function( x22 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x22, function( x23 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x23, function( x24 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x24, function( x25 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x25, function( x26 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x26, function( x27 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x27, function( x28 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x28, function( x29 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x29, function( x30 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x30, function( x31 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x31, function( x32 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x32, function( x33 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x33, function( x34 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x34, function( x35 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x35, function( x36 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x36, function( x37 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x37, function( x38 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x38, function( x39 ) + return Golden_LongCallbackChain_Test_withInc_S_w(x39, function( x40 ) return _S_kont239(x40) end) end) @@ -653,4 +653,4 @@ M.Golden_LongCallbackChain_Test_compute = (function() end) end) end)() -return M.Effect_Console_foreign.log(M.Data_Show_foreign.showIntImpl(M.Golden_LongCallbackChain_Test_compute))() +return Effect_Console_foreign.log(Data_Show_foreign.showIntImpl(Golden_LongCallbackChain_Test_compute))() diff --git a/test/ps/output/Golden.LongDoBlock.Test/golden.lua b/test/ps/output/Golden.LongDoBlock.Test/golden.lua index 22856315..db0bb738 100644 --- a/test/ps/output/Golden.LongDoBlock.Test/golden.lua +++ b/test/ps/output/Golden.LongDoBlock.Test/golden.lua @@ -1,308 +1,307 @@ -local M = {} -M.Effect_Console_foreign = { +local Effect_Console_foreign = { log = function(s) return function() print(s) end end } return (function() - local _ = M.Effect_Console_foreign.log("1")() - local _ = M.Effect_Console_foreign.log("2")() - local _ = M.Effect_Console_foreign.log("3")() - local _ = M.Effect_Console_foreign.log("4")() - local _ = M.Effect_Console_foreign.log("5")() - local _ = M.Effect_Console_foreign.log("6")() - local _ = M.Effect_Console_foreign.log("7")() - local _ = M.Effect_Console_foreign.log("8")() - local _ = M.Effect_Console_foreign.log("9")() - local _ = M.Effect_Console_foreign.log("10")() - local _ = M.Effect_Console_foreign.log("11")() - local _ = M.Effect_Console_foreign.log("12")() - local _ = M.Effect_Console_foreign.log("13")() - local _ = M.Effect_Console_foreign.log("14")() - local _ = M.Effect_Console_foreign.log("15")() - local _ = M.Effect_Console_foreign.log("16")() - local _ = M.Effect_Console_foreign.log("17")() - local _ = M.Effect_Console_foreign.log("18")() - local _ = M.Effect_Console_foreign.log("19")() - local _ = M.Effect_Console_foreign.log("20")() - local _ = M.Effect_Console_foreign.log("21")() - local _ = M.Effect_Console_foreign.log("22")() - local _ = M.Effect_Console_foreign.log("23")() - local _ = M.Effect_Console_foreign.log("24")() - local _ = M.Effect_Console_foreign.log("25")() - local _ = M.Effect_Console_foreign.log("26")() - local _ = M.Effect_Console_foreign.log("27")() - local _ = M.Effect_Console_foreign.log("28")() - local _ = M.Effect_Console_foreign.log("29")() - local _ = M.Effect_Console_foreign.log("30")() - local _ = M.Effect_Console_foreign.log("31")() - local _ = M.Effect_Console_foreign.log("32")() - local _ = M.Effect_Console_foreign.log("33")() - local _ = M.Effect_Console_foreign.log("34")() - local _ = M.Effect_Console_foreign.log("35")() - local _ = M.Effect_Console_foreign.log("36")() - local _ = M.Effect_Console_foreign.log("37")() - local _ = M.Effect_Console_foreign.log("38")() - local _ = M.Effect_Console_foreign.log("39")() - local _ = M.Effect_Console_foreign.log("40")() - local _ = M.Effect_Console_foreign.log("41")() - local _ = M.Effect_Console_foreign.log("42")() - local _ = M.Effect_Console_foreign.log("43")() - local _ = M.Effect_Console_foreign.log("44")() - local _ = M.Effect_Console_foreign.log("45")() - local _ = M.Effect_Console_foreign.log("46")() - local _ = M.Effect_Console_foreign.log("47")() - local _ = M.Effect_Console_foreign.log("48")() - local _ = M.Effect_Console_foreign.log("49")() - local _ = M.Effect_Console_foreign.log("50")() - local _ = M.Effect_Console_foreign.log("51")() - local _ = M.Effect_Console_foreign.log("52")() - local _ = M.Effect_Console_foreign.log("53")() - local _ = M.Effect_Console_foreign.log("54")() - local _ = M.Effect_Console_foreign.log("55")() - local _ = M.Effect_Console_foreign.log("56")() - local _ = M.Effect_Console_foreign.log("57")() - local _ = M.Effect_Console_foreign.log("58")() - local _ = M.Effect_Console_foreign.log("59")() - local _ = M.Effect_Console_foreign.log("60")() - local _ = M.Effect_Console_foreign.log("61")() - local _ = M.Effect_Console_foreign.log("62")() - local _ = M.Effect_Console_foreign.log("63")() - local _ = M.Effect_Console_foreign.log("64")() - local _ = M.Effect_Console_foreign.log("65")() - local _ = M.Effect_Console_foreign.log("66")() - local _ = M.Effect_Console_foreign.log("67")() - local _ = M.Effect_Console_foreign.log("68")() - local _ = M.Effect_Console_foreign.log("69")() - local _ = M.Effect_Console_foreign.log("70")() - local _ = M.Effect_Console_foreign.log("71")() - local _ = M.Effect_Console_foreign.log("72")() - local _ = M.Effect_Console_foreign.log("73")() - local _ = M.Effect_Console_foreign.log("74")() - local _ = M.Effect_Console_foreign.log("75")() - local _ = M.Effect_Console_foreign.log("76")() - local _ = M.Effect_Console_foreign.log("77")() - local _ = M.Effect_Console_foreign.log("78")() - local _ = M.Effect_Console_foreign.log("79")() - local _ = M.Effect_Console_foreign.log("80")() - local _ = M.Effect_Console_foreign.log("81")() - local _ = M.Effect_Console_foreign.log("82")() - local _ = M.Effect_Console_foreign.log("83")() - local _ = M.Effect_Console_foreign.log("84")() - local _ = M.Effect_Console_foreign.log("85")() - local _ = M.Effect_Console_foreign.log("86")() - local _ = M.Effect_Console_foreign.log("87")() - local _ = M.Effect_Console_foreign.log("88")() - local _ = M.Effect_Console_foreign.log("89")() - local _ = M.Effect_Console_foreign.log("90")() - local _ = M.Effect_Console_foreign.log("91")() - local _ = M.Effect_Console_foreign.log("92")() - local _ = M.Effect_Console_foreign.log("93")() - local _ = M.Effect_Console_foreign.log("94")() - local _ = M.Effect_Console_foreign.log("95")() - local _ = M.Effect_Console_foreign.log("96")() - local _ = M.Effect_Console_foreign.log("97")() - local _ = M.Effect_Console_foreign.log("98")() - local _ = M.Effect_Console_foreign.log("99")() - local _ = M.Effect_Console_foreign.log("100")() - local _ = M.Effect_Console_foreign.log("101")() - local _ = M.Effect_Console_foreign.log("102")() - local _ = M.Effect_Console_foreign.log("103")() - local _ = M.Effect_Console_foreign.log("104")() - local _ = M.Effect_Console_foreign.log("105")() - local _ = M.Effect_Console_foreign.log("106")() - local _ = M.Effect_Console_foreign.log("107")() - local _ = M.Effect_Console_foreign.log("108")() - local _ = M.Effect_Console_foreign.log("109")() - local _ = M.Effect_Console_foreign.log("110")() - local _ = M.Effect_Console_foreign.log("111")() - local _ = M.Effect_Console_foreign.log("112")() - local _ = M.Effect_Console_foreign.log("113")() - local _ = M.Effect_Console_foreign.log("114")() - local _ = M.Effect_Console_foreign.log("115")() - local _ = M.Effect_Console_foreign.log("116")() - local _ = M.Effect_Console_foreign.log("117")() - local _ = M.Effect_Console_foreign.log("118")() - local _ = M.Effect_Console_foreign.log("119")() - local _ = M.Effect_Console_foreign.log("120")() - local _ = M.Effect_Console_foreign.log("121")() - local _ = M.Effect_Console_foreign.log("122")() - local _ = M.Effect_Console_foreign.log("123")() - local _ = M.Effect_Console_foreign.log("124")() - local _ = M.Effect_Console_foreign.log("125")() - local _ = M.Effect_Console_foreign.log("126")() - local _ = M.Effect_Console_foreign.log("127")() - local _ = M.Effect_Console_foreign.log("128")() - local _ = M.Effect_Console_foreign.log("129")() - local _ = M.Effect_Console_foreign.log("130")() - local _ = M.Effect_Console_foreign.log("131")() - local _ = M.Effect_Console_foreign.log("132")() - local _ = M.Effect_Console_foreign.log("133")() - local _ = M.Effect_Console_foreign.log("134")() - local _ = M.Effect_Console_foreign.log("135")() - local _ = M.Effect_Console_foreign.log("136")() - local _ = M.Effect_Console_foreign.log("137")() - local _ = M.Effect_Console_foreign.log("138")() - local _ = M.Effect_Console_foreign.log("139")() - local _ = M.Effect_Console_foreign.log("140")() - local _ = M.Effect_Console_foreign.log("141")() - local _ = M.Effect_Console_foreign.log("142")() - local _ = M.Effect_Console_foreign.log("143")() - local _ = M.Effect_Console_foreign.log("144")() - local _ = M.Effect_Console_foreign.log("145")() - local _ = M.Effect_Console_foreign.log("146")() - local _ = M.Effect_Console_foreign.log("147")() - local _ = M.Effect_Console_foreign.log("148")() - local _ = M.Effect_Console_foreign.log("149")() - local _ = M.Effect_Console_foreign.log("150")() + local _ = Effect_Console_foreign.log("1")() + local _ = Effect_Console_foreign.log("2")() + local _ = Effect_Console_foreign.log("3")() + local _ = Effect_Console_foreign.log("4")() + local _ = Effect_Console_foreign.log("5")() + local _ = Effect_Console_foreign.log("6")() + local _ = Effect_Console_foreign.log("7")() + local _ = Effect_Console_foreign.log("8")() + local _ = Effect_Console_foreign.log("9")() + local _ = Effect_Console_foreign.log("10")() + local _ = Effect_Console_foreign.log("11")() + local _ = Effect_Console_foreign.log("12")() + local _ = Effect_Console_foreign.log("13")() + local _ = Effect_Console_foreign.log("14")() + local _ = Effect_Console_foreign.log("15")() + local _ = Effect_Console_foreign.log("16")() + local _ = Effect_Console_foreign.log("17")() + local _ = Effect_Console_foreign.log("18")() + local _ = Effect_Console_foreign.log("19")() + local _ = Effect_Console_foreign.log("20")() + local _ = Effect_Console_foreign.log("21")() + local _ = Effect_Console_foreign.log("22")() + local _ = Effect_Console_foreign.log("23")() + local _ = Effect_Console_foreign.log("24")() + local _ = Effect_Console_foreign.log("25")() + local _ = Effect_Console_foreign.log("26")() + local _ = Effect_Console_foreign.log("27")() + local _ = Effect_Console_foreign.log("28")() + local _ = Effect_Console_foreign.log("29")() + local _ = Effect_Console_foreign.log("30")() + local _ = Effect_Console_foreign.log("31")() + local _ = Effect_Console_foreign.log("32")() + local _ = Effect_Console_foreign.log("33")() + local _ = Effect_Console_foreign.log("34")() + local _ = Effect_Console_foreign.log("35")() + local _ = Effect_Console_foreign.log("36")() + local _ = Effect_Console_foreign.log("37")() + local _ = Effect_Console_foreign.log("38")() + local _ = Effect_Console_foreign.log("39")() + local _ = Effect_Console_foreign.log("40")() + local _ = Effect_Console_foreign.log("41")() + local _ = Effect_Console_foreign.log("42")() + local _ = Effect_Console_foreign.log("43")() + local _ = Effect_Console_foreign.log("44")() + local _ = Effect_Console_foreign.log("45")() + local _ = Effect_Console_foreign.log("46")() + local _ = Effect_Console_foreign.log("47")() + local _ = Effect_Console_foreign.log("48")() + local _ = Effect_Console_foreign.log("49")() + local _ = Effect_Console_foreign.log("50")() + local _ = Effect_Console_foreign.log("51")() + local _ = Effect_Console_foreign.log("52")() + local _ = Effect_Console_foreign.log("53")() + local _ = Effect_Console_foreign.log("54")() + local _ = Effect_Console_foreign.log("55")() + local _ = Effect_Console_foreign.log("56")() + local _ = Effect_Console_foreign.log("57")() + local _ = Effect_Console_foreign.log("58")() + local _ = Effect_Console_foreign.log("59")() + local _ = Effect_Console_foreign.log("60")() + local _ = Effect_Console_foreign.log("61")() + local _ = Effect_Console_foreign.log("62")() + local _ = Effect_Console_foreign.log("63")() + local _ = Effect_Console_foreign.log("64")() + local _ = Effect_Console_foreign.log("65")() + local _ = Effect_Console_foreign.log("66")() + local _ = Effect_Console_foreign.log("67")() + local _ = Effect_Console_foreign.log("68")() + local _ = Effect_Console_foreign.log("69")() + local _ = Effect_Console_foreign.log("70")() + local _ = Effect_Console_foreign.log("71")() + local _ = Effect_Console_foreign.log("72")() + local _ = Effect_Console_foreign.log("73")() + local _ = Effect_Console_foreign.log("74")() + local _ = Effect_Console_foreign.log("75")() + local _ = Effect_Console_foreign.log("76")() + local _ = Effect_Console_foreign.log("77")() + local _ = Effect_Console_foreign.log("78")() + local _ = Effect_Console_foreign.log("79")() + local _ = Effect_Console_foreign.log("80")() + local _ = Effect_Console_foreign.log("81")() + local _ = Effect_Console_foreign.log("82")() + local _ = Effect_Console_foreign.log("83")() + local _ = Effect_Console_foreign.log("84")() + local _ = Effect_Console_foreign.log("85")() + local _ = Effect_Console_foreign.log("86")() + local _ = Effect_Console_foreign.log("87")() + local _ = Effect_Console_foreign.log("88")() + local _ = Effect_Console_foreign.log("89")() + local _ = Effect_Console_foreign.log("90")() + local _ = Effect_Console_foreign.log("91")() + local _ = Effect_Console_foreign.log("92")() + local _ = Effect_Console_foreign.log("93")() + local _ = Effect_Console_foreign.log("94")() + local _ = Effect_Console_foreign.log("95")() + local _ = Effect_Console_foreign.log("96")() + local _ = Effect_Console_foreign.log("97")() + local _ = Effect_Console_foreign.log("98")() + local _ = Effect_Console_foreign.log("99")() + local _ = Effect_Console_foreign.log("100")() + local _ = Effect_Console_foreign.log("101")() + local _ = Effect_Console_foreign.log("102")() + local _ = Effect_Console_foreign.log("103")() + local _ = Effect_Console_foreign.log("104")() + local _ = Effect_Console_foreign.log("105")() + local _ = Effect_Console_foreign.log("106")() + local _ = Effect_Console_foreign.log("107")() + local _ = Effect_Console_foreign.log("108")() + local _ = Effect_Console_foreign.log("109")() + local _ = Effect_Console_foreign.log("110")() + local _ = Effect_Console_foreign.log("111")() + local _ = Effect_Console_foreign.log("112")() + local _ = Effect_Console_foreign.log("113")() + local _ = Effect_Console_foreign.log("114")() + local _ = Effect_Console_foreign.log("115")() + local _ = Effect_Console_foreign.log("116")() + local _ = Effect_Console_foreign.log("117")() + local _ = Effect_Console_foreign.log("118")() + local _ = Effect_Console_foreign.log("119")() + local _ = Effect_Console_foreign.log("120")() + local _ = Effect_Console_foreign.log("121")() + local _ = Effect_Console_foreign.log("122")() + local _ = Effect_Console_foreign.log("123")() + local _ = Effect_Console_foreign.log("124")() + local _ = Effect_Console_foreign.log("125")() + local _ = Effect_Console_foreign.log("126")() + local _ = Effect_Console_foreign.log("127")() + local _ = Effect_Console_foreign.log("128")() + local _ = Effect_Console_foreign.log("129")() + local _ = Effect_Console_foreign.log("130")() + local _ = Effect_Console_foreign.log("131")() + local _ = Effect_Console_foreign.log("132")() + local _ = Effect_Console_foreign.log("133")() + local _ = Effect_Console_foreign.log("134")() + local _ = Effect_Console_foreign.log("135")() + local _ = Effect_Console_foreign.log("136")() + local _ = Effect_Console_foreign.log("137")() + local _ = Effect_Console_foreign.log("138")() + local _ = Effect_Console_foreign.log("139")() + local _ = Effect_Console_foreign.log("140")() + local _ = Effect_Console_foreign.log("141")() + local _ = Effect_Console_foreign.log("142")() + local _ = Effect_Console_foreign.log("143")() + local _ = Effect_Console_foreign.log("144")() + local _ = Effect_Console_foreign.log("145")() + local _ = Effect_Console_foreign.log("146")() + local _ = Effect_Console_foreign.log("147")() + local _ = Effect_Console_foreign.log("148")() + local _ = Effect_Console_foreign.log("149")() + local _ = Effect_Console_foreign.log("150")() return (function() - local _ = M.Effect_Console_foreign.log("151")() - local _ = M.Effect_Console_foreign.log("152")() - local _ = M.Effect_Console_foreign.log("153")() - local _ = M.Effect_Console_foreign.log("154")() - local _ = M.Effect_Console_foreign.log("155")() - local _ = M.Effect_Console_foreign.log("156")() - local _ = M.Effect_Console_foreign.log("157")() - local _ = M.Effect_Console_foreign.log("158")() - local _ = M.Effect_Console_foreign.log("159")() - local _ = M.Effect_Console_foreign.log("160")() - local _ = M.Effect_Console_foreign.log("161")() - local _ = M.Effect_Console_foreign.log("162")() - local _ = M.Effect_Console_foreign.log("163")() - local _ = M.Effect_Console_foreign.log("164")() - local _ = M.Effect_Console_foreign.log("165")() - local _ = M.Effect_Console_foreign.log("166")() - local _ = M.Effect_Console_foreign.log("167")() - local _ = M.Effect_Console_foreign.log("168")() - local _ = M.Effect_Console_foreign.log("169")() - local _ = M.Effect_Console_foreign.log("170")() - local _ = M.Effect_Console_foreign.log("171")() - local _ = M.Effect_Console_foreign.log("172")() - local _ = M.Effect_Console_foreign.log("173")() - local _ = M.Effect_Console_foreign.log("174")() - local _ = M.Effect_Console_foreign.log("175")() - local _ = M.Effect_Console_foreign.log("176")() - local _ = M.Effect_Console_foreign.log("177")() - local _ = M.Effect_Console_foreign.log("178")() - local _ = M.Effect_Console_foreign.log("179")() - local _ = M.Effect_Console_foreign.log("180")() - local _ = M.Effect_Console_foreign.log("181")() - local _ = M.Effect_Console_foreign.log("182")() - local _ = M.Effect_Console_foreign.log("183")() - local _ = M.Effect_Console_foreign.log("184")() - local _ = M.Effect_Console_foreign.log("185")() - local _ = M.Effect_Console_foreign.log("186")() - local _ = M.Effect_Console_foreign.log("187")() - local _ = M.Effect_Console_foreign.log("188")() - local _ = M.Effect_Console_foreign.log("189")() - local _ = M.Effect_Console_foreign.log("190")() - local _ = M.Effect_Console_foreign.log("191")() - local _ = M.Effect_Console_foreign.log("192")() - local _ = M.Effect_Console_foreign.log("193")() - local _ = M.Effect_Console_foreign.log("194")() - local _ = M.Effect_Console_foreign.log("195")() - local _ = M.Effect_Console_foreign.log("196")() - local _ = M.Effect_Console_foreign.log("197")() - local _ = M.Effect_Console_foreign.log("198")() - local _ = M.Effect_Console_foreign.log("199")() - local _ = M.Effect_Console_foreign.log("200")() - local _ = M.Effect_Console_foreign.log("201")() - local _ = M.Effect_Console_foreign.log("202")() - local _ = M.Effect_Console_foreign.log("203")() - local _ = M.Effect_Console_foreign.log("204")() - local _ = M.Effect_Console_foreign.log("205")() - local _ = M.Effect_Console_foreign.log("206")() - local _ = M.Effect_Console_foreign.log("207")() - local _ = M.Effect_Console_foreign.log("208")() - local _ = M.Effect_Console_foreign.log("209")() - local _ = M.Effect_Console_foreign.log("210")() - local _ = M.Effect_Console_foreign.log("211")() - local _ = M.Effect_Console_foreign.log("212")() - local _ = M.Effect_Console_foreign.log("213")() - local _ = M.Effect_Console_foreign.log("214")() - local _ = M.Effect_Console_foreign.log("215")() - local _ = M.Effect_Console_foreign.log("216")() - local _ = M.Effect_Console_foreign.log("217")() - local _ = M.Effect_Console_foreign.log("218")() - local _ = M.Effect_Console_foreign.log("219")() - local _ = M.Effect_Console_foreign.log("220")() - local _ = M.Effect_Console_foreign.log("221")() - local _ = M.Effect_Console_foreign.log("222")() - local _ = M.Effect_Console_foreign.log("223")() - local _ = M.Effect_Console_foreign.log("224")() - local _ = M.Effect_Console_foreign.log("225")() - local _ = M.Effect_Console_foreign.log("226")() - local _ = M.Effect_Console_foreign.log("227")() - local _ = M.Effect_Console_foreign.log("228")() - local _ = M.Effect_Console_foreign.log("229")() - local _ = M.Effect_Console_foreign.log("230")() - local _ = M.Effect_Console_foreign.log("231")() - local _ = M.Effect_Console_foreign.log("232")() - local _ = M.Effect_Console_foreign.log("233")() - local _ = M.Effect_Console_foreign.log("234")() - local _ = M.Effect_Console_foreign.log("235")() - local _ = M.Effect_Console_foreign.log("236")() - local _ = M.Effect_Console_foreign.log("237")() - local _ = M.Effect_Console_foreign.log("238")() - local _ = M.Effect_Console_foreign.log("239")() - local _ = M.Effect_Console_foreign.log("240")() - local _ = M.Effect_Console_foreign.log("241")() - local _ = M.Effect_Console_foreign.log("242")() - local _ = M.Effect_Console_foreign.log("243")() - local _ = M.Effect_Console_foreign.log("244")() - local _ = M.Effect_Console_foreign.log("245")() - local _ = M.Effect_Console_foreign.log("246")() - local _ = M.Effect_Console_foreign.log("247")() - local _ = M.Effect_Console_foreign.log("248")() - local _ = M.Effect_Console_foreign.log("249")() - local _ = M.Effect_Console_foreign.log("250")() - local _ = M.Effect_Console_foreign.log("251")() - local _ = M.Effect_Console_foreign.log("252")() - local _ = M.Effect_Console_foreign.log("253")() - local _ = M.Effect_Console_foreign.log("254")() - local _ = M.Effect_Console_foreign.log("255")() - local _ = M.Effect_Console_foreign.log("256")() - local _ = M.Effect_Console_foreign.log("257")() - local _ = M.Effect_Console_foreign.log("258")() - local _ = M.Effect_Console_foreign.log("259")() - local _ = M.Effect_Console_foreign.log("260")() - local _ = M.Effect_Console_foreign.log("261")() - local _ = M.Effect_Console_foreign.log("262")() - local _ = M.Effect_Console_foreign.log("263")() - local _ = M.Effect_Console_foreign.log("264")() - local _ = M.Effect_Console_foreign.log("265")() - local _ = M.Effect_Console_foreign.log("266")() - local _ = M.Effect_Console_foreign.log("267")() - local _ = M.Effect_Console_foreign.log("268")() - local _ = M.Effect_Console_foreign.log("269")() - local _ = M.Effect_Console_foreign.log("270")() - local _ = M.Effect_Console_foreign.log("271")() - local _ = M.Effect_Console_foreign.log("272")() - local _ = M.Effect_Console_foreign.log("273")() - local _ = M.Effect_Console_foreign.log("274")() - local _ = M.Effect_Console_foreign.log("275")() - local _ = M.Effect_Console_foreign.log("276")() - local _ = M.Effect_Console_foreign.log("277")() - local _ = M.Effect_Console_foreign.log("278")() - local _ = M.Effect_Console_foreign.log("279")() - local _ = M.Effect_Console_foreign.log("280")() - local _ = M.Effect_Console_foreign.log("281")() - local _ = M.Effect_Console_foreign.log("282")() - local _ = M.Effect_Console_foreign.log("283")() - local _ = M.Effect_Console_foreign.log("284")() - local _ = M.Effect_Console_foreign.log("285")() - local _ = M.Effect_Console_foreign.log("286")() - local _ = M.Effect_Console_foreign.log("287")() - local _ = M.Effect_Console_foreign.log("288")() - local _ = M.Effect_Console_foreign.log("289")() - local _ = M.Effect_Console_foreign.log("290")() - local _ = M.Effect_Console_foreign.log("291")() - local _ = M.Effect_Console_foreign.log("292")() - local _ = M.Effect_Console_foreign.log("293")() - local _ = M.Effect_Console_foreign.log("294")() - local _ = M.Effect_Console_foreign.log("295")() - local _ = M.Effect_Console_foreign.log("296")() - local _ = M.Effect_Console_foreign.log("297")() - local _ = M.Effect_Console_foreign.log("298")() - local _ = M.Effect_Console_foreign.log("299")() - return M.Effect_Console_foreign.log("300")() + local _ = Effect_Console_foreign.log("151")() + local _ = Effect_Console_foreign.log("152")() + local _ = Effect_Console_foreign.log("153")() + local _ = Effect_Console_foreign.log("154")() + local _ = Effect_Console_foreign.log("155")() + local _ = Effect_Console_foreign.log("156")() + local _ = Effect_Console_foreign.log("157")() + local _ = Effect_Console_foreign.log("158")() + local _ = Effect_Console_foreign.log("159")() + local _ = Effect_Console_foreign.log("160")() + local _ = Effect_Console_foreign.log("161")() + local _ = Effect_Console_foreign.log("162")() + local _ = Effect_Console_foreign.log("163")() + local _ = Effect_Console_foreign.log("164")() + local _ = Effect_Console_foreign.log("165")() + local _ = Effect_Console_foreign.log("166")() + local _ = Effect_Console_foreign.log("167")() + local _ = Effect_Console_foreign.log("168")() + local _ = Effect_Console_foreign.log("169")() + local _ = Effect_Console_foreign.log("170")() + local _ = Effect_Console_foreign.log("171")() + local _ = Effect_Console_foreign.log("172")() + local _ = Effect_Console_foreign.log("173")() + local _ = Effect_Console_foreign.log("174")() + local _ = Effect_Console_foreign.log("175")() + local _ = Effect_Console_foreign.log("176")() + local _ = Effect_Console_foreign.log("177")() + local _ = Effect_Console_foreign.log("178")() + local _ = Effect_Console_foreign.log("179")() + local _ = Effect_Console_foreign.log("180")() + local _ = Effect_Console_foreign.log("181")() + local _ = Effect_Console_foreign.log("182")() + local _ = Effect_Console_foreign.log("183")() + local _ = Effect_Console_foreign.log("184")() + local _ = Effect_Console_foreign.log("185")() + local _ = Effect_Console_foreign.log("186")() + local _ = Effect_Console_foreign.log("187")() + local _ = Effect_Console_foreign.log("188")() + local _ = Effect_Console_foreign.log("189")() + local _ = Effect_Console_foreign.log("190")() + local _ = Effect_Console_foreign.log("191")() + local _ = Effect_Console_foreign.log("192")() + local _ = Effect_Console_foreign.log("193")() + local _ = Effect_Console_foreign.log("194")() + local _ = Effect_Console_foreign.log("195")() + local _ = Effect_Console_foreign.log("196")() + local _ = Effect_Console_foreign.log("197")() + local _ = Effect_Console_foreign.log("198")() + local _ = Effect_Console_foreign.log("199")() + local _ = Effect_Console_foreign.log("200")() + local _ = Effect_Console_foreign.log("201")() + local _ = Effect_Console_foreign.log("202")() + local _ = Effect_Console_foreign.log("203")() + local _ = Effect_Console_foreign.log("204")() + local _ = Effect_Console_foreign.log("205")() + local _ = Effect_Console_foreign.log("206")() + local _ = Effect_Console_foreign.log("207")() + local _ = Effect_Console_foreign.log("208")() + local _ = Effect_Console_foreign.log("209")() + local _ = Effect_Console_foreign.log("210")() + local _ = Effect_Console_foreign.log("211")() + local _ = Effect_Console_foreign.log("212")() + local _ = Effect_Console_foreign.log("213")() + local _ = Effect_Console_foreign.log("214")() + local _ = Effect_Console_foreign.log("215")() + local _ = Effect_Console_foreign.log("216")() + local _ = Effect_Console_foreign.log("217")() + local _ = Effect_Console_foreign.log("218")() + local _ = Effect_Console_foreign.log("219")() + local _ = Effect_Console_foreign.log("220")() + local _ = Effect_Console_foreign.log("221")() + local _ = Effect_Console_foreign.log("222")() + local _ = Effect_Console_foreign.log("223")() + local _ = Effect_Console_foreign.log("224")() + local _ = Effect_Console_foreign.log("225")() + local _ = Effect_Console_foreign.log("226")() + local _ = Effect_Console_foreign.log("227")() + local _ = Effect_Console_foreign.log("228")() + local _ = Effect_Console_foreign.log("229")() + local _ = Effect_Console_foreign.log("230")() + local _ = Effect_Console_foreign.log("231")() + local _ = Effect_Console_foreign.log("232")() + local _ = Effect_Console_foreign.log("233")() + local _ = Effect_Console_foreign.log("234")() + local _ = Effect_Console_foreign.log("235")() + local _ = Effect_Console_foreign.log("236")() + local _ = Effect_Console_foreign.log("237")() + local _ = Effect_Console_foreign.log("238")() + local _ = Effect_Console_foreign.log("239")() + local _ = Effect_Console_foreign.log("240")() + local _ = Effect_Console_foreign.log("241")() + local _ = Effect_Console_foreign.log("242")() + local _ = Effect_Console_foreign.log("243")() + local _ = Effect_Console_foreign.log("244")() + local _ = Effect_Console_foreign.log("245")() + local _ = Effect_Console_foreign.log("246")() + local _ = Effect_Console_foreign.log("247")() + local _ = Effect_Console_foreign.log("248")() + local _ = Effect_Console_foreign.log("249")() + local _ = Effect_Console_foreign.log("250")() + local _ = Effect_Console_foreign.log("251")() + local _ = Effect_Console_foreign.log("252")() + local _ = Effect_Console_foreign.log("253")() + local _ = Effect_Console_foreign.log("254")() + local _ = Effect_Console_foreign.log("255")() + local _ = Effect_Console_foreign.log("256")() + local _ = Effect_Console_foreign.log("257")() + local _ = Effect_Console_foreign.log("258")() + local _ = Effect_Console_foreign.log("259")() + local _ = Effect_Console_foreign.log("260")() + local _ = Effect_Console_foreign.log("261")() + local _ = Effect_Console_foreign.log("262")() + local _ = Effect_Console_foreign.log("263")() + local _ = Effect_Console_foreign.log("264")() + local _ = Effect_Console_foreign.log("265")() + local _ = Effect_Console_foreign.log("266")() + local _ = Effect_Console_foreign.log("267")() + local _ = Effect_Console_foreign.log("268")() + local _ = Effect_Console_foreign.log("269")() + local _ = Effect_Console_foreign.log("270")() + local _ = Effect_Console_foreign.log("271")() + local _ = Effect_Console_foreign.log("272")() + local _ = Effect_Console_foreign.log("273")() + local _ = Effect_Console_foreign.log("274")() + local _ = Effect_Console_foreign.log("275")() + local _ = Effect_Console_foreign.log("276")() + local _ = Effect_Console_foreign.log("277")() + local _ = Effect_Console_foreign.log("278")() + local _ = Effect_Console_foreign.log("279")() + local _ = Effect_Console_foreign.log("280")() + local _ = Effect_Console_foreign.log("281")() + local _ = Effect_Console_foreign.log("282")() + local _ = Effect_Console_foreign.log("283")() + local _ = Effect_Console_foreign.log("284")() + local _ = Effect_Console_foreign.log("285")() + local _ = Effect_Console_foreign.log("286")() + local _ = Effect_Console_foreign.log("287")() + local _ = Effect_Console_foreign.log("288")() + local _ = Effect_Console_foreign.log("289")() + local _ = Effect_Console_foreign.log("290")() + local _ = Effect_Console_foreign.log("291")() + local _ = Effect_Console_foreign.log("292")() + local _ = Effect_Console_foreign.log("293")() + local _ = Effect_Console_foreign.log("294")() + local _ = Effect_Console_foreign.log("295")() + local _ = Effect_Console_foreign.log("296")() + local _ = Effect_Console_foreign.log("297")() + local _ = Effect_Console_foreign.log("298")() + local _ = Effect_Console_foreign.log("299")() + return Effect_Console_foreign.log("300")() end)() end)() diff --git a/test/ps/output/Golden.LongEitherBind.Test/golden.lua b/test/ps/output/Golden.LongEitherBind.Test/golden.lua index df810740..0ef6a96b 100644 --- a/test/ps/output/Golden.LongEitherBind.Test/golden.lua +++ b/test/ps/output/Golden.LongEitherBind.Test/golden.lua @@ -1,5 +1,4 @@ -local M = {} -M.Data_Show_foreign = { +local Data_Show_foreign = { showIntImpl = function(n) return tostring(n) end, showStringImpl = function(s) -- Mirror PureScript's `show`: wrap in double quotes and escape control @@ -41,20 +40,20 @@ M.Data_Show_foreign = { return table.concat(out) end } -M.Effect_Console_foreign = { +local Effect_Console_foreign = { log = function(s) return function() print(s) end end } -M.Data_Either_append_S_w = function(s1_S_299_S_331, s2_S_300_S_332) +local Data_Either_append_S_w = function(s1_S_299_S_331, s2_S_300_S_332) return s1_S_299_S_331 .. s2_S_300_S_332 end -M.Data_Either_Right = function(value0) +local Data_Either_Right = function(value0) return { ["$ctor"] = "Data.Either∷Either.Right", value0 = value0 } end -M.Golden_LongEitherBind_Test_add_S_w = function(x_S_297_S_326, y_S_298_S_327) +local Golden_LongEitherBind_Test_add_S_w = function( x_S_297_S_326 +, y_S_298_S_327 ) return x_S_297_S_326 + y_S_298_S_327 end -M.Golden_LongEitherBind_Test_compute = (function() - local Golden_LongEitherBind_Test_add_S_w = M.Golden_LongEitherBind_Test_add_S_w +local Golden_LongEitherBind_Test_compute = (function() local x150 = (function() local _S_tmp1237 = Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(1, 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1) local _S_tmp1238 = Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(_S_tmp1237, 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1) @@ -64,13 +63,13 @@ M.Golden_LongEitherBind_Test_compute = (function() local _S_tmp1240 = Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(x150, 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1) local _S_tmp1241 = Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(_S_tmp1240, 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1) local _S_tmp1242 = Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(_S_tmp1241, 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1) - return M.Data_Either_Right(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(1, x150), Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(_S_tmp1242, 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1))) + return Data_Either_Right(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(1, x150), Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(Golden_LongEitherBind_Test_add_S_w(_S_tmp1242, 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1), 1))) end)() -return M.Effect_Console_foreign.log((function() - if "Data.Either∷Either.Left" == M.Golden_LongEitherBind_Test_compute["$ctor"] then - return M.Data_Either_append_S_w("(Left ", M.Data_Either_append_S_w(M.Data_Show_foreign.showStringImpl(M.Golden_LongEitherBind_Test_compute.value0), ")")) - elseif "Data.Either∷Either.Right" == M.Golden_LongEitherBind_Test_compute["$ctor"] then - return M.Data_Either_append_S_w("(Right ", M.Data_Either_append_S_w(M.Data_Show_foreign.showIntImpl(M.Golden_LongEitherBind_Test_compute.value0), ")")) +return Effect_Console_foreign.log((function() + if "Data.Either∷Either.Left" == Golden_LongEitherBind_Test_compute["$ctor"] then + return Data_Either_append_S_w("(Left ", Data_Either_append_S_w(Data_Show_foreign.showStringImpl(Golden_LongEitherBind_Test_compute.value0), ")")) + elseif "Data.Either∷Either.Right" == Golden_LongEitherBind_Test_compute["$ctor"] then + return Data_Either_append_S_w("(Right ", Data_Either_append_S_w(Data_Show_foreign.showIntImpl(Golden_LongEitherBind_Test_compute.value0), ")")) else return error("No patterns matched") end diff --git a/test/ps/output/Golden.LongExceptBind.Test/golden.lua b/test/ps/output/Golden.LongExceptBind.Test/golden.lua index 89c2ce1f..dae9405d 100644 --- a/test/ps/output/Golden.LongExceptBind.Test/golden.lua +++ b/test/ps/output/Golden.LongExceptBind.Test/golden.lua @@ -1,5 +1,4 @@ -local M = {} -M.Data_Show_foreign = { +local Data_Show_foreign = { showIntImpl = function(n) return tostring(n) end, showStringImpl = function(s) -- Mirror PureScript's `show`: wrap in double quotes and escape control @@ -41,20 +40,20 @@ M.Data_Show_foreign = { return table.concat(out) end } -M.Unsafe_Coerce_foreign = { unsafeCoerce = function(x) return x end } -M.Effect_Console_foreign = { +local Unsafe_Coerce_foreign = { unsafeCoerce = function(x) return x end } +local Effect_Console_foreign = { log = function(s) return function() print(s) end end } -M.Data_Either_append_S_w = function(s1_S_513_S_554, s2_S_514_S_555) +local Data_Either_append_S_w = function(s1_S_513_S_554, s2_S_514_S_555) return s1_S_513_S_554 .. s2_S_514_S_555 end -M.Data_Either_Left = function(value0) +local Data_Either_Left = function(value0) return { ["$ctor"] = "Data.Either∷Either.Left", value0 = value0 } end -M.Data_Either_Right = function(value0) +local Data_Either_Right = function(value0) return { ["$ctor"] = "Data.Either∷Either.Right", value0 = value0 } end -M.Data_Identity_applyIdentity = { +local Data_Identity_applyIdentity = { apply = function(v) return function(v1) return v(v1) end end, Functor0 = function() return { @@ -64,38 +63,41 @@ M.Data_Identity_applyIdentity = { } end } -M.Data_Identity_applicativeIdentity = { +local Data_Identity_applicativeIdentity = { pure = function(x_S_536) return x_S_536 end, - Apply0 = function() return M.Data_Identity_applyIdentity end + Apply0 = function() return Data_Identity_applyIdentity end } -M.Data_Identity_monadIdentity = { - Applicative0 = function() return M.Data_Identity_applicativeIdentity end, +local Data_Identity_monadIdentity = { + Applicative0 = function() return Data_Identity_applicativeIdentity end, Bind1 = function() return { bind = function(v_S_87) return function(f_S_88) return f_S_88(v_S_87) end end, - Apply0 = function() return M.Data_Identity_applyIdentity end + Apply0 = function() return Data_Identity_applyIdentity end } end } -M.Control_Monad_Except_Trans_monadExceptT = function(dictMonad) +local Control_Monad_Except_Trans_bindExceptT +local Control_Monad_Except_Trans_applicativeExceptT +local Control_Monad_Except_Trans_monadExceptT = function(dictMonad) return { Applicative0 = function() - return M.Control_Monad_Except_Trans_applicativeExceptT(dictMonad) + return Control_Monad_Except_Trans_applicativeExceptT(dictMonad) end, Bind1 = function() - return M.Control_Monad_Except_Trans_bindExceptT(dictMonad) + return Control_Monad_Except_Trans_bindExceptT(dictMonad) end } end -M.Control_Monad_Except_Trans_bindExceptT = function(dictMonad) +local Control_Monad_Except_Trans_applyExceptT +Control_Monad_Except_Trans_bindExceptT = function(dictMonad) return { bind = function(v) return function(k) return (dictMonad.Bind1()).bind(v)(function(v2_S_539) if "Data.Either∷Either.Left" == v2_S_539["$ctor"] then - return (dictMonad.Applicative0()).pure(M.Data_Either_Left(v2_S_539.value0)) + return (dictMonad.Applicative0()).pure(Data_Either_Left(v2_S_539.value0)) elseif "Data.Either∷Either.Right" == v2_S_539["$ctor"] then return k(v2_S_539.value0) else @@ -105,14 +107,14 @@ M.Control_Monad_Except_Trans_bindExceptT = function(dictMonad) end end, Apply0 = function() - return M.Control_Monad_Except_Trans_applyExceptT(dictMonad) + return Control_Monad_Except_Trans_applyExceptT(dictMonad) end } end -M.Control_Monad_Except_Trans_applyExceptT = function(dictMonad) +Control_Monad_Except_Trans_applyExceptT = function(dictMonad) return { apply = (function() - local dictMonad_S_542 = M.Control_Monad_Except_Trans_monadExceptT(dictMonad) + local dictMonad_S_542 = Control_Monad_Except_Trans_monadExceptT(dictMonad) local bind_S_543 = (dictMonad_S_542.Bind1()).bind return function(f_S_544) return function(a_S_545) @@ -130,9 +132,9 @@ M.Control_Monad_Except_Trans_applyExceptT = function(dictMonad) return function(v_S_533) return (((dictMonad.Bind1()).Apply0()).Functor0()).map(function( m_S_541 ) if "Data.Either∷Either.Left" == m_S_541["$ctor"] then - return M.Data_Either_Left(m_S_541.value0) + return Data_Either_Left(m_S_541.value0) elseif "Data.Either∷Either.Right" == m_S_541["$ctor"] then - return M.Data_Either_Right(f_S_531(m_S_541.value0)) + return Data_Either_Right(f_S_531(m_S_541.value0)) else return error("No patterns matched") end @@ -143,64 +145,65 @@ M.Control_Monad_Except_Trans_applyExceptT = function(dictMonad) end } end -M.Control_Monad_Except_Trans_applicativeExceptT = function(dictMonad) +Control_Monad_Except_Trans_applicativeExceptT = function(dictMonad) return { pure = function(x_S_575_S_588) - return (dictMonad.Applicative0()).pure(M.Data_Either_Right(x_S_575_S_588)) + return (dictMonad.Applicative0()).pure(Data_Either_Right(x_S_575_S_588)) end, Apply0 = function() - return M.Control_Monad_Except_Trans_applyExceptT(dictMonad) + return Control_Monad_Except_Trans_applyExceptT(dictMonad) end } end -M.Golden_LongExceptBind_Test_bind = (M.Control_Monad_Except_Trans_bindExceptT(M.Data_Identity_monadIdentity)).bind -M.Golden_LongExceptBind_Test_add_S_w = function(x_S_511_S_549, y_S_512_S_550) +local Golden_LongExceptBind_Test_bind = (Control_Monad_Except_Trans_bindExceptT(Data_Identity_monadIdentity)).bind +local Golden_LongExceptBind_Test_add_S_w = function( x_S_511_S_549 +, y_S_512_S_550 ) return x_S_511_S_549 + y_S_512_S_550 end -M.Golden_LongExceptBind_Test_go = (function() +local Golden_LongExceptBind_Test_go = (function() local _S_kont793 = function(x1_S_794) return function(x160_S_795) - return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x160_S_795, 1)))(function( x161 ) - return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x161, 1)))(function( x162 ) - return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x162, 1)))(function( x163 ) - return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x163, 1)))(function( x164 ) - return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x164, 1)))(function( x165 ) - return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x165, 1)))(function( x166 ) - return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x166, 1)))(function( x167 ) - return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x167, 1)))(function( x168 ) - return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x168, 1)))(function( x169 ) - return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x169, 1)))(function( x170 ) - return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x170, 1)))(function( x171 ) - return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x171, 1)))(function( x172 ) - return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x172, 1)))(function( x173 ) - return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x173, 1)))(function( x174 ) - return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x174, 1)))(function( x175 ) - return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x175, 1)))(function( x176 ) - return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x176, 1)))(function( x177 ) - return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x177, 1)))(function( x178 ) - return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x178, 1)))(function( x179 ) - return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x179, 1)))(function( x180 ) - return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x180, 1)))(function( x181 ) - return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x181, 1)))(function( x182 ) - return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x182, 1)))(function( x183 ) - return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x183, 1)))(function( x184 ) - return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x184, 1)))(function( x185 ) - return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x185, 1)))(function( x186 ) - return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x186, 1)))(function( x187 ) - return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x187, 1)))(function( x188 ) - return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x188, 1)))(function( x189 ) - return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x189, 1)))(function( x190 ) - return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x190, 1)))(function( x191 ) - return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x191, 1)))(function( x192 ) - return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x192, 1)))(function( x193 ) - return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x193, 1)))(function( x194 ) - return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x194, 1)))(function( x195 ) - return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x195, 1)))(function( x196 ) - return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x196, 1)))(function( x197 ) - return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x197, 1)))(function( x198 ) - return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x198, 1)))(function( x199 ) - return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x199, 1)))(function( x200 ) - return (M.Control_Monad_Except_Trans_applicativeExceptT(M.Data_Identity_monadIdentity)).pure(M.Golden_LongExceptBind_Test_add_S_w(x1_S_794, x200)) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x160_S_795, 1)))(function( x161 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x161, 1)))(function( x162 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x162, 1)))(function( x163 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x163, 1)))(function( x164 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x164, 1)))(function( x165 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x165, 1)))(function( x166 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x166, 1)))(function( x167 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x167, 1)))(function( x168 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x168, 1)))(function( x169 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x169, 1)))(function( x170 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x170, 1)))(function( x171 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x171, 1)))(function( x172 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x172, 1)))(function( x173 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x173, 1)))(function( x174 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x174, 1)))(function( x175 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x175, 1)))(function( x176 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x176, 1)))(function( x177 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x177, 1)))(function( x178 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x178, 1)))(function( x179 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x179, 1)))(function( x180 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x180, 1)))(function( x181 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x181, 1)))(function( x182 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x182, 1)))(function( x183 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x183, 1)))(function( x184 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x184, 1)))(function( x185 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x185, 1)))(function( x186 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x186, 1)))(function( x187 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x187, 1)))(function( x188 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x188, 1)))(function( x189 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x189, 1)))(function( x190 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x190, 1)))(function( x191 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x191, 1)))(function( x192 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x192, 1)))(function( x193 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x193, 1)))(function( x194 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x194, 1)))(function( x195 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x195, 1)))(function( x196 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x196, 1)))(function( x197 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x197, 1)))(function( x198 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x198, 1)))(function( x199 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x199, 1)))(function( x200 ) + return (Control_Monad_Except_Trans_applicativeExceptT(Data_Identity_monadIdentity)).pure(Golden_LongExceptBind_Test_add_S_w(x1_S_794, x200)) end) end) end) @@ -245,46 +248,46 @@ M.Golden_LongExceptBind_Test_go = (function() end local _S_kont796 = function(x1_S_797) return function(x120_S_798) - return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x120_S_798, 1)))(function( x121 ) - return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x121, 1)))(function( x122 ) - return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x122, 1)))(function( x123 ) - return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x123, 1)))(function( x124 ) - return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x124, 1)))(function( x125 ) - return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x125, 1)))(function( x126 ) - return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x126, 1)))(function( x127 ) - return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x127, 1)))(function( x128 ) - return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x128, 1)))(function( x129 ) - return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x129, 1)))(function( x130 ) - return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x130, 1)))(function( x131 ) - return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x131, 1)))(function( x132 ) - return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x132, 1)))(function( x133 ) - return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x133, 1)))(function( x134 ) - return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x134, 1)))(function( x135 ) - return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x135, 1)))(function( x136 ) - return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x136, 1)))(function( x137 ) - return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x137, 1)))(function( x138 ) - return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x138, 1)))(function( x139 ) - return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x139, 1)))(function( x140 ) - return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x140, 1)))(function( x141 ) - return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x141, 1)))(function( x142 ) - return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x142, 1)))(function( x143 ) - return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x143, 1)))(function( x144 ) - return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x144, 1)))(function( x145 ) - return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x145, 1)))(function( x146 ) - return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x146, 1)))(function( x147 ) - return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x147, 1)))(function( x148 ) - return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x148, 1)))(function( x149 ) - return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x149, 1)))(function( x150 ) - return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x150, 1)))(function( x151 ) - return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x151, 1)))(function( x152 ) - return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x152, 1)))(function( x153 ) - return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x153, 1)))(function( x154 ) - return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x154, 1)))(function( x155 ) - return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x155, 1)))(function( x156 ) - return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x156, 1)))(function( x157 ) - return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x157, 1)))(function( x158 ) - return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x158, 1)))(function( x159 ) - return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x159, 1)))(function( x160 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x120_S_798, 1)))(function( x121 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x121, 1)))(function( x122 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x122, 1)))(function( x123 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x123, 1)))(function( x124 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x124, 1)))(function( x125 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x125, 1)))(function( x126 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x126, 1)))(function( x127 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x127, 1)))(function( x128 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x128, 1)))(function( x129 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x129, 1)))(function( x130 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x130, 1)))(function( x131 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x131, 1)))(function( x132 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x132, 1)))(function( x133 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x133, 1)))(function( x134 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x134, 1)))(function( x135 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x135, 1)))(function( x136 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x136, 1)))(function( x137 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x137, 1)))(function( x138 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x138, 1)))(function( x139 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x139, 1)))(function( x140 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x140, 1)))(function( x141 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x141, 1)))(function( x142 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x142, 1)))(function( x143 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x143, 1)))(function( x144 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x144, 1)))(function( x145 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x145, 1)))(function( x146 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x146, 1)))(function( x147 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x147, 1)))(function( x148 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x148, 1)))(function( x149 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x149, 1)))(function( x150 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x150, 1)))(function( x151 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x151, 1)))(function( x152 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x152, 1)))(function( x153 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x153, 1)))(function( x154 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x154, 1)))(function( x155 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x155, 1)))(function( x156 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x156, 1)))(function( x157 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x157, 1)))(function( x158 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x158, 1)))(function( x159 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x159, 1)))(function( x160 ) return _S_kont793(x1_S_797)(x160) end) end) @@ -330,46 +333,46 @@ M.Golden_LongExceptBind_Test_go = (function() end local _S_kont799 = function(x1_S_800) return function(x80_S_801) - return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x80_S_801, 1)))(function( x81 ) - return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x81, 1)))(function( x82 ) - return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x82, 1)))(function( x83 ) - return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x83, 1)))(function( x84 ) - return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x84, 1)))(function( x85 ) - return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x85, 1)))(function( x86 ) - return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x86, 1)))(function( x87 ) - return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x87, 1)))(function( x88 ) - return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x88, 1)))(function( x89 ) - return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x89, 1)))(function( x90 ) - return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x90, 1)))(function( x91 ) - return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x91, 1)))(function( x92 ) - return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x92, 1)))(function( x93 ) - return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x93, 1)))(function( x94 ) - return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x94, 1)))(function( x95 ) - return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x95, 1)))(function( x96 ) - return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x96, 1)))(function( x97 ) - return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x97, 1)))(function( x98 ) - return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x98, 1)))(function( x99 ) - return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x99, 1)))(function( x100 ) - return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x100, 1)))(function( x101 ) - return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x101, 1)))(function( x102 ) - return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x102, 1)))(function( x103 ) - return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x103, 1)))(function( x104 ) - return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x104, 1)))(function( x105 ) - return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x105, 1)))(function( x106 ) - return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x106, 1)))(function( x107 ) - return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x107, 1)))(function( x108 ) - return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x108, 1)))(function( x109 ) - return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x109, 1)))(function( x110 ) - return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x110, 1)))(function( x111 ) - return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x111, 1)))(function( x112 ) - return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x112, 1)))(function( x113 ) - return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x113, 1)))(function( x114 ) - return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x114, 1)))(function( x115 ) - return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x115, 1)))(function( x116 ) - return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x116, 1)))(function( x117 ) - return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x117, 1)))(function( x118 ) - return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x118, 1)))(function( x119 ) - return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x119, 1)))(function( x120 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x80_S_801, 1)))(function( x81 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x81, 1)))(function( x82 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x82, 1)))(function( x83 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x83, 1)))(function( x84 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x84, 1)))(function( x85 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x85, 1)))(function( x86 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x86, 1)))(function( x87 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x87, 1)))(function( x88 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x88, 1)))(function( x89 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x89, 1)))(function( x90 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x90, 1)))(function( x91 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x91, 1)))(function( x92 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x92, 1)))(function( x93 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x93, 1)))(function( x94 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x94, 1)))(function( x95 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x95, 1)))(function( x96 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x96, 1)))(function( x97 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x97, 1)))(function( x98 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x98, 1)))(function( x99 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x99, 1)))(function( x100 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x100, 1)))(function( x101 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x101, 1)))(function( x102 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x102, 1)))(function( x103 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x103, 1)))(function( x104 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x104, 1)))(function( x105 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x105, 1)))(function( x106 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x106, 1)))(function( x107 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x107, 1)))(function( x108 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x108, 1)))(function( x109 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x109, 1)))(function( x110 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x110, 1)))(function( x111 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x111, 1)))(function( x112 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x112, 1)))(function( x113 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x113, 1)))(function( x114 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x114, 1)))(function( x115 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x115, 1)))(function( x116 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x116, 1)))(function( x117 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x117, 1)))(function( x118 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x118, 1)))(function( x119 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x119, 1)))(function( x120 ) return _S_kont796(x1_S_800)(x120) end) end) @@ -415,46 +418,46 @@ M.Golden_LongExceptBind_Test_go = (function() end local _S_kont802 = function(x1_S_803) return function(x40_S_804) - return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x40_S_804, 1)))(function( x41 ) - return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x41, 1)))(function( x42 ) - return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x42, 1)))(function( x43 ) - return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x43, 1)))(function( x44 ) - return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x44, 1)))(function( x45 ) - return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x45, 1)))(function( x46 ) - return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x46, 1)))(function( x47 ) - return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x47, 1)))(function( x48 ) - return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x48, 1)))(function( x49 ) - return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x49, 1)))(function( x50 ) - return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x50, 1)))(function( x51 ) - return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x51, 1)))(function( x52 ) - return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x52, 1)))(function( x53 ) - return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x53, 1)))(function( x54 ) - return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x54, 1)))(function( x55 ) - return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x55, 1)))(function( x56 ) - return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x56, 1)))(function( x57 ) - return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x57, 1)))(function( x58 ) - return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x58, 1)))(function( x59 ) - return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x59, 1)))(function( x60 ) - return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x60, 1)))(function( x61 ) - return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x61, 1)))(function( x62 ) - return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x62, 1)))(function( x63 ) - return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x63, 1)))(function( x64 ) - return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x64, 1)))(function( x65 ) - return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x65, 1)))(function( x66 ) - return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x66, 1)))(function( x67 ) - return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x67, 1)))(function( x68 ) - return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x68, 1)))(function( x69 ) - return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x69, 1)))(function( x70 ) - return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x70, 1)))(function( x71 ) - return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x71, 1)))(function( x72 ) - return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x72, 1)))(function( x73 ) - return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x73, 1)))(function( x74 ) - return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x74, 1)))(function( x75 ) - return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x75, 1)))(function( x76 ) - return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x76, 1)))(function( x77 ) - return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x77, 1)))(function( x78 ) - return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x78, 1)))(function( x79 ) - return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x79, 1)))(function( x80 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x40_S_804, 1)))(function( x41 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x41, 1)))(function( x42 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x42, 1)))(function( x43 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x43, 1)))(function( x44 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x44, 1)))(function( x45 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x45, 1)))(function( x46 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x46, 1)))(function( x47 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x47, 1)))(function( x48 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x48, 1)))(function( x49 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x49, 1)))(function( x50 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x50, 1)))(function( x51 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x51, 1)))(function( x52 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x52, 1)))(function( x53 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x53, 1)))(function( x54 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x54, 1)))(function( x55 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x55, 1)))(function( x56 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x56, 1)))(function( x57 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x57, 1)))(function( x58 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x58, 1)))(function( x59 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x59, 1)))(function( x60 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x60, 1)))(function( x61 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x61, 1)))(function( x62 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x62, 1)))(function( x63 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x63, 1)))(function( x64 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x64, 1)))(function( x65 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x65, 1)))(function( x66 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x66, 1)))(function( x67 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x67, 1)))(function( x68 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x68, 1)))(function( x69 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x69, 1)))(function( x70 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x70, 1)))(function( x71 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x71, 1)))(function( x72 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x72, 1)))(function( x73 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x73, 1)))(function( x74 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x74, 1)))(function( x75 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x75, 1)))(function( x76 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x76, 1)))(function( x77 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x77, 1)))(function( x78 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x78, 1)))(function( x79 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x79, 1)))(function( x80 ) return _S_kont799(x1_S_803)(x80) end) end) @@ -498,46 +501,46 @@ M.Golden_LongExceptBind_Test_go = (function() end) end end - return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(1))(function(x1) - return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x1, 1)))(function( x2 ) - return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x2, 1)))(function( x3 ) - return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x3, 1)))(function( x4 ) - return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x4, 1)))(function( x5 ) - return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x5, 1)))(function( x6 ) - return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x6, 1)))(function( x7 ) - return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x7, 1)))(function( x8 ) - return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x8, 1)))(function( x9 ) - return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x9, 1)))(function( x10 ) - return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x10, 1)))(function( x11 ) - return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x11, 1)))(function( x12 ) - return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x12, 1)))(function( x13 ) - return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x13, 1)))(function( x14 ) - return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x14, 1)))(function( x15 ) - return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x15, 1)))(function( x16 ) - return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x16, 1)))(function( x17 ) - return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x17, 1)))(function( x18 ) - return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x18, 1)))(function( x19 ) - return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x19, 1)))(function( x20 ) - return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x20, 1)))(function( x21 ) - return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x21, 1)))(function( x22 ) - return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x22, 1)))(function( x23 ) - return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x23, 1)))(function( x24 ) - return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x24, 1)))(function( x25 ) - return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x25, 1)))(function( x26 ) - return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x26, 1)))(function( x27 ) - return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x27, 1)))(function( x28 ) - return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x28, 1)))(function( x29 ) - return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x29, 1)))(function( x30 ) - return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x30, 1)))(function( x31 ) - return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x31, 1)))(function( x32 ) - return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x32, 1)))(function( x33 ) - return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x33, 1)))(function( x34 ) - return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x34, 1)))(function( x35 ) - return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x35, 1)))(function( x36 ) - return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x36, 1)))(function( x37 ) - return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x37, 1)))(function( x38 ) - return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x38, 1)))(function( x39 ) - return M.Golden_LongExceptBind_Test_bind(M.Data_Either_Right(M.Golden_LongExceptBind_Test_add_S_w(x39, 1)))(function( x40 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(1))(function(x1) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x1, 1)))(function( x2 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x2, 1)))(function( x3 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x3, 1)))(function( x4 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x4, 1)))(function( x5 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x5, 1)))(function( x6 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x6, 1)))(function( x7 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x7, 1)))(function( x8 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x8, 1)))(function( x9 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x9, 1)))(function( x10 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x10, 1)))(function( x11 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x11, 1)))(function( x12 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x12, 1)))(function( x13 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x13, 1)))(function( x14 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x14, 1)))(function( x15 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x15, 1)))(function( x16 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x16, 1)))(function( x17 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x17, 1)))(function( x18 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x18, 1)))(function( x19 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x19, 1)))(function( x20 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x20, 1)))(function( x21 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x21, 1)))(function( x22 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x22, 1)))(function( x23 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x23, 1)))(function( x24 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x24, 1)))(function( x25 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x25, 1)))(function( x26 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x26, 1)))(function( x27 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x27, 1)))(function( x28 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x28, 1)))(function( x29 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x29, 1)))(function( x30 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x30, 1)))(function( x31 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x31, 1)))(function( x32 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x32, 1)))(function( x33 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x33, 1)))(function( x34 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x34, 1)))(function( x35 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x35, 1)))(function( x36 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x36, 1)))(function( x37 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x37, 1)))(function( x38 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x38, 1)))(function( x39 ) + return Golden_LongExceptBind_Test_bind(Data_Either_Right(Golden_LongExceptBind_Test_add_S_w(x39, 1)))(function( x40 ) return _S_kont802(x1)(x40) end) end) @@ -580,12 +583,12 @@ M.Golden_LongExceptBind_Test_go = (function() end) end) end)() -M.Golden_LongExceptBind_Test_compute = M.Unsafe_Coerce_foreign.unsafeCoerce(M.Golden_LongExceptBind_Test_go) -return M.Effect_Console_foreign.log((function() - if "Data.Either∷Either.Left" == M.Golden_LongExceptBind_Test_compute["$ctor"] then - return M.Data_Either_append_S_w("(Left ", M.Data_Either_append_S_w(M.Data_Show_foreign.showStringImpl(M.Golden_LongExceptBind_Test_compute.value0), ")")) - elseif "Data.Either∷Either.Right" == M.Golden_LongExceptBind_Test_compute["$ctor"] then - return M.Data_Either_append_S_w("(Right ", M.Data_Either_append_S_w(M.Data_Show_foreign.showIntImpl(M.Golden_LongExceptBind_Test_compute.value0), ")")) +local Golden_LongExceptBind_Test_compute = Unsafe_Coerce_foreign.unsafeCoerce(Golden_LongExceptBind_Test_go) +return Effect_Console_foreign.log((function() + if "Data.Either∷Either.Left" == Golden_LongExceptBind_Test_compute["$ctor"] then + return Data_Either_append_S_w("(Left ", Data_Either_append_S_w(Data_Show_foreign.showStringImpl(Golden_LongExceptBind_Test_compute.value0), ")")) + elseif "Data.Either∷Either.Right" == Golden_LongExceptBind_Test_compute["$ctor"] then + return Data_Either_append_S_w("(Right ", Data_Either_append_S_w(Data_Show_foreign.showIntImpl(Golden_LongExceptBind_Test_compute.value0), ")")) else return error("No patterns matched") end diff --git a/test/ps/output/Golden.LongMaybeBind.Test/golden.lua b/test/ps/output/Golden.LongMaybeBind.Test/golden.lua index d9453cd2..9bc1928c 100644 --- a/test/ps/output/Golden.LongMaybeBind.Test/golden.lua +++ b/test/ps/output/Golden.LongMaybeBind.Test/golden.lua @@ -1,16 +1,15 @@ -local M = {} -M.Data_Unit_foreign = { unit = {} } -M.Data_Show_foreign = { showIntImpl = function(n) return tostring(n) end } -M.Effect_Console_foreign = { +local 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 } -M.Data_Maybe_append_S_w = function(s1_S_286_S_314, s2_S_287_S_315) +local Data_Maybe_append_S_w = function(s1_S_286_S_314, s2_S_287_S_315) return s1_S_286_S_314 .. s2_S_287_S_315 end -M.Data_Maybe_Just = function(value0) +local Data_Maybe_Just = function(value0) return { ["$ctor"] = "Data.Maybe∷Maybe.Just", value0 = value0 } end -M.Golden_LongMaybeBind_Test_bind_S_w = function(v_S_303, v1_S_304) +local Golden_LongMaybeBind_Test_bind_S_w = function(v_S_303, v1_S_304) if "Data.Maybe∷Maybe.Just" == v_S_303["$ctor"] then return v1_S_304(v_S_303.value0) elseif "Data.Maybe∷Maybe.Nothing" == v_S_303["$ctor"] then @@ -19,36 +18,36 @@ M.Golden_LongMaybeBind_Test_bind_S_w = function(v_S_303, v1_S_304) return error("No patterns matched") end end -M.Golden_LongMaybeBind_Test_add_S_w = function(x_S_284_S_309, y_S_285_S_310) +local Golden_LongMaybeBind_Test_add_S_w = function(x_S_284_S_309, y_S_285_S_310) return x_S_284_S_309 + y_S_285_S_310 end -M.Golden_LongMaybeBind_Test_compute = (function() +local Golden_LongMaybeBind_Test_compute = (function() local _S_kont320 = function(x1_S_321) return function(x277_S_322) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x277_S_322, 1)), function( x278 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x278, 1)), function( x279 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x279, 1)), function( x280 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x280, 1)), function( x281 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x281, 1)), function( x282 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x282, 1)), function( x283 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x283, 1)), function( x284 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x284, 1)), function( x285 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x285, 1)), function( x286 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x286, 1)), function( x287 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x287, 1)), function( x288 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x288, 1)), function( x289 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x289, 1)), function( x290 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x290, 1)), function( x291 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x291, 1)), function( x292 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x292, 1)), function( x293 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x293, 1)), function( x294 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x294, 1)), function( x295 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x295, 1)), function( x296 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x296, 1)), function( x297 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x297, 1)), function( x298 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x298, 1)), function( x299 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x299, 1)), function( x300 ) - return M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x1_S_321, x300)) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x277_S_322, 1)), function( x278 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x278, 1)), function( x279 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x279, 1)), function( x280 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x280, 1)), function( x281 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x281, 1)), function( x282 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x282, 1)), function( x283 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x283, 1)), function( x284 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x284, 1)), function( x285 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x285, 1)), function( x286 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x286, 1)), function( x287 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x287, 1)), function( x288 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x288, 1)), function( x289 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x289, 1)), function( x290 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x290, 1)), function( x291 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x291, 1)), function( x292 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x292, 1)), function( x293 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x293, 1)), function( x294 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x294, 1)), function( x295 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x295, 1)), function( x296 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x296, 1)), function( x297 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x297, 1)), function( x298 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x298, 1)), function( x299 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x299, 1)), function( x300 ) + return Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x1_S_321, x300)) end) end) end) @@ -76,46 +75,46 @@ M.Golden_LongMaybeBind_Test_compute = (function() end local _S_kont323 = function(x1_S_324) return function(x238_S_325) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x238_S_325, 1)), function( x239 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x239, 1)), function( x240 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x240, 1)), function( x241 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x241, 1)), function( x242 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x242, 1)), function( x243 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x243, 1)), function( x244 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x244, 1)), function( x245 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x245, 1)), function( x246 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x246, 1)), function( x247 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x247, 1)), function( x248 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x248, 1)), function( x249 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x249, 1)), function( x250 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Unit_foreign.unit), function( ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x250, 1)), function( x251 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x251, 1)), function( x252 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x252, 1)), function( x253 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x253, 1)), function( x254 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x254, 1)), function( x255 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x255, 1)), function( x256 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x256, 1)), function( x257 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x257, 1)), function( x258 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x258, 1)), function( x259 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x259, 1)), function( x260 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x260, 1)), function( x261 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x261, 1)), function( x262 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x262, 1)), function( x263 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x263, 1)), function( x264 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x264, 1)), function( x265 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x265, 1)), function( x266 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x266, 1)), function( x267 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x267, 1)), function( x268 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x268, 1)), function( x269 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x269, 1)), function( x270 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x270, 1)), function( x271 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x271, 1)), function( x272 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x272, 1)), function( x273 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x273, 1)), function( x274 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x274, 1)), function( x275 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x275, 1)), function( x276 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x276, 1)), function( x277 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x238_S_325, 1)), function( x239 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x239, 1)), function( x240 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x240, 1)), function( x241 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x241, 1)), function( x242 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x242, 1)), function( x243 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x243, 1)), function( x244 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x244, 1)), function( x245 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x245, 1)), function( x246 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x246, 1)), function( x247 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x247, 1)), function( x248 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x248, 1)), function( x249 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x249, 1)), function( x250 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Data_Unit_foreign.unit), function( ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x250, 1)), function( x251 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x251, 1)), function( x252 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x252, 1)), function( x253 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x253, 1)), function( x254 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x254, 1)), function( x255 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x255, 1)), function( x256 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x256, 1)), function( x257 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x257, 1)), function( x258 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x258, 1)), function( x259 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x259, 1)), function( x260 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x260, 1)), function( x261 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x261, 1)), function( x262 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x262, 1)), function( x263 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x263, 1)), function( x264 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x264, 1)), function( x265 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x265, 1)), function( x266 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x266, 1)), function( x267 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x267, 1)), function( x268 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x268, 1)), function( x269 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x269, 1)), function( x270 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x270, 1)), function( x271 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x271, 1)), function( x272 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x272, 1)), function( x273 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x273, 1)), function( x274 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x274, 1)), function( x275 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x275, 1)), function( x276 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x276, 1)), function( x277 ) return _S_kont320(x1_S_324)(x277) end) end) @@ -161,46 +160,46 @@ M.Golden_LongMaybeBind_Test_compute = (function() end local _S_kont326 = function(x1_S_327) return function(x198_S_328) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x198_S_328, 1)), function( x199 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x199, 1)), function( x200 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x200, 1)), function( x201 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x201, 1)), function( x202 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x202, 1)), function( x203 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x203, 1)), function( x204 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x204, 1)), function( x205 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x205, 1)), function( x206 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x206, 1)), function( x207 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x207, 1)), function( x208 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x208, 1)), function( x209 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x209, 1)), function( x210 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x210, 1)), function( x211 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x211, 1)), function( x212 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x212, 1)), function( x213 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x213, 1)), function( x214 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x214, 1)), function( x215 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x215, 1)), function( x216 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x216, 1)), function( x217 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x217, 1)), function( x218 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x218, 1)), function( x219 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x219, 1)), function( x220 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x220, 1)), function( x221 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x221, 1)), function( x222 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x222, 1)), function( x223 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x223, 1)), function( x224 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x224, 1)), function( x225 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x225, 1)), function( x226 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x226, 1)), function( x227 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x227, 1)), function( x228 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x228, 1)), function( x229 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x229, 1)), function( x230 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x230, 1)), function( x231 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x231, 1)), function( x232 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x232, 1)), function( x233 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x233, 1)), function( x234 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x234, 1)), function( x235 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x235, 1)), function( x236 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x236, 1)), function( x237 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x237, 1)), function( x238 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x198_S_328, 1)), function( x199 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x199, 1)), function( x200 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x200, 1)), function( x201 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x201, 1)), function( x202 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x202, 1)), function( x203 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x203, 1)), function( x204 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x204, 1)), function( x205 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x205, 1)), function( x206 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x206, 1)), function( x207 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x207, 1)), function( x208 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x208, 1)), function( x209 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x209, 1)), function( x210 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x210, 1)), function( x211 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x211, 1)), function( x212 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x212, 1)), function( x213 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x213, 1)), function( x214 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x214, 1)), function( x215 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x215, 1)), function( x216 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x216, 1)), function( x217 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x217, 1)), function( x218 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x218, 1)), function( x219 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x219, 1)), function( x220 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x220, 1)), function( x221 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x221, 1)), function( x222 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x222, 1)), function( x223 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x223, 1)), function( x224 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x224, 1)), function( x225 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x225, 1)), function( x226 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x226, 1)), function( x227 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x227, 1)), function( x228 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x228, 1)), function( x229 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x229, 1)), function( x230 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x230, 1)), function( x231 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x231, 1)), function( x232 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x232, 1)), function( x233 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x233, 1)), function( x234 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x234, 1)), function( x235 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x235, 1)), function( x236 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x236, 1)), function( x237 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x237, 1)), function( x238 ) return _S_kont323(x1_S_327)(x238) end) end) @@ -246,46 +245,46 @@ M.Golden_LongMaybeBind_Test_compute = (function() end local _S_kont329 = function(x1_S_330) return function(x158_S_331) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x158_S_331, 1)), function( x159 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x159, 1)), function( x160 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x160, 1)), function( x161 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x161, 1)), function( x162 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x162, 1)), function( x163 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x163, 1)), function( x164 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x164, 1)), function( x165 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x165, 1)), function( x166 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x166, 1)), function( x167 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x167, 1)), function( x168 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x168, 1)), function( x169 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x169, 1)), function( x170 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x170, 1)), function( x171 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x171, 1)), function( x172 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x172, 1)), function( x173 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x173, 1)), function( x174 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x174, 1)), function( x175 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x175, 1)), function( x176 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x176, 1)), function( x177 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x177, 1)), function( x178 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x178, 1)), function( x179 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x179, 1)), function( x180 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x180, 1)), function( x181 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x181, 1)), function( x182 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x182, 1)), function( x183 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x183, 1)), function( x184 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x184, 1)), function( x185 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x185, 1)), function( x186 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x186, 1)), function( x187 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x187, 1)), function( x188 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x188, 1)), function( x189 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x189, 1)), function( x190 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x190, 1)), function( x191 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x191, 1)), function( x192 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x192, 1)), function( x193 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x193, 1)), function( x194 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x194, 1)), function( x195 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x195, 1)), function( x196 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x196, 1)), function( x197 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x197, 1)), function( x198 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x158_S_331, 1)), function( x159 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x159, 1)), function( x160 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x160, 1)), function( x161 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x161, 1)), function( x162 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x162, 1)), function( x163 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x163, 1)), function( x164 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x164, 1)), function( x165 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x165, 1)), function( x166 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x166, 1)), function( x167 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x167, 1)), function( x168 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x168, 1)), function( x169 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x169, 1)), function( x170 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x170, 1)), function( x171 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x171, 1)), function( x172 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x172, 1)), function( x173 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x173, 1)), function( x174 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x174, 1)), function( x175 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x175, 1)), function( x176 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x176, 1)), function( x177 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x177, 1)), function( x178 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x178, 1)), function( x179 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x179, 1)), function( x180 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x180, 1)), function( x181 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x181, 1)), function( x182 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x182, 1)), function( x183 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x183, 1)), function( x184 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x184, 1)), function( x185 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x185, 1)), function( x186 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x186, 1)), function( x187 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x187, 1)), function( x188 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x188, 1)), function( x189 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x189, 1)), function( x190 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x190, 1)), function( x191 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x191, 1)), function( x192 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x192, 1)), function( x193 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x193, 1)), function( x194 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x194, 1)), function( x195 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x195, 1)), function( x196 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x196, 1)), function( x197 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x197, 1)), function( x198 ) return _S_kont326(x1_S_330)(x198) end) end) @@ -331,46 +330,46 @@ M.Golden_LongMaybeBind_Test_compute = (function() end local _S_kont332 = function(x1_S_333) return function(x119_S_334) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x119_S_334, 1)), function( x120 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x120, 1)), function( x121 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x121, 1)), function( x122 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x122, 1)), function( x123 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x123, 1)), function( x124 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x124, 1)), function( x125 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x125, 1)), function( x126 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x126, 1)), function( x127 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x127, 1)), function( x128 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x128, 1)), function( x129 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x129, 1)), function( x130 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x130, 1)), function( x131 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x131, 1)), function( x132 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x132, 1)), function( x133 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x133, 1)), function( x134 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x134, 1)), function( x135 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x135, 1)), function( x136 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x136, 1)), function( x137 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x137, 1)), function( x138 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x138, 1)), function( x139 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x139, 1)), function( x140 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x140, 1)), function( x141 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x141, 1)), function( x142 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x142, 1)), function( x143 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x143, 1)), function( x144 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x144, 1)), function( x145 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x145, 1)), function( x146 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x146, 1)), function( x147 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x147, 1)), function( x148 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x148, 1)), function( x149 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x149, 1)), function( x150 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Unit_foreign.unit), function( ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x150, 1)), function( x151 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x151, 1)), function( x152 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x152, 1)), function( x153 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x153, 1)), function( x154 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x154, 1)), function( x155 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x155, 1)), function( x156 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x156, 1)), function( x157 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x157, 1)), function( x158 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x119_S_334, 1)), function( x120 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x120, 1)), function( x121 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x121, 1)), function( x122 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x122, 1)), function( x123 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x123, 1)), function( x124 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x124, 1)), function( x125 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x125, 1)), function( x126 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x126, 1)), function( x127 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x127, 1)), function( x128 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x128, 1)), function( x129 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x129, 1)), function( x130 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x130, 1)), function( x131 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x131, 1)), function( x132 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x132, 1)), function( x133 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x133, 1)), function( x134 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x134, 1)), function( x135 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x135, 1)), function( x136 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x136, 1)), function( x137 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x137, 1)), function( x138 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x138, 1)), function( x139 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x139, 1)), function( x140 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x140, 1)), function( x141 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x141, 1)), function( x142 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x142, 1)), function( x143 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x143, 1)), function( x144 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x144, 1)), function( x145 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x145, 1)), function( x146 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x146, 1)), function( x147 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x147, 1)), function( x148 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x148, 1)), function( x149 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x149, 1)), function( x150 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Data_Unit_foreign.unit), function( ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x150, 1)), function( x151 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x151, 1)), function( x152 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x152, 1)), function( x153 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x153, 1)), function( x154 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x154, 1)), function( x155 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x155, 1)), function( x156 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x156, 1)), function( x157 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x157, 1)), function( x158 ) return _S_kont329(x1_S_333)(x158) end) end) @@ -416,46 +415,46 @@ M.Golden_LongMaybeBind_Test_compute = (function() end local _S_kont335 = function(x1_S_336) return function(x79_S_337) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x79_S_337, 1)), function( x80 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x80, 1)), function( x81 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x81, 1)), function( x82 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x82, 1)), function( x83 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x83, 1)), function( x84 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x84, 1)), function( x85 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x85, 1)), function( x86 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x86, 1)), function( x87 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x87, 1)), function( x88 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x88, 1)), function( x89 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x89, 1)), function( x90 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x90, 1)), function( x91 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x91, 1)), function( x92 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x92, 1)), function( x93 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x93, 1)), function( x94 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x94, 1)), function( x95 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x95, 1)), function( x96 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x96, 1)), function( x97 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x97, 1)), function( x98 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x98, 1)), function( x99 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x99, 1)), function( x100 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x100, 1)), function( x101 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x101, 1)), function( x102 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x102, 1)), function( x103 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x103, 1)), function( x104 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x104, 1)), function( x105 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x105, 1)), function( x106 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x106, 1)), function( x107 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x107, 1)), function( x108 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x108, 1)), function( x109 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x109, 1)), function( x110 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x110, 1)), function( x111 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x111, 1)), function( x112 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x112, 1)), function( x113 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x113, 1)), function( x114 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x114, 1)), function( x115 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x115, 1)), function( x116 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x116, 1)), function( x117 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x117, 1)), function( x118 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x118, 1)), function( x119 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x79_S_337, 1)), function( x80 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x80, 1)), function( x81 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x81, 1)), function( x82 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x82, 1)), function( x83 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x83, 1)), function( x84 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x84, 1)), function( x85 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x85, 1)), function( x86 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x86, 1)), function( x87 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x87, 1)), function( x88 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x88, 1)), function( x89 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x89, 1)), function( x90 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x90, 1)), function( x91 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x91, 1)), function( x92 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x92, 1)), function( x93 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x93, 1)), function( x94 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x94, 1)), function( x95 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x95, 1)), function( x96 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x96, 1)), function( x97 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x97, 1)), function( x98 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x98, 1)), function( x99 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x99, 1)), function( x100 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x100, 1)), function( x101 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x101, 1)), function( x102 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x102, 1)), function( x103 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x103, 1)), function( x104 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x104, 1)), function( x105 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x105, 1)), function( x106 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x106, 1)), function( x107 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x107, 1)), function( x108 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x108, 1)), function( x109 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x109, 1)), function( x110 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x110, 1)), function( x111 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x111, 1)), function( x112 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x112, 1)), function( x113 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x113, 1)), function( x114 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x114, 1)), function( x115 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x115, 1)), function( x116 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x116, 1)), function( x117 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x117, 1)), function( x118 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x118, 1)), function( x119 ) return _S_kont332(x1_S_336)(x119) end) end) @@ -501,46 +500,46 @@ M.Golden_LongMaybeBind_Test_compute = (function() end local _S_kont338 = function(x1_S_339) return function(x40_S_340) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x40_S_340, 1)), function( x41 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x41, 1)), function( x42 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x42, 1)), function( x43 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x43, 1)), function( x44 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x44, 1)), function( x45 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x45, 1)), function( x46 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x46, 1)), function( x47 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x47, 1)), function( x48 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x48, 1)), function( x49 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x49, 1)), function( x50 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Unit_foreign.unit), function( ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x50, 1)), function( x51 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x51, 1)), function( x52 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x52, 1)), function( x53 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x53, 1)), function( x54 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x54, 1)), function( x55 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x55, 1)), function( x56 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x56, 1)), function( x57 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x57, 1)), function( x58 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x58, 1)), function( x59 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x59, 1)), function( x60 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x60, 1)), function( x61 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x61, 1)), function( x62 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x62, 1)), function( x63 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x63, 1)), function( x64 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x64, 1)), function( x65 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x65, 1)), function( x66 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x66, 1)), function( x67 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x67, 1)), function( x68 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x68, 1)), function( x69 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x69, 1)), function( x70 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x70, 1)), function( x71 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x71, 1)), function( x72 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x72, 1)), function( x73 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x73, 1)), function( x74 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x74, 1)), function( x75 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x75, 1)), function( x76 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x76, 1)), function( x77 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x77, 1)), function( x78 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x78, 1)), function( x79 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x40_S_340, 1)), function( x41 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x41, 1)), function( x42 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x42, 1)), function( x43 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x43, 1)), function( x44 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x44, 1)), function( x45 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x45, 1)), function( x46 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x46, 1)), function( x47 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x47, 1)), function( x48 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x48, 1)), function( x49 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x49, 1)), function( x50 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Data_Unit_foreign.unit), function( ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x50, 1)), function( x51 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x51, 1)), function( x52 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x52, 1)), function( x53 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x53, 1)), function( x54 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x54, 1)), function( x55 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x55, 1)), function( x56 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x56, 1)), function( x57 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x57, 1)), function( x58 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x58, 1)), function( x59 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x59, 1)), function( x60 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x60, 1)), function( x61 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x61, 1)), function( x62 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x62, 1)), function( x63 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x63, 1)), function( x64 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x64, 1)), function( x65 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x65, 1)), function( x66 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x66, 1)), function( x67 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x67, 1)), function( x68 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x68, 1)), function( x69 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x69, 1)), function( x70 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x70, 1)), function( x71 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x71, 1)), function( x72 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x72, 1)), function( x73 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x73, 1)), function( x74 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x74, 1)), function( x75 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x75, 1)), function( x76 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x76, 1)), function( x77 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x77, 1)), function( x78 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x78, 1)), function( x79 ) return _S_kont335(x1_S_339)(x79) end) end) @@ -584,46 +583,46 @@ M.Golden_LongMaybeBind_Test_compute = (function() end) end end - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(1), function(x1) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x1, 1)), function( x2 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x2, 1)), function( x3 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x3, 1)), function( x4 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x4, 1)), function( x5 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x5, 1)), function( x6 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x6, 1)), function( x7 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x7, 1)), function( x8 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x8, 1)), function( x9 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x9, 1)), function( x10 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x10, 1)), function( x11 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x11, 1)), function( x12 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x12, 1)), function( x13 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x13, 1)), function( x14 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x14, 1)), function( x15 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x15, 1)), function( x16 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x16, 1)), function( x17 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x17, 1)), function( x18 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x18, 1)), function( x19 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x19, 1)), function( x20 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x20, 1)), function( x21 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x21, 1)), function( x22 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x22, 1)), function( x23 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x23, 1)), function( x24 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x24, 1)), function( x25 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x25, 1)), function( x26 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x26, 1)), function( x27 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x27, 1)), function( x28 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x28, 1)), function( x29 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x29, 1)), function( x30 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x30, 1)), function( x31 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x31, 1)), function( x32 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x32, 1)), function( x33 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x33, 1)), function( x34 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x34, 1)), function( x35 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x35, 1)), function( x36 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x36, 1)), function( x37 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x37, 1)), function( x38 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x38, 1)), function( x39 ) - return M.Golden_LongMaybeBind_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBind_Test_add_S_w(x39, 1)), function( x40 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(1), function(x1) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x1, 1)), function( x2 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x2, 1)), function( x3 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x3, 1)), function( x4 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x4, 1)), function( x5 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x5, 1)), function( x6 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x6, 1)), function( x7 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x7, 1)), function( x8 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x8, 1)), function( x9 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x9, 1)), function( x10 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x10, 1)), function( x11 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x11, 1)), function( x12 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x12, 1)), function( x13 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x13, 1)), function( x14 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x14, 1)), function( x15 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x15, 1)), function( x16 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x16, 1)), function( x17 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x17, 1)), function( x18 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x18, 1)), function( x19 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x19, 1)), function( x20 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x20, 1)), function( x21 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x21, 1)), function( x22 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x22, 1)), function( x23 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x23, 1)), function( x24 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x24, 1)), function( x25 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x25, 1)), function( x26 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x26, 1)), function( x27 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x27, 1)), function( x28 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x28, 1)), function( x29 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x29, 1)), function( x30 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x30, 1)), function( x31 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x31, 1)), function( x32 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x32, 1)), function( x33 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x33, 1)), function( x34 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x34, 1)), function( x35 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x35, 1)), function( x36 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x36, 1)), function( x37 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x37, 1)), function( x38 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x38, 1)), function( x39 ) + return Golden_LongMaybeBind_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBind_Test_add_S_w(x39, 1)), function( x40 ) return _S_kont338(x1)(x40) end) end) @@ -666,10 +665,10 @@ M.Golden_LongMaybeBind_Test_compute = (function() end) end) end)() -return M.Effect_Console_foreign.log((function() - if "Data.Maybe∷Maybe.Just" == M.Golden_LongMaybeBind_Test_compute["$ctor"] then - return M.Data_Maybe_append_S_w("(Just ", M.Data_Maybe_append_S_w(M.Data_Show_foreign.showIntImpl(M.Golden_LongMaybeBind_Test_compute.value0), ")")) - elseif "Data.Maybe∷Maybe.Nothing" == M.Golden_LongMaybeBind_Test_compute["$ctor"] then +return Effect_Console_foreign.log((function() + if "Data.Maybe∷Maybe.Just" == Golden_LongMaybeBind_Test_compute["$ctor"] then + return Data_Maybe_append_S_w("(Just ", Data_Maybe_append_S_w(Data_Show_foreign.showIntImpl(Golden_LongMaybeBind_Test_compute.value0), ")")) + elseif "Data.Maybe∷Maybe.Nothing" == Golden_LongMaybeBind_Test_compute["$ctor"] then return "Nothing" else return error("No patterns matched") diff --git a/test/ps/output/Golden.LongMaybeBindModule.Test/golden.lua b/test/ps/output/Golden.LongMaybeBindModule.Test/golden.lua index d192b2f8..55ff013b 100644 --- a/test/ps/output/Golden.LongMaybeBindModule.Test/golden.lua +++ b/test/ps/output/Golden.LongMaybeBindModule.Test/golden.lua @@ -1,9 +1,8 @@ -local M = {} -M.Data_Unit_foreign = { unit = {} } -M.Data_Maybe_Just = function(value0) +local Data_Unit_foreign = { unit = {} } +local Data_Maybe_Just = function(value0) return { ["$ctor"] = "Data.Maybe∷Maybe.Just", value0 = value0 } end -M.Golden_LongMaybeBindModule_Test_bind_S_w = function(v_S_578, v1_S_579) +local Golden_LongMaybeBindModule_Test_bind_S_w = function(v_S_578, v1_S_579) if "Data.Maybe∷Maybe.Just" == v_S_578["$ctor"] then return v1_S_579(v_S_578.value0) elseif "Data.Maybe∷Maybe.Nothing" == v_S_578["$ctor"] then @@ -12,7 +11,7 @@ M.Golden_LongMaybeBindModule_Test_bind_S_w = function(v_S_578, v1_S_579) return error("No patterns matched") end end -M.Golden_LongMaybeBindModule_Test_add_S_w = function( x_S_559_S_584 +local Golden_LongMaybeBindModule_Test_add_S_w = function( x_S_559_S_584 , y_S_560_S_585 ) return x_S_559_S_584 + y_S_560_S_585 end @@ -20,30 +19,30 @@ return { compute = (function() local _S_kont588 = function(x1_S_0_S_589) return function(x277_S_276_S_590) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x277_S_276_S_590, 1)), function( x278_S_277 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x278_S_277, 1)), function( x279_S_278 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x279_S_278, 1)), function( x280_S_279 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x280_S_279, 1)), function( x281_S_280 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x281_S_280, 1)), function( x282_S_281 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x282_S_281, 1)), function( x283_S_282 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x283_S_282, 1)), function( x284_S_283 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x284_S_283, 1)), function( x285_S_284 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x285_S_284, 1)), function( x286_S_285 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x286_S_285, 1)), function( x287_S_286 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x287_S_286, 1)), function( x288_S_287 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x288_S_287, 1)), function( x289_S_288 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x289_S_288, 1)), function( x290_S_289 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x290_S_289, 1)), function( x291_S_290 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x291_S_290, 1)), function( x292_S_291 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x292_S_291, 1)), function( x293_S_292 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x293_S_292, 1)), function( x294_S_293 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x294_S_293, 1)), function( x295_S_294 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x295_S_294, 1)), function( x296_S_295 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x296_S_295, 1)), function( x297_S_296 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x297_S_296, 1)), function( x298_S_297 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x298_S_297, 1)), function( x299_S_298 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x299_S_298, 1)), function( x300_S_299 ) - return M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x1_S_0_S_589, x300_S_299)) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x277_S_276_S_590, 1)), function( x278_S_277 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x278_S_277, 1)), function( x279_S_278 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x279_S_278, 1)), function( x280_S_279 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x280_S_279, 1)), function( x281_S_280 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x281_S_280, 1)), function( x282_S_281 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x282_S_281, 1)), function( x283_S_282 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x283_S_282, 1)), function( x284_S_283 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x284_S_283, 1)), function( x285_S_284 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x285_S_284, 1)), function( x286_S_285 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x286_S_285, 1)), function( x287_S_286 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x287_S_286, 1)), function( x288_S_287 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x288_S_287, 1)), function( x289_S_288 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x289_S_288, 1)), function( x290_S_289 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x290_S_289, 1)), function( x291_S_290 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x291_S_290, 1)), function( x292_S_291 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x292_S_291, 1)), function( x293_S_292 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x293_S_292, 1)), function( x294_S_293 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x294_S_293, 1)), function( x295_S_294 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x295_S_294, 1)), function( x296_S_295 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x296_S_295, 1)), function( x297_S_296 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x297_S_296, 1)), function( x298_S_297 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x298_S_297, 1)), function( x299_S_298 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x299_S_298, 1)), function( x300_S_299 ) + return Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x1_S_0_S_589, x300_S_299)) end) end) end) @@ -71,46 +70,46 @@ return { end local _S_kont591 = function(x1_S_0_S_592) return function(x238_S_237_S_593) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x238_S_237_S_593, 1)), function( x239_S_238 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x239_S_238, 1)), function( x240_S_239 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x240_S_239, 1)), function( x241_S_240 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x241_S_240, 1)), function( x242_S_241 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x242_S_241, 1)), function( x243_S_242 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x243_S_242, 1)), function( x244_S_243 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x244_S_243, 1)), function( x245_S_244 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x245_S_244, 1)), function( x246_S_245 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x246_S_245, 1)), function( x247_S_246 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x247_S_246, 1)), function( x248_S_247 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x248_S_247, 1)), function( x249_S_248 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x249_S_248, 1)), function( x250_S_249 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Unit_foreign.unit), function( ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x250_S_249, 1)), function( x251_S_250 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x251_S_250, 1)), function( x252_S_251 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x252_S_251, 1)), function( x253_S_252 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x253_S_252, 1)), function( x254_S_253 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x254_S_253, 1)), function( x255_S_254 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x255_S_254, 1)), function( x256_S_255 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x256_S_255, 1)), function( x257_S_256 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x257_S_256, 1)), function( x258_S_257 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x258_S_257, 1)), function( x259_S_258 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x259_S_258, 1)), function( x260_S_259 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x260_S_259, 1)), function( x261_S_260 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x261_S_260, 1)), function( x262_S_261 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x262_S_261, 1)), function( x263_S_262 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x263_S_262, 1)), function( x264_S_263 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x264_S_263, 1)), function( x265_S_264 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x265_S_264, 1)), function( x266_S_265 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x266_S_265, 1)), function( x267_S_266 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x267_S_266, 1)), function( x268_S_267 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x268_S_267, 1)), function( x269_S_268 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x269_S_268, 1)), function( x270_S_269 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x270_S_269, 1)), function( x271_S_270 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x271_S_270, 1)), function( x272_S_271 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x272_S_271, 1)), function( x273_S_272 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x273_S_272, 1)), function( x274_S_273 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x274_S_273, 1)), function( x275_S_274 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x275_S_274, 1)), function( x276_S_275 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x276_S_275, 1)), function( x277_S_276 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x238_S_237_S_593, 1)), function( x239_S_238 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x239_S_238, 1)), function( x240_S_239 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x240_S_239, 1)), function( x241_S_240 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x241_S_240, 1)), function( x242_S_241 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x242_S_241, 1)), function( x243_S_242 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x243_S_242, 1)), function( x244_S_243 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x244_S_243, 1)), function( x245_S_244 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x245_S_244, 1)), function( x246_S_245 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x246_S_245, 1)), function( x247_S_246 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x247_S_246, 1)), function( x248_S_247 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x248_S_247, 1)), function( x249_S_248 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x249_S_248, 1)), function( x250_S_249 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Data_Unit_foreign.unit), function( ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x250_S_249, 1)), function( x251_S_250 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x251_S_250, 1)), function( x252_S_251 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x252_S_251, 1)), function( x253_S_252 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x253_S_252, 1)), function( x254_S_253 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x254_S_253, 1)), function( x255_S_254 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x255_S_254, 1)), function( x256_S_255 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x256_S_255, 1)), function( x257_S_256 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x257_S_256, 1)), function( x258_S_257 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x258_S_257, 1)), function( x259_S_258 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x259_S_258, 1)), function( x260_S_259 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x260_S_259, 1)), function( x261_S_260 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x261_S_260, 1)), function( x262_S_261 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x262_S_261, 1)), function( x263_S_262 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x263_S_262, 1)), function( x264_S_263 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x264_S_263, 1)), function( x265_S_264 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x265_S_264, 1)), function( x266_S_265 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x266_S_265, 1)), function( x267_S_266 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x267_S_266, 1)), function( x268_S_267 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x268_S_267, 1)), function( x269_S_268 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x269_S_268, 1)), function( x270_S_269 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x270_S_269, 1)), function( x271_S_270 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x271_S_270, 1)), function( x272_S_271 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x272_S_271, 1)), function( x273_S_272 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x273_S_272, 1)), function( x274_S_273 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x274_S_273, 1)), function( x275_S_274 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x275_S_274, 1)), function( x276_S_275 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x276_S_275, 1)), function( x277_S_276 ) return _S_kont588(x1_S_0_S_592)(x277_S_276) end) end) @@ -156,46 +155,46 @@ return { end local _S_kont594 = function(x1_S_0_S_595) return function(x198_S_197_S_596) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x198_S_197_S_596, 1)), function( x199_S_198 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x199_S_198, 1)), function( x200_S_199 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x200_S_199, 1)), function( x201_S_200 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x201_S_200, 1)), function( x202_S_201 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x202_S_201, 1)), function( x203_S_202 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x203_S_202, 1)), function( x204_S_203 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x204_S_203, 1)), function( x205_S_204 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x205_S_204, 1)), function( x206_S_205 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x206_S_205, 1)), function( x207_S_206 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x207_S_206, 1)), function( x208_S_207 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x208_S_207, 1)), function( x209_S_208 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x209_S_208, 1)), function( x210_S_209 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x210_S_209, 1)), function( x211_S_210 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x211_S_210, 1)), function( x212_S_211 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x212_S_211, 1)), function( x213_S_212 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x213_S_212, 1)), function( x214_S_213 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x214_S_213, 1)), function( x215_S_214 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x215_S_214, 1)), function( x216_S_215 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x216_S_215, 1)), function( x217_S_216 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x217_S_216, 1)), function( x218_S_217 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x218_S_217, 1)), function( x219_S_218 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x219_S_218, 1)), function( x220_S_219 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x220_S_219, 1)), function( x221_S_220 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x221_S_220, 1)), function( x222_S_221 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x222_S_221, 1)), function( x223_S_222 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x223_S_222, 1)), function( x224_S_223 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x224_S_223, 1)), function( x225_S_224 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x225_S_224, 1)), function( x226_S_225 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x226_S_225, 1)), function( x227_S_226 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x227_S_226, 1)), function( x228_S_227 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x228_S_227, 1)), function( x229_S_228 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x229_S_228, 1)), function( x230_S_229 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x230_S_229, 1)), function( x231_S_230 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x231_S_230, 1)), function( x232_S_231 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x232_S_231, 1)), function( x233_S_232 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x233_S_232, 1)), function( x234_S_233 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x234_S_233, 1)), function( x235_S_234 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x235_S_234, 1)), function( x236_S_235 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x236_S_235, 1)), function( x237_S_236 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x237_S_236, 1)), function( x238_S_237 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x198_S_197_S_596, 1)), function( x199_S_198 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x199_S_198, 1)), function( x200_S_199 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x200_S_199, 1)), function( x201_S_200 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x201_S_200, 1)), function( x202_S_201 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x202_S_201, 1)), function( x203_S_202 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x203_S_202, 1)), function( x204_S_203 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x204_S_203, 1)), function( x205_S_204 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x205_S_204, 1)), function( x206_S_205 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x206_S_205, 1)), function( x207_S_206 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x207_S_206, 1)), function( x208_S_207 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x208_S_207, 1)), function( x209_S_208 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x209_S_208, 1)), function( x210_S_209 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x210_S_209, 1)), function( x211_S_210 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x211_S_210, 1)), function( x212_S_211 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x212_S_211, 1)), function( x213_S_212 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x213_S_212, 1)), function( x214_S_213 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x214_S_213, 1)), function( x215_S_214 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x215_S_214, 1)), function( x216_S_215 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x216_S_215, 1)), function( x217_S_216 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x217_S_216, 1)), function( x218_S_217 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x218_S_217, 1)), function( x219_S_218 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x219_S_218, 1)), function( x220_S_219 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x220_S_219, 1)), function( x221_S_220 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x221_S_220, 1)), function( x222_S_221 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x222_S_221, 1)), function( x223_S_222 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x223_S_222, 1)), function( x224_S_223 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x224_S_223, 1)), function( x225_S_224 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x225_S_224, 1)), function( x226_S_225 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x226_S_225, 1)), function( x227_S_226 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x227_S_226, 1)), function( x228_S_227 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x228_S_227, 1)), function( x229_S_228 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x229_S_228, 1)), function( x230_S_229 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x230_S_229, 1)), function( x231_S_230 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x231_S_230, 1)), function( x232_S_231 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x232_S_231, 1)), function( x233_S_232 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x233_S_232, 1)), function( x234_S_233 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x234_S_233, 1)), function( x235_S_234 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x235_S_234, 1)), function( x236_S_235 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x236_S_235, 1)), function( x237_S_236 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x237_S_236, 1)), function( x238_S_237 ) return _S_kont591(x1_S_0_S_595)(x238_S_237) end) end) @@ -241,46 +240,46 @@ return { end local _S_kont597 = function(x1_S_0_S_598) return function(x158_S_157_S_599) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x158_S_157_S_599, 1)), function( x159_S_158 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x159_S_158, 1)), function( x160_S_159 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x160_S_159, 1)), function( x161_S_160 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x161_S_160, 1)), function( x162_S_161 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x162_S_161, 1)), function( x163_S_162 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x163_S_162, 1)), function( x164_S_163 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x164_S_163, 1)), function( x165_S_164 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x165_S_164, 1)), function( x166_S_165 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x166_S_165, 1)), function( x167_S_166 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x167_S_166, 1)), function( x168_S_167 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x168_S_167, 1)), function( x169_S_168 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x169_S_168, 1)), function( x170_S_169 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x170_S_169, 1)), function( x171_S_170 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x171_S_170, 1)), function( x172_S_171 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x172_S_171, 1)), function( x173_S_172 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x173_S_172, 1)), function( x174_S_173 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x174_S_173, 1)), function( x175_S_174 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x175_S_174, 1)), function( x176_S_175 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x176_S_175, 1)), function( x177_S_176 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x177_S_176, 1)), function( x178_S_177 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x178_S_177, 1)), function( x179_S_178 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x179_S_178, 1)), function( x180_S_179 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x180_S_179, 1)), function( x181_S_180 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x181_S_180, 1)), function( x182_S_181 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x182_S_181, 1)), function( x183_S_182 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x183_S_182, 1)), function( x184_S_183 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x184_S_183, 1)), function( x185_S_184 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x185_S_184, 1)), function( x186_S_185 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x186_S_185, 1)), function( x187_S_186 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x187_S_186, 1)), function( x188_S_187 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x188_S_187, 1)), function( x189_S_188 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x189_S_188, 1)), function( x190_S_189 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x190_S_189, 1)), function( x191_S_190 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x191_S_190, 1)), function( x192_S_191 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x192_S_191, 1)), function( x193_S_192 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x193_S_192, 1)), function( x194_S_193 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x194_S_193, 1)), function( x195_S_194 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x195_S_194, 1)), function( x196_S_195 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x196_S_195, 1)), function( x197_S_196 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x197_S_196, 1)), function( x198_S_197 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x158_S_157_S_599, 1)), function( x159_S_158 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x159_S_158, 1)), function( x160_S_159 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x160_S_159, 1)), function( x161_S_160 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x161_S_160, 1)), function( x162_S_161 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x162_S_161, 1)), function( x163_S_162 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x163_S_162, 1)), function( x164_S_163 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x164_S_163, 1)), function( x165_S_164 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x165_S_164, 1)), function( x166_S_165 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x166_S_165, 1)), function( x167_S_166 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x167_S_166, 1)), function( x168_S_167 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x168_S_167, 1)), function( x169_S_168 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x169_S_168, 1)), function( x170_S_169 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x170_S_169, 1)), function( x171_S_170 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x171_S_170, 1)), function( x172_S_171 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x172_S_171, 1)), function( x173_S_172 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x173_S_172, 1)), function( x174_S_173 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x174_S_173, 1)), function( x175_S_174 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x175_S_174, 1)), function( x176_S_175 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x176_S_175, 1)), function( x177_S_176 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x177_S_176, 1)), function( x178_S_177 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x178_S_177, 1)), function( x179_S_178 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x179_S_178, 1)), function( x180_S_179 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x180_S_179, 1)), function( x181_S_180 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x181_S_180, 1)), function( x182_S_181 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x182_S_181, 1)), function( x183_S_182 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x183_S_182, 1)), function( x184_S_183 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x184_S_183, 1)), function( x185_S_184 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x185_S_184, 1)), function( x186_S_185 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x186_S_185, 1)), function( x187_S_186 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x187_S_186, 1)), function( x188_S_187 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x188_S_187, 1)), function( x189_S_188 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x189_S_188, 1)), function( x190_S_189 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x190_S_189, 1)), function( x191_S_190 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x191_S_190, 1)), function( x192_S_191 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x192_S_191, 1)), function( x193_S_192 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x193_S_192, 1)), function( x194_S_193 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x194_S_193, 1)), function( x195_S_194 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x195_S_194, 1)), function( x196_S_195 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x196_S_195, 1)), function( x197_S_196 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x197_S_196, 1)), function( x198_S_197 ) return _S_kont594(x1_S_0_S_598)(x198_S_197) end) end) @@ -326,46 +325,46 @@ return { end local _S_kont600 = function(x1_S_0_S_601) return function(x119_S_118_S_602) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x119_S_118_S_602, 1)), function( x120_S_119 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x120_S_119, 1)), function( x121_S_120 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x121_S_120, 1)), function( x122_S_121 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x122_S_121, 1)), function( x123_S_122 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x123_S_122, 1)), function( x124_S_123 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x124_S_123, 1)), function( x125_S_124 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x125_S_124, 1)), function( x126_S_125 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x126_S_125, 1)), function( x127_S_126 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x127_S_126, 1)), function( x128_S_127 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x128_S_127, 1)), function( x129_S_128 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x129_S_128, 1)), function( x130_S_129 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x130_S_129, 1)), function( x131_S_130 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x131_S_130, 1)), function( x132_S_131 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x132_S_131, 1)), function( x133_S_132 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x133_S_132, 1)), function( x134_S_133 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x134_S_133, 1)), function( x135_S_134 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x135_S_134, 1)), function( x136_S_135 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x136_S_135, 1)), function( x137_S_136 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x137_S_136, 1)), function( x138_S_137 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x138_S_137, 1)), function( x139_S_138 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x139_S_138, 1)), function( x140_S_139 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x140_S_139, 1)), function( x141_S_140 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x141_S_140, 1)), function( x142_S_141 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x142_S_141, 1)), function( x143_S_142 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x143_S_142, 1)), function( x144_S_143 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x144_S_143, 1)), function( x145_S_144 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x145_S_144, 1)), function( x146_S_145 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x146_S_145, 1)), function( x147_S_146 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x147_S_146, 1)), function( x148_S_147 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x148_S_147, 1)), function( x149_S_148 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x149_S_148, 1)), function( x150_S_149 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Unit_foreign.unit), function( ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x150_S_149, 1)), function( x151_S_150 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x151_S_150, 1)), function( x152_S_151 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x152_S_151, 1)), function( x153_S_152 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x153_S_152, 1)), function( x154_S_153 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x154_S_153, 1)), function( x155_S_154 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x155_S_154, 1)), function( x156_S_155 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x156_S_155, 1)), function( x157_S_156 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x157_S_156, 1)), function( x158_S_157 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x119_S_118_S_602, 1)), function( x120_S_119 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x120_S_119, 1)), function( x121_S_120 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x121_S_120, 1)), function( x122_S_121 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x122_S_121, 1)), function( x123_S_122 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x123_S_122, 1)), function( x124_S_123 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x124_S_123, 1)), function( x125_S_124 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x125_S_124, 1)), function( x126_S_125 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x126_S_125, 1)), function( x127_S_126 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x127_S_126, 1)), function( x128_S_127 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x128_S_127, 1)), function( x129_S_128 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x129_S_128, 1)), function( x130_S_129 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x130_S_129, 1)), function( x131_S_130 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x131_S_130, 1)), function( x132_S_131 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x132_S_131, 1)), function( x133_S_132 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x133_S_132, 1)), function( x134_S_133 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x134_S_133, 1)), function( x135_S_134 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x135_S_134, 1)), function( x136_S_135 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x136_S_135, 1)), function( x137_S_136 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x137_S_136, 1)), function( x138_S_137 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x138_S_137, 1)), function( x139_S_138 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x139_S_138, 1)), function( x140_S_139 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x140_S_139, 1)), function( x141_S_140 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x141_S_140, 1)), function( x142_S_141 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x142_S_141, 1)), function( x143_S_142 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x143_S_142, 1)), function( x144_S_143 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x144_S_143, 1)), function( x145_S_144 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x145_S_144, 1)), function( x146_S_145 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x146_S_145, 1)), function( x147_S_146 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x147_S_146, 1)), function( x148_S_147 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x148_S_147, 1)), function( x149_S_148 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x149_S_148, 1)), function( x150_S_149 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Data_Unit_foreign.unit), function( ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x150_S_149, 1)), function( x151_S_150 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x151_S_150, 1)), function( x152_S_151 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x152_S_151, 1)), function( x153_S_152 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x153_S_152, 1)), function( x154_S_153 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x154_S_153, 1)), function( x155_S_154 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x155_S_154, 1)), function( x156_S_155 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x156_S_155, 1)), function( x157_S_156 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x157_S_156, 1)), function( x158_S_157 ) return _S_kont597(x1_S_0_S_601)(x158_S_157) end) end) @@ -411,46 +410,46 @@ return { end local _S_kont603 = function(x1_S_0_S_604) return function(x79_S_78_S_605) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x79_S_78_S_605, 1)), function( x80_S_79 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x80_S_79, 1)), function( x81_S_80 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x81_S_80, 1)), function( x82_S_81 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x82_S_81, 1)), function( x83_S_82 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x83_S_82, 1)), function( x84_S_83 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x84_S_83, 1)), function( x85_S_84 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x85_S_84, 1)), function( x86_S_85 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x86_S_85, 1)), function( x87_S_86 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x87_S_86, 1)), function( x88_S_87 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x88_S_87, 1)), function( x89_S_88 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x89_S_88, 1)), function( x90_S_89 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x90_S_89, 1)), function( x91_S_90 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x91_S_90, 1)), function( x92_S_91 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x92_S_91, 1)), function( x93_S_92 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x93_S_92, 1)), function( x94_S_93 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x94_S_93, 1)), function( x95_S_94 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x95_S_94, 1)), function( x96_S_95 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x96_S_95, 1)), function( x97_S_96 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x97_S_96, 1)), function( x98_S_97 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x98_S_97, 1)), function( x99_S_98 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x99_S_98, 1)), function( x100_S_99 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x100_S_99, 1)), function( x101_S_100 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x101_S_100, 1)), function( x102_S_101 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x102_S_101, 1)), function( x103_S_102 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x103_S_102, 1)), function( x104_S_103 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x104_S_103, 1)), function( x105_S_104 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x105_S_104, 1)), function( x106_S_105 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x106_S_105, 1)), function( x107_S_106 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x107_S_106, 1)), function( x108_S_107 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x108_S_107, 1)), function( x109_S_108 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x109_S_108, 1)), function( x110_S_109 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x110_S_109, 1)), function( x111_S_110 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x111_S_110, 1)), function( x112_S_111 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x112_S_111, 1)), function( x113_S_112 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x113_S_112, 1)), function( x114_S_113 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x114_S_113, 1)), function( x115_S_114 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x115_S_114, 1)), function( x116_S_115 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x116_S_115, 1)), function( x117_S_116 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x117_S_116, 1)), function( x118_S_117 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x118_S_117, 1)), function( x119_S_118 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x79_S_78_S_605, 1)), function( x80_S_79 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x80_S_79, 1)), function( x81_S_80 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x81_S_80, 1)), function( x82_S_81 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x82_S_81, 1)), function( x83_S_82 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x83_S_82, 1)), function( x84_S_83 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x84_S_83, 1)), function( x85_S_84 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x85_S_84, 1)), function( x86_S_85 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x86_S_85, 1)), function( x87_S_86 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x87_S_86, 1)), function( x88_S_87 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x88_S_87, 1)), function( x89_S_88 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x89_S_88, 1)), function( x90_S_89 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x90_S_89, 1)), function( x91_S_90 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x91_S_90, 1)), function( x92_S_91 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x92_S_91, 1)), function( x93_S_92 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x93_S_92, 1)), function( x94_S_93 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x94_S_93, 1)), function( x95_S_94 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x95_S_94, 1)), function( x96_S_95 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x96_S_95, 1)), function( x97_S_96 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x97_S_96, 1)), function( x98_S_97 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x98_S_97, 1)), function( x99_S_98 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x99_S_98, 1)), function( x100_S_99 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x100_S_99, 1)), function( x101_S_100 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x101_S_100, 1)), function( x102_S_101 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x102_S_101, 1)), function( x103_S_102 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x103_S_102, 1)), function( x104_S_103 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x104_S_103, 1)), function( x105_S_104 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x105_S_104, 1)), function( x106_S_105 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x106_S_105, 1)), function( x107_S_106 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x107_S_106, 1)), function( x108_S_107 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x108_S_107, 1)), function( x109_S_108 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x109_S_108, 1)), function( x110_S_109 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x110_S_109, 1)), function( x111_S_110 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x111_S_110, 1)), function( x112_S_111 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x112_S_111, 1)), function( x113_S_112 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x113_S_112, 1)), function( x114_S_113 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x114_S_113, 1)), function( x115_S_114 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x115_S_114, 1)), function( x116_S_115 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x116_S_115, 1)), function( x117_S_116 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x117_S_116, 1)), function( x118_S_117 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x118_S_117, 1)), function( x119_S_118 ) return _S_kont600(x1_S_0_S_604)(x119_S_118) end) end) @@ -496,46 +495,46 @@ return { end local _S_kont606 = function(x1_S_0_S_607) return function(x40_S_39_S_608) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x40_S_39_S_608, 1)), function( x41_S_40 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x41_S_40, 1)), function( x42_S_41 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x42_S_41, 1)), function( x43_S_42 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x43_S_42, 1)), function( x44_S_43 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x44_S_43, 1)), function( x45_S_44 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x45_S_44, 1)), function( x46_S_45 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x46_S_45, 1)), function( x47_S_46 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x47_S_46, 1)), function( x48_S_47 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x48_S_47, 1)), function( x49_S_48 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x49_S_48, 1)), function( x50_S_49 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Data_Unit_foreign.unit), function( ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x50_S_49, 1)), function( x51_S_50 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x51_S_50, 1)), function( x52_S_51 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x52_S_51, 1)), function( x53_S_52 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x53_S_52, 1)), function( x54_S_53 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x54_S_53, 1)), function( x55_S_54 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x55_S_54, 1)), function( x56_S_55 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x56_S_55, 1)), function( x57_S_56 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x57_S_56, 1)), function( x58_S_57 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x58_S_57, 1)), function( x59_S_58 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x59_S_58, 1)), function( x60_S_59 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x60_S_59, 1)), function( x61_S_60 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x61_S_60, 1)), function( x62_S_61 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x62_S_61, 1)), function( x63_S_62 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x63_S_62, 1)), function( x64_S_63 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x64_S_63, 1)), function( x65_S_64 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x65_S_64, 1)), function( x66_S_65 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x66_S_65, 1)), function( x67_S_66 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x67_S_66, 1)), function( x68_S_67 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x68_S_67, 1)), function( x69_S_68 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x69_S_68, 1)), function( x70_S_69 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x70_S_69, 1)), function( x71_S_70 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x71_S_70, 1)), function( x72_S_71 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x72_S_71, 1)), function( x73_S_72 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x73_S_72, 1)), function( x74_S_73 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x74_S_73, 1)), function( x75_S_74 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x75_S_74, 1)), function( x76_S_75 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x76_S_75, 1)), function( x77_S_76 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x77_S_76, 1)), function( x78_S_77 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x78_S_77, 1)), function( x79_S_78 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x40_S_39_S_608, 1)), function( x41_S_40 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x41_S_40, 1)), function( x42_S_41 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x42_S_41, 1)), function( x43_S_42 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x43_S_42, 1)), function( x44_S_43 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x44_S_43, 1)), function( x45_S_44 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x45_S_44, 1)), function( x46_S_45 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x46_S_45, 1)), function( x47_S_46 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x47_S_46, 1)), function( x48_S_47 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x48_S_47, 1)), function( x49_S_48 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x49_S_48, 1)), function( x50_S_49 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Data_Unit_foreign.unit), function( ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x50_S_49, 1)), function( x51_S_50 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x51_S_50, 1)), function( x52_S_51 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x52_S_51, 1)), function( x53_S_52 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x53_S_52, 1)), function( x54_S_53 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x54_S_53, 1)), function( x55_S_54 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x55_S_54, 1)), function( x56_S_55 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x56_S_55, 1)), function( x57_S_56 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x57_S_56, 1)), function( x58_S_57 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x58_S_57, 1)), function( x59_S_58 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x59_S_58, 1)), function( x60_S_59 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x60_S_59, 1)), function( x61_S_60 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x61_S_60, 1)), function( x62_S_61 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x62_S_61, 1)), function( x63_S_62 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x63_S_62, 1)), function( x64_S_63 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x64_S_63, 1)), function( x65_S_64 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x65_S_64, 1)), function( x66_S_65 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x66_S_65, 1)), function( x67_S_66 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x67_S_66, 1)), function( x68_S_67 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x68_S_67, 1)), function( x69_S_68 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x69_S_68, 1)), function( x70_S_69 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x70_S_69, 1)), function( x71_S_70 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x71_S_70, 1)), function( x72_S_71 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x72_S_71, 1)), function( x73_S_72 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x73_S_72, 1)), function( x74_S_73 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x74_S_73, 1)), function( x75_S_74 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x75_S_74, 1)), function( x76_S_75 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x76_S_75, 1)), function( x77_S_76 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x77_S_76, 1)), function( x78_S_77 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x78_S_77, 1)), function( x79_S_78 ) return _S_kont603(x1_S_0_S_607)(x79_S_78) end) end) @@ -579,46 +578,46 @@ return { end) end end - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(1), function( x1_S_0 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x1_S_0, 1)), function( x2_S_1 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x2_S_1, 1)), function( x3_S_2 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x3_S_2, 1)), function( x4_S_3 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x4_S_3, 1)), function( x5_S_4 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x5_S_4, 1)), function( x6_S_5 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x6_S_5, 1)), function( x7_S_6 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x7_S_6, 1)), function( x8_S_7 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x8_S_7, 1)), function( x9_S_8 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x9_S_8, 1)), function( x10_S_9 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x10_S_9, 1)), function( x11_S_10 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x11_S_10, 1)), function( x12_S_11 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x12_S_11, 1)), function( x13_S_12 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x13_S_12, 1)), function( x14_S_13 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x14_S_13, 1)), function( x15_S_14 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x15_S_14, 1)), function( x16_S_15 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x16_S_15, 1)), function( x17_S_16 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x17_S_16, 1)), function( x18_S_17 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x18_S_17, 1)), function( x19_S_18 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x19_S_18, 1)), function( x20_S_19 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x20_S_19, 1)), function( x21_S_20 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x21_S_20, 1)), function( x22_S_21 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x22_S_21, 1)), function( x23_S_22 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x23_S_22, 1)), function( x24_S_23 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x24_S_23, 1)), function( x25_S_24 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x25_S_24, 1)), function( x26_S_25 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x26_S_25, 1)), function( x27_S_26 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x27_S_26, 1)), function( x28_S_27 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x28_S_27, 1)), function( x29_S_28 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x29_S_28, 1)), function( x30_S_29 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x30_S_29, 1)), function( x31_S_30 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x31_S_30, 1)), function( x32_S_31 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x32_S_31, 1)), function( x33_S_32 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x33_S_32, 1)), function( x34_S_33 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x34_S_33, 1)), function( x35_S_34 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x35_S_34, 1)), function( x36_S_35 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x36_S_35, 1)), function( x37_S_36 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x37_S_36, 1)), function( x38_S_37 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x38_S_37, 1)), function( x39_S_38 ) - return M.Golden_LongMaybeBindModule_Test_bind_S_w(M.Data_Maybe_Just(M.Golden_LongMaybeBindModule_Test_add_S_w(x39_S_38, 1)), function( x40_S_39 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(1), function( x1_S_0 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x1_S_0, 1)), function( x2_S_1 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x2_S_1, 1)), function( x3_S_2 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x3_S_2, 1)), function( x4_S_3 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x4_S_3, 1)), function( x5_S_4 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x5_S_4, 1)), function( x6_S_5 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x6_S_5, 1)), function( x7_S_6 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x7_S_6, 1)), function( x8_S_7 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x8_S_7, 1)), function( x9_S_8 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x9_S_8, 1)), function( x10_S_9 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x10_S_9, 1)), function( x11_S_10 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x11_S_10, 1)), function( x12_S_11 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x12_S_11, 1)), function( x13_S_12 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x13_S_12, 1)), function( x14_S_13 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x14_S_13, 1)), function( x15_S_14 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x15_S_14, 1)), function( x16_S_15 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x16_S_15, 1)), function( x17_S_16 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x17_S_16, 1)), function( x18_S_17 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x18_S_17, 1)), function( x19_S_18 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x19_S_18, 1)), function( x20_S_19 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x20_S_19, 1)), function( x21_S_20 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x21_S_20, 1)), function( x22_S_21 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x22_S_21, 1)), function( x23_S_22 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x23_S_22, 1)), function( x24_S_23 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x24_S_23, 1)), function( x25_S_24 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x25_S_24, 1)), function( x26_S_25 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x26_S_25, 1)), function( x27_S_26 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x27_S_26, 1)), function( x28_S_27 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x28_S_27, 1)), function( x29_S_28 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x29_S_28, 1)), function( x30_S_29 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x30_S_29, 1)), function( x31_S_30 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x31_S_30, 1)), function( x32_S_31 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x32_S_31, 1)), function( x33_S_32 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x33_S_32, 1)), function( x34_S_33 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x34_S_33, 1)), function( x35_S_34 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x35_S_34, 1)), function( x36_S_35 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x36_S_35, 1)), function( x37_S_36 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x37_S_36, 1)), function( x38_S_37 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x38_S_37, 1)), function( x39_S_38 ) + return Golden_LongMaybeBindModule_Test_bind_S_w(Data_Maybe_Just(Golden_LongMaybeBindModule_Test_add_S_w(x39_S_38, 1)), function( x40_S_39 ) return _S_kont606(x1_S_0)(x40_S_39) end) end) diff --git a/test/ps/output/Golden.LongReaderBind.Test/golden.lua b/test/ps/output/Golden.LongReaderBind.Test/golden.lua index 54c333a4..670cdc58 100644 --- a/test/ps/output/Golden.LongReaderBind.Test/golden.lua +++ b/test/ps/output/Golden.LongReaderBind.Test/golden.lua @@ -1,10 +1,10 @@ local M = {} -M.Data_Show_foreign = { showIntImpl = function(n) return tostring(n) end } -M.Unsafe_Coerce_foreign = { unsafeCoerce = function(x) return x end } -M.Effect_Console_foreign = { +local Data_Show_foreign = { showIntImpl = function(n) return tostring(n) end } +local Unsafe_Coerce_foreign = { unsafeCoerce = function(x) return x end } +local Effect_Console_foreign = { log = function(s) return function() print(s) end end } -M.Data_Identity_applyIdentity = { +local Data_Identity_applyIdentity = { apply = function(v) return function(v1) return v(v1) end end, Functor0 = function() return { @@ -14,27 +14,27 @@ M.Data_Identity_applyIdentity = { } end } -M.Data_Identity_bindIdentity = { +local Data_Identity_bindIdentity = { bind = function(v) return function(f) return f(v) end end, - Apply0 = function() return M.Data_Identity_applyIdentity end + Apply0 = function() return Data_Identity_applyIdentity end } -M.Data_Identity_applicativeIdentity = { +local Data_Identity_applicativeIdentity = { pure = function(x_S_496) return x_S_496 end, - Apply0 = function() return M.Data_Identity_applyIdentity end + Apply0 = function() return Data_Identity_applyIdentity end } -M.Golden_LongReaderBind_Test_ask = (function() +local Golden_LongReaderBind_Test_ask = (function() local dictMonad_S_488 = { - Applicative0 = function() return M.Data_Identity_applicativeIdentity end, - Bind1 = function() return M.Data_Identity_bindIdentity end + Applicative0 = function() return Data_Identity_applicativeIdentity end, + Bind1 = function() return Data_Identity_bindIdentity end } return (dictMonad_S_488.Applicative0()).pure end)() -M.Golden_LongReaderBind_Test_add_S_w = function(x_S_469_S_501, y_S_470_S_502) +local Golden_LongReaderBind_Test_add_S_w = function( x_S_469_S_501 +, y_S_470_S_502 ) return x_S_469_S_501 + y_S_470_S_502 end M.Golden_LongReaderBind_Test_go = function(r_S_552_S_588) - local Golden_LongReaderBind_Test_ask, Golden_LongReaderBind_Test_add_S_w = M.Golden_LongReaderBind_Test_ask, M.Golden_LongReaderBind_Test_add_S_w return Golden_LongReaderBind_Test_add_S_w(Golden_LongReaderBind_Test_add_S_w(Golden_LongReaderBind_Test_ask(r_S_552_S_588), Golden_LongReaderBind_Test_ask(r_S_552_S_588)), Golden_LongReaderBind_Test_ask(r_S_552_S_588)) end -M.Golden_LongReaderBind_Test_compute = M.Unsafe_Coerce_foreign.unsafeCoerce(M.Golden_LongReaderBind_Test_add_S_w(M.Golden_LongReaderBind_Test_add_S_w(M.Golden_LongReaderBind_Test_ask(3), M.Golden_LongReaderBind_Test_ask(3)), M.Golden_LongReaderBind_Test_ask(3))) -return M.Effect_Console_foreign.log(M.Data_Show_foreign.showIntImpl(M.Golden_LongReaderBind_Test_compute))() +local Golden_LongReaderBind_Test_compute = Unsafe_Coerce_foreign.unsafeCoerce(Golden_LongReaderBind_Test_add_S_w(Golden_LongReaderBind_Test_add_S_w(Golden_LongReaderBind_Test_ask(3), Golden_LongReaderBind_Test_ask(3)), Golden_LongReaderBind_Test_ask(3))) +return Effect_Console_foreign.log(Data_Show_foreign.showIntImpl(Golden_LongReaderBind_Test_compute))() diff --git a/test/ps/output/Golden.LongStackBind.Test/golden.lua b/test/ps/output/Golden.LongStackBind.Test/golden.lua index 829a0a21..dea208ad 100644 --- a/test/ps/output/Golden.LongStackBind.Test/golden.lua +++ b/test/ps/output/Golden.LongStackBind.Test/golden.lua @@ -1,6 +1,5 @@ -local M = {} -M.Data_Unit_foreign = { unit = {} } -M.Data_Show_foreign = { +local Data_Unit_foreign = { unit = {} } +local Data_Show_foreign = { showIntImpl = function(n) return tostring(n) end, showStringImpl = function(s) -- Mirror PureScript's `show`: wrap in double quotes and escape control @@ -42,46 +41,49 @@ M.Data_Show_foreign = { return table.concat(out) end } -M.Unsafe_Coerce_foreign = { unsafeCoerce = function(x) return x end } -M.Effect_Console_foreign = { +local Unsafe_Coerce_foreign = { unsafeCoerce = function(x) return x end } +local Effect_Console_foreign = { log = function(s) return function() print(s) end end } -M.Data_Either_append_S_w = function(s1_S_552_S_594, s2_S_553_S_595) +local Data_Either_append_S_w = function(s1_S_552_S_594, s2_S_553_S_595) return s1_S_552_S_594 .. s2_S_553_S_595 end -M.Data_Either_Left = function(value0) +local Data_Either_Left = function(value0) return { ["$ctor"] = "Data.Either∷Either.Left", value0 = value0 } end -M.Data_Either_Right = function(value0) +local Data_Either_Right = function(value0) return { ["$ctor"] = "Data.Either∷Either.Right", value0 = value0 } end -M.Data_Tuple_Tuple = function(value0) +local Data_Tuple_Tuple = function(value0) return function(value1) return { value0 = value0, value1 = value1 } end end -M.Data_Identity_functorIdentity = { +local Data_Identity_functorIdentity = { map = function(f) return function(m) return f(m) end end } -M.Data_Identity_applyIdentity = { +local Data_Identity_applyIdentity = { apply = function(v) return function(v1) return v(v1) end end, - Functor0 = function() return M.Data_Identity_functorIdentity end + Functor0 = function() return Data_Identity_functorIdentity end } -M.Control_Monad_Except_Trans_monadExceptT = function(dictMonad) +local Control_Monad_Except_Trans_bindExceptT +local Control_Monad_Except_Trans_applicativeExceptT +local Control_Monad_Except_Trans_monadExceptT = function(dictMonad) return { Applicative0 = function() - return M.Control_Monad_Except_Trans_applicativeExceptT(dictMonad) + return Control_Monad_Except_Trans_applicativeExceptT(dictMonad) end, Bind1 = function() - return M.Control_Monad_Except_Trans_bindExceptT(dictMonad) + return Control_Monad_Except_Trans_bindExceptT(dictMonad) end } end -M.Control_Monad_Except_Trans_bindExceptT = function(dictMonad) +local Control_Monad_Except_Trans_applyExceptT +Control_Monad_Except_Trans_bindExceptT = function(dictMonad) return { bind = function(v) return function(k) return (dictMonad.Bind1()).bind(v)(function(v2_S_583) if "Data.Either∷Either.Left" == v2_S_583["$ctor"] then - return (dictMonad.Applicative0()).pure(M.Data_Either_Left(v2_S_583.value0)) + return (dictMonad.Applicative0()).pure(Data_Either_Left(v2_S_583.value0)) elseif "Data.Either∷Either.Right" == v2_S_583["$ctor"] then return k(v2_S_583.value0) else @@ -91,14 +93,14 @@ M.Control_Monad_Except_Trans_bindExceptT = function(dictMonad) end end, Apply0 = function() - return M.Control_Monad_Except_Trans_applyExceptT(dictMonad) + return Control_Monad_Except_Trans_applyExceptT(dictMonad) end } end -M.Control_Monad_Except_Trans_applyExceptT = function(dictMonad) +Control_Monad_Except_Trans_applyExceptT = function(dictMonad) return { apply = (function() - local dictMonad_S_1846 = M.Control_Monad_Except_Trans_monadExceptT(dictMonad) + local dictMonad_S_1846 = Control_Monad_Except_Trans_monadExceptT(dictMonad) local bind_S_1847 = (dictMonad_S_1846.Bind1()).bind return function(f_S_1848) return function(a_S_1849) @@ -116,9 +118,9 @@ M.Control_Monad_Except_Trans_applyExceptT = function(dictMonad) return function(v_S_575_S_1856) return (((dictMonad.Bind1()).Apply0()).Functor0()).map(function( m_S_585_S_1858 ) if "Data.Either∷Either.Left" == m_S_585_S_1858["$ctor"] then - return M.Data_Either_Left(m_S_585_S_1858.value0) + return Data_Either_Left(m_S_585_S_1858.value0) elseif "Data.Either∷Either.Right" == m_S_585_S_1858["$ctor"] then - return M.Data_Either_Right(f_S_1855(m_S_585_S_1858.value0)) + return Data_Either_Right(f_S_1855(m_S_585_S_1858.value0)) else return error("No patterns matched") end @@ -129,27 +131,30 @@ M.Control_Monad_Except_Trans_applyExceptT = function(dictMonad) end } end -M.Control_Monad_Except_Trans_applicativeExceptT = function(dictMonad) +Control_Monad_Except_Trans_applicativeExceptT = function(dictMonad) return { pure = function(x_S_1867_S_1878) - return (dictMonad.Applicative0()).pure(M.Data_Either_Right(x_S_1867_S_1878)) + return (dictMonad.Applicative0()).pure(Data_Either_Right(x_S_1867_S_1878)) end, Apply0 = function() - return M.Control_Monad_Except_Trans_applyExceptT(dictMonad) + return Control_Monad_Except_Trans_applyExceptT(dictMonad) end } end -M.Control_Monad_State_Trans_monadStateT = function(dictMonad) +local Control_Monad_State_Trans_bindStateT +local Control_Monad_State_Trans_applicativeStateT +local Control_Monad_State_Trans_monadStateT = function(dictMonad) return { Applicative0 = function() - return M.Control_Monad_State_Trans_applicativeStateT(dictMonad) + return Control_Monad_State_Trans_applicativeStateT(dictMonad) end, Bind1 = function() - return M.Control_Monad_State_Trans_bindStateT(dictMonad) + return Control_Monad_State_Trans_bindStateT(dictMonad) end } end -M.Control_Monad_State_Trans_bindStateT = function(dictMonad) +local Control_Monad_State_Trans_applyStateT +Control_Monad_State_Trans_bindStateT = function(dictMonad) return { bind = function(v) return function(f) @@ -161,14 +166,14 @@ M.Control_Monad_State_Trans_bindStateT = function(dictMonad) end end, Apply0 = function() - return M.Control_Monad_State_Trans_applyStateT(dictMonad) + return Control_Monad_State_Trans_applyStateT(dictMonad) end } end -M.Control_Monad_State_Trans_applyStateT = function(dictMonad) +Control_Monad_State_Trans_applyStateT = function(dictMonad) return { apply = (function() - local dictMonad_S_1834 = M.Control_Monad_State_Trans_monadStateT(dictMonad) + local dictMonad_S_1834 = Control_Monad_State_Trans_monadStateT(dictMonad) local bind_S_1835 = (dictMonad_S_1834.Bind1()).bind return function(f_S_1836) return function(a_S_1837) @@ -186,7 +191,7 @@ M.Control_Monad_State_Trans_applyStateT = function(dictMonad) return function(v_S_571) return function(s_S_572) return (((dictMonad.Bind1()).Apply0()).Functor0()).map(function( v1_S_573 ) - return M.Data_Tuple_Tuple(f_S_570(v1_S_573.value0))(v1_S_573.value1) + return Data_Tuple_Tuple(f_S_570(v1_S_573.value0))(v1_S_573.value1) end)(v_S_571(s_S_572)) end end @@ -195,23 +200,23 @@ M.Control_Monad_State_Trans_applyStateT = function(dictMonad) end } end -M.Control_Monad_State_Trans_applicativeStateT = function(dictMonad) +Control_Monad_State_Trans_applicativeStateT = function(dictMonad) return { pure = function(a) return function(s) - return (dictMonad.Applicative0()).pure(M.Data_Tuple_Tuple(a)(s)) + return (dictMonad.Applicative0()).pure(Data_Tuple_Tuple(a)(s)) end end, Apply0 = function() - return M.Control_Monad_State_Trans_applyStateT(dictMonad) + return Control_Monad_State_Trans_applyStateT(dictMonad) end } end -M.Golden_LongStackBind_Test_monadExceptT = M.Control_Monad_Except_Trans_monadExceptT({ +local Golden_LongStackBind_Test_monadExceptT = Control_Monad_Except_Trans_monadExceptT({ Applicative0 = function() return { pure = function(x_S_579) return x_S_579 end, - Apply0 = function() return M.Data_Identity_applyIdentity end + Apply0 = function() return Data_Identity_applyIdentity end } end, Bind1 = function() @@ -219,63 +224,63 @@ M.Golden_LongStackBind_Test_monadExceptT = M.Control_Monad_Except_Trans_monadExc bind = function(v_S_128_S_577) return function(f_S_129_S_578) return f_S_129_S_578(v_S_128_S_577) end end, - Apply0 = function() return M.Data_Identity_applyIdentity end + Apply0 = function() return Data_Identity_applyIdentity end } end }) -M.Golden_LongStackBind_Test_bindStateT = M.Control_Monad_State_Trans_bindStateT(M.Golden_LongStackBind_Test_monadExceptT) -M.Golden_LongStackBind_Test_bind = M.Golden_LongStackBind_Test_bindStateT.bind -M.Golden_LongStackBind_Test_get = function(x_S_1825) - return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(x_S_1825)(x_S_1825)) +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_1825) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(x_S_1825)(x_S_1825)) end -M.Golden_LongStackBind_Test_discard = M.Golden_LongStackBind_Test_bindStateT.bind -M.Golden_LongStackBind_Test_add_S_w = function(x_S_550_S_589, y_S_551_S_590) +local Golden_LongStackBind_Test_discard = Golden_LongStackBind_Test_bindStateT.bind +local Golden_LongStackBind_Test_add_S_w = function(x_S_550_S_589, y_S_551_S_590) return x_S_550_S_589 + y_S_551_S_590 end -M.Golden_LongStackBind_Test_go = (function() +local Golden_LongStackBind_Test_go = (function() local _S_kont1882 = function(x1_S_1883) - return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x141 ) - return M.Golden_LongStackBind_Test_discard(function() - return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x141, 1))) + return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x141 ) + return Golden_LongStackBind_Test_discard(function() + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x141, 1))) end)(function() - return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x142 ) - return M.Golden_LongStackBind_Test_discard(function() - return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x142, 1))) + return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x142 ) + return Golden_LongStackBind_Test_discard(function() + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x142, 1))) end)(function() - return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x143 ) - return M.Golden_LongStackBind_Test_discard(function() - return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x143, 1))) + return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x143 ) + return Golden_LongStackBind_Test_discard(function() + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x143, 1))) end)(function() - return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x144 ) - return M.Golden_LongStackBind_Test_discard(function() - return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x144, 1))) + return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x144 ) + return Golden_LongStackBind_Test_discard(function() + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x144, 1))) end)(function() - return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x145 ) - return M.Golden_LongStackBind_Test_discard(function() - return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x145, 1))) + return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x145 ) + return Golden_LongStackBind_Test_discard(function() + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x145, 1))) end)(function() - return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x146 ) - return M.Golden_LongStackBind_Test_discard(function() - return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x146, 1))) + return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x146 ) + return Golden_LongStackBind_Test_discard(function() + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x146, 1))) end)(function() - return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x147 ) - return M.Golden_LongStackBind_Test_discard(function( ) - return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x147, 1))) + return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x147 ) + return Golden_LongStackBind_Test_discard(function( ) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x147, 1))) end)(function() - return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x148 ) - return M.Golden_LongStackBind_Test_discard(function( ) - return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x148, 1))) + return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x148 ) + return Golden_LongStackBind_Test_discard(function( ) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x148, 1))) end)(function() - return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x149 ) - return M.Golden_LongStackBind_Test_discard(function( ) - return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x149, 1))) + return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x149 ) + return Golden_LongStackBind_Test_discard(function( ) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x149, 1))) end)(function() - return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x150 ) - return M.Golden_LongStackBind_Test_discard(function( ) - return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x150, 1))) + return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x150 ) + return Golden_LongStackBind_Test_discard(function( ) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x150, 1))) end)(function() - return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( final ) - return (M.Control_Monad_State_Trans_applicativeStateT(M.Golden_LongStackBind_Test_monadExceptT)).pure(M.Golden_LongStackBind_Test_add_S_w(x1_S_1883, final)) + return Golden_LongStackBind_Test_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_1883, final)) end) end) end) @@ -299,85 +304,85 @@ M.Golden_LongStackBind_Test_go = (function() end) end local _S_kont1884 = function(x1_S_1885) - return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x121 ) - return M.Golden_LongStackBind_Test_discard(function() - return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x121, 1))) + return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x121 ) + return Golden_LongStackBind_Test_discard(function() + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x121, 1))) end)(function() - return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x122 ) - return M.Golden_LongStackBind_Test_discard(function() - return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x122, 1))) + return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x122 ) + return Golden_LongStackBind_Test_discard(function() + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x122, 1))) end)(function() - return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x123 ) - return M.Golden_LongStackBind_Test_discard(function() - return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x123, 1))) + return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x123 ) + return Golden_LongStackBind_Test_discard(function() + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x123, 1))) end)(function() - return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x124 ) - return M.Golden_LongStackBind_Test_discard(function() - return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x124, 1))) + return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x124 ) + return Golden_LongStackBind_Test_discard(function() + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x124, 1))) end)(function() - return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x125 ) - return M.Golden_LongStackBind_Test_discard(function() - return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x125, 1))) + return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x125 ) + return Golden_LongStackBind_Test_discard(function() + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x125, 1))) end)(function() - return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x126 ) - return M.Golden_LongStackBind_Test_discard(function() - return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x126, 1))) + return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x126 ) + return Golden_LongStackBind_Test_discard(function() + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x126, 1))) end)(function() - return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x127 ) - return M.Golden_LongStackBind_Test_discard(function( ) - return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x127, 1))) + return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x127 ) + return Golden_LongStackBind_Test_discard(function( ) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x127, 1))) end)(function() - return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x128 ) - return M.Golden_LongStackBind_Test_discard(function( ) - return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x128, 1))) + return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x128 ) + return Golden_LongStackBind_Test_discard(function( ) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x128, 1))) end)(function() - return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x129 ) - return M.Golden_LongStackBind_Test_discard(function( ) - return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x129, 1))) + return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x129 ) + return Golden_LongStackBind_Test_discard(function( ) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x129, 1))) end)(function() - return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x130 ) - return M.Golden_LongStackBind_Test_discard(function( ) - return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x130, 1))) + return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x130 ) + return Golden_LongStackBind_Test_discard(function( ) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x130, 1))) end)(function() - return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x131 ) - return M.Golden_LongStackBind_Test_discard(function( ) - return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x131, 1))) + return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x131 ) + return Golden_LongStackBind_Test_discard(function( ) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x131, 1))) end)(function() - return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x132 ) - return M.Golden_LongStackBind_Test_discard(function( ) - return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x132, 1))) + return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x132 ) + return Golden_LongStackBind_Test_discard(function( ) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x132, 1))) end)(function() - return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x133 ) - return M.Golden_LongStackBind_Test_discard(function( ) - return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x133, 1))) + return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x133 ) + return Golden_LongStackBind_Test_discard(function( ) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x133, 1))) end)(function() - return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x134 ) - return M.Golden_LongStackBind_Test_discard(function( ) - return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x134, 1))) + return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x134 ) + return Golden_LongStackBind_Test_discard(function( ) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x134, 1))) end)(function() - return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x135 ) - return M.Golden_LongStackBind_Test_discard(function( ) - return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x135, 1))) + return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x135 ) + return Golden_LongStackBind_Test_discard(function( ) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x135, 1))) end)(function() - return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x136 ) - return M.Golden_LongStackBind_Test_discard(function( ) - return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x136, 1))) + return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x136 ) + return Golden_LongStackBind_Test_discard(function( ) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x136, 1))) end)(function( ) - return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x137 ) - return M.Golden_LongStackBind_Test_discard(function( ) - return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x137, 1))) + return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x137 ) + return Golden_LongStackBind_Test_discard(function( ) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x137, 1))) end)(function( ) - return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x138 ) - return M.Golden_LongStackBind_Test_discard(function( ) - return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x138, 1))) + return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x138 ) + return Golden_LongStackBind_Test_discard(function( ) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x138, 1))) end)(function( ) - return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x139 ) - return M.Golden_LongStackBind_Test_discard(function( ) - return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x139, 1))) + return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x139 ) + return Golden_LongStackBind_Test_discard(function( ) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x139, 1))) end)(function( ) - return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x140 ) - return M.Golden_LongStackBind_Test_discard(function( ) - return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x140, 1))) + return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x140 ) + return Golden_LongStackBind_Test_discard(function( ) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x140, 1))) end)(function( ) return _S_kont1882(x1_S_1885) end) @@ -422,85 +427,85 @@ M.Golden_LongStackBind_Test_go = (function() end) end local _S_kont1886 = function(x1_S_1887) - return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x101 ) - return M.Golden_LongStackBind_Test_discard(function() - return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x101, 1))) + return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x101 ) + return Golden_LongStackBind_Test_discard(function() + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x101, 1))) end)(function() - return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x102 ) - return M.Golden_LongStackBind_Test_discard(function() - return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x102, 1))) + return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x102 ) + return Golden_LongStackBind_Test_discard(function() + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x102, 1))) end)(function() - return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x103 ) - return M.Golden_LongStackBind_Test_discard(function() - return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x103, 1))) + return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x103 ) + return Golden_LongStackBind_Test_discard(function() + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x103, 1))) end)(function() - return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x104 ) - return M.Golden_LongStackBind_Test_discard(function() - return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x104, 1))) + return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x104 ) + return Golden_LongStackBind_Test_discard(function() + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x104, 1))) end)(function() - return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x105 ) - return M.Golden_LongStackBind_Test_discard(function() - return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x105, 1))) + return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x105 ) + return Golden_LongStackBind_Test_discard(function() + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x105, 1))) end)(function() - return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x106 ) - return M.Golden_LongStackBind_Test_discard(function() - return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x106, 1))) + return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x106 ) + return Golden_LongStackBind_Test_discard(function() + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x106, 1))) end)(function() - return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x107 ) - return M.Golden_LongStackBind_Test_discard(function( ) - return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x107, 1))) + return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x107 ) + return Golden_LongStackBind_Test_discard(function( ) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x107, 1))) end)(function() - return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x108 ) - return M.Golden_LongStackBind_Test_discard(function( ) - return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x108, 1))) + return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x108 ) + return Golden_LongStackBind_Test_discard(function( ) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x108, 1))) end)(function() - return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x109 ) - return M.Golden_LongStackBind_Test_discard(function( ) - return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x109, 1))) + return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x109 ) + return Golden_LongStackBind_Test_discard(function( ) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x109, 1))) end)(function() - return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x110 ) - return M.Golden_LongStackBind_Test_discard(function( ) - return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x110, 1))) + return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x110 ) + return Golden_LongStackBind_Test_discard(function( ) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x110, 1))) end)(function() - return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x111 ) - return M.Golden_LongStackBind_Test_discard(function( ) - return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x111, 1))) + return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x111 ) + return Golden_LongStackBind_Test_discard(function( ) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x111, 1))) end)(function() - return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x112 ) - return M.Golden_LongStackBind_Test_discard(function( ) - return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x112, 1))) + return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x112 ) + return Golden_LongStackBind_Test_discard(function( ) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x112, 1))) end)(function() - return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x113 ) - return M.Golden_LongStackBind_Test_discard(function( ) - return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x113, 1))) + return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x113 ) + return Golden_LongStackBind_Test_discard(function( ) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x113, 1))) end)(function() - return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x114 ) - return M.Golden_LongStackBind_Test_discard(function( ) - return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x114, 1))) + return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x114 ) + return Golden_LongStackBind_Test_discard(function( ) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x114, 1))) end)(function() - return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x115 ) - return M.Golden_LongStackBind_Test_discard(function( ) - return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x115, 1))) + return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x115 ) + return Golden_LongStackBind_Test_discard(function( ) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x115, 1))) end)(function() - return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x116 ) - return M.Golden_LongStackBind_Test_discard(function( ) - return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x116, 1))) + return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x116 ) + return Golden_LongStackBind_Test_discard(function( ) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x116, 1))) end)(function( ) - return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x117 ) - return M.Golden_LongStackBind_Test_discard(function( ) - return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x117, 1))) + return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x117 ) + return Golden_LongStackBind_Test_discard(function( ) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x117, 1))) end)(function( ) - return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x118 ) - return M.Golden_LongStackBind_Test_discard(function( ) - return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x118, 1))) + return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x118 ) + return Golden_LongStackBind_Test_discard(function( ) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x118, 1))) end)(function( ) - return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x119 ) - return M.Golden_LongStackBind_Test_discard(function( ) - return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x119, 1))) + return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x119 ) + return Golden_LongStackBind_Test_discard(function( ) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x119, 1))) end)(function( ) - return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x120 ) - return M.Golden_LongStackBind_Test_discard(function( ) - return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x120, 1))) + return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x120 ) + return Golden_LongStackBind_Test_discard(function( ) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x120, 1))) end)(function( ) return _S_kont1884(x1_S_1887) end) @@ -545,85 +550,85 @@ M.Golden_LongStackBind_Test_go = (function() end) end local _S_kont1888 = function(x1_S_1889) - return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x81 ) - return M.Golden_LongStackBind_Test_discard(function() - return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x81, 1))) + return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x81 ) + return Golden_LongStackBind_Test_discard(function() + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x81, 1))) end)(function() - return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x82 ) - return M.Golden_LongStackBind_Test_discard(function() - return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x82, 1))) + return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x82 ) + return Golden_LongStackBind_Test_discard(function() + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x82, 1))) end)(function() - return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x83 ) - return M.Golden_LongStackBind_Test_discard(function() - return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x83, 1))) + return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x83 ) + return Golden_LongStackBind_Test_discard(function() + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x83, 1))) end)(function() - return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x84 ) - return M.Golden_LongStackBind_Test_discard(function() - return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x84, 1))) + return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x84 ) + return Golden_LongStackBind_Test_discard(function() + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x84, 1))) end)(function() - return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x85 ) - return M.Golden_LongStackBind_Test_discard(function() - return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x85, 1))) + return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x85 ) + return Golden_LongStackBind_Test_discard(function() + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x85, 1))) end)(function() - return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x86 ) - return M.Golden_LongStackBind_Test_discard(function() - return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x86, 1))) + return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x86 ) + return Golden_LongStackBind_Test_discard(function() + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x86, 1))) end)(function() - return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x87 ) - return M.Golden_LongStackBind_Test_discard(function( ) - return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x87, 1))) + return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x87 ) + return Golden_LongStackBind_Test_discard(function( ) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x87, 1))) end)(function() - return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x88 ) - return M.Golden_LongStackBind_Test_discard(function( ) - return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x88, 1))) + return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x88 ) + return Golden_LongStackBind_Test_discard(function( ) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x88, 1))) end)(function() - return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x89 ) - return M.Golden_LongStackBind_Test_discard(function( ) - return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x89, 1))) + return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x89 ) + return Golden_LongStackBind_Test_discard(function( ) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x89, 1))) end)(function() - return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x90 ) - return M.Golden_LongStackBind_Test_discard(function( ) - return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x90, 1))) + return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x90 ) + return Golden_LongStackBind_Test_discard(function( ) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x90, 1))) end)(function() - return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x91 ) - return M.Golden_LongStackBind_Test_discard(function( ) - return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x91, 1))) + return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x91 ) + return Golden_LongStackBind_Test_discard(function( ) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x91, 1))) end)(function() - return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x92 ) - return M.Golden_LongStackBind_Test_discard(function( ) - return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x92, 1))) + return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x92 ) + return Golden_LongStackBind_Test_discard(function( ) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x92, 1))) end)(function() - return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x93 ) - return M.Golden_LongStackBind_Test_discard(function( ) - return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x93, 1))) + return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x93 ) + return Golden_LongStackBind_Test_discard(function( ) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x93, 1))) end)(function() - return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x94 ) - return M.Golden_LongStackBind_Test_discard(function( ) - return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x94, 1))) + return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x94 ) + return Golden_LongStackBind_Test_discard(function( ) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x94, 1))) end)(function() - return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x95 ) - return M.Golden_LongStackBind_Test_discard(function( ) - return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x95, 1))) + return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x95 ) + return Golden_LongStackBind_Test_discard(function( ) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x95, 1))) end)(function() - return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x96 ) - return M.Golden_LongStackBind_Test_discard(function( ) - return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x96, 1))) + return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x96 ) + return Golden_LongStackBind_Test_discard(function( ) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x96, 1))) end)(function( ) - return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x97 ) - return M.Golden_LongStackBind_Test_discard(function( ) - return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x97, 1))) + return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x97 ) + return Golden_LongStackBind_Test_discard(function( ) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x97, 1))) end)(function( ) - return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x98 ) - return M.Golden_LongStackBind_Test_discard(function( ) - return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x98, 1))) + return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x98 ) + return Golden_LongStackBind_Test_discard(function( ) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x98, 1))) end)(function( ) - return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x99 ) - return M.Golden_LongStackBind_Test_discard(function( ) - return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x99, 1))) + return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x99 ) + return Golden_LongStackBind_Test_discard(function( ) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x99, 1))) end)(function( ) - return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x100 ) - return M.Golden_LongStackBind_Test_discard(function( ) - return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x100, 1))) + return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x100 ) + return Golden_LongStackBind_Test_discard(function( ) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x100, 1))) end)(function( ) return _S_kont1886(x1_S_1889) end) @@ -668,85 +673,85 @@ M.Golden_LongStackBind_Test_go = (function() end) end local _S_kont1890 = function(x1_S_1891) - return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x61 ) - return M.Golden_LongStackBind_Test_discard(function() - return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x61, 1))) + return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x61 ) + return Golden_LongStackBind_Test_discard(function() + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x61, 1))) end)(function() - return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x62 ) - return M.Golden_LongStackBind_Test_discard(function() - return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x62, 1))) + return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x62 ) + return Golden_LongStackBind_Test_discard(function() + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x62, 1))) end)(function() - return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x63 ) - return M.Golden_LongStackBind_Test_discard(function() - return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x63, 1))) + return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x63 ) + return Golden_LongStackBind_Test_discard(function() + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x63, 1))) end)(function() - return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x64 ) - return M.Golden_LongStackBind_Test_discard(function() - return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x64, 1))) + return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x64 ) + return Golden_LongStackBind_Test_discard(function() + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x64, 1))) end)(function() - return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x65 ) - return M.Golden_LongStackBind_Test_discard(function() - return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x65, 1))) + return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x65 ) + return Golden_LongStackBind_Test_discard(function() + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x65, 1))) end)(function() - return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x66 ) - return M.Golden_LongStackBind_Test_discard(function() - return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x66, 1))) + return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x66 ) + return Golden_LongStackBind_Test_discard(function() + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x66, 1))) end)(function() - return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x67 ) - return M.Golden_LongStackBind_Test_discard(function( ) - return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x67, 1))) + return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x67 ) + return Golden_LongStackBind_Test_discard(function( ) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x67, 1))) end)(function() - return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x68 ) - return M.Golden_LongStackBind_Test_discard(function( ) - return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x68, 1))) + return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x68 ) + return Golden_LongStackBind_Test_discard(function( ) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x68, 1))) end)(function() - return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x69 ) - return M.Golden_LongStackBind_Test_discard(function( ) - return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x69, 1))) + return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x69 ) + return Golden_LongStackBind_Test_discard(function( ) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x69, 1))) end)(function() - return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x70 ) - return M.Golden_LongStackBind_Test_discard(function( ) - return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x70, 1))) + return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x70 ) + return Golden_LongStackBind_Test_discard(function( ) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x70, 1))) end)(function() - return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x71 ) - return M.Golden_LongStackBind_Test_discard(function( ) - return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x71, 1))) + return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x71 ) + return Golden_LongStackBind_Test_discard(function( ) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x71, 1))) end)(function() - return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x72 ) - return M.Golden_LongStackBind_Test_discard(function( ) - return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x72, 1))) + return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x72 ) + return Golden_LongStackBind_Test_discard(function( ) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x72, 1))) end)(function() - return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x73 ) - return M.Golden_LongStackBind_Test_discard(function( ) - return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x73, 1))) + return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x73 ) + return Golden_LongStackBind_Test_discard(function( ) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x73, 1))) end)(function() - return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x74 ) - return M.Golden_LongStackBind_Test_discard(function( ) - return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x74, 1))) + return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x74 ) + return Golden_LongStackBind_Test_discard(function( ) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x74, 1))) end)(function() - return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x75 ) - return M.Golden_LongStackBind_Test_discard(function( ) - return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x75, 1))) + return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x75 ) + return Golden_LongStackBind_Test_discard(function( ) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x75, 1))) end)(function() - return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x76 ) - return M.Golden_LongStackBind_Test_discard(function( ) - return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x76, 1))) + return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x76 ) + return Golden_LongStackBind_Test_discard(function( ) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x76, 1))) end)(function( ) - return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x77 ) - return M.Golden_LongStackBind_Test_discard(function( ) - return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x77, 1))) + return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x77 ) + return Golden_LongStackBind_Test_discard(function( ) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x77, 1))) end)(function( ) - return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x78 ) - return M.Golden_LongStackBind_Test_discard(function( ) - return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x78, 1))) + return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x78 ) + return Golden_LongStackBind_Test_discard(function( ) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x78, 1))) end)(function( ) - return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x79 ) - return M.Golden_LongStackBind_Test_discard(function( ) - return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x79, 1))) + return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x79 ) + return Golden_LongStackBind_Test_discard(function( ) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x79, 1))) end)(function( ) - return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x80 ) - return M.Golden_LongStackBind_Test_discard(function( ) - return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x80, 1))) + return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x80 ) + return Golden_LongStackBind_Test_discard(function( ) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x80, 1))) end)(function( ) return _S_kont1888(x1_S_1891) end) @@ -791,85 +796,85 @@ M.Golden_LongStackBind_Test_go = (function() end) end local _S_kont1892 = function(x1_S_1893) - return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x41 ) - return M.Golden_LongStackBind_Test_discard(function() - return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x41, 1))) + return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x41 ) + return Golden_LongStackBind_Test_discard(function() + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x41, 1))) end)(function() - return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x42 ) - return M.Golden_LongStackBind_Test_discard(function() - return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x42, 1))) + return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x42 ) + return Golden_LongStackBind_Test_discard(function() + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x42, 1))) end)(function() - return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x43 ) - return M.Golden_LongStackBind_Test_discard(function() - return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x43, 1))) + return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x43 ) + return Golden_LongStackBind_Test_discard(function() + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x43, 1))) end)(function() - return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x44 ) - return M.Golden_LongStackBind_Test_discard(function() - return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x44, 1))) + return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x44 ) + return Golden_LongStackBind_Test_discard(function() + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x44, 1))) end)(function() - return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x45 ) - return M.Golden_LongStackBind_Test_discard(function() - return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x45, 1))) + return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x45 ) + return Golden_LongStackBind_Test_discard(function() + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x45, 1))) end)(function() - return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x46 ) - return M.Golden_LongStackBind_Test_discard(function() - return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x46, 1))) + return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x46 ) + return Golden_LongStackBind_Test_discard(function() + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x46, 1))) end)(function() - return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x47 ) - return M.Golden_LongStackBind_Test_discard(function( ) - return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x47, 1))) + return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x47 ) + return Golden_LongStackBind_Test_discard(function( ) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x47, 1))) end)(function() - return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x48 ) - return M.Golden_LongStackBind_Test_discard(function( ) - return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x48, 1))) + return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x48 ) + return Golden_LongStackBind_Test_discard(function( ) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x48, 1))) end)(function() - return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x49 ) - return M.Golden_LongStackBind_Test_discard(function( ) - return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x49, 1))) + return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x49 ) + return Golden_LongStackBind_Test_discard(function( ) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x49, 1))) end)(function() - return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x50 ) - return M.Golden_LongStackBind_Test_discard(function( ) - return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x50, 1))) + return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x50 ) + return Golden_LongStackBind_Test_discard(function( ) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x50, 1))) end)(function() - return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x51 ) - return M.Golden_LongStackBind_Test_discard(function( ) - return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x51, 1))) + return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x51 ) + return Golden_LongStackBind_Test_discard(function( ) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x51, 1))) end)(function() - return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x52 ) - return M.Golden_LongStackBind_Test_discard(function( ) - return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x52, 1))) + return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x52 ) + return Golden_LongStackBind_Test_discard(function( ) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x52, 1))) end)(function() - return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x53 ) - return M.Golden_LongStackBind_Test_discard(function( ) - return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x53, 1))) + return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x53 ) + return Golden_LongStackBind_Test_discard(function( ) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x53, 1))) end)(function() - return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x54 ) - return M.Golden_LongStackBind_Test_discard(function( ) - return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x54, 1))) + return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x54 ) + return Golden_LongStackBind_Test_discard(function( ) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x54, 1))) end)(function() - return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x55 ) - return M.Golden_LongStackBind_Test_discard(function( ) - return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x55, 1))) + return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x55 ) + return Golden_LongStackBind_Test_discard(function( ) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x55, 1))) end)(function() - return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x56 ) - return M.Golden_LongStackBind_Test_discard(function( ) - return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x56, 1))) + return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x56 ) + return Golden_LongStackBind_Test_discard(function( ) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x56, 1))) end)(function( ) - return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x57 ) - return M.Golden_LongStackBind_Test_discard(function( ) - return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x57, 1))) + return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x57 ) + return Golden_LongStackBind_Test_discard(function( ) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x57, 1))) end)(function( ) - return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x58 ) - return M.Golden_LongStackBind_Test_discard(function( ) - return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x58, 1))) + return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x58 ) + return Golden_LongStackBind_Test_discard(function( ) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x58, 1))) end)(function( ) - return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x59 ) - return M.Golden_LongStackBind_Test_discard(function( ) - return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x59, 1))) + return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x59 ) + return Golden_LongStackBind_Test_discard(function( ) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x59, 1))) end)(function( ) - return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x60 ) - return M.Golden_LongStackBind_Test_discard(function( ) - return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x60, 1))) + return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x60 ) + return Golden_LongStackBind_Test_discard(function( ) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x60, 1))) end)(function( ) return _S_kont1890(x1_S_1893) end) @@ -914,85 +919,85 @@ M.Golden_LongStackBind_Test_go = (function() end) end local _S_kont1894 = function(x1_S_1895) - return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x21 ) - return M.Golden_LongStackBind_Test_discard(function() - return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x21, 1))) + return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x21 ) + return Golden_LongStackBind_Test_discard(function() + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x21, 1))) end)(function() - return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x22 ) - return M.Golden_LongStackBind_Test_discard(function() - return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x22, 1))) + return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x22 ) + return Golden_LongStackBind_Test_discard(function() + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x22, 1))) end)(function() - return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x23 ) - return M.Golden_LongStackBind_Test_discard(function() - return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x23, 1))) + return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x23 ) + return Golden_LongStackBind_Test_discard(function() + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x23, 1))) end)(function() - return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x24 ) - return M.Golden_LongStackBind_Test_discard(function() - return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x24, 1))) + return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x24 ) + return Golden_LongStackBind_Test_discard(function() + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x24, 1))) end)(function() - return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x25 ) - return M.Golden_LongStackBind_Test_discard(function() - return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x25, 1))) + return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x25 ) + return Golden_LongStackBind_Test_discard(function() + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x25, 1))) end)(function() - return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x26 ) - return M.Golden_LongStackBind_Test_discard(function() - return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x26, 1))) + return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x26 ) + return Golden_LongStackBind_Test_discard(function() + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x26, 1))) end)(function() - return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x27 ) - return M.Golden_LongStackBind_Test_discard(function( ) - return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x27, 1))) + return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x27 ) + return Golden_LongStackBind_Test_discard(function( ) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x27, 1))) end)(function() - return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x28 ) - return M.Golden_LongStackBind_Test_discard(function( ) - return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x28, 1))) + return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x28 ) + return Golden_LongStackBind_Test_discard(function( ) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x28, 1))) end)(function() - return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x29 ) - return M.Golden_LongStackBind_Test_discard(function( ) - return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x29, 1))) + return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x29 ) + return Golden_LongStackBind_Test_discard(function( ) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x29, 1))) end)(function() - return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x30 ) - return M.Golden_LongStackBind_Test_discard(function( ) - return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x30, 1))) + return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x30 ) + return Golden_LongStackBind_Test_discard(function( ) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x30, 1))) end)(function() - return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x31 ) - return M.Golden_LongStackBind_Test_discard(function( ) - return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x31, 1))) + return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x31 ) + return Golden_LongStackBind_Test_discard(function( ) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x31, 1))) end)(function() - return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x32 ) - return M.Golden_LongStackBind_Test_discard(function( ) - return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x32, 1))) + return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x32 ) + return Golden_LongStackBind_Test_discard(function( ) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x32, 1))) end)(function() - return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x33 ) - return M.Golden_LongStackBind_Test_discard(function( ) - return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x33, 1))) + return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x33 ) + return Golden_LongStackBind_Test_discard(function( ) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x33, 1))) end)(function() - return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x34 ) - return M.Golden_LongStackBind_Test_discard(function( ) - return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x34, 1))) + return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x34 ) + return Golden_LongStackBind_Test_discard(function( ) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x34, 1))) end)(function() - return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x35 ) - return M.Golden_LongStackBind_Test_discard(function( ) - return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x35, 1))) + return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x35 ) + return Golden_LongStackBind_Test_discard(function( ) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x35, 1))) end)(function() - return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x36 ) - return M.Golden_LongStackBind_Test_discard(function( ) - return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x36, 1))) + return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x36 ) + return Golden_LongStackBind_Test_discard(function( ) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x36, 1))) end)(function( ) - return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x37 ) - return M.Golden_LongStackBind_Test_discard(function( ) - return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x37, 1))) + return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x37 ) + return Golden_LongStackBind_Test_discard(function( ) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x37, 1))) end)(function( ) - return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x38 ) - return M.Golden_LongStackBind_Test_discard(function( ) - return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x38, 1))) + return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x38 ) + return Golden_LongStackBind_Test_discard(function( ) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x38, 1))) end)(function( ) - return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x39 ) - return M.Golden_LongStackBind_Test_discard(function( ) - return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x39, 1))) + return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x39 ) + return Golden_LongStackBind_Test_discard(function( ) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x39, 1))) end)(function( ) - return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x40 ) - return M.Golden_LongStackBind_Test_discard(function( ) - return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x40, 1))) + return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x40 ) + return Golden_LongStackBind_Test_discard(function( ) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x40, 1))) end)(function( ) return _S_kont1892(x1_S_1895) end) @@ -1036,85 +1041,85 @@ M.Golden_LongStackBind_Test_go = (function() end) end) end - return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x1 ) - return M.Golden_LongStackBind_Test_discard(function() - return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x1, 1))) + return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x1 ) + return Golden_LongStackBind_Test_discard(function() + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x1, 1))) end)(function() - return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x2 ) - return M.Golden_LongStackBind_Test_discard(function() - return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x2, 1))) + return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x2 ) + return Golden_LongStackBind_Test_discard(function() + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x2, 1))) end)(function() - return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x3 ) - return M.Golden_LongStackBind_Test_discard(function() - return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x3, 1))) + return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x3 ) + return Golden_LongStackBind_Test_discard(function() + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x3, 1))) end)(function() - return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x4 ) - return M.Golden_LongStackBind_Test_discard(function() - return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x4, 1))) + return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x4 ) + return Golden_LongStackBind_Test_discard(function() + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x4, 1))) end)(function() - return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x5 ) - return M.Golden_LongStackBind_Test_discard(function() - return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x5, 1))) + return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x5 ) + return Golden_LongStackBind_Test_discard(function() + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x5, 1))) end)(function() - return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x6 ) - return M.Golden_LongStackBind_Test_discard(function() - return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x6, 1))) + return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x6 ) + return Golden_LongStackBind_Test_discard(function() + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x6, 1))) end)(function() - return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x7 ) - return M.Golden_LongStackBind_Test_discard(function( ) - return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x7, 1))) + return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x7 ) + return Golden_LongStackBind_Test_discard(function() + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x7, 1))) end)(function() - return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x8 ) - return M.Golden_LongStackBind_Test_discard(function( ) - return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x8, 1))) + return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x8 ) + return Golden_LongStackBind_Test_discard(function( ) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x8, 1))) end)(function() - return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x9 ) - return M.Golden_LongStackBind_Test_discard(function( ) - return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x9, 1))) + return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x9 ) + return Golden_LongStackBind_Test_discard(function( ) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x9, 1))) end)(function() - return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x10 ) - return M.Golden_LongStackBind_Test_discard(function( ) - return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x10, 1))) + return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x10 ) + return Golden_LongStackBind_Test_discard(function( ) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x10, 1))) end)(function() - return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x11 ) - return M.Golden_LongStackBind_Test_discard(function( ) - return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x11, 1))) + return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x11 ) + return Golden_LongStackBind_Test_discard(function( ) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x11, 1))) end)(function() - return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x12 ) - return M.Golden_LongStackBind_Test_discard(function( ) - return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x12, 1))) + return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x12 ) + return Golden_LongStackBind_Test_discard(function( ) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x12, 1))) end)(function() - return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x13 ) - return M.Golden_LongStackBind_Test_discard(function( ) - return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x13, 1))) + return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x13 ) + return Golden_LongStackBind_Test_discard(function( ) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x13, 1))) end)(function() - return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x14 ) - return M.Golden_LongStackBind_Test_discard(function( ) - return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x14, 1))) + return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x14 ) + return Golden_LongStackBind_Test_discard(function( ) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x14, 1))) end)(function() - return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x15 ) - return M.Golden_LongStackBind_Test_discard(function( ) - return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x15, 1))) + return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x15 ) + return Golden_LongStackBind_Test_discard(function( ) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x15, 1))) end)(function() - return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x16 ) - return M.Golden_LongStackBind_Test_discard(function( ) - return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x16, 1))) + return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x16 ) + return Golden_LongStackBind_Test_discard(function( ) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x16, 1))) end)(function() - return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x17 ) - return M.Golden_LongStackBind_Test_discard(function( ) - return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x17, 1))) + return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x17 ) + return Golden_LongStackBind_Test_discard(function( ) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x17, 1))) end)(function( ) - return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x18 ) - return M.Golden_LongStackBind_Test_discard(function( ) - return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x18, 1))) + return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x18 ) + return Golden_LongStackBind_Test_discard(function( ) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x18, 1))) end)(function( ) - return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x19 ) - return M.Golden_LongStackBind_Test_discard(function( ) - return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x19, 1))) + return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x19 ) + return Golden_LongStackBind_Test_discard(function( ) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x19, 1))) end)(function( ) - return M.Golden_LongStackBind_Test_bind(M.Golden_LongStackBind_Test_get)(function( x20 ) - return M.Golden_LongStackBind_Test_discard(function( ) - return (M.Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStackBind_Test_add_S_w(x20, 1))) + return Golden_LongStackBind_Test_bind(Golden_LongStackBind_Test_get)(function( x20 ) + return Golden_LongStackBind_Test_discard(function( ) + return (Golden_LongStackBind_Test_monadExceptT.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStackBind_Test_add_S_w(x20, 1))) end)(function( ) return _S_kont1894(x1) end) @@ -1158,21 +1163,21 @@ M.Golden_LongStackBind_Test_go = (function() end) end) end)() -M.Golden_LongStackBind_Test_compute = M.Unsafe_Coerce_foreign.unsafeCoerce((function( ) - local v_S_575_S_603 = M.Golden_LongStackBind_Test_go(0) +local Golden_LongStackBind_Test_compute = Unsafe_Coerce_foreign.unsafeCoerce((function( ) + local v_S_575_S_603 = Golden_LongStackBind_Test_go(0) if "Data.Either∷Either.Left" == v_S_575_S_603["$ctor"] then - return M.Data_Either_Left(v_S_575_S_603.value0) + return Data_Either_Left(v_S_575_S_603.value0) elseif "Data.Either∷Either.Right" == v_S_575_S_603["$ctor"] then - return M.Data_Either_Right(v_S_575_S_603.value0.value0) + return Data_Either_Right(v_S_575_S_603.value0.value0) else return error("No patterns matched") end end)()) -return M.Effect_Console_foreign.log((function() - if "Data.Either∷Either.Left" == M.Golden_LongStackBind_Test_compute["$ctor"] then - return M.Data_Either_append_S_w("(Left ", M.Data_Either_append_S_w(M.Data_Show_foreign.showStringImpl(M.Golden_LongStackBind_Test_compute.value0), ")")) - elseif "Data.Either∷Either.Right" == M.Golden_LongStackBind_Test_compute["$ctor"] then - return M.Data_Either_append_S_w("(Right ", M.Data_Either_append_S_w(M.Data_Show_foreign.showIntImpl(M.Golden_LongStackBind_Test_compute.value0), ")")) +return Effect_Console_foreign.log((function() + if "Data.Either∷Either.Left" == Golden_LongStackBind_Test_compute["$ctor"] then + return Data_Either_append_S_w("(Left ", Data_Either_append_S_w(Data_Show_foreign.showStringImpl(Golden_LongStackBind_Test_compute.value0), ")")) + elseif "Data.Either∷Either.Right" == Golden_LongStackBind_Test_compute["$ctor"] then + return Data_Either_append_S_w("(Right ", Data_Either_append_S_w(Data_Show_foreign.showIntImpl(Golden_LongStackBind_Test_compute.value0), ")")) else return error("No patterns matched") end diff --git a/test/ps/output/Golden.LongStateBind.Test/golden.lua b/test/ps/output/Golden.LongStateBind.Test/golden.lua index 6072dbb1..1c1ca876 100644 --- a/test/ps/output/Golden.LongStateBind.Test/golden.lua +++ b/test/ps/output/Golden.LongStateBind.Test/golden.lua @@ -1,13 +1,12 @@ -local M = {} -M.Data_Unit_foreign = { unit = {} } -M.Data_Show_foreign = { showIntImpl = function(n) return tostring(n) end } -M.Effect_Console_foreign = { +local 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 } -M.Data_Tuple_Tuple = function(value0) +local Data_Tuple_Tuple = function(value0) return function(value1) return { value0 = value0, value1 = value1 } end end -M.Data_Identity_applyIdentity = { +local Data_Identity_applyIdentity = { apply = function(v) return function(v1) return v(v1) end end, Functor0 = function() return { @@ -17,11 +16,11 @@ M.Data_Identity_applyIdentity = { } end } -M.Data_Identity_monadIdentity = { +local Data_Identity_monadIdentity = { Applicative0 = function() return { pure = function(x_S_521) return x_S_521 end, - Apply0 = function() return M.Data_Identity_applyIdentity end + Apply0 = function() return Data_Identity_applyIdentity end } end, Bind1 = function() @@ -29,21 +28,24 @@ M.Data_Identity_monadIdentity = { bind = function(v_S_78) return function(f_S_79) return f_S_79(v_S_78) end end, - Apply0 = function() return M.Data_Identity_applyIdentity end + Apply0 = function() return Data_Identity_applyIdentity end } end } -M.Control_Monad_State_Trans_monadStateT = function(dictMonad) +local Control_Monad_State_Trans_bindStateT +local Control_Monad_State_Trans_applicativeStateT +local Control_Monad_State_Trans_monadStateT = function(dictMonad) return { Applicative0 = function() - return M.Control_Monad_State_Trans_applicativeStateT(dictMonad) + return Control_Monad_State_Trans_applicativeStateT(dictMonad) end, Bind1 = function() - return M.Control_Monad_State_Trans_bindStateT(dictMonad) + return Control_Monad_State_Trans_bindStateT(dictMonad) end } end -M.Control_Monad_State_Trans_bindStateT = function(dictMonad) +local Control_Monad_State_Trans_applyStateT +Control_Monad_State_Trans_bindStateT = function(dictMonad) return { bind = function(v) return function(f) @@ -55,14 +57,14 @@ M.Control_Monad_State_Trans_bindStateT = function(dictMonad) end end, Apply0 = function() - return M.Control_Monad_State_Trans_applyStateT(dictMonad) + return Control_Monad_State_Trans_applyStateT(dictMonad) end } end -M.Control_Monad_State_Trans_applyStateT = function(dictMonad) +Control_Monad_State_Trans_applyStateT = function(dictMonad) return { apply = (function() - local dictMonad_S_522 = M.Control_Monad_State_Trans_monadStateT(dictMonad) + local dictMonad_S_522 = Control_Monad_State_Trans_monadStateT(dictMonad) local bind_S_523 = (dictMonad_S_522.Bind1()).bind return function(f_S_524) return function(a_S_525) @@ -80,7 +82,7 @@ M.Control_Monad_State_Trans_applyStateT = function(dictMonad) return function(v_S_516) return function(s_S_517) return (((dictMonad.Bind1()).Apply0()).Functor0()).map(function( v1_S_518 ) - return M.Data_Tuple_Tuple(f_S_515(v1_S_518.value0))(v1_S_518.value1) + return Data_Tuple_Tuple(f_S_515(v1_S_518.value0))(v1_S_518.value1) end)(v_S_516(s_S_517)) end end @@ -89,73 +91,72 @@ M.Control_Monad_State_Trans_applyStateT = function(dictMonad) end } end -M.Control_Monad_State_Trans_applicativeStateT = function(dictMonad) +Control_Monad_State_Trans_applicativeStateT = function(dictMonad) return { pure = function(a) return function(s) - return (dictMonad.Applicative0()).pure(M.Data_Tuple_Tuple(a)(s)) + return (dictMonad.Applicative0()).pure(Data_Tuple_Tuple(a)(s)) end end, Apply0 = function() - return M.Control_Monad_State_Trans_applyStateT(dictMonad) + return Control_Monad_State_Trans_applyStateT(dictMonad) end } end -M.Golden_LongStateBind_Test_bindStateT = M.Control_Monad_State_Trans_bindStateT(M.Data_Identity_monadIdentity) -M.Golden_LongStateBind_Test_bind = M.Golden_LongStateBind_Test_bindStateT.bind -M.Golden_LongStateBind_Test_get = function(x_S_540_S_1450) - return M.Data_Tuple_Tuple(x_S_540_S_1450)(x_S_540_S_1450) +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_540_S_1450) + return Data_Tuple_Tuple(x_S_540_S_1450)(x_S_540_S_1450) end -M.Golden_LongStateBind_Test_discard = M.Golden_LongStateBind_Test_bindStateT.bind -M.Golden_LongStateBind_Test_add_S_w = function(x_S_495_S_532, y_S_496_S_533) +local Golden_LongStateBind_Test_discard = Golden_LongStateBind_Test_bindStateT.bind +local Golden_LongStateBind_Test_add_S_w = function(x_S_495_S_532, y_S_496_S_533) return x_S_495_S_532 + y_S_496_S_533 end -M.Golden_LongStateBind_Test_go = (function() +local Golden_LongStateBind_Test_go = (function() local _S_kont1460 = function(x1_S_1461) return function(x100_S_1462) - return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x141 ) - return M.Golden_LongStateBind_Test_discard(function() - return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x141, 1)) + return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x141 ) + return Golden_LongStateBind_Test_discard(function() + return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x141, 1)) end)(function() - return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x142 ) - return M.Golden_LongStateBind_Test_discard(function() - return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x142, 1)) + return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x142 ) + return Golden_LongStateBind_Test_discard(function() + return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x142, 1)) end)(function() - return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x143 ) - return M.Golden_LongStateBind_Test_discard(function() - return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x143, 1)) + return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x143 ) + return Golden_LongStateBind_Test_discard(function() + return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x143, 1)) end)(function() - return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x144 ) - return M.Golden_LongStateBind_Test_discard(function() - return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x144, 1)) + return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x144 ) + return Golden_LongStateBind_Test_discard(function() + return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x144, 1)) end)(function() - return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x145 ) - return M.Golden_LongStateBind_Test_discard(function() - return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x145, 1)) + return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x145 ) + return Golden_LongStateBind_Test_discard(function() + return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x145, 1)) end)(function() - return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x146 ) - return M.Golden_LongStateBind_Test_discard(function( ) - return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x146, 1)) + return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x146 ) + return Golden_LongStateBind_Test_discard(function() + return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x146, 1)) end)(function() - return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x147 ) - return M.Golden_LongStateBind_Test_discard(function( ) - return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x147, 1)) + return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x147 ) + return Golden_LongStateBind_Test_discard(function( ) + return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x147, 1)) end)(function() - return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x148 ) - return M.Golden_LongStateBind_Test_discard(function( ) - return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x148, 1)) + return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x148 ) + return Golden_LongStateBind_Test_discard(function( ) + return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x148, 1)) end)(function() - return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x149 ) - return M.Golden_LongStateBind_Test_discard(function( ) - return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x149, 1)) + return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x149 ) + return Golden_LongStateBind_Test_discard(function( ) + return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x149, 1)) end)(function() - return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x150 ) - return M.Golden_LongStateBind_Test_discard(function( ) - return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x150, 1)) + return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x150 ) + return Golden_LongStateBind_Test_discard(function( ) + return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x150, 1)) end)(function() - return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( final ) - local Golden_LongStateBind_Test_add_S_w = M.Golden_LongStateBind_Test_add_S_w - return (M.Control_Monad_State_Trans_applicativeStateT(M.Data_Identity_monadIdentity)).pure(Golden_LongStateBind_Test_add_S_w(Golden_LongStateBind_Test_add_S_w(x1_S_1461, x100_S_1462), final)) + return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( final ) + return (Control_Monad_State_Trans_applicativeStateT(Data_Identity_monadIdentity)).pure(Golden_LongStateBind_Test_add_S_w(Golden_LongStateBind_Test_add_S_w(x1_S_1461, x100_S_1462), final)) end) end) end) @@ -181,85 +182,85 @@ M.Golden_LongStateBind_Test_go = (function() end local _S_kont1463 = function(x1_S_1464) return function(x100_S_1465) - return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x121 ) - return M.Golden_LongStateBind_Test_discard(function() - return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x121, 1)) + return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x121 ) + return Golden_LongStateBind_Test_discard(function() + return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x121, 1)) end)(function() - return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x122 ) - return M.Golden_LongStateBind_Test_discard(function() - return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x122, 1)) + return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x122 ) + return Golden_LongStateBind_Test_discard(function() + return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x122, 1)) end)(function() - return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x123 ) - return M.Golden_LongStateBind_Test_discard(function() - return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x123, 1)) + return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x123 ) + return Golden_LongStateBind_Test_discard(function() + return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x123, 1)) end)(function() - return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x124 ) - return M.Golden_LongStateBind_Test_discard(function() - return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x124, 1)) + return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x124 ) + return Golden_LongStateBind_Test_discard(function() + return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x124, 1)) end)(function() - return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x125 ) - return M.Golden_LongStateBind_Test_discard(function() - return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x125, 1)) + return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x125 ) + return Golden_LongStateBind_Test_discard(function() + return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x125, 1)) end)(function() - return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x126 ) - return M.Golden_LongStateBind_Test_discard(function( ) - return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x126, 1)) + return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x126 ) + return Golden_LongStateBind_Test_discard(function() + return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x126, 1)) end)(function() - return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x127 ) - return M.Golden_LongStateBind_Test_discard(function( ) - return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x127, 1)) + return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x127 ) + return Golden_LongStateBind_Test_discard(function( ) + return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x127, 1)) end)(function() - return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x128 ) - return M.Golden_LongStateBind_Test_discard(function( ) - return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x128, 1)) + return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x128 ) + return Golden_LongStateBind_Test_discard(function( ) + return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x128, 1)) end)(function() - return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x129 ) - return M.Golden_LongStateBind_Test_discard(function( ) - return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x129, 1)) + return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x129 ) + return Golden_LongStateBind_Test_discard(function( ) + return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x129, 1)) end)(function() - return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x130 ) - return M.Golden_LongStateBind_Test_discard(function( ) - return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x130, 1)) + return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x130 ) + return Golden_LongStateBind_Test_discard(function( ) + return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x130, 1)) end)(function() - return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x131 ) - return M.Golden_LongStateBind_Test_discard(function( ) - return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x131, 1)) + return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x131 ) + return Golden_LongStateBind_Test_discard(function( ) + return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x131, 1)) end)(function() - return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x132 ) - return M.Golden_LongStateBind_Test_discard(function( ) - return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x132, 1)) + return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x132 ) + return Golden_LongStateBind_Test_discard(function( ) + return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x132, 1)) end)(function() - return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x133 ) - return M.Golden_LongStateBind_Test_discard(function( ) - return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x133, 1)) + return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x133 ) + return Golden_LongStateBind_Test_discard(function( ) + return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x133, 1)) end)(function() - return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x134 ) - return M.Golden_LongStateBind_Test_discard(function( ) - return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x134, 1)) + return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x134 ) + return Golden_LongStateBind_Test_discard(function( ) + return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x134, 1)) end)(function() - return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x135 ) - return M.Golden_LongStateBind_Test_discard(function( ) - return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x135, 1)) + return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x135 ) + return Golden_LongStateBind_Test_discard(function( ) + return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x135, 1)) end)(function() - return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x136 ) - return M.Golden_LongStateBind_Test_discard(function( ) - return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x136, 1)) + return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x136 ) + return Golden_LongStateBind_Test_discard(function( ) + return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x136, 1)) end)(function( ) - return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x137 ) - return M.Golden_LongStateBind_Test_discard(function( ) - return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x137, 1)) + return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x137 ) + return Golden_LongStateBind_Test_discard(function( ) + return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x137, 1)) end)(function( ) - return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x138 ) - return M.Golden_LongStateBind_Test_discard(function( ) - return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x138, 1)) + return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x138 ) + return Golden_LongStateBind_Test_discard(function( ) + return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x138, 1)) end)(function( ) - return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x139 ) - return M.Golden_LongStateBind_Test_discard(function( ) - return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x139, 1)) + return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x139 ) + return Golden_LongStateBind_Test_discard(function( ) + return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x139, 1)) end)(function( ) - return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x140 ) - return M.Golden_LongStateBind_Test_discard(function( ) - return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x140, 1)) + return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x140 ) + return Golden_LongStateBind_Test_discard(function( ) + return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x140, 1)) end)(function( ) return _S_kont1460(x1_S_1464)(x100_S_1465) end) @@ -306,85 +307,85 @@ M.Golden_LongStateBind_Test_go = (function() end local _S_kont1466 = function(x1_S_1467) return function(x100_S_1468) - return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x101 ) - return M.Golden_LongStateBind_Test_discard(function() - return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x101, 1)) + return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x101 ) + return Golden_LongStateBind_Test_discard(function() + return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x101, 1)) end)(function() - return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x102 ) - return M.Golden_LongStateBind_Test_discard(function() - return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x102, 1)) + return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x102 ) + return Golden_LongStateBind_Test_discard(function() + return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x102, 1)) end)(function() - return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x103 ) - return M.Golden_LongStateBind_Test_discard(function() - return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x103, 1)) + return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x103 ) + return Golden_LongStateBind_Test_discard(function() + return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x103, 1)) end)(function() - return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x104 ) - return M.Golden_LongStateBind_Test_discard(function() - return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x104, 1)) + return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x104 ) + return Golden_LongStateBind_Test_discard(function() + return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x104, 1)) end)(function() - return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x105 ) - return M.Golden_LongStateBind_Test_discard(function() - return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x105, 1)) + return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x105 ) + return Golden_LongStateBind_Test_discard(function() + return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x105, 1)) end)(function() - return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x106 ) - return M.Golden_LongStateBind_Test_discard(function( ) - return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x106, 1)) + return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x106 ) + return Golden_LongStateBind_Test_discard(function() + return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x106, 1)) end)(function() - return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x107 ) - return M.Golden_LongStateBind_Test_discard(function( ) - return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x107, 1)) + return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x107 ) + return Golden_LongStateBind_Test_discard(function( ) + return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x107, 1)) end)(function() - return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x108 ) - return M.Golden_LongStateBind_Test_discard(function( ) - return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x108, 1)) + return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x108 ) + return Golden_LongStateBind_Test_discard(function( ) + return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x108, 1)) end)(function() - return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x109 ) - return M.Golden_LongStateBind_Test_discard(function( ) - return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x109, 1)) + return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x109 ) + return Golden_LongStateBind_Test_discard(function( ) + return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x109, 1)) end)(function() - return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x110 ) - return M.Golden_LongStateBind_Test_discard(function( ) - return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x110, 1)) + return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x110 ) + return Golden_LongStateBind_Test_discard(function( ) + return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x110, 1)) end)(function() - return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x111 ) - return M.Golden_LongStateBind_Test_discard(function( ) - return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x111, 1)) + return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x111 ) + return Golden_LongStateBind_Test_discard(function( ) + return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x111, 1)) end)(function() - return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x112 ) - return M.Golden_LongStateBind_Test_discard(function( ) - return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x112, 1)) + return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x112 ) + return Golden_LongStateBind_Test_discard(function( ) + return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x112, 1)) end)(function() - return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x113 ) - return M.Golden_LongStateBind_Test_discard(function( ) - return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x113, 1)) + return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x113 ) + return Golden_LongStateBind_Test_discard(function( ) + return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x113, 1)) end)(function() - return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x114 ) - return M.Golden_LongStateBind_Test_discard(function( ) - return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x114, 1)) + return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x114 ) + return Golden_LongStateBind_Test_discard(function( ) + return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x114, 1)) end)(function() - return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x115 ) - return M.Golden_LongStateBind_Test_discard(function( ) - return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x115, 1)) + return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x115 ) + return Golden_LongStateBind_Test_discard(function( ) + return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x115, 1)) end)(function() - return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x116 ) - return M.Golden_LongStateBind_Test_discard(function( ) - return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x116, 1)) + return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x116 ) + return Golden_LongStateBind_Test_discard(function( ) + return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x116, 1)) end)(function( ) - return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x117 ) - return M.Golden_LongStateBind_Test_discard(function( ) - return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x117, 1)) + return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x117 ) + return Golden_LongStateBind_Test_discard(function( ) + return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x117, 1)) end)(function( ) - return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x118 ) - return M.Golden_LongStateBind_Test_discard(function( ) - return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x118, 1)) + return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x118 ) + return Golden_LongStateBind_Test_discard(function( ) + return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x118, 1)) end)(function( ) - return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x119 ) - return M.Golden_LongStateBind_Test_discard(function( ) - return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x119, 1)) + return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x119 ) + return Golden_LongStateBind_Test_discard(function( ) + return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x119, 1)) end)(function( ) - return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x120 ) - return M.Golden_LongStateBind_Test_discard(function( ) - return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x120, 1)) + return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x120 ) + return Golden_LongStateBind_Test_discard(function( ) + return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x120, 1)) end)(function( ) return _S_kont1463(x1_S_1467)(x100_S_1468) end) @@ -430,85 +431,85 @@ M.Golden_LongStateBind_Test_go = (function() end end local _S_kont1469 = function(x1_S_1470) - return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x81 ) - return M.Golden_LongStateBind_Test_discard(function() - return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x81, 1)) + return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x81 ) + return Golden_LongStateBind_Test_discard(function() + return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x81, 1)) end)(function() - return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x82 ) - return M.Golden_LongStateBind_Test_discard(function() - return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x82, 1)) + return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x82 ) + return Golden_LongStateBind_Test_discard(function() + return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x82, 1)) end)(function() - return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x83 ) - return M.Golden_LongStateBind_Test_discard(function() - return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x83, 1)) + return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x83 ) + return Golden_LongStateBind_Test_discard(function() + return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x83, 1)) end)(function() - return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x84 ) - return M.Golden_LongStateBind_Test_discard(function() - return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x84, 1)) + return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x84 ) + return Golden_LongStateBind_Test_discard(function() + return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x84, 1)) end)(function() - return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x85 ) - return M.Golden_LongStateBind_Test_discard(function() - return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x85, 1)) + return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x85 ) + return Golden_LongStateBind_Test_discard(function() + return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x85, 1)) end)(function() - return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x86 ) - return M.Golden_LongStateBind_Test_discard(function() - return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x86, 1)) + return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x86 ) + return Golden_LongStateBind_Test_discard(function() + return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x86, 1)) end)(function() - return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x87 ) - return M.Golden_LongStateBind_Test_discard(function( ) - return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x87, 1)) + return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x87 ) + return Golden_LongStateBind_Test_discard(function( ) + return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x87, 1)) end)(function() - return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x88 ) - return M.Golden_LongStateBind_Test_discard(function( ) - return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x88, 1)) + return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x88 ) + return Golden_LongStateBind_Test_discard(function( ) + return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x88, 1)) end)(function() - return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x89 ) - return M.Golden_LongStateBind_Test_discard(function( ) - return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x89, 1)) + return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x89 ) + return Golden_LongStateBind_Test_discard(function( ) + return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x89, 1)) end)(function() - return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x90 ) - return M.Golden_LongStateBind_Test_discard(function( ) - return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x90, 1)) + return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x90 ) + return Golden_LongStateBind_Test_discard(function( ) + return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x90, 1)) end)(function() - return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x91 ) - return M.Golden_LongStateBind_Test_discard(function( ) - return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x91, 1)) + return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x91 ) + return Golden_LongStateBind_Test_discard(function( ) + return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x91, 1)) end)(function() - return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x92 ) - return M.Golden_LongStateBind_Test_discard(function( ) - return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x92, 1)) + return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x92 ) + return Golden_LongStateBind_Test_discard(function( ) + return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x92, 1)) end)(function() - return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x93 ) - return M.Golden_LongStateBind_Test_discard(function( ) - return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x93, 1)) + return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x93 ) + return Golden_LongStateBind_Test_discard(function( ) + return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x93, 1)) end)(function() - return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x94 ) - return M.Golden_LongStateBind_Test_discard(function( ) - return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x94, 1)) + return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x94 ) + return Golden_LongStateBind_Test_discard(function( ) + return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x94, 1)) end)(function() - return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x95 ) - return M.Golden_LongStateBind_Test_discard(function( ) - return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x95, 1)) + return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x95 ) + return Golden_LongStateBind_Test_discard(function( ) + return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x95, 1)) end)(function() - return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x96 ) - return M.Golden_LongStateBind_Test_discard(function( ) - return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x96, 1)) + return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x96 ) + return Golden_LongStateBind_Test_discard(function( ) + return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x96, 1)) end)(function( ) - return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x97 ) - return M.Golden_LongStateBind_Test_discard(function( ) - return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x97, 1)) + return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x97 ) + return Golden_LongStateBind_Test_discard(function( ) + return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x97, 1)) end)(function( ) - return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x98 ) - return M.Golden_LongStateBind_Test_discard(function( ) - return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x98, 1)) + return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x98 ) + return Golden_LongStateBind_Test_discard(function( ) + return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x98, 1)) end)(function( ) - return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x99 ) - return M.Golden_LongStateBind_Test_discard(function( ) - return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x99, 1)) + return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x99 ) + return Golden_LongStateBind_Test_discard(function( ) + return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x99, 1)) end)(function( ) - return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x100 ) - return M.Golden_LongStateBind_Test_discard(function( ) - return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x100, 1)) + return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x100 ) + return Golden_LongStateBind_Test_discard(function( ) + return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x100, 1)) end)(function( ) return _S_kont1466(x1_S_1470)(x100) end) @@ -553,85 +554,85 @@ M.Golden_LongStateBind_Test_go = (function() end) end local _S_kont1471 = function(x1_S_1472) - return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x61 ) - return M.Golden_LongStateBind_Test_discard(function() - return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x61, 1)) + return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x61 ) + return Golden_LongStateBind_Test_discard(function() + return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x61, 1)) end)(function() - return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x62 ) - return M.Golden_LongStateBind_Test_discard(function() - return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x62, 1)) + return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x62 ) + return Golden_LongStateBind_Test_discard(function() + return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x62, 1)) end)(function() - return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x63 ) - return M.Golden_LongStateBind_Test_discard(function() - return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x63, 1)) + return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x63 ) + return Golden_LongStateBind_Test_discard(function() + return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x63, 1)) end)(function() - return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x64 ) - return M.Golden_LongStateBind_Test_discard(function() - return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x64, 1)) + return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x64 ) + return Golden_LongStateBind_Test_discard(function() + return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x64, 1)) end)(function() - return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x65 ) - return M.Golden_LongStateBind_Test_discard(function() - return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x65, 1)) + return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x65 ) + return Golden_LongStateBind_Test_discard(function() + return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x65, 1)) end)(function() - return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x66 ) - return M.Golden_LongStateBind_Test_discard(function() - return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x66, 1)) + return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x66 ) + return Golden_LongStateBind_Test_discard(function() + return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x66, 1)) end)(function() - return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x67 ) - return M.Golden_LongStateBind_Test_discard(function( ) - return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x67, 1)) + return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x67 ) + return Golden_LongStateBind_Test_discard(function( ) + return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x67, 1)) end)(function() - return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x68 ) - return M.Golden_LongStateBind_Test_discard(function( ) - return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x68, 1)) + return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x68 ) + return Golden_LongStateBind_Test_discard(function( ) + return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x68, 1)) end)(function() - return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x69 ) - return M.Golden_LongStateBind_Test_discard(function( ) - return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x69, 1)) + return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x69 ) + return Golden_LongStateBind_Test_discard(function( ) + return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x69, 1)) end)(function() - return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x70 ) - return M.Golden_LongStateBind_Test_discard(function( ) - return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x70, 1)) + return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x70 ) + return Golden_LongStateBind_Test_discard(function( ) + return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x70, 1)) end)(function() - return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x71 ) - return M.Golden_LongStateBind_Test_discard(function( ) - return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x71, 1)) + return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x71 ) + return Golden_LongStateBind_Test_discard(function( ) + return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x71, 1)) end)(function() - return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x72 ) - return M.Golden_LongStateBind_Test_discard(function( ) - return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x72, 1)) + return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x72 ) + return Golden_LongStateBind_Test_discard(function( ) + return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x72, 1)) end)(function() - return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x73 ) - return M.Golden_LongStateBind_Test_discard(function( ) - return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x73, 1)) + return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x73 ) + return Golden_LongStateBind_Test_discard(function( ) + return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x73, 1)) end)(function() - return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x74 ) - return M.Golden_LongStateBind_Test_discard(function( ) - return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x74, 1)) + return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x74 ) + return Golden_LongStateBind_Test_discard(function( ) + return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x74, 1)) end)(function() - return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x75 ) - return M.Golden_LongStateBind_Test_discard(function( ) - return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x75, 1)) + return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x75 ) + return Golden_LongStateBind_Test_discard(function( ) + return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x75, 1)) end)(function() - return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x76 ) - return M.Golden_LongStateBind_Test_discard(function( ) - return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x76, 1)) + return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x76 ) + return Golden_LongStateBind_Test_discard(function( ) + return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x76, 1)) end)(function( ) - return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x77 ) - return M.Golden_LongStateBind_Test_discard(function( ) - return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x77, 1)) + return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x77 ) + return Golden_LongStateBind_Test_discard(function( ) + return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x77, 1)) end)(function( ) - return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x78 ) - return M.Golden_LongStateBind_Test_discard(function( ) - return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x78, 1)) + return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x78 ) + return Golden_LongStateBind_Test_discard(function( ) + return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x78, 1)) end)(function( ) - return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x79 ) - return M.Golden_LongStateBind_Test_discard(function( ) - return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x79, 1)) + return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x79 ) + return Golden_LongStateBind_Test_discard(function( ) + return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x79, 1)) end)(function( ) - return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x80 ) - return M.Golden_LongStateBind_Test_discard(function( ) - return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x80, 1)) + return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x80 ) + return Golden_LongStateBind_Test_discard(function( ) + return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x80, 1)) end)(function( ) return _S_kont1469(x1_S_1472) end) @@ -676,85 +677,85 @@ M.Golden_LongStateBind_Test_go = (function() end) end local _S_kont1473 = function(x1_S_1474) - return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x41 ) - return M.Golden_LongStateBind_Test_discard(function() - return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x41, 1)) + return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x41 ) + return Golden_LongStateBind_Test_discard(function() + return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x41, 1)) end)(function() - return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x42 ) - return M.Golden_LongStateBind_Test_discard(function() - return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x42, 1)) + return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x42 ) + return Golden_LongStateBind_Test_discard(function() + return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x42, 1)) end)(function() - return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x43 ) - return M.Golden_LongStateBind_Test_discard(function() - return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x43, 1)) + return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x43 ) + return Golden_LongStateBind_Test_discard(function() + return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x43, 1)) end)(function() - return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x44 ) - return M.Golden_LongStateBind_Test_discard(function() - return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x44, 1)) + return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x44 ) + return Golden_LongStateBind_Test_discard(function() + return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x44, 1)) end)(function() - return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x45 ) - return M.Golden_LongStateBind_Test_discard(function() - return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x45, 1)) + return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x45 ) + return Golden_LongStateBind_Test_discard(function() + return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x45, 1)) end)(function() - return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x46 ) - return M.Golden_LongStateBind_Test_discard(function() - return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x46, 1)) + return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x46 ) + return Golden_LongStateBind_Test_discard(function() + return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x46, 1)) end)(function() - return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x47 ) - return M.Golden_LongStateBind_Test_discard(function( ) - return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x47, 1)) + return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x47 ) + return Golden_LongStateBind_Test_discard(function( ) + return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x47, 1)) end)(function() - return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x48 ) - return M.Golden_LongStateBind_Test_discard(function( ) - return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x48, 1)) + return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x48 ) + return Golden_LongStateBind_Test_discard(function( ) + return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x48, 1)) end)(function() - return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x49 ) - return M.Golden_LongStateBind_Test_discard(function( ) - return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x49, 1)) + return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x49 ) + return Golden_LongStateBind_Test_discard(function( ) + return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x49, 1)) end)(function() - return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x50 ) - return M.Golden_LongStateBind_Test_discard(function( ) - return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x50, 1)) + return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x50 ) + return Golden_LongStateBind_Test_discard(function( ) + return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x50, 1)) end)(function() - return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x51 ) - return M.Golden_LongStateBind_Test_discard(function( ) - return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x51, 1)) + return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x51 ) + return Golden_LongStateBind_Test_discard(function( ) + return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x51, 1)) end)(function() - return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x52 ) - return M.Golden_LongStateBind_Test_discard(function( ) - return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x52, 1)) + return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x52 ) + return Golden_LongStateBind_Test_discard(function( ) + return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x52, 1)) end)(function() - return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x53 ) - return M.Golden_LongStateBind_Test_discard(function( ) - return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x53, 1)) + return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x53 ) + return Golden_LongStateBind_Test_discard(function( ) + return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x53, 1)) end)(function() - return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x54 ) - return M.Golden_LongStateBind_Test_discard(function( ) - return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x54, 1)) + return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x54 ) + return Golden_LongStateBind_Test_discard(function( ) + return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x54, 1)) end)(function() - return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x55 ) - return M.Golden_LongStateBind_Test_discard(function( ) - return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x55, 1)) + return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x55 ) + return Golden_LongStateBind_Test_discard(function( ) + return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x55, 1)) end)(function() - return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x56 ) - return M.Golden_LongStateBind_Test_discard(function( ) - return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x56, 1)) + return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x56 ) + return Golden_LongStateBind_Test_discard(function( ) + return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x56, 1)) end)(function( ) - return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x57 ) - return M.Golden_LongStateBind_Test_discard(function( ) - return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x57, 1)) + return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x57 ) + return Golden_LongStateBind_Test_discard(function( ) + return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x57, 1)) end)(function( ) - return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x58 ) - return M.Golden_LongStateBind_Test_discard(function( ) - return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x58, 1)) + return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x58 ) + return Golden_LongStateBind_Test_discard(function( ) + return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x58, 1)) end)(function( ) - return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x59 ) - return M.Golden_LongStateBind_Test_discard(function( ) - return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x59, 1)) + return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x59 ) + return Golden_LongStateBind_Test_discard(function( ) + return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x59, 1)) end)(function( ) - return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x60 ) - return M.Golden_LongStateBind_Test_discard(function( ) - return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x60, 1)) + return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x60 ) + return Golden_LongStateBind_Test_discard(function( ) + return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x60, 1)) end)(function( ) return _S_kont1471(x1_S_1474) end) @@ -799,85 +800,85 @@ M.Golden_LongStateBind_Test_go = (function() end) end local _S_kont1475 = function(x1_S_1476) - return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x21 ) - return M.Golden_LongStateBind_Test_discard(function() - return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x21, 1)) + return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x21 ) + return Golden_LongStateBind_Test_discard(function() + return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x21, 1)) end)(function() - return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x22 ) - return M.Golden_LongStateBind_Test_discard(function() - return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x22, 1)) + return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x22 ) + return Golden_LongStateBind_Test_discard(function() + return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x22, 1)) end)(function() - return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x23 ) - return M.Golden_LongStateBind_Test_discard(function() - return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x23, 1)) + return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x23 ) + return Golden_LongStateBind_Test_discard(function() + return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x23, 1)) end)(function() - return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x24 ) - return M.Golden_LongStateBind_Test_discard(function() - return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x24, 1)) + return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x24 ) + return Golden_LongStateBind_Test_discard(function() + return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x24, 1)) end)(function() - return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x25 ) - return M.Golden_LongStateBind_Test_discard(function() - return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x25, 1)) + return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x25 ) + return Golden_LongStateBind_Test_discard(function() + return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x25, 1)) end)(function() - return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x26 ) - return M.Golden_LongStateBind_Test_discard(function() - return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x26, 1)) + return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x26 ) + return Golden_LongStateBind_Test_discard(function() + return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x26, 1)) end)(function() - return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x27 ) - return M.Golden_LongStateBind_Test_discard(function( ) - return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x27, 1)) + return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x27 ) + return Golden_LongStateBind_Test_discard(function( ) + return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x27, 1)) end)(function() - return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x28 ) - return M.Golden_LongStateBind_Test_discard(function( ) - return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x28, 1)) + return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x28 ) + return Golden_LongStateBind_Test_discard(function( ) + return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x28, 1)) end)(function() - return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x29 ) - return M.Golden_LongStateBind_Test_discard(function( ) - return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x29, 1)) + return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x29 ) + return Golden_LongStateBind_Test_discard(function( ) + return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x29, 1)) end)(function() - return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x30 ) - return M.Golden_LongStateBind_Test_discard(function( ) - return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x30, 1)) + return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x30 ) + return Golden_LongStateBind_Test_discard(function( ) + return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x30, 1)) end)(function() - return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x31 ) - return M.Golden_LongStateBind_Test_discard(function( ) - return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x31, 1)) + return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x31 ) + return Golden_LongStateBind_Test_discard(function( ) + return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x31, 1)) end)(function() - return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x32 ) - return M.Golden_LongStateBind_Test_discard(function( ) - return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x32, 1)) + return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x32 ) + return Golden_LongStateBind_Test_discard(function( ) + return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x32, 1)) end)(function() - return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x33 ) - return M.Golden_LongStateBind_Test_discard(function( ) - return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x33, 1)) + return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x33 ) + return Golden_LongStateBind_Test_discard(function( ) + return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x33, 1)) end)(function() - return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x34 ) - return M.Golden_LongStateBind_Test_discard(function( ) - return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x34, 1)) + return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x34 ) + return Golden_LongStateBind_Test_discard(function( ) + return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x34, 1)) end)(function() - return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x35 ) - return M.Golden_LongStateBind_Test_discard(function( ) - return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x35, 1)) + return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x35 ) + return Golden_LongStateBind_Test_discard(function( ) + return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x35, 1)) end)(function() - return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x36 ) - return M.Golden_LongStateBind_Test_discard(function( ) - return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x36, 1)) + return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x36 ) + return Golden_LongStateBind_Test_discard(function( ) + return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x36, 1)) end)(function( ) - return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x37 ) - return M.Golden_LongStateBind_Test_discard(function( ) - return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x37, 1)) + return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x37 ) + return Golden_LongStateBind_Test_discard(function( ) + return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x37, 1)) end)(function( ) - return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x38 ) - return M.Golden_LongStateBind_Test_discard(function( ) - return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x38, 1)) + return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x38 ) + return Golden_LongStateBind_Test_discard(function( ) + return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x38, 1)) end)(function( ) - return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x39 ) - return M.Golden_LongStateBind_Test_discard(function( ) - return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x39, 1)) + return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x39 ) + return Golden_LongStateBind_Test_discard(function( ) + return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x39, 1)) end)(function( ) - return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x40 ) - return M.Golden_LongStateBind_Test_discard(function( ) - return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x40, 1)) + return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x40 ) + return Golden_LongStateBind_Test_discard(function( ) + return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x40, 1)) end)(function( ) return _S_kont1473(x1_S_1476) end) @@ -921,85 +922,85 @@ M.Golden_LongStateBind_Test_go = (function() end) end) end - return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x1 ) - return M.Golden_LongStateBind_Test_discard(function() - return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x1, 1)) + return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x1 ) + return Golden_LongStateBind_Test_discard(function() + return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x1, 1)) end)(function() - return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x2 ) - return M.Golden_LongStateBind_Test_discard(function() - return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x2, 1)) + return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x2 ) + return Golden_LongStateBind_Test_discard(function() + return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x2, 1)) end)(function() - return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x3 ) - return M.Golden_LongStateBind_Test_discard(function() - return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x3, 1)) + return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x3 ) + return Golden_LongStateBind_Test_discard(function() + return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x3, 1)) end)(function() - return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x4 ) - return M.Golden_LongStateBind_Test_discard(function() - return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x4, 1)) + return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x4 ) + return Golden_LongStateBind_Test_discard(function() + return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x4, 1)) end)(function() - return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x5 ) - return M.Golden_LongStateBind_Test_discard(function() - return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x5, 1)) + return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x5 ) + return Golden_LongStateBind_Test_discard(function() + return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x5, 1)) end)(function() - return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x6 ) - return M.Golden_LongStateBind_Test_discard(function() - return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x6, 1)) + return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x6 ) + return Golden_LongStateBind_Test_discard(function() + return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x6, 1)) end)(function() - return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x7 ) - return M.Golden_LongStateBind_Test_discard(function( ) - return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x7, 1)) + return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x7 ) + return Golden_LongStateBind_Test_discard(function() + return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x7, 1)) end)(function() - return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x8 ) - return M.Golden_LongStateBind_Test_discard(function( ) - return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x8, 1)) + return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x8 ) + return Golden_LongStateBind_Test_discard(function( ) + return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x8, 1)) end)(function() - return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x9 ) - return M.Golden_LongStateBind_Test_discard(function( ) - return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x9, 1)) + return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x9 ) + return Golden_LongStateBind_Test_discard(function( ) + return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x9, 1)) end)(function() - return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x10 ) - return M.Golden_LongStateBind_Test_discard(function( ) - return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x10, 1)) + return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x10 ) + return Golden_LongStateBind_Test_discard(function( ) + return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x10, 1)) end)(function() - return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x11 ) - return M.Golden_LongStateBind_Test_discard(function( ) - return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x11, 1)) + return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x11 ) + return Golden_LongStateBind_Test_discard(function( ) + return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x11, 1)) end)(function() - return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x12 ) - return M.Golden_LongStateBind_Test_discard(function( ) - return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x12, 1)) + return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x12 ) + return Golden_LongStateBind_Test_discard(function( ) + return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x12, 1)) end)(function() - return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x13 ) - return M.Golden_LongStateBind_Test_discard(function( ) - return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x13, 1)) + return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x13 ) + return Golden_LongStateBind_Test_discard(function( ) + return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x13, 1)) end)(function() - return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x14 ) - return M.Golden_LongStateBind_Test_discard(function( ) - return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x14, 1)) + return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x14 ) + return Golden_LongStateBind_Test_discard(function( ) + return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x14, 1)) end)(function() - return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x15 ) - return M.Golden_LongStateBind_Test_discard(function( ) - return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x15, 1)) + return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x15 ) + return Golden_LongStateBind_Test_discard(function( ) + return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x15, 1)) end)(function() - return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x16 ) - return M.Golden_LongStateBind_Test_discard(function( ) - return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x16, 1)) + return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x16 ) + return Golden_LongStateBind_Test_discard(function( ) + return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x16, 1)) end)(function() - return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x17 ) - return M.Golden_LongStateBind_Test_discard(function( ) - return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x17, 1)) + return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x17 ) + return Golden_LongStateBind_Test_discard(function( ) + return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x17, 1)) end)(function( ) - return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x18 ) - return M.Golden_LongStateBind_Test_discard(function( ) - return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x18, 1)) + return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x18 ) + return Golden_LongStateBind_Test_discard(function( ) + return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x18, 1)) end)(function( ) - return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x19 ) - return M.Golden_LongStateBind_Test_discard(function( ) - return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x19, 1)) + return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x19 ) + return Golden_LongStateBind_Test_discard(function( ) + return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x19, 1)) end)(function( ) - return M.Golden_LongStateBind_Test_bind(M.Golden_LongStateBind_Test_get)(function( x20 ) - return M.Golden_LongStateBind_Test_discard(function( ) - return M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(M.Golden_LongStateBind_Test_add_S_w(x20, 1)) + return Golden_LongStateBind_Test_bind(Golden_LongStateBind_Test_get)(function( x20 ) + return Golden_LongStateBind_Test_discard(function( ) + return Data_Tuple_Tuple(Data_Unit_foreign.unit)(Golden_LongStateBind_Test_add_S_w(x20, 1)) end)(function( ) return _S_kont1475(x1) end) @@ -1043,5 +1044,5 @@ M.Golden_LongStateBind_Test_go = (function() end) end) end)() -M.Golden_LongStateBind_Test_compute = (M.Golden_LongStateBind_Test_go(0)).value0 -return M.Effect_Console_foreign.log(M.Data_Show_foreign.showIntImpl(M.Golden_LongStateBind_Test_compute))() +local Golden_LongStateBind_Test_compute = (Golden_LongStateBind_Test_go(0)).value0 +return Effect_Console_foreign.log(Data_Show_foreign.showIntImpl(Golden_LongStateBind_Test_compute))() diff --git a/test/ps/output/Golden.LongWriterBind.Test/golden.lua b/test/ps/output/Golden.LongWriterBind.Test/golden.lua index 739550e3..56d5f5ce 100644 --- a/test/ps/output/Golden.LongWriterBind.Test/golden.lua +++ b/test/ps/output/Golden.LongWriterBind.Test/golden.lua @@ -1,6 +1,5 @@ -local M = {} -M.Data_Unit_foreign = { unit = {} } -M.Data_Semigroup_foreign = { +local Data_Unit_foreign = { unit = {} } +local Data_Semigroup_foreign = { concatArray = function(xs) return function(ys) if #(xs) == 0 then return ys end @@ -13,22 +12,22 @@ M.Data_Semigroup_foreign = { end end } -M.Data_Show_foreign = { showIntImpl = function(n) return tostring(n) end } -M.Unsafe_Coerce_foreign = { unsafeCoerce = function(x) return x end } -M.Effect_Console_foreign = { +local Data_Show_foreign = { showIntImpl = function(n) return tostring(n) end } +local Unsafe_Coerce_foreign = { unsafeCoerce = function(x) return x end } +local Effect_Console_foreign = { log = function(s) return function() print(s) end end } -M.Data_Semigroup_semigroupArray = { - append = M.Data_Semigroup_foreign.concatArray +local Data_Semigroup_semigroupArray = { + append = Data_Semigroup_foreign.concatArray } -M.Data_Monoid_monoidArray = { +local Data_Monoid_monoidArray = { mempty = {}, - Semigroup0 = function() return M.Data_Semigroup_semigroupArray end + Semigroup0 = function() return Data_Semigroup_semigroupArray end } -M.Data_Tuple_Tuple = function(value0) +local Data_Tuple_Tuple = function(value0) return function(value1) return { value0 = value0, value1 = value1 } end end -M.Data_Identity_applyIdentity = { +local Data_Identity_applyIdentity = { apply = function(v) return function(v1) return v(v1) end end, Functor0 = function() return { @@ -38,15 +37,15 @@ M.Data_Identity_applyIdentity = { } end } -M.Data_Identity_bindIdentity = { +local Data_Identity_bindIdentity = { bind = function(v) return function(f) return f(v) end end, - Apply0 = function() return M.Data_Identity_applyIdentity end + Apply0 = function() return Data_Identity_applyIdentity end } -M.Data_Identity_applicativeIdentity = { +local Data_Identity_applicativeIdentity = { pure = function(x_S_503) return x_S_503 end, - Apply0 = function() return M.Data_Identity_applyIdentity end + Apply0 = function() return Data_Identity_applyIdentity end } -M.Control_Monad_Writer_Trans_applyWriterT_S_w = function( dictSemigroup +local Control_Monad_Writer_Trans_applyWriterT_S_w = function( dictSemigroup , dictApply ) local Functor0 = dictApply.Functor0() return { @@ -54,7 +53,7 @@ M.Control_Monad_Writer_Trans_applyWriterT_S_w = function( dictSemigroup return function(v1) return dictApply.apply(Functor0.map(function(v3_S_33) return function(v4_S_34) - return M.Data_Tuple_Tuple(v3_S_33.value0(v4_S_34.value0))(dictSemigroup.append(v3_S_33.value1)(v4_S_34.value1)) + return Data_Tuple_Tuple(v3_S_33.value0(v4_S_34.value0))(dictSemigroup.append(v3_S_33.value1)(v4_S_34.value1)) end end)(v))(v1) end @@ -64,7 +63,7 @@ M.Control_Monad_Writer_Trans_applyWriterT_S_w = function( dictSemigroup map = function(f_S_496) return function(v_S_499) return Functor0.map(function(v_S_497) - return M.Data_Tuple_Tuple(f_S_496(v_S_497.value0))(v_S_497.value1) + return Data_Tuple_Tuple(f_S_496(v_S_497.value0))(v_S_497.value1) end)(v_S_499) end end @@ -72,167 +71,167 @@ M.Control_Monad_Writer_Trans_applyWriterT_S_w = function( dictSemigroup end } end -M.Control_Monad_Writer_Trans_bindWriterT_S_w = function(dictSemigroup, dictBind) +local Control_Monad_Writer_Trans_bindWriterT_S_w = function( dictSemigroup +, dictBind ) local Apply0 = dictBind.Apply0() return { bind = function(v) return function(k) return dictBind.bind(v)(function(v1) return (Apply0.Functor0()).map(function(v3) - return M.Data_Tuple_Tuple(v3.value0)(dictSemigroup.append(v1.value1)(v3.value1)) + return Data_Tuple_Tuple(v3.value0)(dictSemigroup.append(v1.value1)(v3.value1)) end)(k(v1.value0)) end) end end, Apply0 = function() - return M.Control_Monad_Writer_Trans_applyWriterT_S_w(dictSemigroup, Apply0) + return Control_Monad_Writer_Trans_applyWriterT_S_w(dictSemigroup, Apply0) end } end -M.Control_Monad_Writer_Trans_applicativeWriterT_S_w = function( dictMonoid +local Control_Monad_Writer_Trans_applicativeWriterT_S_w = function( dictMonoid , dictApplicative ) return { pure = function(a) - return dictApplicative.pure(M.Data_Tuple_Tuple(a)(dictMonoid.mempty)) + return dictApplicative.pure(Data_Tuple_Tuple(a)(dictMonoid.mempty)) end, Apply0 = function() - return M.Control_Monad_Writer_Trans_applyWriterT_S_w(dictMonoid.Semigroup0(), dictApplicative.Apply0()) + return Control_Monad_Writer_Trans_applyWriterT_S_w(dictMonoid.Semigroup0(), dictApplicative.Apply0()) end } end -M.Golden_LongWriterBind_Test_discard = (M.Control_Monad_Writer_Trans_bindWriterT_S_w(M.Data_Semigroup_semigroupArray, M.Data_Identity_bindIdentity)).bind -M.Golden_LongWriterBind_Test_tell = (function() +local Golden_LongWriterBind_Test_discard = (Control_Monad_Writer_Trans_bindWriterT_S_w(Data_Semigroup_semigroupArray, Data_Identity_bindIdentity)).bind +local Golden_LongWriterBind_Test_tell = (function() local dictMonad_S_511 = { - Applicative0 = function() return M.Data_Identity_applicativeIdentity end, - Bind1 = function() return M.Data_Identity_bindIdentity end + Applicative0 = function() return Data_Identity_applicativeIdentity end, + Bind1 = function() return Data_Identity_bindIdentity end } return function(x_S_532_S_535) - return (dictMonad_S_511.Applicative0()).pure(M.Data_Tuple_Tuple(M.Data_Unit_foreign.unit)(x_S_532_S_535)) + return (dictMonad_S_511.Applicative0()).pure(Data_Tuple_Tuple(Data_Unit_foreign.unit)(x_S_532_S_535)) end end)() -M.Golden_LongWriterBind_Test_go = (function() - local Golden_LongWriterBind_Test_discard, Golden_LongWriterBind_Test_tell = M.Golden_LongWriterBind_Test_discard, M.Golden_LongWriterBind_Test_tell +local Golden_LongWriterBind_Test_go = (function() local _S_kont539 = Golden_LongWriterBind_Test_discard(Golden_LongWriterBind_Test_tell({ [1] = 161 }))(function() - return M.Golden_LongWriterBind_Test_discard(M.Golden_LongWriterBind_Test_tell({ + return Golden_LongWriterBind_Test_discard(Golden_LongWriterBind_Test_tell({ [1] = 162 }))(function() - return M.Golden_LongWriterBind_Test_discard(M.Golden_LongWriterBind_Test_tell({ + return Golden_LongWriterBind_Test_discard(Golden_LongWriterBind_Test_tell({ [1] = 163 }))(function() - return M.Golden_LongWriterBind_Test_discard(M.Golden_LongWriterBind_Test_tell({ + return Golden_LongWriterBind_Test_discard(Golden_LongWriterBind_Test_tell({ [1] = 164 }))(function() - return M.Golden_LongWriterBind_Test_discard(M.Golden_LongWriterBind_Test_tell({ + return Golden_LongWriterBind_Test_discard(Golden_LongWriterBind_Test_tell({ [1] = 165 }))(function() - return M.Golden_LongWriterBind_Test_discard(M.Golden_LongWriterBind_Test_tell({ + return Golden_LongWriterBind_Test_discard(Golden_LongWriterBind_Test_tell({ [1] = 166 }))(function() - return M.Golden_LongWriterBind_Test_discard(M.Golden_LongWriterBind_Test_tell({ + return Golden_LongWriterBind_Test_discard(Golden_LongWriterBind_Test_tell({ [1] = 167 }))(function() - return M.Golden_LongWriterBind_Test_discard(M.Golden_LongWriterBind_Test_tell({ + return Golden_LongWriterBind_Test_discard(Golden_LongWriterBind_Test_tell({ [1] = 168 }))(function() - return M.Golden_LongWriterBind_Test_discard(M.Golden_LongWriterBind_Test_tell({ + return Golden_LongWriterBind_Test_discard(Golden_LongWriterBind_Test_tell({ [1] = 169 }))(function() - return M.Golden_LongWriterBind_Test_discard(M.Golden_LongWriterBind_Test_tell({ + return Golden_LongWriterBind_Test_discard(Golden_LongWriterBind_Test_tell({ [1] = 170 }))(function() - return M.Golden_LongWriterBind_Test_discard(M.Golden_LongWriterBind_Test_tell({ + return Golden_LongWriterBind_Test_discard(Golden_LongWriterBind_Test_tell({ [1] = 171 }))(function() - return M.Golden_LongWriterBind_Test_discard(M.Golden_LongWriterBind_Test_tell({ + return Golden_LongWriterBind_Test_discard(Golden_LongWriterBind_Test_tell({ [1] = 172 }))(function() - return M.Golden_LongWriterBind_Test_discard(M.Golden_LongWriterBind_Test_tell({ + return Golden_LongWriterBind_Test_discard(Golden_LongWriterBind_Test_tell({ [1] = 173 }))(function() - return M.Golden_LongWriterBind_Test_discard(M.Golden_LongWriterBind_Test_tell({ + return Golden_LongWriterBind_Test_discard(Golden_LongWriterBind_Test_tell({ [1] = 174 }))(function() - return M.Golden_LongWriterBind_Test_discard(M.Golden_LongWriterBind_Test_tell({ + return Golden_LongWriterBind_Test_discard(Golden_LongWriterBind_Test_tell({ [1] = 175 }))(function() - return M.Golden_LongWriterBind_Test_discard(M.Golden_LongWriterBind_Test_tell({ + return Golden_LongWriterBind_Test_discard(Golden_LongWriterBind_Test_tell({ [1] = 176 }))(function() - return M.Golden_LongWriterBind_Test_discard(M.Golden_LongWriterBind_Test_tell({ + return Golden_LongWriterBind_Test_discard(Golden_LongWriterBind_Test_tell({ [1] = 177 }))(function() - return M.Golden_LongWriterBind_Test_discard(M.Golden_LongWriterBind_Test_tell({ + return Golden_LongWriterBind_Test_discard(Golden_LongWriterBind_Test_tell({ [1] = 178 }))(function() - return M.Golden_LongWriterBind_Test_discard(M.Golden_LongWriterBind_Test_tell({ + return Golden_LongWriterBind_Test_discard(Golden_LongWriterBind_Test_tell({ [1] = 179 }))(function() - return M.Golden_LongWriterBind_Test_discard(M.Golden_LongWriterBind_Test_tell({ + return Golden_LongWriterBind_Test_discard(Golden_LongWriterBind_Test_tell({ [1] = 180 }))(function() - return M.Golden_LongWriterBind_Test_discard(M.Golden_LongWriterBind_Test_tell({ + return Golden_LongWriterBind_Test_discard(Golden_LongWriterBind_Test_tell({ [1] = 181 }))(function() - return M.Golden_LongWriterBind_Test_discard(M.Golden_LongWriterBind_Test_tell({ + return Golden_LongWriterBind_Test_discard(Golden_LongWriterBind_Test_tell({ [1] = 182 }))(function() - return M.Golden_LongWriterBind_Test_discard(M.Golden_LongWriterBind_Test_tell({ + return Golden_LongWriterBind_Test_discard(Golden_LongWriterBind_Test_tell({ [1] = 183 }))(function() - return M.Golden_LongWriterBind_Test_discard(M.Golden_LongWriterBind_Test_tell({ + return Golden_LongWriterBind_Test_discard(Golden_LongWriterBind_Test_tell({ [1] = 184 }))(function() - return M.Golden_LongWriterBind_Test_discard(M.Golden_LongWriterBind_Test_tell({ + return Golden_LongWriterBind_Test_discard(Golden_LongWriterBind_Test_tell({ [1] = 185 }))(function() - return M.Golden_LongWriterBind_Test_discard(M.Golden_LongWriterBind_Test_tell({ + return Golden_LongWriterBind_Test_discard(Golden_LongWriterBind_Test_tell({ [1] = 186 }))(function() - return M.Golden_LongWriterBind_Test_discard(M.Golden_LongWriterBind_Test_tell({ + return Golden_LongWriterBind_Test_discard(Golden_LongWriterBind_Test_tell({ [1] = 187 }))(function() - return M.Golden_LongWriterBind_Test_discard(M.Golden_LongWriterBind_Test_tell({ + return Golden_LongWriterBind_Test_discard(Golden_LongWriterBind_Test_tell({ [1] = 188 }))(function() - return M.Golden_LongWriterBind_Test_discard(M.Golden_LongWriterBind_Test_tell({ + return Golden_LongWriterBind_Test_discard(Golden_LongWriterBind_Test_tell({ [1] = 189 }))(function() - return M.Golden_LongWriterBind_Test_discard(M.Golden_LongWriterBind_Test_tell({ + return Golden_LongWriterBind_Test_discard(Golden_LongWriterBind_Test_tell({ [1] = 190 }))(function() - return M.Golden_LongWriterBind_Test_discard(M.Golden_LongWriterBind_Test_tell({ + return Golden_LongWriterBind_Test_discard(Golden_LongWriterBind_Test_tell({ [1] = 191 }))(function() - return M.Golden_LongWriterBind_Test_discard(M.Golden_LongWriterBind_Test_tell({ + return Golden_LongWriterBind_Test_discard(Golden_LongWriterBind_Test_tell({ [1] = 192 }))(function() - return M.Golden_LongWriterBind_Test_discard(M.Golden_LongWriterBind_Test_tell({ + return Golden_LongWriterBind_Test_discard(Golden_LongWriterBind_Test_tell({ [1] = 193 }))(function() - return M.Golden_LongWriterBind_Test_discard(M.Golden_LongWriterBind_Test_tell({ + return Golden_LongWriterBind_Test_discard(Golden_LongWriterBind_Test_tell({ [1] = 194 }))(function( ) - return M.Golden_LongWriterBind_Test_discard(M.Golden_LongWriterBind_Test_tell({ + return Golden_LongWriterBind_Test_discard(Golden_LongWriterBind_Test_tell({ [1] = 195 }))(function( ) - return M.Golden_LongWriterBind_Test_discard(M.Golden_LongWriterBind_Test_tell({ + return Golden_LongWriterBind_Test_discard(Golden_LongWriterBind_Test_tell({ [1] = 196 }))(function( ) - return M.Golden_LongWriterBind_Test_discard(M.Golden_LongWriterBind_Test_tell({ + return Golden_LongWriterBind_Test_discard(Golden_LongWriterBind_Test_tell({ [1] = 197 }))(function( ) - return M.Golden_LongWriterBind_Test_discard(M.Golden_LongWriterBind_Test_tell({ + return Golden_LongWriterBind_Test_discard(Golden_LongWriterBind_Test_tell({ [1] = 198 }))(function( ) - return M.Golden_LongWriterBind_Test_discard(M.Golden_LongWriterBind_Test_tell({ + return Golden_LongWriterBind_Test_discard(Golden_LongWriterBind_Test_tell({ [1] = 199 }))(function( ) - return M.Golden_LongWriterBind_Test_discard(M.Golden_LongWriterBind_Test_tell({ + return Golden_LongWriterBind_Test_discard(Golden_LongWriterBind_Test_tell({ [1] = 200 }))(function( ) - return (M.Control_Monad_Writer_Trans_applicativeWriterT_S_w(M.Data_Monoid_monoidArray, M.Data_Identity_applicativeIdentity)).pure(42) + return (Control_Monad_Writer_Trans_applicativeWriterT_S_w(Data_Monoid_monoidArray, Data_Identity_applicativeIdentity)).pure(42) end) end) end) @@ -276,121 +275,121 @@ M.Golden_LongWriterBind_Test_go = (function() local _S_kont540 = Golden_LongWriterBind_Test_discard(Golden_LongWriterBind_Test_tell({ [1] = 121 }))(function() - return M.Golden_LongWriterBind_Test_discard(M.Golden_LongWriterBind_Test_tell({ + return Golden_LongWriterBind_Test_discard(Golden_LongWriterBind_Test_tell({ [1] = 122 }))(function() - return M.Golden_LongWriterBind_Test_discard(M.Golden_LongWriterBind_Test_tell({ + return Golden_LongWriterBind_Test_discard(Golden_LongWriterBind_Test_tell({ [1] = 123 }))(function() - return M.Golden_LongWriterBind_Test_discard(M.Golden_LongWriterBind_Test_tell({ + return Golden_LongWriterBind_Test_discard(Golden_LongWriterBind_Test_tell({ [1] = 124 }))(function() - return M.Golden_LongWriterBind_Test_discard(M.Golden_LongWriterBind_Test_tell({ + return Golden_LongWriterBind_Test_discard(Golden_LongWriterBind_Test_tell({ [1] = 125 }))(function() - return M.Golden_LongWriterBind_Test_discard(M.Golden_LongWriterBind_Test_tell({ + return Golden_LongWriterBind_Test_discard(Golden_LongWriterBind_Test_tell({ [1] = 126 }))(function() - return M.Golden_LongWriterBind_Test_discard(M.Golden_LongWriterBind_Test_tell({ + return Golden_LongWriterBind_Test_discard(Golden_LongWriterBind_Test_tell({ [1] = 127 }))(function() - return M.Golden_LongWriterBind_Test_discard(M.Golden_LongWriterBind_Test_tell({ + return Golden_LongWriterBind_Test_discard(Golden_LongWriterBind_Test_tell({ [1] = 128 }))(function() - return M.Golden_LongWriterBind_Test_discard(M.Golden_LongWriterBind_Test_tell({ + return Golden_LongWriterBind_Test_discard(Golden_LongWriterBind_Test_tell({ [1] = 129 }))(function() - return M.Golden_LongWriterBind_Test_discard(M.Golden_LongWriterBind_Test_tell({ + return Golden_LongWriterBind_Test_discard(Golden_LongWriterBind_Test_tell({ [1] = 130 }))(function() - return M.Golden_LongWriterBind_Test_discard(M.Golden_LongWriterBind_Test_tell({ + return Golden_LongWriterBind_Test_discard(Golden_LongWriterBind_Test_tell({ [1] = 131 }))(function() - return M.Golden_LongWriterBind_Test_discard(M.Golden_LongWriterBind_Test_tell({ + return Golden_LongWriterBind_Test_discard(Golden_LongWriterBind_Test_tell({ [1] = 132 }))(function() - return M.Golden_LongWriterBind_Test_discard(M.Golden_LongWriterBind_Test_tell({ + return Golden_LongWriterBind_Test_discard(Golden_LongWriterBind_Test_tell({ [1] = 133 }))(function() - return M.Golden_LongWriterBind_Test_discard(M.Golden_LongWriterBind_Test_tell({ + return Golden_LongWriterBind_Test_discard(Golden_LongWriterBind_Test_tell({ [1] = 134 }))(function() - return M.Golden_LongWriterBind_Test_discard(M.Golden_LongWriterBind_Test_tell({ + return Golden_LongWriterBind_Test_discard(Golden_LongWriterBind_Test_tell({ [1] = 135 }))(function() - return M.Golden_LongWriterBind_Test_discard(M.Golden_LongWriterBind_Test_tell({ + return Golden_LongWriterBind_Test_discard(Golden_LongWriterBind_Test_tell({ [1] = 136 }))(function() - return M.Golden_LongWriterBind_Test_discard(M.Golden_LongWriterBind_Test_tell({ + return Golden_LongWriterBind_Test_discard(Golden_LongWriterBind_Test_tell({ [1] = 137 }))(function() - return M.Golden_LongWriterBind_Test_discard(M.Golden_LongWriterBind_Test_tell({ + return Golden_LongWriterBind_Test_discard(Golden_LongWriterBind_Test_tell({ [1] = 138 }))(function() - return M.Golden_LongWriterBind_Test_discard(M.Golden_LongWriterBind_Test_tell({ + return Golden_LongWriterBind_Test_discard(Golden_LongWriterBind_Test_tell({ [1] = 139 }))(function() - return M.Golden_LongWriterBind_Test_discard(M.Golden_LongWriterBind_Test_tell({ + return Golden_LongWriterBind_Test_discard(Golden_LongWriterBind_Test_tell({ [1] = 140 }))(function() - return M.Golden_LongWriterBind_Test_discard(M.Golden_LongWriterBind_Test_tell({ + return Golden_LongWriterBind_Test_discard(Golden_LongWriterBind_Test_tell({ [1] = 141 }))(function() - return M.Golden_LongWriterBind_Test_discard(M.Golden_LongWriterBind_Test_tell({ + return Golden_LongWriterBind_Test_discard(Golden_LongWriterBind_Test_tell({ [1] = 142 }))(function() - return M.Golden_LongWriterBind_Test_discard(M.Golden_LongWriterBind_Test_tell({ + return Golden_LongWriterBind_Test_discard(Golden_LongWriterBind_Test_tell({ [1] = 143 }))(function() - return M.Golden_LongWriterBind_Test_discard(M.Golden_LongWriterBind_Test_tell({ + return Golden_LongWriterBind_Test_discard(Golden_LongWriterBind_Test_tell({ [1] = 144 }))(function() - return M.Golden_LongWriterBind_Test_discard(M.Golden_LongWriterBind_Test_tell({ + return Golden_LongWriterBind_Test_discard(Golden_LongWriterBind_Test_tell({ [1] = 145 }))(function() - return M.Golden_LongWriterBind_Test_discard(M.Golden_LongWriterBind_Test_tell({ + return Golden_LongWriterBind_Test_discard(Golden_LongWriterBind_Test_tell({ [1] = 146 }))(function() - return M.Golden_LongWriterBind_Test_discard(M.Golden_LongWriterBind_Test_tell({ + return Golden_LongWriterBind_Test_discard(Golden_LongWriterBind_Test_tell({ [1] = 147 }))(function() - return M.Golden_LongWriterBind_Test_discard(M.Golden_LongWriterBind_Test_tell({ + return Golden_LongWriterBind_Test_discard(Golden_LongWriterBind_Test_tell({ [1] = 148 }))(function() - return M.Golden_LongWriterBind_Test_discard(M.Golden_LongWriterBind_Test_tell({ + return Golden_LongWriterBind_Test_discard(Golden_LongWriterBind_Test_tell({ [1] = 149 }))(function() - return M.Golden_LongWriterBind_Test_discard(M.Golden_LongWriterBind_Test_tell({ + return Golden_LongWriterBind_Test_discard(Golden_LongWriterBind_Test_tell({ [1] = 150 }))(function() - return M.Golden_LongWriterBind_Test_discard(M.Golden_LongWriterBind_Test_tell({ + return Golden_LongWriterBind_Test_discard(Golden_LongWriterBind_Test_tell({ [1] = 151 }))(function() - return M.Golden_LongWriterBind_Test_discard(M.Golden_LongWriterBind_Test_tell({ + return Golden_LongWriterBind_Test_discard(Golden_LongWriterBind_Test_tell({ [1] = 152 }))(function() - return M.Golden_LongWriterBind_Test_discard(M.Golden_LongWriterBind_Test_tell({ + return Golden_LongWriterBind_Test_discard(Golden_LongWriterBind_Test_tell({ [1] = 153 }))(function() - return M.Golden_LongWriterBind_Test_discard(M.Golden_LongWriterBind_Test_tell({ + return Golden_LongWriterBind_Test_discard(Golden_LongWriterBind_Test_tell({ [1] = 154 }))(function( ) - return M.Golden_LongWriterBind_Test_discard(M.Golden_LongWriterBind_Test_tell({ + return Golden_LongWriterBind_Test_discard(Golden_LongWriterBind_Test_tell({ [1] = 155 }))(function( ) - return M.Golden_LongWriterBind_Test_discard(M.Golden_LongWriterBind_Test_tell({ + return Golden_LongWriterBind_Test_discard(Golden_LongWriterBind_Test_tell({ [1] = 156 }))(function( ) - return M.Golden_LongWriterBind_Test_discard(M.Golden_LongWriterBind_Test_tell({ + return Golden_LongWriterBind_Test_discard(Golden_LongWriterBind_Test_tell({ [1] = 157 }))(function( ) - return M.Golden_LongWriterBind_Test_discard(M.Golden_LongWriterBind_Test_tell({ + return Golden_LongWriterBind_Test_discard(Golden_LongWriterBind_Test_tell({ [1] = 158 }))(function( ) - return M.Golden_LongWriterBind_Test_discard(M.Golden_LongWriterBind_Test_tell({ + return Golden_LongWriterBind_Test_discard(Golden_LongWriterBind_Test_tell({ [1] = 159 }))(function( ) - return M.Golden_LongWriterBind_Test_discard(M.Golden_LongWriterBind_Test_tell({ + return Golden_LongWriterBind_Test_discard(Golden_LongWriterBind_Test_tell({ [1] = 160 }))(function( ) return _S_kont539 @@ -437,121 +436,121 @@ M.Golden_LongWriterBind_Test_go = (function() local _S_kont541 = Golden_LongWriterBind_Test_discard(Golden_LongWriterBind_Test_tell({ [1] = 81 }))(function() - return M.Golden_LongWriterBind_Test_discard(M.Golden_LongWriterBind_Test_tell({ + return Golden_LongWriterBind_Test_discard(Golden_LongWriterBind_Test_tell({ [1] = 82 }))(function() - return M.Golden_LongWriterBind_Test_discard(M.Golden_LongWriterBind_Test_tell({ + return Golden_LongWriterBind_Test_discard(Golden_LongWriterBind_Test_tell({ [1] = 83 }))(function() - return M.Golden_LongWriterBind_Test_discard(M.Golden_LongWriterBind_Test_tell({ + return Golden_LongWriterBind_Test_discard(Golden_LongWriterBind_Test_tell({ [1] = 84 }))(function() - return M.Golden_LongWriterBind_Test_discard(M.Golden_LongWriterBind_Test_tell({ + return Golden_LongWriterBind_Test_discard(Golden_LongWriterBind_Test_tell({ [1] = 85 }))(function() - return M.Golden_LongWriterBind_Test_discard(M.Golden_LongWriterBind_Test_tell({ + return Golden_LongWriterBind_Test_discard(Golden_LongWriterBind_Test_tell({ [1] = 86 }))(function() - return M.Golden_LongWriterBind_Test_discard(M.Golden_LongWriterBind_Test_tell({ + return Golden_LongWriterBind_Test_discard(Golden_LongWriterBind_Test_tell({ [1] = 87 }))(function() - return M.Golden_LongWriterBind_Test_discard(M.Golden_LongWriterBind_Test_tell({ + return Golden_LongWriterBind_Test_discard(Golden_LongWriterBind_Test_tell({ [1] = 88 }))(function() - return M.Golden_LongWriterBind_Test_discard(M.Golden_LongWriterBind_Test_tell({ + return Golden_LongWriterBind_Test_discard(Golden_LongWriterBind_Test_tell({ [1] = 89 }))(function() - return M.Golden_LongWriterBind_Test_discard(M.Golden_LongWriterBind_Test_tell({ + return Golden_LongWriterBind_Test_discard(Golden_LongWriterBind_Test_tell({ [1] = 90 }))(function() - return M.Golden_LongWriterBind_Test_discard(M.Golden_LongWriterBind_Test_tell({ + return Golden_LongWriterBind_Test_discard(Golden_LongWriterBind_Test_tell({ [1] = 91 }))(function() - return M.Golden_LongWriterBind_Test_discard(M.Golden_LongWriterBind_Test_tell({ + return Golden_LongWriterBind_Test_discard(Golden_LongWriterBind_Test_tell({ [1] = 92 }))(function() - return M.Golden_LongWriterBind_Test_discard(M.Golden_LongWriterBind_Test_tell({ + return Golden_LongWriterBind_Test_discard(Golden_LongWriterBind_Test_tell({ [1] = 93 }))(function() - return M.Golden_LongWriterBind_Test_discard(M.Golden_LongWriterBind_Test_tell({ + return Golden_LongWriterBind_Test_discard(Golden_LongWriterBind_Test_tell({ [1] = 94 }))(function() - return M.Golden_LongWriterBind_Test_discard(M.Golden_LongWriterBind_Test_tell({ + return Golden_LongWriterBind_Test_discard(Golden_LongWriterBind_Test_tell({ [1] = 95 }))(function() - return M.Golden_LongWriterBind_Test_discard(M.Golden_LongWriterBind_Test_tell({ + return Golden_LongWriterBind_Test_discard(Golden_LongWriterBind_Test_tell({ [1] = 96 }))(function() - return M.Golden_LongWriterBind_Test_discard(M.Golden_LongWriterBind_Test_tell({ + return Golden_LongWriterBind_Test_discard(Golden_LongWriterBind_Test_tell({ [1] = 97 }))(function() - return M.Golden_LongWriterBind_Test_discard(M.Golden_LongWriterBind_Test_tell({ + return Golden_LongWriterBind_Test_discard(Golden_LongWriterBind_Test_tell({ [1] = 98 }))(function() - return M.Golden_LongWriterBind_Test_discard(M.Golden_LongWriterBind_Test_tell({ + return Golden_LongWriterBind_Test_discard(Golden_LongWriterBind_Test_tell({ [1] = 99 }))(function() - return M.Golden_LongWriterBind_Test_discard(M.Golden_LongWriterBind_Test_tell({ + return Golden_LongWriterBind_Test_discard(Golden_LongWriterBind_Test_tell({ [1] = 100 }))(function() - return M.Golden_LongWriterBind_Test_discard(M.Golden_LongWriterBind_Test_tell({ + return Golden_LongWriterBind_Test_discard(Golden_LongWriterBind_Test_tell({ [1] = 101 }))(function() - return M.Golden_LongWriterBind_Test_discard(M.Golden_LongWriterBind_Test_tell({ + return Golden_LongWriterBind_Test_discard(Golden_LongWriterBind_Test_tell({ [1] = 102 }))(function() - return M.Golden_LongWriterBind_Test_discard(M.Golden_LongWriterBind_Test_tell({ + return Golden_LongWriterBind_Test_discard(Golden_LongWriterBind_Test_tell({ [1] = 103 }))(function() - return M.Golden_LongWriterBind_Test_discard(M.Golden_LongWriterBind_Test_tell({ + return Golden_LongWriterBind_Test_discard(Golden_LongWriterBind_Test_tell({ [1] = 104 }))(function() - return M.Golden_LongWriterBind_Test_discard(M.Golden_LongWriterBind_Test_tell({ + return Golden_LongWriterBind_Test_discard(Golden_LongWriterBind_Test_tell({ [1] = 105 }))(function() - return M.Golden_LongWriterBind_Test_discard(M.Golden_LongWriterBind_Test_tell({ + return Golden_LongWriterBind_Test_discard(Golden_LongWriterBind_Test_tell({ [1] = 106 }))(function() - return M.Golden_LongWriterBind_Test_discard(M.Golden_LongWriterBind_Test_tell({ + return Golden_LongWriterBind_Test_discard(Golden_LongWriterBind_Test_tell({ [1] = 107 }))(function() - return M.Golden_LongWriterBind_Test_discard(M.Golden_LongWriterBind_Test_tell({ + return Golden_LongWriterBind_Test_discard(Golden_LongWriterBind_Test_tell({ [1] = 108 }))(function() - return M.Golden_LongWriterBind_Test_discard(M.Golden_LongWriterBind_Test_tell({ + return Golden_LongWriterBind_Test_discard(Golden_LongWriterBind_Test_tell({ [1] = 109 }))(function() - return M.Golden_LongWriterBind_Test_discard(M.Golden_LongWriterBind_Test_tell({ + return Golden_LongWriterBind_Test_discard(Golden_LongWriterBind_Test_tell({ [1] = 110 }))(function() - return M.Golden_LongWriterBind_Test_discard(M.Golden_LongWriterBind_Test_tell({ + return Golden_LongWriterBind_Test_discard(Golden_LongWriterBind_Test_tell({ [1] = 111 }))(function() - return M.Golden_LongWriterBind_Test_discard(M.Golden_LongWriterBind_Test_tell({ + return Golden_LongWriterBind_Test_discard(Golden_LongWriterBind_Test_tell({ [1] = 112 }))(function() - return M.Golden_LongWriterBind_Test_discard(M.Golden_LongWriterBind_Test_tell({ + return Golden_LongWriterBind_Test_discard(Golden_LongWriterBind_Test_tell({ [1] = 113 }))(function() - return M.Golden_LongWriterBind_Test_discard(M.Golden_LongWriterBind_Test_tell({ + return Golden_LongWriterBind_Test_discard(Golden_LongWriterBind_Test_tell({ [1] = 114 }))(function( ) - return M.Golden_LongWriterBind_Test_discard(M.Golden_LongWriterBind_Test_tell({ + return Golden_LongWriterBind_Test_discard(Golden_LongWriterBind_Test_tell({ [1] = 115 }))(function( ) - return M.Golden_LongWriterBind_Test_discard(M.Golden_LongWriterBind_Test_tell({ + return Golden_LongWriterBind_Test_discard(Golden_LongWriterBind_Test_tell({ [1] = 116 }))(function( ) - return M.Golden_LongWriterBind_Test_discard(M.Golden_LongWriterBind_Test_tell({ + return Golden_LongWriterBind_Test_discard(Golden_LongWriterBind_Test_tell({ [1] = 117 }))(function( ) - return M.Golden_LongWriterBind_Test_discard(M.Golden_LongWriterBind_Test_tell({ + return Golden_LongWriterBind_Test_discard(Golden_LongWriterBind_Test_tell({ [1] = 118 }))(function( ) - return M.Golden_LongWriterBind_Test_discard(M.Golden_LongWriterBind_Test_tell({ + return Golden_LongWriterBind_Test_discard(Golden_LongWriterBind_Test_tell({ [1] = 119 }))(function( ) - return M.Golden_LongWriterBind_Test_discard(M.Golden_LongWriterBind_Test_tell({ + return Golden_LongWriterBind_Test_discard(Golden_LongWriterBind_Test_tell({ [1] = 120 }))(function( ) return _S_kont540 @@ -598,121 +597,121 @@ M.Golden_LongWriterBind_Test_go = (function() local _S_kont542 = Golden_LongWriterBind_Test_discard(Golden_LongWriterBind_Test_tell({ [1] = 41 }))(function() - return M.Golden_LongWriterBind_Test_discard(M.Golden_LongWriterBind_Test_tell({ + return Golden_LongWriterBind_Test_discard(Golden_LongWriterBind_Test_tell({ [1] = 42 }))(function() - return M.Golden_LongWriterBind_Test_discard(M.Golden_LongWriterBind_Test_tell({ + return Golden_LongWriterBind_Test_discard(Golden_LongWriterBind_Test_tell({ [1] = 43 }))(function() - return M.Golden_LongWriterBind_Test_discard(M.Golden_LongWriterBind_Test_tell({ + return Golden_LongWriterBind_Test_discard(Golden_LongWriterBind_Test_tell({ [1] = 44 }))(function() - return M.Golden_LongWriterBind_Test_discard(M.Golden_LongWriterBind_Test_tell({ + return Golden_LongWriterBind_Test_discard(Golden_LongWriterBind_Test_tell({ [1] = 45 }))(function() - return M.Golden_LongWriterBind_Test_discard(M.Golden_LongWriterBind_Test_tell({ + return Golden_LongWriterBind_Test_discard(Golden_LongWriterBind_Test_tell({ [1] = 46 }))(function() - return M.Golden_LongWriterBind_Test_discard(M.Golden_LongWriterBind_Test_tell({ + return Golden_LongWriterBind_Test_discard(Golden_LongWriterBind_Test_tell({ [1] = 47 }))(function() - return M.Golden_LongWriterBind_Test_discard(M.Golden_LongWriterBind_Test_tell({ + return Golden_LongWriterBind_Test_discard(Golden_LongWriterBind_Test_tell({ [1] = 48 }))(function() - return M.Golden_LongWriterBind_Test_discard(M.Golden_LongWriterBind_Test_tell({ + return Golden_LongWriterBind_Test_discard(Golden_LongWriterBind_Test_tell({ [1] = 49 }))(function() - return M.Golden_LongWriterBind_Test_discard(M.Golden_LongWriterBind_Test_tell({ + return Golden_LongWriterBind_Test_discard(Golden_LongWriterBind_Test_tell({ [1] = 50 }))(function() - return M.Golden_LongWriterBind_Test_discard(M.Golden_LongWriterBind_Test_tell({ + return Golden_LongWriterBind_Test_discard(Golden_LongWriterBind_Test_tell({ [1] = 51 }))(function() - return M.Golden_LongWriterBind_Test_discard(M.Golden_LongWriterBind_Test_tell({ + return Golden_LongWriterBind_Test_discard(Golden_LongWriterBind_Test_tell({ [1] = 52 }))(function() - return M.Golden_LongWriterBind_Test_discard(M.Golden_LongWriterBind_Test_tell({ + return Golden_LongWriterBind_Test_discard(Golden_LongWriterBind_Test_tell({ [1] = 53 }))(function() - return M.Golden_LongWriterBind_Test_discard(M.Golden_LongWriterBind_Test_tell({ + return Golden_LongWriterBind_Test_discard(Golden_LongWriterBind_Test_tell({ [1] = 54 }))(function() - return M.Golden_LongWriterBind_Test_discard(M.Golden_LongWriterBind_Test_tell({ + return Golden_LongWriterBind_Test_discard(Golden_LongWriterBind_Test_tell({ [1] = 55 }))(function() - return M.Golden_LongWriterBind_Test_discard(M.Golden_LongWriterBind_Test_tell({ + return Golden_LongWriterBind_Test_discard(Golden_LongWriterBind_Test_tell({ [1] = 56 }))(function() - return M.Golden_LongWriterBind_Test_discard(M.Golden_LongWriterBind_Test_tell({ + return Golden_LongWriterBind_Test_discard(Golden_LongWriterBind_Test_tell({ [1] = 57 }))(function() - return M.Golden_LongWriterBind_Test_discard(M.Golden_LongWriterBind_Test_tell({ + return Golden_LongWriterBind_Test_discard(Golden_LongWriterBind_Test_tell({ [1] = 58 }))(function() - return M.Golden_LongWriterBind_Test_discard(M.Golden_LongWriterBind_Test_tell({ + return Golden_LongWriterBind_Test_discard(Golden_LongWriterBind_Test_tell({ [1] = 59 }))(function() - return M.Golden_LongWriterBind_Test_discard(M.Golden_LongWriterBind_Test_tell({ + return Golden_LongWriterBind_Test_discard(Golden_LongWriterBind_Test_tell({ [1] = 60 }))(function() - return M.Golden_LongWriterBind_Test_discard(M.Golden_LongWriterBind_Test_tell({ + return Golden_LongWriterBind_Test_discard(Golden_LongWriterBind_Test_tell({ [1] = 61 }))(function() - return M.Golden_LongWriterBind_Test_discard(M.Golden_LongWriterBind_Test_tell({ + return Golden_LongWriterBind_Test_discard(Golden_LongWriterBind_Test_tell({ [1] = 62 }))(function() - return M.Golden_LongWriterBind_Test_discard(M.Golden_LongWriterBind_Test_tell({ + return Golden_LongWriterBind_Test_discard(Golden_LongWriterBind_Test_tell({ [1] = 63 }))(function() - return M.Golden_LongWriterBind_Test_discard(M.Golden_LongWriterBind_Test_tell({ + return Golden_LongWriterBind_Test_discard(Golden_LongWriterBind_Test_tell({ [1] = 64 }))(function() - return M.Golden_LongWriterBind_Test_discard(M.Golden_LongWriterBind_Test_tell({ + return Golden_LongWriterBind_Test_discard(Golden_LongWriterBind_Test_tell({ [1] = 65 }))(function() - return M.Golden_LongWriterBind_Test_discard(M.Golden_LongWriterBind_Test_tell({ + return Golden_LongWriterBind_Test_discard(Golden_LongWriterBind_Test_tell({ [1] = 66 }))(function() - return M.Golden_LongWriterBind_Test_discard(M.Golden_LongWriterBind_Test_tell({ + return Golden_LongWriterBind_Test_discard(Golden_LongWriterBind_Test_tell({ [1] = 67 }))(function() - return M.Golden_LongWriterBind_Test_discard(M.Golden_LongWriterBind_Test_tell({ + return Golden_LongWriterBind_Test_discard(Golden_LongWriterBind_Test_tell({ [1] = 68 }))(function() - return M.Golden_LongWriterBind_Test_discard(M.Golden_LongWriterBind_Test_tell({ + return Golden_LongWriterBind_Test_discard(Golden_LongWriterBind_Test_tell({ [1] = 69 }))(function() - return M.Golden_LongWriterBind_Test_discard(M.Golden_LongWriterBind_Test_tell({ + return Golden_LongWriterBind_Test_discard(Golden_LongWriterBind_Test_tell({ [1] = 70 }))(function() - return M.Golden_LongWriterBind_Test_discard(M.Golden_LongWriterBind_Test_tell({ + return Golden_LongWriterBind_Test_discard(Golden_LongWriterBind_Test_tell({ [1] = 71 }))(function() - return M.Golden_LongWriterBind_Test_discard(M.Golden_LongWriterBind_Test_tell({ + return Golden_LongWriterBind_Test_discard(Golden_LongWriterBind_Test_tell({ [1] = 72 }))(function() - return M.Golden_LongWriterBind_Test_discard(M.Golden_LongWriterBind_Test_tell({ + return Golden_LongWriterBind_Test_discard(Golden_LongWriterBind_Test_tell({ [1] = 73 }))(function() - return M.Golden_LongWriterBind_Test_discard(M.Golden_LongWriterBind_Test_tell({ + return Golden_LongWriterBind_Test_discard(Golden_LongWriterBind_Test_tell({ [1] = 74 }))(function( ) - return M.Golden_LongWriterBind_Test_discard(M.Golden_LongWriterBind_Test_tell({ + return Golden_LongWriterBind_Test_discard(Golden_LongWriterBind_Test_tell({ [1] = 75 }))(function( ) - return M.Golden_LongWriterBind_Test_discard(M.Golden_LongWriterBind_Test_tell({ + return Golden_LongWriterBind_Test_discard(Golden_LongWriterBind_Test_tell({ [1] = 76 }))(function( ) - return M.Golden_LongWriterBind_Test_discard(M.Golden_LongWriterBind_Test_tell({ + return Golden_LongWriterBind_Test_discard(Golden_LongWriterBind_Test_tell({ [1] = 77 }))(function( ) - return M.Golden_LongWriterBind_Test_discard(M.Golden_LongWriterBind_Test_tell({ + return Golden_LongWriterBind_Test_discard(Golden_LongWriterBind_Test_tell({ [1] = 78 }))(function( ) - return M.Golden_LongWriterBind_Test_discard(M.Golden_LongWriterBind_Test_tell({ + return Golden_LongWriterBind_Test_discard(Golden_LongWriterBind_Test_tell({ [1] = 79 }))(function( ) - return M.Golden_LongWriterBind_Test_discard(M.Golden_LongWriterBind_Test_tell({ + return Golden_LongWriterBind_Test_discard(Golden_LongWriterBind_Test_tell({ [1] = 80 }))(function( ) return _S_kont541 @@ -759,121 +758,121 @@ M.Golden_LongWriterBind_Test_go = (function() return Golden_LongWriterBind_Test_discard(Golden_LongWriterBind_Test_tell({ [1] = 1 }))(function() - return M.Golden_LongWriterBind_Test_discard(M.Golden_LongWriterBind_Test_tell({ + return Golden_LongWriterBind_Test_discard(Golden_LongWriterBind_Test_tell({ [1] = 2 }))(function() - return M.Golden_LongWriterBind_Test_discard(M.Golden_LongWriterBind_Test_tell({ + return Golden_LongWriterBind_Test_discard(Golden_LongWriterBind_Test_tell({ [1] = 3 }))(function() - return M.Golden_LongWriterBind_Test_discard(M.Golden_LongWriterBind_Test_tell({ + return Golden_LongWriterBind_Test_discard(Golden_LongWriterBind_Test_tell({ [1] = 4 }))(function() - return M.Golden_LongWriterBind_Test_discard(M.Golden_LongWriterBind_Test_tell({ + return Golden_LongWriterBind_Test_discard(Golden_LongWriterBind_Test_tell({ [1] = 5 }))(function() - return M.Golden_LongWriterBind_Test_discard(M.Golden_LongWriterBind_Test_tell({ + return Golden_LongWriterBind_Test_discard(Golden_LongWriterBind_Test_tell({ [1] = 6 }))(function() - return M.Golden_LongWriterBind_Test_discard(M.Golden_LongWriterBind_Test_tell({ + return Golden_LongWriterBind_Test_discard(Golden_LongWriterBind_Test_tell({ [1] = 7 }))(function() - return M.Golden_LongWriterBind_Test_discard(M.Golden_LongWriterBind_Test_tell({ + return Golden_LongWriterBind_Test_discard(Golden_LongWriterBind_Test_tell({ [1] = 8 }))(function() - return M.Golden_LongWriterBind_Test_discard(M.Golden_LongWriterBind_Test_tell({ + return Golden_LongWriterBind_Test_discard(Golden_LongWriterBind_Test_tell({ [1] = 9 }))(function() - return M.Golden_LongWriterBind_Test_discard(M.Golden_LongWriterBind_Test_tell({ + return Golden_LongWriterBind_Test_discard(Golden_LongWriterBind_Test_tell({ [1] = 10 }))(function() - return M.Golden_LongWriterBind_Test_discard(M.Golden_LongWriterBind_Test_tell({ + return Golden_LongWriterBind_Test_discard(Golden_LongWriterBind_Test_tell({ [1] = 11 }))(function() - return M.Golden_LongWriterBind_Test_discard(M.Golden_LongWriterBind_Test_tell({ + return Golden_LongWriterBind_Test_discard(Golden_LongWriterBind_Test_tell({ [1] = 12 }))(function() - return M.Golden_LongWriterBind_Test_discard(M.Golden_LongWriterBind_Test_tell({ + return Golden_LongWriterBind_Test_discard(Golden_LongWriterBind_Test_tell({ [1] = 13 }))(function() - return M.Golden_LongWriterBind_Test_discard(M.Golden_LongWriterBind_Test_tell({ + return Golden_LongWriterBind_Test_discard(Golden_LongWriterBind_Test_tell({ [1] = 14 }))(function() - return M.Golden_LongWriterBind_Test_discard(M.Golden_LongWriterBind_Test_tell({ + return Golden_LongWriterBind_Test_discard(Golden_LongWriterBind_Test_tell({ [1] = 15 }))(function() - return M.Golden_LongWriterBind_Test_discard(M.Golden_LongWriterBind_Test_tell({ + return Golden_LongWriterBind_Test_discard(Golden_LongWriterBind_Test_tell({ [1] = 16 }))(function() - return M.Golden_LongWriterBind_Test_discard(M.Golden_LongWriterBind_Test_tell({ + return Golden_LongWriterBind_Test_discard(Golden_LongWriterBind_Test_tell({ [1] = 17 }))(function() - return M.Golden_LongWriterBind_Test_discard(M.Golden_LongWriterBind_Test_tell({ + return Golden_LongWriterBind_Test_discard(Golden_LongWriterBind_Test_tell({ [1] = 18 }))(function() - return M.Golden_LongWriterBind_Test_discard(M.Golden_LongWriterBind_Test_tell({ + return Golden_LongWriterBind_Test_discard(Golden_LongWriterBind_Test_tell({ [1] = 19 }))(function() - return M.Golden_LongWriterBind_Test_discard(M.Golden_LongWriterBind_Test_tell({ + return Golden_LongWriterBind_Test_discard(Golden_LongWriterBind_Test_tell({ [1] = 20 }))(function() - return M.Golden_LongWriterBind_Test_discard(M.Golden_LongWriterBind_Test_tell({ + return Golden_LongWriterBind_Test_discard(Golden_LongWriterBind_Test_tell({ [1] = 21 }))(function() - return M.Golden_LongWriterBind_Test_discard(M.Golden_LongWriterBind_Test_tell({ + return Golden_LongWriterBind_Test_discard(Golden_LongWriterBind_Test_tell({ [1] = 22 }))(function() - return M.Golden_LongWriterBind_Test_discard(M.Golden_LongWriterBind_Test_tell({ + return Golden_LongWriterBind_Test_discard(Golden_LongWriterBind_Test_tell({ [1] = 23 }))(function() - return M.Golden_LongWriterBind_Test_discard(M.Golden_LongWriterBind_Test_tell({ + return Golden_LongWriterBind_Test_discard(Golden_LongWriterBind_Test_tell({ [1] = 24 }))(function() - return M.Golden_LongWriterBind_Test_discard(M.Golden_LongWriterBind_Test_tell({ + return Golden_LongWriterBind_Test_discard(Golden_LongWriterBind_Test_tell({ [1] = 25 }))(function() - return M.Golden_LongWriterBind_Test_discard(M.Golden_LongWriterBind_Test_tell({ + return Golden_LongWriterBind_Test_discard(Golden_LongWriterBind_Test_tell({ [1] = 26 }))(function() - return M.Golden_LongWriterBind_Test_discard(M.Golden_LongWriterBind_Test_tell({ + return Golden_LongWriterBind_Test_discard(Golden_LongWriterBind_Test_tell({ [1] = 27 }))(function() - return M.Golden_LongWriterBind_Test_discard(M.Golden_LongWriterBind_Test_tell({ + return Golden_LongWriterBind_Test_discard(Golden_LongWriterBind_Test_tell({ [1] = 28 }))(function() - return M.Golden_LongWriterBind_Test_discard(M.Golden_LongWriterBind_Test_tell({ + return Golden_LongWriterBind_Test_discard(Golden_LongWriterBind_Test_tell({ [1] = 29 }))(function() - return M.Golden_LongWriterBind_Test_discard(M.Golden_LongWriterBind_Test_tell({ + return Golden_LongWriterBind_Test_discard(Golden_LongWriterBind_Test_tell({ [1] = 30 }))(function() - return M.Golden_LongWriterBind_Test_discard(M.Golden_LongWriterBind_Test_tell({ + return Golden_LongWriterBind_Test_discard(Golden_LongWriterBind_Test_tell({ [1] = 31 }))(function() - return M.Golden_LongWriterBind_Test_discard(M.Golden_LongWriterBind_Test_tell({ + return Golden_LongWriterBind_Test_discard(Golden_LongWriterBind_Test_tell({ [1] = 32 }))(function() - return M.Golden_LongWriterBind_Test_discard(M.Golden_LongWriterBind_Test_tell({ + return Golden_LongWriterBind_Test_discard(Golden_LongWriterBind_Test_tell({ [1] = 33 }))(function() - return M.Golden_LongWriterBind_Test_discard(M.Golden_LongWriterBind_Test_tell({ + return Golden_LongWriterBind_Test_discard(Golden_LongWriterBind_Test_tell({ [1] = 34 }))(function( ) - return M.Golden_LongWriterBind_Test_discard(M.Golden_LongWriterBind_Test_tell({ + return Golden_LongWriterBind_Test_discard(Golden_LongWriterBind_Test_tell({ [1] = 35 }))(function( ) - return M.Golden_LongWriterBind_Test_discard(M.Golden_LongWriterBind_Test_tell({ + return Golden_LongWriterBind_Test_discard(Golden_LongWriterBind_Test_tell({ [1] = 36 }))(function( ) - return M.Golden_LongWriterBind_Test_discard(M.Golden_LongWriterBind_Test_tell({ + return Golden_LongWriterBind_Test_discard(Golden_LongWriterBind_Test_tell({ [1] = 37 }))(function( ) - return M.Golden_LongWriterBind_Test_discard(M.Golden_LongWriterBind_Test_tell({ + return Golden_LongWriterBind_Test_discard(Golden_LongWriterBind_Test_tell({ [1] = 38 }))(function( ) - return M.Golden_LongWriterBind_Test_discard(M.Golden_LongWriterBind_Test_tell({ + return Golden_LongWriterBind_Test_discard(Golden_LongWriterBind_Test_tell({ [1] = 39 }))(function( ) - return M.Golden_LongWriterBind_Test_discard(M.Golden_LongWriterBind_Test_tell({ + return Golden_LongWriterBind_Test_discard(Golden_LongWriterBind_Test_tell({ [1] = 40 }))(function( ) return _S_kont542 @@ -918,5 +917,5 @@ M.Golden_LongWriterBind_Test_go = (function() end) end) end)() -M.Golden_LongWriterBind_Test_compute = (M.Unsafe_Coerce_foreign.unsafeCoerce(M.Golden_LongWriterBind_Test_go)).value0 -return M.Effect_Console_foreign.log(M.Data_Show_foreign.showIntImpl(M.Golden_LongWriterBind_Test_compute))() +local Golden_LongWriterBind_Test_compute = (Unsafe_Coerce_foreign.unsafeCoerce(Golden_LongWriterBind_Test_go)).value0 +return Effect_Console_foreign.log(Data_Show_foreign.showIntImpl(Golden_LongWriterBind_Test_compute))() diff --git a/test/ps/output/Golden.Loopification.Test/golden.lua b/test/ps/output/Golden.Loopification.Test/golden.lua index f4ec680b..3242bbae 100644 --- a/test/ps/output/Golden.Loopification.Test/golden.lua +++ b/test/ps/output/Golden.Loopification.Test/golden.lua @@ -1,13 +1,12 @@ local M = {} -M.Data_Show_foreign = { showIntImpl = function(n) return tostring(n) end } -M.Effect_Console_foreign = { +local Data_Show_foreign = { showIntImpl = function(n) return tostring(n) end } +local Effect_Console_foreign = { log = function(s) return function() print(s) end end } -M.Golden_Loopification_Test_sub_S_w = function(x_S_188_S_221, y_S_189_S_222) +local Golden_Loopification_Test_sub_S_w = function(x_S_188_S_221, y_S_189_S_222) return x_S_188_S_221 - y_S_189_S_222 end -M.Golden_Loopification_Test_sumTo_S_w = function(acc, n) - local Golden_Loopification_Test_sub_S_w = M.Golden_Loopification_Test_sub_S_w +local Golden_Loopification_Test_sumTo_S_w = function(acc, n) while true do if n == 0 then return acc @@ -18,13 +17,12 @@ M.Golden_Loopification_Test_sumTo_S_w = function(acc, n) end M.Golden_Loopification_Test_sumTo = function(sumTo_S_p1) return function(sumTo_S_p2) - return M.Golden_Loopification_Test_sumTo_S_w(sumTo_S_p1, sumTo_S_p2) + return Golden_Loopification_Test_sumTo_S_w(sumTo_S_p1, sumTo_S_p2) end end M.Golden_Loopification_Test_sumSquares = function(m) local go_S_w go_S_w = function(acc, n) - local Golden_Loopification_Test_sub_S_w = M.Golden_Loopification_Test_sub_S_w while true do if n == 0 then return acc @@ -35,22 +33,23 @@ M.Golden_Loopification_Test_sumSquares = function(m) end return go_S_w(0, m) end -M.Golden_Loopification_Test_sumCPS_S_w = function(n, k) +local Golden_Loopification_Test_sumCPS_S_w +Golden_Loopification_Test_sumCPS_S_w = function(n, k) if n == 0 then return k(0) else - return M.Golden_Loopification_Test_sumCPS_S_w(M.Golden_Loopification_Test_sub_S_w(n, 1), function( r ) + return Golden_Loopification_Test_sumCPS_S_w(Golden_Loopification_Test_sub_S_w(n, 1), function( r ) return k(r + n) end) end end M.Golden_Loopification_Test_sumCPS = function(sumCPS_S_p1) return function(sumCPS_S_p2) - return M.Golden_Loopification_Test_sumCPS_S_w(sumCPS_S_p1, sumCPS_S_p2) + return Golden_Loopification_Test_sumCPS_S_w(sumCPS_S_p1, sumCPS_S_p2) end end -M.Golden_Loopification_Test_mc91 = function(n) - local Golden_Loopification_Test_mc91, Golden_Loopification_Test_sub_S_w = M.Golden_Loopification_Test_mc91, M.Golden_Loopification_Test_sub_S_w +local Golden_Loopification_Test_mc91 +Golden_Loopification_Test_mc91 = function(n) while true do if "Data.Ordering∷Ordering.GT" == (function() if n < 100 then @@ -67,8 +66,7 @@ M.Golden_Loopification_Test_mc91 = function(n) end end end -M.Golden_Loopification_Test_countdown = function(n) - local Golden_Loopification_Test_sub_S_w = M.Golden_Loopification_Test_sub_S_w +local Golden_Loopification_Test_countdown = function(n) while true do if "Data.Ordering∷Ordering.GT" == (function() if n < 0 then @@ -85,25 +83,22 @@ M.Golden_Loopification_Test_countdown = function(n) end end end -M.Golden_Loopification_Test_countDrop_S_w = function(n) - local Golden_Loopification_Test_sub_S_w = M.Golden_Loopification_Test_sub_S_w +local Golden_Loopification_Test_countDrop_S_w = function(n) while true do if n == 0 then return 0 else n = Golden_Loopification_Test_sub_S_w(n, 1) end end end M.Golden_Loopification_Test_countDrop = function(countDrop_S_p1) return function(countDrop_S_p2) - return M.Golden_Loopification_Test_countDrop_S_w(countDrop_S_p1, countDrop_S_p2) + return Golden_Loopification_Test_countDrop_S_w(countDrop_S_p1, countDrop_S_p2) end end return (function() - local Data_Show_foreign, Effect_Console_foreign = M.Data_Show_foreign, M.Effect_Console_foreign - local _ = Effect_Console_foreign.log(Data_Show_foreign.showIntImpl(M.Golden_Loopification_Test_countdown(5)))() - local _ = Effect_Console_foreign.log(Data_Show_foreign.showIntImpl(M.Golden_Loopification_Test_sumTo_S_w(0, 10)))() + local _ = Effect_Console_foreign.log(Data_Show_foreign.showIntImpl(Golden_Loopification_Test_countdown(5)))() + local _ = Effect_Console_foreign.log(Data_Show_foreign.showIntImpl(Golden_Loopification_Test_sumTo_S_w(0, 10)))() local _ = Effect_Console_foreign.log(Data_Show_foreign.showIntImpl((function() local go_S_w_S_264 go_S_w_S_264 = function(acc_S_265, n_S_266) - local Golden_Loopification_Test_sub_S_w = M.Golden_Loopification_Test_sub_S_w while true do if n_S_266 == 0 then return acc_S_265 @@ -114,9 +109,9 @@ return (function() end return go_S_w_S_264(0, 4) end)()))() - local _ = Effect_Console_foreign.log(Data_Show_foreign.showIntImpl(M.Golden_Loopification_Test_mc91(1)))() - local _ = Effect_Console_foreign.log(Data_Show_foreign.showIntImpl(M.Golden_Loopification_Test_sumCPS_S_w(5, function( x_S_228 ) + local _ = Effect_Console_foreign.log(Data_Show_foreign.showIntImpl(Golden_Loopification_Test_mc91(1)))() + local _ = Effect_Console_foreign.log(Data_Show_foreign.showIntImpl(Golden_Loopification_Test_sumCPS_S_w(5, function( x_S_228 ) return x_S_228 end)))() - return Effect_Console_foreign.log(Data_Show_foreign.showIntImpl(M.Golden_Loopification_Test_countDrop_S_w(3, 99)))() + return Effect_Console_foreign.log(Data_Show_foreign.showIntImpl(Golden_Loopification_Test_countDrop_S_w(3, 99)))() end)() diff --git a/test/ps/output/Golden.MaybeChain.Test/golden.lua b/test/ps/output/Golden.MaybeChain.Test/golden.lua index 9a44ee9f..ceb95685 100644 --- a/test/ps/output/Golden.MaybeChain.Test/golden.lua +++ b/test/ps/output/Golden.MaybeChain.Test/golden.lua @@ -1,13 +1,12 @@ -local M = {} -M.Data_Show_foreign = { showIntImpl = function(n) return tostring(n) end } -M.Effect_Console_foreign = { +local Data_Show_foreign = { showIntImpl = function(n) return tostring(n) end } +local Effect_Console_foreign = { log = function(s) return function() print(s) end end } -M.Data_Maybe_Nothing = { ["$ctor"] = "Data.Maybe∷Maybe.Nothing" } -M.Data_Maybe_Just = function(value0) +local Data_Maybe_Nothing = { ["$ctor"] = "Data.Maybe∷Maybe.Nothing" } +local Data_Maybe_Just = function(value0) return { ["$ctor"] = "Data.Maybe∷Maybe.Just", value0 = value0 } end -M.Data_Maybe_maybe_S_w = function(v, v1, v2) +local Data_Maybe_maybe_S_w = function(v, v1, v2) if "Data.Maybe∷Maybe.Nothing" == v2["$ctor"] then return v elseif "Data.Maybe∷Maybe.Just" == v2["$ctor"] then @@ -16,16 +15,15 @@ M.Data_Maybe_maybe_S_w = function(v, v1, v2) return error("No patterns matched") end end -M.Golden_MaybeChain_Test_identity = function(x_S_313) return x_S_313 end -M.Golden_MaybeChain_Test_map_S_w = function(v_S_308, v1_S_309) +local Golden_MaybeChain_Test_identity = function(x_S_313) return x_S_313 end +local Golden_MaybeChain_Test_map_S_w = function(v_S_308, v1_S_309) if "Data.Maybe∷Maybe.Just" == v1_S_309["$ctor"] then - return M.Data_Maybe_Just(v_S_308(v1_S_309.value0)) + return Data_Maybe_Just(v_S_308(v1_S_309.value0)) else - return M.Data_Maybe_Nothing + return Data_Maybe_Nothing end end return (function() - local Data_Maybe_maybe_S_w, Data_Maybe_Just, Data_Maybe_Nothing, Data_Show_foreign, Effect_Console_foreign, Golden_MaybeChain_Test_identity, Golden_MaybeChain_Test_map_S_w = M.Data_Maybe_maybe_S_w, M.Data_Maybe_Just, M.Data_Maybe_Nothing, M.Data_Show_foreign, M.Effect_Console_foreign, M.Golden_MaybeChain_Test_identity, M.Golden_MaybeChain_Test_map_S_w local _ = Effect_Console_foreign.log(Data_Show_foreign.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(function( x_S_0 ) return x_S_0 end, Data_Maybe_Nothing)))))() diff --git a/test/ps/output/Golden.MaybeChainModule.Test/golden.lua b/test/ps/output/Golden.MaybeChainModule.Test/golden.lua index d4bad632..27d09c06 100644 --- a/test/ps/output/Golden.MaybeChainModule.Test/golden.lua +++ b/test/ps/output/Golden.MaybeChainModule.Test/golden.lua @@ -1,9 +1,8 @@ -local M = {} -M.Data_Maybe_Nothing = { ["$ctor"] = "Data.Maybe∷Maybe.Nothing" } -M.Data_Maybe_Just = function(value0) +local Data_Maybe_Nothing = { ["$ctor"] = "Data.Maybe∷Maybe.Nothing" } +local Data_Maybe_Just = function(value0) return { ["$ctor"] = "Data.Maybe∷Maybe.Just", value0 = value0 } end -M.Data_Maybe_maybe_S_w = function(v, v1, v2) +local Data_Maybe_maybe_S_w = function(v, v1, v2) if "Data.Maybe∷Maybe.Nothing" == v2["$ctor"] then return v elseif "Data.Maybe∷Maybe.Just" == v2["$ctor"] then @@ -12,19 +11,21 @@ M.Data_Maybe_maybe_S_w = function(v, v1, v2) return error("No patterns matched") end end -M.Golden_MaybeChainModule_Test_identity = function(x_S_287) return x_S_287 end -M.Golden_MaybeChainModule_Test_map_S_w = function(v_S_284, v1_S_285) +local Golden_MaybeChainModule_Test_identity = function(x_S_287) + return x_S_287 +end +local Golden_MaybeChainModule_Test_map_S_w = function(v_S_284, v1_S_285) if "Data.Maybe∷Maybe.Just" == v1_S_285["$ctor"] then - return M.Data_Maybe_Just(v_S_284(v1_S_285.value0)) + return Data_Maybe_Just(v_S_284(v1_S_285.value0)) else - return M.Data_Maybe_Nothing + return Data_Maybe_Nothing end end return { - chainedNothing = M.Data_Maybe_maybe_S_w(0, M.Golden_MaybeChainModule_Test_identity, M.Data_Maybe_maybe_S_w(M.Data_Maybe_Nothing, M.Data_Maybe_Just, M.Golden_MaybeChainModule_Test_map_S_w(function( x_S_1 ) + 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 ) return x_S_1 - end, M.Data_Maybe_Nothing))), - chainedJust = M.Data_Maybe_maybe_S_w(0, M.Golden_MaybeChainModule_Test_identity, M.Data_Maybe_maybe_S_w(M.Data_Maybe_Nothing, M.Data_Maybe_Just, M.Golden_MaybeChainModule_Test_map_S_w(function( x_S_0 ) + 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_0 ) return x_S_0 - end, M.Data_Maybe_Just(42)))) + end, Data_Maybe_Just(42)))) } diff --git a/test/ps/output/Golden.NameShadowing.Test/golden.lua b/test/ps/output/Golden.NameShadowing.Test/golden.lua index 69413059..2725a1fe 100644 --- a/test/ps/output/Golden.NameShadowing.Test/golden.lua +++ b/test/ps/output/Golden.NameShadowing.Test/golden.lua @@ -1,17 +1,15 @@ -local M = {} -M.Golden_NameShadowing_Test_f_S_w = function(v, v1) +local Golden_NameShadowing_Test_f_S_w = function(v, v1) if 1 == v then return 1 elseif 1 == v1 then return 2 else return 3 end end return { b = function(x_S_0) return function(x1_S_1) - local Golden_NameShadowing_Test_f_S_w = M.Golden_NameShadowing_Test_f_S_w return Golden_NameShadowing_Test_f_S_w(Golden_NameShadowing_Test_f_S_w(x_S_0, x1_S_1), Golden_NameShadowing_Test_f_S_w(42, 1)) end end, c = function(x_S_3) return function(x1_S_4) - return M.Golden_NameShadowing_Test_f_S_w(x1_S_4, x_S_3) + return Golden_NameShadowing_Test_f_S_w(x1_S_4, x_S_3) end end } diff --git a/test/ps/output/Golden.Nested.Test/golden.lua b/test/ps/output/Golden.Nested.Test/golden.lua index 7ae7cd7c..0e2da599 100644 --- a/test/ps/output/Golden.Nested.Test/golden.lua +++ b/test/ps/output/Golden.Nested.Test/golden.lua @@ -1,3 +1,2 @@ -local M = {} -M.Golden_Nested_Test_isZero = function(v) return 0 == v end -return { isZero = M.Golden_Nested_Test_isZero, main = "ha" } +local Golden_Nested_Test_isZero = function(v) return 0 == v end +return { isZero = Golden_Nested_Test_isZero, main = "ha" } diff --git a/test/ps/output/Golden.Newtype.Test/golden.lua b/test/ps/output/Golden.Newtype.Test/golden.lua index 17ce7b77..86ec9f69 100644 --- a/test/ps/output/Golden.Newtype.Test/golden.lua +++ b/test/ps/output/Golden.Newtype.Test/golden.lua @@ -1,7 +1,6 @@ -local M = {} -M.Golden_Newtype_Test_NT = function(x) return x end +local Golden_Newtype_Test_NT = function(x) return x end return { - NT = M.Golden_Newtype_Test_NT, + NT = Golden_Newtype_Test_NT, f = function(v_S_0) return v_S_0.foo end, - g = M.Golden_Newtype_Test_NT + g = Golden_Newtype_Test_NT } diff --git a/test/ps/output/Golden.PatternMatching.Test2/golden.lua b/test/ps/output/Golden.PatternMatching.Test2/golden.lua index 18d934d6..e6ed211b 100644 --- a/test/ps/output/Golden.PatternMatching.Test2/golden.lua +++ b/test/ps/output/Golden.PatternMatching.Test2/golden.lua @@ -1,5 +1,4 @@ -local M = {} -M.Golden_PatternMatching_Test2_bat = function(n) +local Golden_PatternMatching_Test2_bat = function(n) while true do if "Golden.PatternMatching.Test1∷N.Zero" == n["$ctor"] then return 1 @@ -59,5 +58,5 @@ return { return 6 end end, - bat = M.Golden_PatternMatching_Test2_bat + bat = Golden_PatternMatching_Test2_bat } diff --git a/test/ps/output/Golden.Primops.Test/golden.lua b/test/ps/output/Golden.Primops.Test/golden.lua index d95c9861..87bb431b 100644 --- a/test/ps/output/Golden.Primops.Test/golden.lua +++ b/test/ps/output/Golden.Primops.Test/golden.lua @@ -1,14 +1,14 @@ local M = {} -M.Data_Show_foreign = { showIntImpl = function(n) return tostring(n) end } -M.Effect_Console_foreign = { +local Data_Show_foreign = { showIntImpl = function(n) return tostring(n) end } +local Effect_Console_foreign = { log = function(s) return function() print(s) end end } -M.Data_HeytingAlgebra_heytingAlgebraBoolean = { +local Data_HeytingAlgebra_heytingAlgebraBoolean +Data_HeytingAlgebra_heytingAlgebraBoolean = { ff = false, tt = true, implies = function(a) return function(b) - local Data_HeytingAlgebra_heytingAlgebraBoolean = M.Data_HeytingAlgebra_heytingAlgebraBoolean return Data_HeytingAlgebra_heytingAlgebraBoolean.disj(Data_HeytingAlgebra_heytingAlgebraBoolean._not_(a))(b) end end, @@ -20,10 +20,10 @@ M.Data_HeytingAlgebra_heytingAlgebraBoolean = { end, _not_ = function(b_S_210) return not(b_S_210) end } -M.Effect_Console_logShow_S_w = function(dictShow, a) - return M.Effect_Console_foreign.log(dictShow.show(a)) +local Effect_Console_logShow_S_w = function(dictShow, a) + return Effect_Console_foreign.log(dictShow.show(a)) end -M.Golden_Primops_Test_sumTo_S_w = function(acc, n) +local Golden_Primops_Test_sumTo_S_w = function(acc, n) while true do if "Data.Ordering∷Ordering.GT" == (function() if n < 0 then @@ -42,14 +42,13 @@ M.Golden_Primops_Test_sumTo_S_w = function(acc, n) end M.Golden_Primops_Test_sumTo = function(sumTo_S_p1) return function(sumTo_S_p2) - return M.Golden_Primops_Test_sumTo_S_w(sumTo_S_p1, sumTo_S_p2) + return Golden_Primops_Test_sumTo_S_w(sumTo_S_p1, sumTo_S_p2) end end return (function() - local Effect_Console_logShow_S_w, Data_HeytingAlgebra_heytingAlgebraBoolean = M.Effect_Console_logShow_S_w, M.Data_HeytingAlgebra_heytingAlgebraBoolean local _ = Effect_Console_logShow_S_w({ - show = M.Data_Show_foreign.showIntImpl - }, M.Golden_Primops_Test_sumTo_S_w(0, 5))() + show = Data_Show_foreign.showIntImpl + }, Golden_Primops_Test_sumTo_S_w(0, 5))() local _ = Effect_Console_logShow_S_w({ show = function(v_S_117_S_250) if v_S_117_S_250 then @@ -85,7 +84,7 @@ return (function() end end }, { ["$ctor"] = "Data.Ordering∷Ordering.LT" })() - local _ = M.Effect_Console_foreign.log("foobar")() + local _ = Effect_Console_foreign.log("foobar")() return Effect_Console_logShow_S_w({ show = function(v_S_117_S_260) if v_S_117_S_260 then diff --git a/test/ps/output/Golden.ProfunctorDictLens.Test/golden.lua b/test/ps/output/Golden.ProfunctorDictLens.Test/golden.lua index 34081521..c93afb71 100644 --- a/test/ps/output/Golden.ProfunctorDictLens.Test/golden.lua +++ b/test/ps/output/Golden.ProfunctorDictLens.Test/golden.lua @@ -1,16 +1,15 @@ local M = {} -M.Data_Show_foreign = { showIntImpl = function(n) return tostring(n) end } -M.Unsafe_Coerce_foreign = { unsafeCoerce = function(x) return x end } -M.Effect_Console_foreign = { +local Data_Show_foreign = { showIntImpl = function(n) return tostring(n) end } +local Unsafe_Coerce_foreign = { unsafeCoerce = function(x) return x end } +local Effect_Console_foreign = { log = function(s) return function() print(s) end end } -M.Golden_ProfunctorDictLens_Test_unwrap = M.Unsafe_Coerce_foreign.unsafeCoerce -M.Golden_ProfunctorDictLens_Test_Wrapped = function(x) return x end +local Golden_ProfunctorDictLens_Test_unwrap = Unsafe_Coerce_foreign.unsafeCoerce +local Golden_ProfunctorDictLens_Test_Wrapped = function(x) return x end M.Golden_ProfunctorDictLens_Test__Wrapped = function(dictProfunctor) - return dictProfunctor.dimap(M.Golden_ProfunctorDictLens_Test_unwrap)(M.Golden_ProfunctorDictLens_Test_Wrapped) + return dictProfunctor.dimap(Golden_ProfunctorDictLens_Test_unwrap)(Golden_ProfunctorDictLens_Test_Wrapped) end return (function() - local Golden_ProfunctorDictLens_Test_unwrap, Data_Show_foreign, Effect_Console_foreign, Unsafe_Coerce_foreign = M.Golden_ProfunctorDictLens_Test_unwrap, M.Data_Show_foreign, M.Effect_Console_foreign, M.Unsafe_Coerce_foreign local _ = Effect_Console_foreign.log(Data_Show_foreign.showIntImpl(Golden_ProfunctorDictLens_Test_unwrap(Golden_ProfunctorDictLens_Test_unwrap(10) + 1)))() local _ = Effect_Console_foreign.log(Data_Show_foreign.showIntImpl(Golden_ProfunctorDictLens_Test_unwrap(Golden_ProfunctorDictLens_Test_unwrap(10) * 2)))() return Effect_Console_foreign.log(Data_Show_foreign.showIntImpl(Golden_ProfunctorDictLens_Test_unwrap(Unsafe_Coerce_foreign.unsafeCoerce(Unsafe_Coerce_foreign.unsafeCoerce(10) - 5))))() diff --git a/test/ps/output/Golden.RecDataDefs.Test/golden.lua b/test/ps/output/Golden.RecDataDefs.Test/golden.lua index 8b9ca509..7ff5e087 100644 --- a/test/ps/output/Golden.RecDataDefs.Test/golden.lua +++ b/test/ps/output/Golden.RecDataDefs.Test/golden.lua @@ -1,20 +1,19 @@ -local M = {} -M.Golden_RecDataDefs_Test_A = { ["$ctor"] = "Golden.RecDataDefs.Test∷A.A" } -M.Golden_RecDataDefs_Test_AB = function(value0) +local Golden_RecDataDefs_Test_A = { ["$ctor"] = "Golden.RecDataDefs.Test∷A.A" } +local Golden_RecDataDefs_Test_AB = function(value0) return { ["$ctor"] = "Golden.RecDataDefs.Test∷A.AB", value0 = value0 } end -M.Golden_RecDataDefs_Test_B = { ["$ctor"] = "Golden.RecDataDefs.Test∷B.B" } -M.Golden_RecDataDefs_Test_BA = function(value0) +local Golden_RecDataDefs_Test_B = { ["$ctor"] = "Golden.RecDataDefs.Test∷B.B" } +local Golden_RecDataDefs_Test_BA = function(value0) return { ["$ctor"] = "Golden.RecDataDefs.Test∷B.BA", value0 = value0 } end -M.Golden_RecDataDefs_Test_ab = M.Golden_RecDataDefs_Test_AB(M.Golden_RecDataDefs_Test_B) +local Golden_RecDataDefs_Test_ab = Golden_RecDataDefs_Test_AB(Golden_RecDataDefs_Test_B) return { - A = M.Golden_RecDataDefs_Test_A, - AB = M.Golden_RecDataDefs_Test_AB, - B = M.Golden_RecDataDefs_Test_B, - BA = M.Golden_RecDataDefs_Test_BA, - a = M.Golden_RecDataDefs_Test_A, - b = M.Golden_RecDataDefs_Test_B, - ab = M.Golden_RecDataDefs_Test_ab, - ba = M.Golden_RecDataDefs_Test_BA(M.Golden_RecDataDefs_Test_ab) + A = Golden_RecDataDefs_Test_A, + AB = Golden_RecDataDefs_Test_AB, + B = Golden_RecDataDefs_Test_B, + BA = Golden_RecDataDefs_Test_BA, + a = Golden_RecDataDefs_Test_A, + b = Golden_RecDataDefs_Test_B, + ab = Golden_RecDataDefs_Test_ab, + ba = Golden_RecDataDefs_Test_BA(Golden_RecDataDefs_Test_ab) } diff --git a/test/ps/output/Golden.RecGroupOrder.Test/golden.lua b/test/ps/output/Golden.RecGroupOrder.Test/golden.lua index 3aa12754..1eccc254 100644 --- a/test/ps/output/Golden.RecGroupOrder.Test/golden.lua +++ b/test/ps/output/Golden.RecGroupOrder.Test/golden.lua @@ -17,8 +17,8 @@ local function PSLUA_runtime_lazy(name) end end local M = {} -M.Data_Unit_foreign = { unit = {} } -M.Effect_Console_foreign = { +local Data_Unit_foreign = { unit = {} } +local Effect_Console_foreign = { log = function(s) return function() print(s) end end } M.Golden_RecGroupOrder_Test_store = function(f) @@ -31,5 +31,5 @@ return (function() return { run = function() return (Lazy_record_S_0(0)).tag end, tag = "ok!" } end) record_S_1 = Lazy_record_S_0(0) - return M.Effect_Console_foreign.log(record_S_1.run(M.Data_Unit_foreign.unit)) + return Effect_Console_foreign.log(record_S_1.run(Data_Unit_foreign.unit)) end)()() diff --git a/test/ps/output/Golden.RecordsAccess.Test/golden.lua b/test/ps/output/Golden.RecordsAccess.Test/golden.lua index f5830482..d3edbb52 100644 --- a/test/ps/output/Golden.RecordsAccess.Test/golden.lua +++ b/test/ps/output/Golden.RecordsAccess.Test/golden.lua @@ -1,7 +1,6 @@ -local M = {} -M.Golden_RecordsAccess_Test_r = { x = 1, y = true } +local Golden_RecordsAccess_Test_r = { x = 1, y = true } return { - r = M.Golden_RecordsAccess_Test_r, + r = Golden_RecordsAccess_Test_r, test1 = 1, test2 = function(v_S_0) return v_S_0.x end, test3 = function(v_S_1) return v_S_1.x end, diff --git a/test/ps/output/Golden.RecordsUpdate.Test/golden.lua b/test/ps/output/Golden.RecordsUpdate.Test/golden.lua index 78d631b3..0a8bd5ca 100644 --- a/test/ps/output/Golden.RecordsUpdate.Test/golden.lua +++ b/test/ps/output/Golden.RecordsUpdate.Test/golden.lua @@ -6,11 +6,14 @@ local function PSLUA_object_update(o, patches) end return o_copy end -local M = {} -M.Golden_RecordsUpdate_Test_r = { x = 1, y = true, z = { z = "foo", p = "a" } } +local Golden_RecordsUpdate_Test_r = { + x = 1, + y = true, + z = { z = "foo", p = "a" } +} return { - r = M.Golden_RecordsUpdate_Test_r, - test1 = PSLUA_object_update(M.Golden_RecordsUpdate_Test_r, { x = 2 }), + r = Golden_RecordsUpdate_Test_r, + test1 = PSLUA_object_update(Golden_RecordsUpdate_Test_r, { x = 2 }), test2 = function(v_S_1) return PSLUA_object_update(v_S_1, { y = false }) end, test3 = function(v_S_2) return PSLUA_object_update(v_S_2, { diff --git a/test/ps/output/Golden.StringCodePoints.Test/golden.lua b/test/ps/output/Golden.StringCodePoints.Test/golden.lua index acab6373..7d2004c9 100644 --- a/test/ps/output/Golden.StringCodePoints.Test/golden.lua +++ b/test/ps/output/Golden.StringCodePoints.Test/golden.lua @@ -17,7 +17,7 @@ local function PSLUA_runtime_lazy(name) end end local M = {} -M.Data_Show_foreign = { +local Data_Show_foreign = { showIntImpl = function(n) return tostring(n) end, showArrayImpl = function(f) return function(xs) @@ -28,7 +28,7 @@ M.Data_Show_foreign = { end end } -M.Data_Functor_foreign = { +local Data_Functor_foreign = { arrayMap = function(f) return function(arr) local l = #(arr) @@ -38,7 +38,7 @@ M.Data_Functor_foreign = { end end } -M.Data_Bounded_foreign = { +local Data_Bounded_foreign = { -- Lua 5.1 compatibility: -- * math.maxinteger/math.mininteger appeared in Lua 5.3; PureScript Int -- is a 32-bit integer, so its bounds are spelled out literally. @@ -48,7 +48,7 @@ M.Data_Bounded_foreign = { topChar = "\255", bottomChar = "\0" } -M.Data_EuclideanRing_foreign = { +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, @@ -66,8 +66,8 @@ M.Data_EuclideanRing_foreign = { end end } -M.Partial_Unsafe_foreign = { _unsafePartial = function(f) return f() end } -M.Data_Unfoldable_foreign = { +local Partial_Unsafe_foreign = { _unsafePartial = function(f) return f() end } +local Data_Unfoldable_foreign = { unfoldrArrayImpl = function(isNothing) return function(fromJust) return function(fst) @@ -90,8 +90,8 @@ M.Data_Unfoldable_foreign = { end end } -M.Data_Array_foreign = { length = function(xs) return #(xs) end } -M.Data_Enum_foreign = { +local Data_Array_foreign = { length = function(xs) return #(xs) end } +local Data_Enum_foreign = { toCharCode = function(c) -- pslua compiles a PureScript Char literal as a string of its UTF-8 bytes, -- so decode the first code point (JS c.charCodeAt(0)) when the WHOLE @@ -124,7 +124,7 @@ M.Data_Enum_foreign = { return string.char(240 + math.floor(n / 262144), 128 + math.floor(n / 4096) % 64, 128 + math.floor(n / 64) % 64, 128 + n % 64) end } -M.Data_String_Unsafe_foreign = { +local Data_String_Unsafe_foreign = { charAt = function(i) return function(s) if i >= 0 and i < #(s) then return s:sub(i + 1, i + 1) end @@ -132,7 +132,7 @@ M.Data_String_Unsafe_foreign = { end end } -M.Data_String_CodeUnits_foreign = { +local Data_String_CodeUnits_foreign = { -- PureScript indices are 0-based, Lua string positions are 1-based; -- the exports below convert between the two. Pattern arguments are -- literal strings, hence string.find in plain mode. Index clamping @@ -142,7 +142,7 @@ M.Data_String_CodeUnits_foreign = { length = function(s) return #(s) end, drop = function(n) return function(s) return s:sub(math.max(n, 0) + 1) end end } -M.Data_String_CodePoints_foreign = (function() +local Data_String_CodePoints_foreign = (function() -- In pslua a PureScript String is a Lua byte string holding UTF-8, -- so code-point operations decode/encode UTF-8 directly. The PureScript -- fallback arguments are written for UTF-16 code units and are wrong @@ -247,15 +247,15 @@ M.Data_String_CodePoints_foreign = (function() end } end)() -M.Effect_Console_foreign = { +local Effect_Console_foreign = { log = function(s) return function() print(s) end end } -M.Data_HeytingAlgebra_heytingAlgebraBoolean = { +local Data_HeytingAlgebra_heytingAlgebraBoolean +Data_HeytingAlgebra_heytingAlgebraBoolean = { ff = false, tt = true, implies = function(a) return function(b) - local Data_HeytingAlgebra_heytingAlgebraBoolean = M.Data_HeytingAlgebra_heytingAlgebraBoolean return Data_HeytingAlgebra_heytingAlgebraBoolean.disj(Data_HeytingAlgebra_heytingAlgebraBoolean._not_(a))(b) end end, @@ -267,62 +267,61 @@ M.Data_HeytingAlgebra_heytingAlgebraBoolean = { end, _not_ = function(b_S_1494) return not(b_S_1494) end } -M.Data_Eq_eqInt = { +local Data_Eq_eqInt = { eq = function(r1_S_1490) return function(r2_S_1491) return r1_S_1490 == r2_S_1491 end end } -M.Data_Show_showInt = { show = M.Data_Show_foreign.showIntImpl } -M.Data_Ordering_LT = { ["$ctor"] = "Data.Ordering∷Ordering.LT" } -M.Data_Ordering_GT = { ["$ctor"] = "Data.Ordering∷Ordering.GT" } -M.Data_Ordering_EQ = { ["$ctor"] = "Data.Ordering∷Ordering.EQ" } -M.Data_Ord_ordInt = { +local Data_Show_showInt = { show = Data_Show_foreign.showIntImpl } +local Data_Ordering_LT = { ["$ctor"] = "Data.Ordering∷Ordering.LT" } +local Data_Ordering_GT = { ["$ctor"] = "Data.Ordering∷Ordering.GT" } +local Data_Ordering_EQ = { ["$ctor"] = "Data.Ordering∷Ordering.EQ" } +local Data_Ord_ordInt = { compare = function(x_S_1474) return function(y_S_1475) if x_S_1474 < y_S_1475 then - return M.Data_Ordering_LT + return Data_Ordering_LT elseif x_S_1474 == y_S_1475 then - return M.Data_Ordering_EQ + return Data_Ordering_EQ else - return M.Data_Ordering_GT + return Data_Ordering_GT end end end, - Eq0 = function() return M.Data_Eq_eqInt end + Eq0 = function() return Data_Eq_eqInt end } -M.Data_Ord_greaterThanOrEq_S_w = function(dictOrd, a1, a2) +local Data_Ord_greaterThanOrEq_S_w = function(dictOrd, a1, a2) return "Data.Ordering∷Ordering.LT" ~= (dictOrd.compare(a1)(a2))["$ctor"] end -M.Data_Ord_lessThan_S_w = function(dictOrd, a1, a2) +local Data_Ord_lessThan_S_w = function(dictOrd, a1, a2) return "Data.Ordering∷Ordering.LT" == (dictOrd.compare(a1)(a2))["$ctor"] end -M.Data_Ord_lessThanOrEq_S_w = function(dictOrd, a1, a2) +local Data_Ord_lessThanOrEq_S_w = function(dictOrd, a1, a2) return "Data.Ordering∷Ordering.GT" ~= (dictOrd.compare(a1)(a2))["$ctor"] end -M.Data_Maybe_Nothing = { ["$ctor"] = "Data.Maybe∷Maybe.Nothing" } -M.Data_Maybe_Just = function(value0) +local Data_Maybe_Nothing = { ["$ctor"] = "Data.Maybe∷Maybe.Nothing" } +local Data_Maybe_Just = function(value0) return { ["$ctor"] = "Data.Maybe∷Maybe.Just", value0 = value0 } end -M.Data_Enum_bottom1 = M.Data_Bounded_foreign.bottomChar -M.Data_Enum_top1 = M.Data_Bounded_foreign.topChar -M.Data_String_CodePoints_conj = M.Data_HeytingAlgebra_heytingAlgebraBoolean.conj -M.Data_String_CodePoints_fromEnum = M.Data_Enum_foreign.toCharCode -M.Data_String_CodePoints_unsafeCodePointAt0 = M.Data_String_CodePoints_foreign._unsafeCodePointAt0(function( s_S_27 ) - local Data_Ord_lessThanOrEq_S_w, Data_Ord_ordInt, Data_String_CodePoints_conj = M.Data_Ord_lessThanOrEq_S_w, M.Data_Ord_ordInt, M.Data_String_CodePoints_conj - local cu0_S_28 = M.Data_String_CodePoints_fromEnum(M.Data_String_Unsafe_foreign.charAt(0)(s_S_27)) +local Data_Enum_bottom1 = Data_Bounded_foreign.bottomChar +local Data_Enum_top1 = Data_Bounded_foreign.topChar +local Data_String_CodePoints_conj = Data_HeytingAlgebra_heytingAlgebraBoolean.conj +local Data_String_CodePoints_fromEnum = Data_Enum_foreign.toCharCode +local Data_String_CodePoints_unsafeCodePointAt0 = Data_String_CodePoints_foreign._unsafeCodePointAt0(function( s_S_27 ) + local cu0_S_28 = Data_String_CodePoints_fromEnum(Data_String_Unsafe_foreign.charAt(0)(s_S_27)) if Data_String_CodePoints_conj(Data_String_CodePoints_conj(Data_Ord_lessThanOrEq_S_w(Data_Ord_ordInt, 55296, cu0_S_28))(Data_Ord_lessThanOrEq_S_w(Data_Ord_ordInt, cu0_S_28, 56319)))("Data.Ordering∷Ordering.GT" == ((function( ) - local x_S_1474_S_1598 = M.Data_String_CodeUnits_foreign.length(s_S_27) + local x_S_1474_S_1598 = Data_String_CodeUnits_foreign.length(s_S_27) return function(y_S_1475_S_1599) if x_S_1474_S_1598 < y_S_1475_S_1599 then - return M.Data_Ordering_LT + return Data_Ordering_LT elseif x_S_1474_S_1598 == y_S_1475_S_1599 then - return M.Data_Ordering_EQ + return Data_Ordering_EQ else - return M.Data_Ordering_GT + return Data_Ordering_GT end end end)()(1))["$ctor"]) then - local cu1_S_30 = M.Data_String_CodePoints_fromEnum(M.Data_String_Unsafe_foreign.charAt(1)(s_S_27)) + local cu1_S_30 = Data_String_CodePoints_fromEnum(Data_String_Unsafe_foreign.charAt(1)(s_S_27)) if Data_String_CodePoints_conj(Data_Ord_lessThanOrEq_S_w(Data_Ord_ordInt, 56320, cu1_S_30))(Data_Ord_lessThanOrEq_S_w(Data_Ord_ordInt, cu1_S_30, 57343)) then return (cu0_S_28 - 55296) * 1024 + (cu1_S_30 - 56320) + 65536 else @@ -332,23 +331,23 @@ M.Data_String_CodePoints_unsafeCodePointAt0 = M.Data_String_CodePoints_foreign._ return cu0_S_28 end end) -M.Data_String_CodePoints_singletonFallback = function(v) - if M.Data_Ord_lessThanOrEq_S_w(M.Data_Ord_ordInt, v, 65535) then - return M.Data_String_CodeUnits_foreign.singleton((function() +local Data_String_CodePoints_singletonFallback = function(v) + if Data_Ord_lessThanOrEq_S_w(Data_Ord_ordInt, v, 65535) then + return Data_String_CodeUnits_foreign.singleton((function() local v_S_63_S_1762 = (function() - if M.Data_HeytingAlgebra_heytingAlgebraBoolean.conj(M.Data_Ord_greaterThanOrEq_S_w(M.Data_Ord_ordInt, v, M.Data_Enum_foreign.toCharCode(M.Data_Enum_bottom1)))(M.Data_Ord_lessThanOrEq_S_w(M.Data_Ord_ordInt, v, M.Data_Enum_foreign.toCharCode(M.Data_Enum_top1))) then - return M.Data_Maybe_Just(M.Data_Enum_foreign.fromCharCode(v)) + if Data_HeytingAlgebra_heytingAlgebraBoolean.conj(Data_Ord_greaterThanOrEq_S_w(Data_Ord_ordInt, v, Data_Enum_foreign.toCharCode(Data_Enum_bottom1)))(Data_Ord_lessThanOrEq_S_w(Data_Ord_ordInt, v, Data_Enum_foreign.toCharCode(Data_Enum_top1))) then + return Data_Maybe_Just(Data_Enum_foreign.fromCharCode(v)) else - return M.Data_Maybe_Nothing + return Data_Maybe_Nothing end end)() if "Data.Maybe∷Maybe.Just" == v_S_63_S_1762["$ctor"] then return v_S_63_S_1762.value0 elseif "Data.Maybe∷Maybe.Nothing" == v_S_63_S_1762["$ctor"] then - if M.Data_Ord_lessThan_S_w(M.Data_Ord_ordInt, v, M.Data_Enum_foreign.toCharCode(M.Data_Bounded_foreign.bottomChar)) then - return M.Data_Bounded_foreign.bottomChar + if Data_Ord_lessThan_S_w(Data_Ord_ordInt, v, Data_Enum_foreign.toCharCode(Data_Bounded_foreign.bottomChar)) then + return Data_Bounded_foreign.bottomChar else - return M.Data_Bounded_foreign.topChar + return Data_Bounded_foreign.topChar end else return error("No patterns matched") @@ -356,44 +355,44 @@ M.Data_String_CodePoints_singletonFallback = function(v) end)()) else return (function() - local x_S_1612_S_1699_S_1763 = M.Data_EuclideanRing_foreign.intDiv(v - 65536)(1024) + 55296 - return M.Data_String_CodeUnits_foreign.singleton((function() + local x_S_1612_S_1699_S_1763 = Data_EuclideanRing_foreign.intDiv(v - 65536)(1024) + 55296 + return Data_String_CodeUnits_foreign.singleton((function() local v_S_63_S_1764 = (function() - if M.Data_HeytingAlgebra_heytingAlgebraBoolean.conj(M.Data_Ord_greaterThanOrEq_S_w(M.Data_Ord_ordInt, x_S_1612_S_1699_S_1763, M.Data_Enum_foreign.toCharCode(M.Data_Enum_bottom1)))(M.Data_Ord_lessThanOrEq_S_w(M.Data_Ord_ordInt, x_S_1612_S_1699_S_1763, M.Data_Enum_foreign.toCharCode(M.Data_Enum_top1))) then - return M.Data_Maybe_Just(M.Data_Enum_foreign.fromCharCode(x_S_1612_S_1699_S_1763)) + if Data_HeytingAlgebra_heytingAlgebraBoolean.conj(Data_Ord_greaterThanOrEq_S_w(Data_Ord_ordInt, x_S_1612_S_1699_S_1763, Data_Enum_foreign.toCharCode(Data_Enum_bottom1)))(Data_Ord_lessThanOrEq_S_w(Data_Ord_ordInt, x_S_1612_S_1699_S_1763, Data_Enum_foreign.toCharCode(Data_Enum_top1))) then + return Data_Maybe_Just(Data_Enum_foreign.fromCharCode(x_S_1612_S_1699_S_1763)) else - return M.Data_Maybe_Nothing + return Data_Maybe_Nothing end end)() if "Data.Maybe∷Maybe.Just" == v_S_63_S_1764["$ctor"] then return v_S_63_S_1764.value0 elseif "Data.Maybe∷Maybe.Nothing" == v_S_63_S_1764["$ctor"] then - if M.Data_Ord_lessThan_S_w(M.Data_Ord_ordInt, x_S_1612_S_1699_S_1763, M.Data_Enum_foreign.toCharCode(M.Data_Bounded_foreign.bottomChar)) then - return M.Data_Bounded_foreign.bottomChar + if Data_Ord_lessThan_S_w(Data_Ord_ordInt, x_S_1612_S_1699_S_1763, Data_Enum_foreign.toCharCode(Data_Bounded_foreign.bottomChar)) then + return Data_Bounded_foreign.bottomChar else - return M.Data_Bounded_foreign.topChar + return Data_Bounded_foreign.topChar end else return error("No patterns matched") end end)()) end)() .. (function() - local x_S_1612_S_1699_S_1765 = M.Data_EuclideanRing_foreign.intMod(v - 65536)(1024) + 56320 - return M.Data_String_CodeUnits_foreign.singleton((function() + local x_S_1612_S_1699_S_1765 = Data_EuclideanRing_foreign.intMod(v - 65536)(1024) + 56320 + return Data_String_CodeUnits_foreign.singleton((function() local v_S_63_S_1766 = (function() - if M.Data_HeytingAlgebra_heytingAlgebraBoolean.conj(M.Data_Ord_greaterThanOrEq_S_w(M.Data_Ord_ordInt, x_S_1612_S_1699_S_1765, M.Data_Enum_foreign.toCharCode(M.Data_Enum_bottom1)))(M.Data_Ord_lessThanOrEq_S_w(M.Data_Ord_ordInt, x_S_1612_S_1699_S_1765, M.Data_Enum_foreign.toCharCode(M.Data_Enum_top1))) then - return M.Data_Maybe_Just(M.Data_Enum_foreign.fromCharCode(x_S_1612_S_1699_S_1765)) + if Data_HeytingAlgebra_heytingAlgebraBoolean.conj(Data_Ord_greaterThanOrEq_S_w(Data_Ord_ordInt, x_S_1612_S_1699_S_1765, Data_Enum_foreign.toCharCode(Data_Enum_bottom1)))(Data_Ord_lessThanOrEq_S_w(Data_Ord_ordInt, x_S_1612_S_1699_S_1765, Data_Enum_foreign.toCharCode(Data_Enum_top1))) then + return Data_Maybe_Just(Data_Enum_foreign.fromCharCode(x_S_1612_S_1699_S_1765)) else - return M.Data_Maybe_Nothing + return Data_Maybe_Nothing end end)() if "Data.Maybe∷Maybe.Just" == v_S_63_S_1766["$ctor"] then return v_S_63_S_1766.value0 elseif "Data.Maybe∷Maybe.Nothing" == v_S_63_S_1766["$ctor"] then - if M.Data_Ord_lessThan_S_w(M.Data_Ord_ordInt, x_S_1612_S_1699_S_1765, M.Data_Enum_foreign.toCharCode(M.Data_Bounded_foreign.bottomChar)) then - return M.Data_Bounded_foreign.bottomChar + if Data_Ord_lessThan_S_w(Data_Ord_ordInt, x_S_1612_S_1699_S_1765, Data_Enum_foreign.toCharCode(Data_Bounded_foreign.bottomChar)) then + return Data_Bounded_foreign.bottomChar else - return M.Data_Bounded_foreign.topChar + return Data_Bounded_foreign.topChar end else return error("No patterns matched") @@ -402,16 +401,16 @@ M.Data_String_CodePoints_singletonFallback = function(v) end)() end end -M.Data_String_CodePoints_singleton = M.Data_String_CodePoints_foreign._singleton(M.Data_String_CodePoints_singletonFallback) -M.Data_String_CodePoints_ordCodePoint = { +local Data_String_CodePoints_singleton = Data_String_CodePoints_foreign._singleton(Data_String_CodePoints_singletonFallback) +local Data_String_CodePoints_ordCodePoint = { compare = function(x) return function(y) if x < y then - return M.Data_Ordering_LT + return Data_Ordering_LT elseif x == y then - return M.Data_Ordering_EQ + return Data_Ordering_EQ else - return M.Data_Ordering_GT + return Data_Ordering_GT end end end, @@ -423,42 +422,43 @@ M.Data_String_CodePoints_ordCodePoint = { } end } -M.Data_String_CodePoints_uncons = function(s) - if M.Data_String_CodeUnits_foreign.length(s) == 0 then - return M.Data_Maybe_Nothing +local Data_String_CodePoints_drop_S_w +local Data_String_CodePoints_uncons = function(s) + if Data_String_CodeUnits_foreign.length(s) == 0 then + return Data_Maybe_Nothing else - return M.Data_Maybe_Just({ - head = M.Data_String_CodePoints_unsafeCodePointAt0(s), - tail = M.Data_String_CodePoints_drop_S_w(1, s) + return Data_Maybe_Just({ + head = Data_String_CodePoints_unsafeCodePointAt0(s), + tail = Data_String_CodePoints_drop_S_w(1, s) }) end end -M.Data_String_CodePoints_takeFallback_S_w = function(v, v1) - if M.Data_Ord_lessThan_S_w(M.Data_Ord_ordInt, v, 1) then +local Data_String_CodePoints_takeFallback_S_w +Data_String_CodePoints_takeFallback_S_w = function(v, v1) + if Data_Ord_lessThan_S_w(Data_Ord_ordInt, v, 1) then return "" else - local v2_S_17 = M.Data_String_CodePoints_uncons(v1) + local v2_S_17 = Data_String_CodePoints_uncons(v1) if "Data.Maybe∷Maybe.Just" == v2_S_17["$ctor"] then - return M.Data_String_CodePoints_singleton(v2_S_17.value0.head) .. M.Data_String_CodePoints_takeFallback_S_w(v - 1, v2_S_17.value0.tail) + return Data_String_CodePoints_singleton(v2_S_17.value0.head) .. Data_String_CodePoints_takeFallback_S_w(v - 1, v2_S_17.value0.tail) else return v1 end end end -M.Data_String_CodePoints_takeFallback = function(takeFallback_S_p1) +local Data_String_CodePoints_takeFallback = function(takeFallback_S_p1) return function(takeFallback_S_p2) - return M.Data_String_CodePoints_takeFallback_S_w(takeFallback_S_p1, takeFallback_S_p2) + return Data_String_CodePoints_takeFallback_S_w(takeFallback_S_p1, takeFallback_S_p2) end end -M.Data_String_CodePoints_take_S_w = function(n, s) - return M.Data_String_CodePoints_foreign._take(M.Data_String_CodePoints_takeFallback)(n)(s) +local Data_String_CodePoints_take_S_w = function(n, s) + return Data_String_CodePoints_foreign._take(Data_String_CodePoints_takeFallback)(n)(s) end -M.Data_String_CodePoints_drop_S_w = function(n, s) - local Data_String_CodeUnits_foreign = M.Data_String_CodeUnits_foreign - return Data_String_CodeUnits_foreign.drop(Data_String_CodeUnits_foreign.length(M.Data_String_CodePoints_take_S_w(n, s)))(s) +Data_String_CodePoints_drop_S_w = function(n, s) + return Data_String_CodeUnits_foreign.drop(Data_String_CodeUnits_foreign.length(Data_String_CodePoints_take_S_w(n, s)))(s) end -M.Data_String_CodePoints_toCodePointArray = M.Data_String_CodePoints_foreign._toCodePointArray(function( s_S_10 ) - return M.Data_Unfoldable_foreign.unfoldrArrayImpl(function(v2_S_1504_S_1528) +local Data_String_CodePoints_toCodePointArray = Data_String_CodePoints_foreign._toCodePointArray(function( s_S_10 ) + return Data_Unfoldable_foreign.unfoldrArrayImpl(function(v2_S_1504_S_1528) if "Data.Maybe∷Maybe.Nothing" == v2_S_1504_S_1528["$ctor"] then return true elseif "Data.Maybe∷Maybe.Just" == v2_S_1504_S_1528["$ctor"] then @@ -466,7 +466,7 @@ M.Data_String_CodePoints_toCodePointArray = M.Data_String_CodePoints_foreign._to else return error("No patterns matched") end - end)(M.Partial_Unsafe_foreign._unsafePartial(function() + end)(Partial_Unsafe_foreign._unsafePartial(function() return function(v_S_1575) if "Data.Maybe∷Maybe.Just" == v_S_1575["$ctor"] then return v_S_1575.value0 @@ -477,18 +477,17 @@ M.Data_String_CodePoints_toCodePointArray = M.Data_String_CodePoints_foreign._to end))(function(v_S_1526) return v_S_1526.value0 end)(function(v_S_1527) return v_S_1527.value1 end)(function(s_S_11) - local v1_S_1578 = M.Data_String_CodePoints_uncons(s_S_11) + local v1_S_1578 = Data_String_CodePoints_uncons(s_S_11) if "Data.Maybe∷Maybe.Just" == v1_S_1578["$ctor"] then - return M.Data_Maybe_Just((function(value0) + return Data_Maybe_Just((function(value0) return function(value1) return { value0 = value0, value1 = value1 } end end)(v1_S_1578.value0.head)(v1_S_1578.value0.tail)) else - return M.Data_Maybe_Nothing + return Data_Maybe_Nothing end end)(s_S_10) -end)(M.Data_String_CodePoints_unsafeCodePointAt0) -M.Data_String_CodePoints_codePointAtFallback_S_w = function(n, s) - local Data_Maybe_Just, Data_Maybe_Nothing, Data_String_CodePoints_uncons = M.Data_Maybe_Just, M.Data_Maybe_Nothing, M.Data_String_CodePoints_uncons +end)(Data_String_CodePoints_unsafeCodePointAt0) +local Data_String_CodePoints_codePointAtFallback_S_w = function(n, s) while true do local v = Data_String_CodePoints_uncons(s) if "Data.Maybe∷Maybe.Just" == v["$ctor"] then @@ -502,70 +501,68 @@ M.Data_String_CodePoints_codePointAtFallback_S_w = function(n, s) end end end -M.Data_String_CodePoints_codePointAtFallback = function( codePointAtFallback_S_p1 ) +local Data_String_CodePoints_codePointAtFallback = function( codePointAtFallback_S_p1 ) return function(codePointAtFallback_S_p2) - return M.Data_String_CodePoints_codePointAtFallback_S_w(codePointAtFallback_S_p1, codePointAtFallback_S_p2) + return Data_String_CodePoints_codePointAtFallback_S_w(codePointAtFallback_S_p1, codePointAtFallback_S_p2) end end -M.Data_String_CodePoints_codePointAt_S_w = function(v, v1) - if M.Data_Ord_lessThan_S_w(M.Data_Ord_ordInt, v, 0) then - return M.Data_Maybe_Nothing +local Data_String_CodePoints_codePointAt_S_w = function(v, v1) + if Data_Ord_lessThan_S_w(Data_Ord_ordInt, v, 0) then + return Data_Maybe_Nothing elseif 0 == v then if "" == v1 then - return M.Data_Maybe_Nothing + return Data_Maybe_Nothing elseif 0 == v then - return M.Data_Maybe_Just(M.Data_String_CodePoints_unsafeCodePointAt0(v1)) + return Data_Maybe_Just(Data_String_CodePoints_unsafeCodePointAt0(v1)) else - return M.Data_String_CodePoints_foreign._codePointAt(M.Data_String_CodePoints_codePointAtFallback)(M.Data_Maybe_Just)(M.Data_Maybe_Nothing)(M.Data_String_CodePoints_unsafeCodePointAt0)(v)(v1) + return Data_String_CodePoints_foreign._codePointAt(Data_String_CodePoints_codePointAtFallback)(Data_Maybe_Just)(Data_Maybe_Nothing)(Data_String_CodePoints_unsafeCodePointAt0)(v)(v1) end elseif 0 == v then - return M.Data_Maybe_Just(M.Data_String_CodePoints_unsafeCodePointAt0(v1)) + return Data_Maybe_Just(Data_String_CodePoints_unsafeCodePointAt0(v1)) else - return M.Data_String_CodePoints_foreign._codePointAt(M.Data_String_CodePoints_codePointAtFallback)(M.Data_Maybe_Just)(M.Data_Maybe_Nothing)(M.Data_String_CodePoints_unsafeCodePointAt0)(v)(v1) + return Data_String_CodePoints_foreign._codePointAt(Data_String_CodePoints_codePointAtFallback)(Data_Maybe_Just)(Data_Maybe_Nothing)(Data_String_CodePoints_unsafeCodePointAt0)(v)(v1) end end -M.Data_String_CodePoints_boundedEnumCodePoint = { +local Data_String_CodePoints_Lazy_enumCodePoint +local Data_String_CodePoints_boundedEnumCodePoint = { cardinality = 1114112, fromEnum = function(v) return v end, toEnum = function(n0) - local Data_Ord_ordInt = M.Data_Ord_ordInt - if M.Data_String_CodePoints_conj(M.Data_Ord_greaterThanOrEq_S_w(Data_Ord_ordInt, n0, 0))(M.Data_Ord_lessThanOrEq_S_w(Data_Ord_ordInt, n0, 1114111)) then - return M.Data_Maybe_Just(n0) + if Data_String_CodePoints_conj(Data_Ord_greaterThanOrEq_S_w(Data_Ord_ordInt, n0, 0))(Data_Ord_lessThanOrEq_S_w(Data_Ord_ordInt, n0, 1114111)) then + return Data_Maybe_Just(n0) else - return M.Data_Maybe_Nothing + return Data_Maybe_Nothing end end, Bounded0 = function() return { bottom = 0, top = 1114111, - Ord0 = function() return M.Data_String_CodePoints_ordCodePoint end + Ord0 = function() return Data_String_CodePoints_ordCodePoint end } end, - Enum1 = function() return M.Data_String_CodePoints_Lazy_enumCodePoint(0) end + Enum1 = function() return Data_String_CodePoints_Lazy_enumCodePoint(0) end } -M.Data_String_CodePoints_Lazy_enumCodePoint = PSLUA_runtime_lazy("enumCodePoint")(function( ) +Data_String_CodePoints_Lazy_enumCodePoint = PSLUA_runtime_lazy("enumCodePoint")(function( ) return { succ = function(a_S_1563) - local Data_String_CodePoints_boundedEnumCodePoint = M.Data_String_CodePoints_boundedEnumCodePoint return Data_String_CodePoints_boundedEnumCodePoint.toEnum(Data_String_CodePoints_boundedEnumCodePoint.fromEnum(a_S_1563) + 1) end, pred = function(a_S_1571) - local Data_String_CodePoints_boundedEnumCodePoint = M.Data_String_CodePoints_boundedEnumCodePoint return Data_String_CodePoints_boundedEnumCodePoint.toEnum(Data_String_CodePoints_boundedEnumCodePoint.fromEnum(a_S_1571) - 1) end, - Ord0 = function() return M.Data_String_CodePoints_ordCodePoint end + Ord0 = function() return Data_String_CodePoints_ordCodePoint end } end) -M.Effect_Console_logShow_S_w = function(dictShow, a) - return M.Effect_Console_foreign.log(dictShow.show(a)) +local Effect_Console_logShow_S_w = function(dictShow, a) + return Effect_Console_foreign.log(dictShow.show(a)) end -M.Golden_StringCodePoints_Test_fromEnum = M.Data_String_CodePoints_boundedEnumCodePoint.fromEnum -M.Golden_StringCodePoints_Test_showArray = { - show = M.Data_Show_foreign.showArrayImpl(M.Data_Show_foreign.showIntImpl) +local Golden_StringCodePoints_Test_fromEnum = Data_String_CodePoints_boundedEnumCodePoint.fromEnum +local Golden_StringCodePoints_Test_showArray = { + show = Data_Show_foreign.showArrayImpl(Data_Show_foreign.showIntImpl) } M.Golden_StringCodePoints_Test_cp = function(x_S_1556_S_1666) - return M.Partial_Unsafe_foreign._unsafePartial(function() + return Partial_Unsafe_foreign._unsafePartial(function() return function(v_S_1536) if "Data.Maybe∷Maybe.Just" == v_S_1536["$ctor"] then return v_S_1536.value0 @@ -573,22 +570,21 @@ M.Golden_StringCodePoints_Test_cp = function(x_S_1556_S_1666) return error("No patterns matched") end end - end)(M.Data_String_CodePoints_boundedEnumCodePoint.toEnum(x_S_1556_S_1666)) + end)(Data_String_CodePoints_boundedEnumCodePoint.toEnum(x_S_1556_S_1666)) end M.Golden_StringCodePoints_Test_codes = function(x_S_1556_S_1663) - return M.Data_Functor_foreign.arrayMap(M.Golden_StringCodePoints_Test_fromEnum)(M.Data_String_CodePoints_toCodePointArray(x_S_1556_S_1663)) + return Data_Functor_foreign.arrayMap(Golden_StringCodePoints_Test_fromEnum)(Data_String_CodePoints_toCodePointArray(x_S_1556_S_1663)) end return (function() - local Effect_Console_logShow_S_w, Data_String_CodePoints_toCodePointArray, Data_Functor_foreign, Golden_StringCodePoints_Test_fromEnum, Golden_StringCodePoints_Test_showArray, Data_String_CodePoints_codePointAt_S_w, Data_Show_showInt, Data_String_CodePoints_uncons = M.Effect_Console_logShow_S_w, M.Data_String_CodePoints_toCodePointArray, M.Data_Functor_foreign, M.Golden_StringCodePoints_Test_fromEnum, M.Golden_StringCodePoints_Test_showArray, M.Data_String_CodePoints_codePointAt_S_w, M.Data_Show_showInt, M.Data_String_CodePoints_uncons local _ = Effect_Console_logShow_S_w(Golden_StringCodePoints_Test_showArray, Data_Functor_foreign.arrayMap(Golden_StringCodePoints_Test_fromEnum)(Data_String_CodePoints_toCodePointArray("aéЯ𝐀z")))() - local _ = Effect_Console_logShow_S_w(Data_Show_showInt, M.Data_Array_foreign.length(Data_String_CodePoints_toCodePointArray("aéЯ𝐀z")))() - local _ = Effect_Console_logShow_S_w(Data_Show_showInt, M.Data_String_CodeUnits_foreign.length("aéЯ𝐀z"))() - local _ = Effect_Console_logShow_S_w(Golden_StringCodePoints_Test_showArray, Data_Functor_foreign.arrayMap(Golden_StringCodePoints_Test_fromEnum)(Data_String_CodePoints_toCodePointArray(M.Data_String_CodePoints_take_S_w(2, "aéЯ𝐀z"))))() - local _ = Effect_Console_logShow_S_w(Golden_StringCodePoints_Test_showArray, Data_Functor_foreign.arrayMap(Golden_StringCodePoints_Test_fromEnum)(Data_String_CodePoints_toCodePointArray(M.Data_String_CodePoints_drop_S_w(2, "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_foreign.length("aéЯ𝐀z"))() + local _ = Effect_Console_logShow_S_w(Golden_StringCodePoints_Test_showArray, Data_Functor_foreign.arrayMap(Golden_StringCodePoints_Test_fromEnum)(Data_String_CodePoints_toCodePointArray(Data_String_CodePoints_take_S_w(2, "aéЯ𝐀z"))))() + local _ = Effect_Console_logShow_S_w(Golden_StringCodePoints_Test_showArray, Data_Functor_foreign.arrayMap(Golden_StringCodePoints_Test_fromEnum)(Data_String_CodePoints_toCodePointArray(Data_String_CodePoints_drop_S_w(2, "aéЯ𝐀z"))))() local _ = Effect_Console_logShow_S_w({ show = function(v_S_1542_S_1719) if "Data.Maybe∷Maybe.Just" == v_S_1542_S_1719["$ctor"] then - return "(Just " .. M.Data_Show_foreign.showIntImpl(v_S_1542_S_1719.value0) .. ")" + return "(Just " .. Data_Show_foreign.showIntImpl(v_S_1542_S_1719.value0) .. ")" elseif "Data.Maybe∷Maybe.Nothing" == v_S_1542_S_1719["$ctor"] then return "Nothing" else @@ -598,15 +594,15 @@ return (function() }, (function() local v1_S_1540_S_1717 = Data_String_CodePoints_codePointAt_S_w(0, "aéЯ𝐀z") if "Data.Maybe∷Maybe.Just" == v1_S_1540_S_1717["$ctor"] then - return M.Data_Maybe_Just(Golden_StringCodePoints_Test_fromEnum(v1_S_1540_S_1717.value0)) + return Data_Maybe_Just(Golden_StringCodePoints_Test_fromEnum(v1_S_1540_S_1717.value0)) else - return M.Data_Maybe_Nothing + return Data_Maybe_Nothing end end)())() local _ = Effect_Console_logShow_S_w({ show = function(v_S_1542_S_1727) if "Data.Maybe∷Maybe.Just" == v_S_1542_S_1727["$ctor"] then - return "(Just " .. M.Data_Show_foreign.showIntImpl(v_S_1542_S_1727.value0) .. ")" + return "(Just " .. Data_Show_foreign.showIntImpl(v_S_1542_S_1727.value0) .. ")" elseif "Data.Maybe∷Maybe.Nothing" == v_S_1542_S_1727["$ctor"] then return "Nothing" else @@ -616,15 +612,15 @@ return (function() }, (function() local v1_S_1540_S_1725 = Data_String_CodePoints_codePointAt_S_w(3, "aéЯ𝐀z") if "Data.Maybe∷Maybe.Just" == v1_S_1540_S_1725["$ctor"] then - return M.Data_Maybe_Just(Golden_StringCodePoints_Test_fromEnum(v1_S_1540_S_1725.value0)) + return Data_Maybe_Just(Golden_StringCodePoints_Test_fromEnum(v1_S_1540_S_1725.value0)) else - return M.Data_Maybe_Nothing + return Data_Maybe_Nothing end end)())() local _ = Effect_Console_logShow_S_w({ show = function(v_S_1542_S_1735) if "Data.Maybe∷Maybe.Just" == v_S_1542_S_1735["$ctor"] then - return "(Just " .. M.Data_Show_foreign.showIntImpl(v_S_1542_S_1735.value0) .. ")" + return "(Just " .. Data_Show_foreign.showIntImpl(v_S_1542_S_1735.value0) .. ")" elseif "Data.Maybe∷Maybe.Nothing" == v_S_1542_S_1735["$ctor"] then return "Nothing" else @@ -634,15 +630,15 @@ return (function() }, (function() local v1_S_1540_S_1733 = Data_String_CodePoints_codePointAt_S_w(5, "aéЯ𝐀z") if "Data.Maybe∷Maybe.Just" == v1_S_1540_S_1733["$ctor"] then - return M.Data_Maybe_Just(Golden_StringCodePoints_Test_fromEnum(v1_S_1540_S_1733.value0)) + return Data_Maybe_Just(Golden_StringCodePoints_Test_fromEnum(v1_S_1540_S_1733.value0)) else - return M.Data_Maybe_Nothing + return Data_Maybe_Nothing end end)())() local _ = Effect_Console_logShow_S_w({ show = function(v_S_1542_S_1746) if "Data.Maybe∷Maybe.Just" == v_S_1542_S_1746["$ctor"] then - return "(Just " .. M.Data_Show_foreign.showIntImpl(v_S_1542_S_1746.value0) .. ")" + return "(Just " .. Data_Show_foreign.showIntImpl(v_S_1542_S_1746.value0) .. ")" elseif "Data.Maybe∷Maybe.Nothing" == v_S_1542_S_1746["$ctor"] then return "Nothing" else @@ -652,15 +648,15 @@ return (function() }, (function() local v1_S_1540_S_1744 = Data_String_CodePoints_uncons("aéЯ𝐀z") if "Data.Maybe∷Maybe.Just" == v1_S_1540_S_1744["$ctor"] then - return M.Data_Maybe_Just(Golden_StringCodePoints_Test_fromEnum(v1_S_1540_S_1744.value0.head)) + return Data_Maybe_Just(Golden_StringCodePoints_Test_fromEnum(v1_S_1540_S_1744.value0.head)) else - return M.Data_Maybe_Nothing + return Data_Maybe_Nothing end end)())() local _ = Effect_Console_logShow_S_w({ show = function(v_S_1657) if "Data.Maybe∷Maybe.Just" == v_S_1657["$ctor"] then - return "(Just " .. M.Data_Show_foreign.showArrayImpl(M.Data_Show_foreign.showIntImpl)(v_S_1657.value0) .. ")" + return "(Just " .. Data_Show_foreign.showArrayImpl(Data_Show_foreign.showIntImpl)(v_S_1657.value0) .. ")" elseif "Data.Maybe∷Maybe.Nothing" == v_S_1657["$ctor"] then return "Nothing" else @@ -670,9 +666,9 @@ return (function() }, (function() local v1_S_1540_S_1759 = Data_String_CodePoints_uncons("aéЯ𝐀z") if "Data.Maybe∷Maybe.Just" == v1_S_1540_S_1759["$ctor"] then - return M.Data_Maybe_Just(Data_Functor_foreign.arrayMap(Golden_StringCodePoints_Test_fromEnum)(Data_String_CodePoints_toCodePointArray(v1_S_1540_S_1759.value0.tail))) + return Data_Maybe_Just(Data_Functor_foreign.arrayMap(Golden_StringCodePoints_Test_fromEnum)(Data_String_CodePoints_toCodePointArray(v1_S_1540_S_1759.value0.tail))) else - return M.Data_Maybe_Nothing + return Data_Maybe_Nothing end end)())() local _ = Effect_Console_logShow_S_w({ @@ -685,8 +681,8 @@ return (function() return error("No patterns matched") end end - }, M.Data_String_CodePoints_foreign._fromCodePointArray(M.Data_String_CodePoints_singletonFallback)(Data_String_CodePoints_toCodePointArray("aéЯ𝐀z")) == "aéЯ𝐀z")() - return Effect_Console_logShow_S_w(Golden_StringCodePoints_Test_showArray, Data_Functor_foreign.arrayMap(Golden_StringCodePoints_Test_fromEnum)(Data_String_CodePoints_toCodePointArray(M.Data_String_CodePoints_singleton(M.Partial_Unsafe_foreign._unsafePartial(function( ) + }, 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, Data_Functor_foreign.arrayMap(Golden_StringCodePoints_Test_fromEnum)(Data_String_CodePoints_toCodePointArray(Data_String_CodePoints_singleton(Partial_Unsafe_foreign._unsafePartial(function( ) return function(v_S_1536_S_1772) if "Data.Maybe∷Maybe.Just" == v_S_1536_S_1772["$ctor"] then return v_S_1536_S_1772.value0 @@ -694,5 +690,5 @@ return (function() return error("No patterns matched") end end - end)(M.Data_String_CodePoints_boundedEnumCodePoint.toEnum(119808))))))() + end)(Data_String_CodePoints_boundedEnumCodePoint.toEnum(119808))))))() end)() diff --git a/test/ps/output/Golden.StringEscapes.Test/golden.lua b/test/ps/output/Golden.StringEscapes.Test/golden.lua index 7502714d..bb977b68 100644 --- a/test/ps/output/Golden.StringEscapes.Test/golden.lua +++ b/test/ps/output/Golden.StringEscapes.Test/golden.lua @@ -1,5 +1,4 @@ -local M = {} -M.Effect_Console_foreign = { +local Effect_Console_foreign = { log = function(s) return function() print(s) end end } -return M.Effect_Console_foreign.log("\27[31mred\27[0m")() +return Effect_Console_foreign.log("\27[31mred\27[0m")() diff --git a/test/ps/output/Golden.TailRecM2Shadow.Test/golden.lua b/test/ps/output/Golden.TailRecM2Shadow.Test/golden.lua index 148b28f2..9bd94e7a 100644 --- a/test/ps/output/Golden.TailRecM2Shadow.Test/golden.lua +++ b/test/ps/output/Golden.TailRecM2Shadow.Test/golden.lua @@ -17,67 +17,70 @@ local function PSLUA_runtime_lazy(name) end end local M = {} -M.Data_Show_foreign = { showIntImpl = function(n) return tostring(n) end } -M.Effect_foreign = { +local Data_Show_foreign = { showIntImpl = function(n) return tostring(n) 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, untilE = function(f) return function() while not(f()) do end end end } -M.Effect_Ref_foreign = { +local Effect_Ref_foreign = { _new = function(val) return function() return { value = val } end end, read = function(ref) return function() return ref.value end end, write = function(val) return function(ref) return function() ref.value = val end end end } -M.Partial_Unsafe_foreign = { _unsafePartial = function(f) return f() end } -M.Effect_Console_foreign = { +local Partial_Unsafe_foreign = { _unsafePartial = function(f) return f() end } +local Effect_Console_foreign = { log = function(s) return function() print(s) end end } -M.Effect_monadEffect = { - Applicative0 = function() return M.Effect_applicativeEffect end, - Bind1 = function() return M.Effect_bindEffect end +local Effect_bindEffect +local Effect_applicativeEffect +local Effect_monadEffect = { + Applicative0 = function() return Effect_applicativeEffect end, + Bind1 = function() return Effect_bindEffect end } -M.Effect_bindEffect = { - bind = M.Effect_foreign.bindE, - Apply0 = function() return M.Effect_Lazy_applyEffect(0) end +local Effect_Lazy_applyEffect +Effect_bindEffect = { + bind = Effect_foreign.bindE, + Apply0 = function() return Effect_Lazy_applyEffect(0) end } -M.Effect_applicativeEffect = { - pure = M.Effect_foreign.pureE, - Apply0 = function() return M.Effect_Lazy_applyEffect(0) end +Effect_applicativeEffect = { + pure = Effect_foreign.pureE, + Apply0 = function() return Effect_Lazy_applyEffect(0) end } -M.Effect_Lazy_functorEffect = PSLUA_runtime_lazy("functorEffect")(function() +local Effect_Lazy_functorEffect = PSLUA_runtime_lazy("functorEffect")(function() return { map = function(f_S_239) return function(a_S_240) - local Effect_applicativeEffect = M.Effect_applicativeEffect return (Effect_applicativeEffect.Apply0()).apply(Effect_applicativeEffect.pure(f_S_239))(a_S_240) end end } end) -M.Effect_Lazy_applyEffect = PSLUA_runtime_lazy("applyEffect")(function() +Effect_Lazy_applyEffect = PSLUA_runtime_lazy("applyEffect")(function() return { apply = (function() - local bind_S_219 = (M.Effect_monadEffect.Bind1()).bind + local bind_S_219 = (Effect_monadEffect.Bind1()).bind return function(f_S_221) return function(a_S_222) return bind_S_219(f_S_221)(function(fPrime_S_223) return bind_S_219(a_S_222)(function(aPrime_S_224) - return (M.Effect_monadEffect.Applicative0()).pure(fPrime_S_223(aPrime_S_224)) + return (Effect_monadEffect.Applicative0()).pure(fPrime_S_223(aPrime_S_224)) end) end) end end end)(), - Functor0 = function() return M.Effect_Lazy_functorEffect(0) end + Functor0 = function() return Effect_Lazy_functorEffect(0) end } end) -M.Effect_functorEffect = M.Effect_Lazy_functorEffect(0) -M.Control_Monad_Rec_Class_pure = M.Effect_applicativeEffect.pure -M.Golden_TailRecM2Shadow_Test_add_S_w = function(x_S_457_S_491, y_S_458_S_492) +local Effect_functorEffect = Effect_Lazy_functorEffect(0) +local Control_Monad_Rec_Class_pure = Effect_applicativeEffect.pure +local Golden_TailRecM2Shadow_Test_add_S_w = function( x_S_457_S_491 +, y_S_458_S_492 ) return x_S_457_S_491 + y_S_458_S_492 end M.Golden_TailRecM2Shadow_Test_sumFrom = function(dictMonadRec) @@ -100,8 +103,8 @@ M.Golden_TailRecM2Shadow_Test_sumFrom = function(dictMonadRec) value0 = value0 } end)({ - a = M.Golden_TailRecM2Shadow_Test_add_S_w(o_S_483.a, o_S_483.b), - b = M.Golden_TailRecM2Shadow_Test_add_S_w(o_S_483.b, 1) + a = Golden_TailRecM2Shadow_Test_add_S_w(o_S_483.a, o_S_483.b), + b = Golden_TailRecM2Shadow_Test_add_S_w(o_S_483.b, 1) })) else return pure((function(value0) @@ -121,25 +124,24 @@ return (function() tailRecM = function(f_S_11) return function(a_S_12) return function() - local Effect_Ref_foreign = M.Effect_Ref_foreign - local r_S_16 = M.Effect_bindEffect.bind(f_S_11(a_S_12))(Effect_Ref_foreign._new)() - local _ = M.Effect_foreign.untilE(function() - local v0_S_17 = M.Effect_Ref_foreign.read(r_S_16)() + local r_S_16 = Effect_bindEffect.bind(f_S_11(a_S_12))(Effect_Ref_foreign._new)() + local _ = Effect_foreign.untilE(function() + local v0_S_17 = Effect_Ref_foreign.read(r_S_16)() return (function() if "Control.Monad.Rec.Class∷Step.Loop" == v0_S_17["$ctor"] then return function() local e_S_19 = f_S_11(v0_S_17.value0)() - local _ = M.Effect_Ref_foreign.write(e_S_19)(r_S_16)() - return M.Control_Monad_Rec_Class_pure(false)() + local _ = Effect_Ref_foreign.write(e_S_19)(r_S_16)() + return Control_Monad_Rec_Class_pure(false)() end elseif "Control.Monad.Rec.Class∷Step.Done" == v0_S_17["$ctor"] then - return M.Control_Monad_Rec_Class_pure(true) + return Control_Monad_Rec_Class_pure(true) else return error("No patterns matched") end end)()() end)() - return M.Effect_functorEffect.map(M.Partial_Unsafe_foreign._unsafePartial(function( ) + return Effect_functorEffect.map(Partial_Unsafe_foreign._unsafePartial(function( ) return function(v_S_9_S_20) if "Control.Monad.Rec.Class∷Step.Done" == v_S_9_S_20["$ctor"] then return v_S_9_S_20.value0 @@ -151,7 +153,7 @@ return (function() end end end, - Monad0 = function() return M.Effect_monadEffect end + Monad0 = function() return Effect_monadEffect end } local pure_S_536 = ((dictMonadRec_S_535.Monad0()).Applicative0()).pure return function(b_S_537) @@ -172,8 +174,8 @@ return (function() value0 = value0 } end)({ - a = M.Golden_TailRecM2Shadow_Test_add_S_w(o_S_483_S_539.a, o_S_483_S_539.b), - b = M.Golden_TailRecM2Shadow_Test_add_S_w(o_S_483_S_539.b, 1) + a = Golden_TailRecM2Shadow_Test_add_S_w(o_S_483_S_539.a, o_S_483_S_539.b), + b = Golden_TailRecM2Shadow_Test_add_S_w(o_S_483_S_539.b, 1) })) else return pure_S_536((function(value0) @@ -187,30 +189,29 @@ return (function() end end end)()(0)(5)() - return M.Effect_Console_foreign.log(M.Data_Show_foreign.showIntImpl((function( ) + return Effect_Console_foreign.log(Data_Show_foreign.showIntImpl((function() local dictMonadRec_S_535_S_541 = { tailRecM = function(f_S_11_S_542) return function(a_S_12_S_543) return function() - local Effect_Ref_foreign = M.Effect_Ref_foreign - local r_S_16_S_544 = M.Effect_bindEffect.bind(f_S_11_S_542(a_S_12_S_543))(Effect_Ref_foreign._new)() - local __S_545 = M.Effect_foreign.untilE(function() - local v0_S_17_S_546 = M.Effect_Ref_foreign.read(r_S_16_S_544)() + local r_S_16_S_544 = Effect_bindEffect.bind(f_S_11_S_542(a_S_12_S_543))(Effect_Ref_foreign._new)() + local __S_545 = Effect_foreign.untilE(function() + local v0_S_17_S_546 = Effect_Ref_foreign.read(r_S_16_S_544)() return (function() if "Control.Monad.Rec.Class∷Step.Loop" == v0_S_17_S_546["$ctor"] then return function() local e_S_19_S_547 = f_S_11_S_542(v0_S_17_S_546.value0)() - local __S_548 = M.Effect_Ref_foreign.write(e_S_19_S_547)(r_S_16_S_544)() - return M.Control_Monad_Rec_Class_pure(false)() + local __S_548 = Effect_Ref_foreign.write(e_S_19_S_547)(r_S_16_S_544)() + return Control_Monad_Rec_Class_pure(false)() end elseif "Control.Monad.Rec.Class∷Step.Done" == v0_S_17_S_546["$ctor"] then - return M.Control_Monad_Rec_Class_pure(true) + return Control_Monad_Rec_Class_pure(true) else return error("No patterns matched") end end)()() end)() - return M.Effect_functorEffect.map(M.Partial_Unsafe_foreign._unsafePartial(function( ) + return Effect_functorEffect.map(Partial_Unsafe_foreign._unsafePartial(function( ) return function(v_S_9_S_20_S_549) if "Control.Monad.Rec.Class∷Step.Done" == v_S_9_S_20_S_549["$ctor"] then return v_S_9_S_20_S_549.value0 @@ -222,7 +223,7 @@ return (function() end end end, - Monad0 = function() return M.Effect_monadEffect end + Monad0 = function() return Effect_monadEffect end } local pure_S_536_S_550 = ((dictMonadRec_S_535_S_541.Monad0()).Applicative0()).pure return function(b_S_537_S_551) @@ -243,8 +244,8 @@ return (function() value0 = value0 } end)({ - a = M.Golden_TailRecM2Shadow_Test_add_S_w(o_S_483_S_539_S_553.a, o_S_483_S_539_S_553.b), - b = M.Golden_TailRecM2Shadow_Test_add_S_w(o_S_483_S_539_S_553.b, 1) + a = Golden_TailRecM2Shadow_Test_add_S_w(o_S_483_S_539_S_553.a, o_S_483_S_539_S_553.b), + b = Golden_TailRecM2Shadow_Test_add_S_w(o_S_483_S_539_S_553.b, 1) })) else return pure_S_536_S_550((function(value0) diff --git a/test/ps/output/Golden.TestReturnTableField/golden.lua b/test/ps/output/Golden.TestReturnTableField/golden.lua index 95e461e8..c983acb0 100644 --- a/test/ps/output/Golden.TestReturnTableField/golden.lua +++ b/test/ps/output/Golden.TestReturnTableField/golden.lua @@ -1,3 +1,2 @@ -local M = {} -M.Golden_TestReturnTableField_foreign = { u = nil } -return { u = M.Golden_TestReturnTableField_foreign.u } +local Golden_TestReturnTableField_foreign = { u = nil } +return { u = Golden_TestReturnTableField_foreign.u } diff --git a/test/ps/output/Golden.Unbinding.Test/golden.lua b/test/ps/output/Golden.Unbinding.Test/golden.lua index 37cda2b5..f2bc9460 100644 --- a/test/ps/output/Golden.Unbinding.Test/golden.lua +++ b/test/ps/output/Golden.Unbinding.Test/golden.lua @@ -1,12 +1,11 @@ -local M = {} -M.Golden_Unbinding_Test_f_S_w = function() return 3 end +local Golden_Unbinding_Test_f_S_w = function() return 3 end return { a = 1, b = 2, f = function(f_S_p1_S_0) return function(f_S_p2_S_1) - return M.Golden_Unbinding_Test_f_S_w(f_S_p1_S_0, f_S_p2_S_1) + return Golden_Unbinding_Test_f_S_w(f_S_p1_S_0, f_S_p2_S_1) end end, - c = M.Golden_Unbinding_Test_f_S_w(1, M.Golden_Unbinding_Test_f_S_w(2, 1)) + c = Golden_Unbinding_Test_f_S_w(1, Golden_Unbinding_Test_f_S_w(2, 1)) } diff --git a/test/ps/output/Golden.UncurriedLift.Test/golden.lua b/test/ps/output/Golden.UncurriedLift.Test/golden.lua index 2400d5bd..d36e83fb 100644 --- a/test/ps/output/Golden.UncurriedLift.Test/golden.lua +++ b/test/ps/output/Golden.UncurriedLift.Test/golden.lua @@ -17,8 +17,8 @@ local function PSLUA_runtime_lazy(name) end end local M = {} -M.Data_Show_foreign = { showIntImpl = function(n) return tostring(n) end } -M.Control_Monad_ST_Internal_foreign = { +local Data_Show_foreign = { showIntImpl = function(n) return tostring(n) end } +local Control_Monad_ST_Internal_foreign = { map_ = function(f) return function(a) return function() return f(a()) end end end, @@ -28,73 +28,72 @@ M.Control_Monad_ST_Internal_foreign = { end, run = function(f) return f() end } -M.Effect_Console_foreign = { +local Effect_Console_foreign = { log = function(s) return function() print(s) end end } -M.Control_Monad_ST_Internal_monadST = { - Applicative0 = function() - return M.Control_Monad_ST_Internal_applicativeST - end, - Bind1 = function() return M.Control_Monad_ST_Internal_bindST end +local Control_Monad_ST_Internal_bindST +local Control_Monad_ST_Internal_applicativeST +local Control_Monad_ST_Internal_monadST = { + Applicative0 = function() return Control_Monad_ST_Internal_applicativeST end, + Bind1 = function() return Control_Monad_ST_Internal_bindST end } -M.Control_Monad_ST_Internal_bindST = { - bind = M.Control_Monad_ST_Internal_foreign.bind_, - Apply0 = function() return M.Control_Monad_ST_Internal_Lazy_applyST(0) end +local Control_Monad_ST_Internal_Lazy_applyST +Control_Monad_ST_Internal_bindST = { + bind = Control_Monad_ST_Internal_foreign.bind_, + Apply0 = function() return Control_Monad_ST_Internal_Lazy_applyST(0) end } -M.Control_Monad_ST_Internal_applicativeST = { - pure = M.Control_Monad_ST_Internal_foreign.pure_, - Apply0 = function() return M.Control_Monad_ST_Internal_Lazy_applyST(0) end +Control_Monad_ST_Internal_applicativeST = { + pure = Control_Monad_ST_Internal_foreign.pure_, + Apply0 = function() return Control_Monad_ST_Internal_Lazy_applyST(0) end } -M.Control_Monad_ST_Internal_Lazy_applyST = PSLUA_runtime_lazy("applyST")(function( ) +Control_Monad_ST_Internal_Lazy_applyST = PSLUA_runtime_lazy("applyST")(function( ) return { apply = (function() - local bind_S_759 = (M.Control_Monad_ST_Internal_monadST.Bind1()).bind + local bind_S_759 = (Control_Monad_ST_Internal_monadST.Bind1()).bind return function(f_S_760) return function(a_S_761) return bind_S_759(f_S_760)(function(fPrime_S_762) return bind_S_759(a_S_761)(function(aPrime_S_763) - return (M.Control_Monad_ST_Internal_monadST.Applicative0()).pure(fPrime_S_762(aPrime_S_763)) + return (Control_Monad_ST_Internal_monadST.Applicative0()).pure(fPrime_S_762(aPrime_S_763)) end) end) end end end)(), Functor0 = function() - return { map = M.Control_Monad_ST_Internal_foreign.map_ } + return { map = Control_Monad_ST_Internal_foreign.map_ } end } end) -M.Golden_UncurriedLift_Test_sumST = function(a_S_705, b_S_706) - return M.Control_Monad_ST_Internal_applicativeST.pure(a_S_705 + b_S_706)() +local Golden_UncurriedLift_Test_sumST = function(a_S_705, b_S_706) + return Control_Monad_ST_Internal_applicativeST.pure(a_S_705 + b_S_706)() end -M.Golden_UncurriedLift_Test_mulByFn = function(a_S_696, b_S_697) +local Golden_UncurriedLift_Test_mulByFn = function(a_S_696, b_S_697) return a_S_696 * b_S_697 end -M.Golden_UncurriedLift_Test_mul2 = function(a_S_699, b_S_700) +local Golden_UncurriedLift_Test_mul2 = function(a_S_699, b_S_700) return a_S_699 * b_S_700 end -M.Golden_UncurriedLift_Test_logTwice = function(a_S_671, b_S_672) - local Effect_Console_foreign = M.Effect_Console_foreign +local Golden_UncurriedLift_Test_logTwice = function(a_S_671, b_S_672) return (function() local _ = Effect_Console_foreign.log(a_S_671)() return Effect_Console_foreign.log(b_S_672)() end)() end -M.Golden_UncurriedLift_Test_add3 = function(a_S_692, b_S_693, c_S_694) +local Golden_UncurriedLift_Test_add3 = function(a_S_692, b_S_693, c_S_694) return a_S_692 + b_S_693 + c_S_694 end M.Golden_UncurriedLift_Test_addOnePlusTwoTo = function(c_S_680) - return M.Golden_UncurriedLift_Test_add3(1, 2, c_S_680) + return Golden_UncurriedLift_Test_add3(1, 2, c_S_680) end return (function() - local Data_Show_foreign, Effect_Console_foreign, Golden_UncurriedLift_Test_add3 = M.Data_Show_foreign, M.Effect_Console_foreign, M.Golden_UncurriedLift_Test_add3 - local _ = M.Golden_UncurriedLift_Test_logTwice("hello", "world") + local _ = Golden_UncurriedLift_Test_logTwice("hello", "world") local _ = Effect_Console_foreign.log(Data_Show_foreign.showIntImpl(Golden_UncurriedLift_Test_add3(1, 2, 3)))() - local _ = Effect_Console_foreign.log(Data_Show_foreign.showIntImpl(M.Golden_UncurriedLift_Test_mul2(4, 5)))() - local _ = Effect_Console_foreign.log(Data_Show_foreign.showIntImpl(M.Golden_UncurriedLift_Test_mulByFn(6, 8)))() + local _ = Effect_Console_foreign.log(Data_Show_foreign.showIntImpl(Golden_UncurriedLift_Test_mul2(4, 5)))() + local _ = Effect_Console_foreign.log(Data_Show_foreign.showIntImpl(Golden_UncurriedLift_Test_mulByFn(6, 8)))() local _ = Effect_Console_foreign.log(Data_Show_foreign.showIntImpl(Golden_UncurriedLift_Test_add3(1, 2, 100)))() local _ = Effect_Console_foreign.log(Data_Show_foreign.showIntImpl(Golden_UncurriedLift_Test_add3(1, 2, 200)))() - return Effect_Console_foreign.log(Data_Show_foreign.showIntImpl(M.Control_Monad_ST_Internal_foreign.run(function( ) - return M.Golden_UncurriedLift_Test_sumST(40, 2) + return Effect_Console_foreign.log(Data_Show_foreign.showIntImpl(Control_Monad_ST_Internal_foreign.run(function( ) + return Golden_UncurriedLift_Test_sumST(40, 2) end)))() end)() diff --git a/test/ps/output/Golden.Uncurry.Test/golden.lua b/test/ps/output/Golden.Uncurry.Test/golden.lua index 9a601f4b..748a7911 100644 --- a/test/ps/output/Golden.Uncurry.Test/golden.lua +++ b/test/ps/output/Golden.Uncurry.Test/golden.lua @@ -1,5 +1,5 @@ local M = {} -M.Data_Show_foreign = { +local Data_Show_foreign = { showIntImpl = function(n) return tostring(n) end, showArrayImpl = function(f) return function(xs) @@ -10,7 +10,7 @@ M.Data_Show_foreign = { end end } -M.Data_Functor_foreign = { +local Data_Functor_foreign = { arrayMap = function(f) return function(arr) local l = #(arr) @@ -20,23 +20,22 @@ M.Data_Functor_foreign = { end end } -M.Effect_Console_foreign = { +local Effect_Console_foreign = { log = function(s) return function() print(s) end end } -M.Data_Show_showInt = { show = M.Data_Show_foreign.showIntImpl } -M.Effect_Console_logShow_S_w = function(dictShow, a) - return M.Effect_Console_foreign.log(dictShow.show(a)) +local Data_Show_showInt = { show = Data_Show_foreign.showIntImpl } +local Effect_Console_logShow_S_w = function(dictShow, a) + return Effect_Console_foreign.log(dictShow.show(a)) end -M.Golden_Uncurry_Test_eq_S_w = function(r1_S_201_S_218, r2_S_202_S_219) +local Golden_Uncurry_Test_eq_S_w = function(r1_S_201_S_218, r2_S_202_S_219) return r1_S_201_S_218 == r2_S_202_S_219 end -M.Golden_Uncurry_Test_sub_S_w = function(x_S_187_S_213, y_S_188_S_214) +local Golden_Uncurry_Test_sub_S_w = function(x_S_187_S_213, y_S_188_S_214) return x_S_187_S_213 - y_S_188_S_214 end M.Golden_Uncurry_Test_sumTo = function(m) local go_S_w go_S_w = function(acc, n) - local Golden_Uncurry_Test_eq_S_w, Golden_Uncurry_Test_sub_S_w = M.Golden_Uncurry_Test_eq_S_w, M.Golden_Uncurry_Test_sub_S_w while true do if Golden_Uncurry_Test_eq_S_w(n, 0) then return acc @@ -47,62 +46,61 @@ M.Golden_Uncurry_Test_sumTo = function(m) end return go_S_w(0, m) end -M.Golden_Uncurry_Test_oddSteps_S_w = function(acc, n) - if M.Golden_Uncurry_Test_eq_S_w(n, 0) then +local Golden_Uncurry_Test_evenSteps_S_w +local Golden_Uncurry_Test_oddSteps_S_w = function(acc, n) + if Golden_Uncurry_Test_eq_S_w(n, 0) then return acc else - return M.Golden_Uncurry_Test_evenSteps_S_w(acc + 1, M.Golden_Uncurry_Test_sub_S_w(n, 1)) + return Golden_Uncurry_Test_evenSteps_S_w(acc + 1, Golden_Uncurry_Test_sub_S_w(n, 1)) end end M.Golden_Uncurry_Test_oddSteps = function(oddSteps_S_p1) return function(oddSteps_S_p2) - return M.Golden_Uncurry_Test_oddSteps_S_w(oddSteps_S_p1, oddSteps_S_p2) + return Golden_Uncurry_Test_oddSteps_S_w(oddSteps_S_p1, oddSteps_S_p2) end end -M.Golden_Uncurry_Test_evenSteps_S_w = function(acc, n) - if M.Golden_Uncurry_Test_eq_S_w(n, 0) then +Golden_Uncurry_Test_evenSteps_S_w = function(acc, n) + if Golden_Uncurry_Test_eq_S_w(n, 0) then return acc else - return M.Golden_Uncurry_Test_oddSteps_S_w(acc + 1, M.Golden_Uncurry_Test_sub_S_w(n, 1)) + return Golden_Uncurry_Test_oddSteps_S_w(acc + 1, Golden_Uncurry_Test_sub_S_w(n, 1)) end end M.Golden_Uncurry_Test_evenSteps = function(evenSteps_S_p1) return function(evenSteps_S_p2) - return M.Golden_Uncurry_Test_evenSteps_S_w(evenSteps_S_p1, evenSteps_S_p2) + return Golden_Uncurry_Test_evenSteps_S_w(evenSteps_S_p1, evenSteps_S_p2) end end -M.Golden_Uncurry_Test_alwaysFirst_S_w = function(x) return x end -M.Golden_Uncurry_Test_adderOf_S_w = function(x, y) +local Golden_Uncurry_Test_alwaysFirst_S_w = function(x) return x end +local Golden_Uncurry_Test_adderOf_S_w = function(x, y) return function(y_S_192_S_234) return x + y + y_S_192_S_234 end end -M.Golden_Uncurry_Test_add3_S_w = function(x, y, z) return x + y + z end +local Golden_Uncurry_Test_add3_S_w = function(x, y, z) return x + y + z end M.Golden_Uncurry_Test_add3 = function(add3_S_p1) return function(add3_S_p2) return function(add3_S_p3) - return M.Golden_Uncurry_Test_add3_S_w(add3_S_p1, add3_S_p2, add3_S_p3) + return Golden_Uncurry_Test_add3_S_w(add3_S_p1, add3_S_p2, add3_S_p3) end end end M.Golden_Uncurry_Test_inc = function(add3_S_p3_S_228) - return M.Golden_Uncurry_Test_add3_S_w(1, 0, add3_S_p3_S_228) + return Golden_Uncurry_Test_add3_S_w(1, 0, add3_S_p3_S_228) end return (function() - local Effect_Console_logShow_S_w, Data_Show_showInt, Golden_Uncurry_Test_add3_S_w, Data_Show_foreign, Golden_Uncurry_Test_adderOf_S_w, Golden_Uncurry_Test_alwaysFirst_S_w = M.Effect_Console_logShow_S_w, M.Data_Show_showInt, M.Golden_Uncurry_Test_add3_S_w, M.Data_Show_foreign, M.Golden_Uncurry_Test_adderOf_S_w, M.Golden_Uncurry_Test_alwaysFirst_S_w local _ = Effect_Console_logShow_S_w(Data_Show_showInt, Golden_Uncurry_Test_add3_S_w(1, 2, 3))() local _ = Effect_Console_logShow_S_w(Data_Show_showInt, Golden_Uncurry_Test_add3_S_w(4, 5, 6))() local _ = Effect_Console_logShow_S_w(Data_Show_showInt, Golden_Uncurry_Test_add3_S_w(10, 1, 2))() local _ = Effect_Console_logShow_S_w(Data_Show_showInt, Golden_Uncurry_Test_add3_S_w(1, 0, 41))() local _ = Effect_Console_logShow_S_w({ show = Data_Show_foreign.showArrayImpl(Data_Show_foreign.showIntImpl) - }, M.Data_Functor_foreign.arrayMap(function(add3_S_p3_S_255) - return M.Golden_Uncurry_Test_add3_S_w(1, 2, add3_S_p3_S_255) + }, Data_Functor_foreign.arrayMap(function(add3_S_p3_S_255) + return Golden_Uncurry_Test_add3_S_w(1, 2, add3_S_p3_S_255) end)({ [1] = 1, [2] = 2, [3] = 3 }))() - local _ = Effect_Console_logShow_S_w(Data_Show_showInt, M.Golden_Uncurry_Test_evenSteps_S_w(0, 10))() - local _ = Effect_Console_logShow_S_w(Data_Show_showInt, M.Golden_Uncurry_Test_oddSteps_S_w(0, 7))() + local _ = Effect_Console_logShow_S_w(Data_Show_showInt, Golden_Uncurry_Test_evenSteps_S_w(0, 10))() + local _ = Effect_Console_logShow_S_w(Data_Show_showInt, Golden_Uncurry_Test_oddSteps_S_w(0, 7))() local _ = Effect_Console_logShow_S_w(Data_Show_showInt, (function() local go_S_w_S_259 go_S_w_S_259 = function(acc_S_260, n_S_261) - local Golden_Uncurry_Test_eq_S_w, Golden_Uncurry_Test_sub_S_w = M.Golden_Uncurry_Test_eq_S_w, M.Golden_Uncurry_Test_sub_S_w while true do if Golden_Uncurry_Test_eq_S_w(n_S_261, 0) then return acc_S_260 @@ -116,7 +114,6 @@ return (function() local _ = Effect_Console_logShow_S_w(Data_Show_showInt, (function() local go_S_w_S_266 go_S_w_S_266 = function(acc_S_267, n_S_268) - local Golden_Uncurry_Test_eq_S_w, Golden_Uncurry_Test_sub_S_w = M.Golden_Uncurry_Test_eq_S_w, M.Golden_Uncurry_Test_sub_S_w while true do if Golden_Uncurry_Test_eq_S_w(n_S_268, 0) then return acc_S_267